gonewest818

(require 'deferred)
(require 'request)

(setq xyzzy (deferred:$
              (deferred:next
                (lambda () (message "test")))
              (deferred:nextc it
                (lambda (x) (message "nextc: %s" x)))))

gonewest818

foo

bar

baz

gonewest818

;; to generate an animated spinner
;;
;; starting from from this:
;; ".oO@Oo."
;;
;; and producing this:
;; ["[    ]"
;;  "[.   ]"
;;  "[o.  ]"
;;  "[Oo. ]"

gonewest818

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>Label</key>
	<string>org.gnu.emacs-daemon</string>
	<key>ProgramArguments</key>
	<array>
		<string>/usr/local/bin/emacs</string>
		<string>--fg-daemon</string>

gonewest818

;; from #clojurians with thanks to @noisesmith for posting
;; note: all namespaces must be loaded in repl

(->> (all-ns)
     (mapcat ns-publics)
     (filter (comp :test meta val)))

gonewest818

;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-x C-f and enter text in its buffer.



(setq face-remapping-alist nil)

(with-selected-window (get-buffer-window "*eshell*")
  (setq face-remapping-alist nil)
  (redraw-display))

gonewest818

;; This list was formed by clipping the version numbers from the spacelpa
;; and melpa-stable package names and then comparing the resulting strings.

;; In other words, this comparison is blind to version differences.

;; If a name appears here, it means spacelpa provides some version of this
;; package and melpa-stable has nothing, not even an older version.

2048-game
add-node-modules-path

gonewest818

(setq lexical-binding t)

(defun cider-eval-pprint-to-multiline-comment-handler (buffer location arrow-prefix comment-prefix)
  "Make a handler for evaluating and printing commented results in BUFFER.
LOCATION is the location at which to insert.
COMMENT-PREFIX is the comment prefix to use."
  (cl-flet ((multiline-comment-handler (buffer value)
             (with-current-buffer buffer
               (save-excursion

gonewest818

(defun cider-load-buffer-and-set-ns (&optional buffer)
  "Load buffer's file and set ns in nREPL"
  (interactive)
  (let ((buf (current-buffer))
        (ns (cider-current-ns)))
    (cider-load-buffer buf)
    (cider-repl-set-ns ns)))

gonewest818

(ns xyz.core
  (:require [clojure.string :refer [lower-case]])
  (:import java.lang.management.ManagementFactory))


(defn describe-thread
  "describe thread based on thread-info"
  [thread-mx-bean thread-info]
  (let [id (.getThreadId thread-info)]
    {:id            id