View *CPU-Profiler-Report 2013-06-08 02:59:42*.txt
- timer-event-handler 39716 90% | |
- byte-code 39704 90% | |
- apply 39704 90% | |
- sp-show--pair-function 39356 89% | |
- sp-get-thing 39354 89% | |
- sp-get-sexp 39322 89% | |
- sp-get-paired-expression 39318 89% | |
- sp--get-string-or-comment-bounds 39318 89% | |
- sp-get-quoted-string-bounds 39318 89% | |
- syntax-ppss 39023 89% |
View *lexscratch*.el
(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
(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
;;; 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
(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
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
#include <stdio.h> | |
int | |
main (char** argv, int argc) | |
{ | |
char ch = fgetc(stdin); | |
while (!feof(stdin)) { | |
write(ch); | |
ch = fgetc(stdin); | |
} |
View init.el
(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
(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
#!/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 |