green-coder

;; https://www.w3.org/TR/activitystreams-vocabulary
;; W3C Recommendation 23 May 2017

;; https://www.w3.org/TR/activitystreams-vocabulary/#types

(def core-types
  #:core.type {:object                  {:class         "Object"
                                         :uri           "https://www.w3.org/ns/activitystreams#Object"
                                         :disjoint-with #{:core.type/link}
                                         :properties    #{:property.type/attachment

green-coder

(ns hiccdown.html
  (:require [clojure.edn :as edn]
            [instaparse.core :as insta :refer [defparser]]))

;; A cross-platform (CLJC) html->hiccup converter for Hiccdown's own needs.
;; For now, only used in the tests.
(defparser html-parser "
  nodes = node*
  <node> = text | open-close-tags | self-closing-tag
  open-close-tags = opening-tag nodes closing-tag

green-coder

[{:title ":clojureD 2020",
  :id "PLaSn8eiZ631lrDFmUTBH9LFGzAxc3tvU4",
  :items
  ({:title
    "clojureD 2020: Lightning Talks by Mikkel Gravgaard, Daniel Slutsky, Daniel Janus and Arne Brasseur",
    :id "fVtawjGbvOQ",
    :duration "1363"}
   {:title
    "clojureD 2020: \"From Lazy Lisper to Confident Clojurist\" by Alexander Oloo",
    :id "j57UbYFbI-U",

green-coder

The history of tailwindcss

Jul 20, 2017

tailwindcss

References:

https://github.com/stubbornella/oocss >

green-coder

#GNU Screen Cheat Sheet

##Basics

• ctrl a c -> cre­ate new win­dow
• ctrl a A -> set win­dow name
• ctrl a w -> show all win­dow
• ctrl a 1|2|3|… -> switch to win­dow n
• ctrl a " -> choose win­dow
• ctrl a ctrl a -> switch between win­dow
• ctrl a d -> detach win­dow

green-coder

(def my-cat
  (fn [rf]
    (fn ([] (rf))
        ([result] (rf result))
        ([result input]
         (reduce (fn [acc val]
                   (cond 
                     (or (= val :fish)
                         (= val :heat))
                     acc

green-coder

(def my-cat
  (fn [rf]
    (fn ([] (rf))
        ([result] (rf result))
        ([result input]
         (reduce (fn [acc val]
                   (if (or (= val :fish)
                           (= val :heat))
                      acc
                      (rf acc val)))

green-coder

(defn debug
  ; Default parameters stuffs.
  ([] (debug 0))
  ([indent] (debug indent ">" "<"))
  ([indent in out]
   (let [spaces (apply str (repeat indent \space))]
     (debug (str spaces in)
            (str spaces out))))
  ; The transducer code starts here.
  ([in out]

green-coder

(def identity
  (fn [rf]
    (fn ([] (rf))
        ([result] (rf result))
        ([result input] (rf result input)))))

(into [] identity (list 1 2 3))

green-coder

(defn nth' [coll n]
  (transduce (drop n) (completing #(reduced %2)) nil coll))

(defn tree-seq'
  [branch? children root]
    (eduction (take-while some?) (map first)
      (iterate (fn [[node pair]]
                 (when-some [[[node' & r] cont] (if (branch? node)
                                                  (if-some [cs (not-empty (children node))]
                                                    [cs pair]