nicferrier

#!/bin/bash

NAME=bouncer
CWD=$(cd $(dirname $0) ; pwd)
EMACSBIN=$HOME/emacs-local/bin/emacs
EMACSCLIENT=$HOME/emacs-local/bin/emacsclient
EMACSD=$HOME/.emacs.$NAME.d
[ -d $EMACSD ] || mkdir $EMACSD
[ -f $EMACSD/init.el ] || echo "(load (setq custom-file \"$EMACSD/customs.el\"))" > $EMACSD/init.el

nicferrier

(defun rcirc-part-kill-buffer-hook (process cmd sender args text)
  (when (equal cmd "PART")
    (let ((channel-pair
           (with-current-buffer (process-buffer process)
             (assoc (car args) rcirc-buffer-alist))))
      (kill-buffer (cdr channel-pair)))))

(add-hook
 'rcirc-receive-message-functions

nicferrier

;;; lazy.el - working out lazy stuff -*- lexical-binding: t -*-

(defconst lazy-sullen-art
  "in my craft and sullen art
exercised in the still night
when only the moon rages
and lovers lie abed 
with all their griefs in the arms
I pratice by singing light
not for ambition or bread

nicferrier

(defmacro case/catch (label body &rest handlers)
  (declare (indent 1))
  `(case
       (catch ,label
         ,body)
     ,@handlers))

(case/catch :blah
  (let (x)

nicferrier

;;; lazy.el - working out lazy stuff -*- lexical-binding: t -*-

(defconst lazy-sullen-art
  "in my craft and sullen art
exercised in the still night
when only the moon rages
and lovers lie abed 
with all their griefs in the arms
I pratice by singing light
not for ambition or bread

nicferrier

(defun qpop (queue)
  "Return an iterator poping QUEUE."
  (let ((pt queue))
    (lambda ()
      (when (and pt (listp pt))
        (if (not (cdr pt))
            (pop pt)
            ;; Else find the point to pop
            (while (cddr pt) (setq pt (cdr pt)))

nicferrier

;; Skinny index

(flet
    ((e->i (e)
       (let ((lk (cdar (plist-get (cadr e) :title))))
         `(,(substring-no-properties (cadr lk))
            ,(plist-get (car lk) :path)
            ,@(plist-get (cadr e) :tags)))))
  (flet ((etest (e)
           (and (org-element-property :tags e)

nicferrier

(progn
  (defvar --cl---cl-xtest----)
  (let
      ((--cl---cl-xtest---- nil))
    (progn
      (let*
          ((v '--cl---cl-xtest----))
        (set v
             (function

nicferrier

;;; lazy.el - working out lazy stuff -*- lexical-binding: t -*-

(defconst lazy-sullen-art
  "in my craft and sullen art
exercised in the still night
when only the moon rages
and lovers lie abed 
with all their griefs in the arms
I pratice by singing light
not for ambition or bread

nicferrier

(org-data
 nil
 (headline
  (:raw-value introduction :begin 1 :end 233 :pre-blank 1 :hiddenp nil :contents-begin 17 :contents-end 231 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY index :title (introduction) :parent #0)
  (section (:begin 17 :end 233 :contents-begin 17 :contents-end 231 :post-blank 2 :parent #1)
           (paragraph (:begin 17 :end 231
                              :contents-begin 17 :contents-end 231
                              :post-blank 0 :post-affiliated 17 :parent #2) There is the Emacs Lisp Introduction and there is the Emacs Lisp
reference manual but there is no Emacs Lisp for Programmers. I'd love