wsgac

(ql:quickload :green-threads)

(cl-cont:defun/cc channel-squared (n h &key (threads 20))
  (let ((in (make-instance 'gt:channel))
        (out (make-instance 'gt:channel)))
    ;; Spawn workers
    (loop
      :repeat threads
      :do (gt:with-green-thread
            (loop

wsgac

(defvar level)

(defclass setup-mixin () ())

(defmethod run :around ((m setup-mixin))
  (let ((level 0))
    (call-next-method)))

(defclass mixin-1 () ())

wsgac

(defvar navigation-group-regex "postnav\\|navigation"
  "Regular expression to match the class of the navigation container")
(defvar prev-link-labels-regex "earlier\\|previous"
  "Regular expression matching the `previous` link")
(defvar next-link-labels-regex "later\\|next"
  "Regular expression matching the `next` link")

(defun my-eww-add-rel-prev-next ()
  "Add rel=\"prev\" and rel=\"next\" attributes to postnav links in EWW."
  (when (eq major-mode 'eww-mode)

wsgac

(require 'cl-lib)

(defun get-current-file-path (prefix)
  "Get filesystem from current buffer, provided it's a file buffer. With
prefix 4 also append line number. With prefix 16 append column number to
everything. Put the resulting string in the kill-ring and also display
it int the minibuffer."
  (interactive "p")
  (let* ((file-name (buffer-file-name (current-buffer)))
         (position (when (>= prefix 4) (list ":" (int-to-string (line-number-at-pos)))))

wsgac

;; Stores random state in a structure SB-KERNEL::RANDOM-STATE
*random-state*

;; Get the actual state vector
(sb-kernel::random-state-state *random-state*)

;; Intercept the state vector (copying it)
(defvar *rs1* (copy-seq (sb-kernel::random-state-state *random-state*)))

;; Sample a bunch of random numbers

wsgac

;;;;;;;;;;;;;;
;; Tooltips ;;
;;;;;;;;;;;;;;

;; TODO: These need polishing and weaving them into the broader
;; picture

(defun get-point-coordinates ()
 (let* ((posn (posn-at-point))
        (abs-pos (posn-x-y posn))

wsgac

def invert_recursive_dict(d: Dict) -> Dict:
    """
    Assuming `d` is a recursive Dict, invert it by mapping its leaves to the 
    lists/paths of keys leading to them in the original dict.
    """
    def invert(d, path: List, acc: Dict):
        if isinstance(d, Dict):
            # Handle dict contents recursively
            for k, i in d.items():
                invert(i, path+[k], acc)

wsgac

-- prevent noisy loading of psqlrc file
\set QUIET yes
--customize prompt
\set PROMPT1 '\n%[%033[1;31m%]➤ %[%033[2;37m%]%`\! date "+%F %I:%M %p %Z"`%[%033[0m%] %[%033[1;36m%]%n%@%/%[%033[1;31m%]%x %[%033[K%]%[%033[0m%]\n%[%033[1;33m%]%R%#%[%033[0m%] '
\set PROMPT2 '%[%033[1;33m%]%R%#%[%033[0m%] '
--show timing info for queries
\timing
-- allow pasting of values to avoid stupid indenting
\set paste
--get rid of duplicates in history

wsgac

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; HACK: Teach SLIME about jumping to FiveAM fixture definitions ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'sb-introspect)
(ql:quickload :swank)
(ql:quickload :fiveam)

;; Poor man's defadvice - stolen from https://gist.github.com/spacebat/46740966846623148c014ab261050bc0

wsgac

;;;;;;;;;;;;;
;; Paredit ;;
;;;;;;;;;;;;;

(use-package paredit
  :ensure t
  :init
  :config
  (show-paren-mode t)
  ;; Workaround for superfluous spaces inserted in e.g. pathnames, as