| (defmacro essentially | |
| "Like letfn, but with the bindings at the end. Connotes that the | |
| bindings are not important for the core logic, just for logging, | |
| metrics, debugging etc. Recommend using footnote-looking bindings such | |
| as *0, *1, *2 or even Unicode daggers if you are super-brave. | |
| This is like Haskell's `where`. Thanks to amalloy for the pointer; no | |
| blame attaches to him, though." | |
| [& args] | |
| `(letfn ~(last args) | |
| ~@(butlast args))) |
| ; gist doesn't know what fennel is so let's say clj | |
| ; vi: ft=clojure | |
| (set hs.logger.defaultLogLevel "info") | |
| (local {:application app :hotkey hotkey} hs) | |
| ; use the SpoonInstall Spoon easy installing+loading of Spoons | |
| (hs.loadSpoon :SpoonInstall) | |
| (local install (. spoon :SpoonInstall)) | |
| ; for window sizing, use the WIndowHalfsAndThirds Spoon until I can write something custom |
Awesome-WM is a X11 window manager, that is configured via Lua. Fennel is a Lisp for Lua. This shows a general setup of how to write your awesome-wm config using fennel directly without the compilation step (which would also work, but is not needed).
Fetch a recent Fennel version (the
| (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] |
| use_xft yes | |
| xftalpha 0.8 | |
| text_buffer_size 2048 | |
| own_window yes | |
| own_window_argb_visual no | |
| own_window_argb_value 0 | |
| own_window_transparent yes | |
| own_window_type override | |
| own_window_hints below,sticky,skip_taskbar,skip_pager |
| #!/bin/bash | |
| # Overwrite ./target with a tmpfs ramdisk. Prompts for sudo. | |
| function usage() { | |
| echo 'Usage: `ramdisk-target.sh recreate|restore`' | |
| } | |
| if [ ! -f "project.clj" ]; then | |
| echo "Not in Clojure project." | |
| exit 2 |
| (ns hmac | |
| (:import (javax.crypto Mac) (javax.crypto.spec SecretKeySpec)) | |
| ) | |
| (defn secret-key-inst [key mac] | |
| (SecretKeySpec. (.getBytes key) (.getAlgorithm mac)) | |
| ) | |
| (defn sign[key string] | |
| "Returns the signature of a string with a given key, using a SHA-256 HMAC." |
