timmc

(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)))

jaawerth

; 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

christoph-frick

How to write an awesome-wm config with Fennel

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).

General setup

Fetch a recent Fennel version (the

mfikes

(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]

aphyr

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

timmc

#!/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

hmac-sha-256

(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."