Recent improvements to the ClojureScript compiler have greatly simplified setting up development versus production outputs.
This example uses Figwheel as something that you want to exclude for production, but the pattern is general.
With this simple setup you only need one html file/view and it will work for developement and production.
| ;; Export | |
| (setq org-html-validation-link nil) | |
| (setq org-export-html-postamble nil) | |
| ;; File handling | |
| (setq org-directory "~/Documents/notes") | |
| (setq org-default-notes-file (concat org-directory "/default.org")) | |
| (setq org-log-done 'time) | |
| ;; TODO |
| (defn recursive-take | |
| "Recursively take from a list based on the operation list | |
| For example [:h :l :l :h] will take using the following operations | |
| until the list is exhausted: first last last first." | |
| [col operations] | |
| (loop [c col ops (cycle operations) acc []] | |
| (if (empty? c) | |
| acc | |
| (let [op (first ops) | |
| [head-fn tail-fn] (if (= op :h) |
A Pen by Christian Romney on CodePen.
A hopefully short and concise explanation as to how Clojure deals with Objects. If you already write Clojure, this isn't for you.
You know what an Interface is if you write/read Java or PHP 5+. In Clojure it might be called defprotocol.
user> (defprotocol IABC
(also-oo [this])
(another-fn [this x]))IABC
I hereby claim:
To claim this, I am signing this object:
A Pen by Christian Romney on CodePen.
| ack # search | |
| ansible # config mgmt | |
| apachetop # how's apache | |
| apple-gcc42 # helps to build certain software | |
| aria2 # faster downloads | |
| asciidoc # documentation | |
| aspell # for emacs/vim spell-checking | |
| bazaar # every now and then I clone a repo hosted by ubuntu | |
| brew-desc # get better descriptions of homebrew utils | |
| casperjs # javascript testing and screenscraping |
| ;; Geiser settings | |
| (setq geiser-active-implementations '(racket)) | |
| (setq geiser-repl-startup-time 10000) | |
| (setq geiser-repl-history-filename "~/.emacs.d/geiser-history") | |
| (setq geiser-repl-query-on-kill-p nil) | |
| (setq geiser-implementations-alist | |
| '(((regexp "\\.scm$") racket) | |
| ((regexp "\\.ss$") racket) | |
| ((regexp "\\.rkt$") racket))) |
| ;; Geiser settings | |
| (setq geiser-active-implementations '(racket)) | |
| (setq geiser-repl-startup-time 10000) | |
| (setq geiser-repl-history-filename "~/.emacs.d/geiser-history") | |
| (setq geiser-repl-query-on-kill-p nil) | |
| (setq geiser-implementations-alist | |
| '(((regexp "\\.scm$") racket) | |
| ((regexp "\\.ss$") racket) | |
| ((regexp "\\.rkt$") racket))) |