This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ann ^:no-check clojure.set/rename-keys [(Map Any Any) (Map Keyword Keyword) -> (Map Any Any)]) | |
;; Type Error (gibbon/service/postgres.clj:23:7) Type mismatch: | |
;; Expected: (Map Any Any) | |
;; Actual: (TFn [[a :variance :covariant] [b :variance :covariant]] (APersistentMap a b)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Section "InputClass" | |
Identifier "evdev keyboard catchall" | |
MatchIsKeyboard "on" | |
MatchDevicePath "/dev/input/event*" | |
Driver "evdev" | |
Option "XkbLayout" "dvorak" | |
Option "XkbVariant" "dvorak" | |
Option "XkbOptions" "ctrl:nocaps" | |
EndSection |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn string-compression | |
"Compresses a string by appending the count after the repeat of each | |
letter. For example: \"aabccccaaa\" would become \"a2b1c4a3\". | |
If the compressed string is larger than the original, it should return the | |
original." | |
[s] | |
(let [cnt-orig (count s) | |
compress-fn (fn [coll c] | |
(if (empty? coll) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun wunki-folder-for-account (folder) | |
"Returns the correct folder for this account" | |
(lambda (msg) | |
(if msg | |
(let ((account (nth 1 (split-string (mu4e-message-field msg :maildir) "/")))) | |
(format "%s/%s" account folder))))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE OverloadedStrings #-} | |
{- | |
Pinki is a command line tool which helps you share files on S3 by | |
creating a static HTML page which is uploaded together with the file. | |
You could say it's Hakyll for file sharing. | |
-} | |
module Main where |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
box: wercker/default | |
services: | |
- wercker/postgresql | |
- wercker/rabbitmq | |
- wercker/redis | |
build: | |
steps: | |
- script: | |
name: install clojure | |
code: | |
NewerOlder