Nic Ferrier nicferrier


    
    View *lexscratch*.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
(defun nic-dyn-lookup (symbol)
  (format "%S" (symbol-value (intern symbol))))
 
(defun nic-lex-lookup (symbol environment)
  (let ((value (assq (intern symbol) (cadr environment))))
    (when (consp value) (format "%S" (cdr value)))))
 
(defmacro s-lex-format (template)
  (if lexical-binding

          
    View *scratch*.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
          
          
(let ((str "in my craft and sullen art"))
  (save-match-data
    (string-match "\\(in\\) my craft" str))
  (let ((str2 (concat "" str)))
    (string-match "thing1" str2)
    (match-string 1 str2)))

          
    View elnode-proxy.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
            ;;; elnode-proxy.el -- proxying with elnode -*- lexical-binding: t -*-
 
(require 's)
(require 'web)
 
(defun elnode/web->elnode-hdr (hdr httpcon)
  (apply
   'elnode-http-start
   httpcon 200
   (mapcar

          
    View elwiki-test.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
            (require 'ert)
(require 'elwiki)
(require 'fakir)
 
(ert-deftest elwiki/render-page ()
  "Test `elwiki/render-page'."
  (fakir-mock-process :httpcon ()
    (let ((elwiki-wikiroot "/path/to/wikiroot/")
          (test-file-contents "= Test page =\nthis is a test wiki page\n")
          (output ""))

          
    View *elpakit-elpa-list*.txt 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
            anaphora-0.1.0
ascii-3.1
auto-complete-1.4
back-button-0.6.4
bigint-1.0.0
browse-kill-ring-1.3.1
cl-lib-0.2
clojure-mode-2.1.0
color-theme-6.5.5
color-theme-dawn-night-1.0

          
    View testio.c 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
            #include <stdio.h>
 
int
main (char** argv, int argc) 
{
  char ch = fgetc(stdin);
  while (!feof(stdin)) {
    write(ch);
    ch = fgetc(stdin);
  }

          
    View init.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
(defun my-package-complete ()
  (customize-set-variable
   'package-archives
   '(("gnu" . "http://elpa.gnu.org/packages/")
     ("marmalade" . "http://marmalade-repo.org/packages/")
     ("melpa" . "http://melpa.milkbox.net/packages/")
     ))
  (customize-save-customized)
  (package-refresh-contents)

          
    View *scratch*.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
(defun my-package-complete ()
  (require 'package)
  (customize-set-variable
   'package-archives
   '(("gnu" . "http://elpa.gnu.org/packages/")
     ("marmalade" . "http://marmalade-repo.org/packages/")
     ("melpa" . "http://melpa.milkbox.net/packages/")
     ))
  (customize-save-customized)

          
    View emacs-boot.sh 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
          
          
            #!/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

          
    View *scratch*.el 
  
  
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
(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