Skip to content

Instantly share code, notes, and snippets.

Working from home

Martin Blais blais

Working from home
View GitHub Profile
View gist.el
(when (not token)
(setq token (read-string "GitHub API token: "))
(github-set-config "token" token))
View utils.clj
;; FIXME: This is missing from the stdlib.
(defn split-extension [filename]
(let [index (.lastIndexOf filename ".")]
(list (.substring filename 0 index) (.substring filename index))))
(defn get-basename [filename]
(let [index (.lastIndexOf filename ".")]
(.substring filename 0 index)))
(defn get-extension [filename]
You can’t perform that action at this time.