Neil Okamoto gonewest818

## deferred-chaining.el

(require 'deferred)
(require 'request)

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

## example.org

      
              2 files
            
          
              0 forks
            
          
              1 comment
            
          
              0 stars
            
          
                gonewest818
                / example.org
            
            
              Last active
              February 26, 2020 06:58
            
              
                try to repro dimmer issue #33 (https://github.com/gonewest818/dimmer.el/issues/33)
              
          
    foo

bar

baz


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

## org.gnu.emacs-daemon.plist
<?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>

## lein-test-ns.clj
;; 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)))

## dimmer.el
;; 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))

## out.txt
;; 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

## cider-pprint-eval-to-buffer-experiments.el

(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

## cider-load-buffer-and-set-ns.el
(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)))

## jmx-thread-stats.clj
(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

	(require 'deferred)
	(require 'request)

	(setq xyzzy (deferred:$
	(deferred:next
	(lambda () (message "test")))
	(deferred:nextc it
	(lambda (x) (message "nextc: %s" x)))))
	;; to generate an animated spinner
	;;
	;; starting from from this:
	;; ".oO@Oo."
	;;
	;; and producing this:
	;; ["[ ]"
	;; "[. ]"
	;; "[o. ]"
	;; "[Oo. ]"
	<?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>
	;; 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)))
	;; 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))
	;; 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

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