Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: personalizatio…
Fetching contributors…

Cannot retrieve contributors at this time

155 lines (122 sloc) 4.85 KB
;;; Fonts
(defun inconsolata (size)
(interactive "p")
(concat "-unknown-Inconsolata-normal-normal-normal-*-"
(if (stringp size) size
(if (= 1 size) "16"
(read-from-minibuffer "Size: ")))
(defun envy (size)
(interactive "p")
(concat "-unknown-Envy Code R-normal-normal-normal-*-"
(if (stringp size) size
(if (= 1 size) "16"
(read-from-minibuffer "Size: ")))
(defun dejavu (size)
(interactive "p")
(concat "-dejavu-dejavu sans mono-medium-r-normal--"
(if (stringp size) size
(if (= 1 size) "16"
(read-from-minibuffer "Size: ")))
;;; IRC
(eval-after-load 'rcirc
(require 'rcirc-color)
(require 'rcirc-completion)
(require 'dbus)
(dbus-register-signal :system "org.freedesktop.NetworkManager"
"/org/freedesktop/NetworkManager" "org.freedesktop.NetworkManager"
(setq rcirc-authinfo '(("freenode" nickserv "technomancy" "technomancy"))
rcirc-default-nick "technomancy"
rcirc-server-alist '((""
:channels ("#emacs" "#seattle.rb"
"#clojure" "#sonian" "#sonian-safe"))))
(add-hook 'rcirc-mode-hook (lambda ()
(set (make-local-variable 'scroll-conservatively)
(rcirc-track-minor-mode 1)
(flyspell-mode 1)))))
(defun handle-network-state-change (&rest state)
;; this doesn't seem to work
(when (member 4 state)
(message "Disconnected!")
(rcirc-cmd-quit "disconnected"))
;; 3 is magic-dbus-speak for "CONNECTED"
(when (member 3 state)
(rcirc nil)))
(defun irc ()
(inconsolata 1)
(rcirc nil)
;;; elisp libraries I run from source checkouts:
(add-to-list 'load-path "/home/phil/src/emacs-w3m")
(add-to-list 'load-path "/home/phil/src/relax.el")
(add-to-list 'load-path "/home/phil/src/elim/elisp")
(add-to-list 'load-path "/home/phil/src/clojure-mode")
(autoload 'w3m "w3m" "w3m browser" t)
(autoload 'relax "relax" "Connect to the CouchDB database at db-url." t)
(autoload 'garak "garak" "Start Garak IM session." t)
;;; Random stuff
;; If we don't have XFT, let's at least pick a decent default.
(if (< emacs-major-version 23)
(set-default-font "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso8859-1")))
(eval-after-load 'ruby-mode
'(add-hook 'ruby-mode-hook 'esk-paredit-nonlisp))
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "/home/phil/src/conkeror/contrib/run-conkeror")
;; (eval-after-load 'swank-clojure
;; '(add-to-list 'swank-clojure-extra-vm-args
;; "-agentlib:jdwp=transport=dt_socket,address=8021,server=y,suspend=n"))
(add-hook 'slime-repl-mode-hook 'turn-on-paredit)
(add-hook 'clojure-mode-hook 'turn-on-whitespace)
;; unfortunately some codebases use tabs. =(
(set-default 'tab-width 4)
(set-default 'c-basic-offset 2)
;; javadoc
(eval-after-load 'cc-mode
(define-key java-mode-map (kbd "C-M-h") 'backward-kill-word)))
;; Get around the emacswiki spam protection
(add-hook 'oddmuse-mode-hook
(lambda ()
(unless (string-match "question" oddmuse-post)
(setq oddmuse-post (concat "uihnscuskc=1;" oddmuse-post)))))
(defun eshell/rm (&rest args)
"Eshell's built-in rm is ridiculously slow."
(shell-command (format "rm %s" (mapconcat 'identity args " "))))
(defalias 'zb 'color-theme-zenburn)
(defalias 'bb 'color-theme-blackboard)
;;; Paredit hacks
(load "../../paredit/paredit-beta")
(load "../../paredit/paredit-delimiter-space")
(load "../../paredit/paredit-semicolon")
;;; broken ido
(defun ido-directory-too-big-p (arg) nil)
;;; registers
(set-register ?n '(file . "~/documents/"))
(set-register ?p '(file . "~/.emacs.d/phil.el"))
;; processing
(add-to-list 'load-path "/home/phil/src/processing-emacs/")
(autoload 'processing-mode "processing-mode" "Processing mode" t)
(add-to-list 'auto-mode-alist '("\\.pde$" . processing-mode))
(setq processing-location "/home/phil/src/processing-1.0.6/")
;; Java crap
(defun insert-property ()
"XML! it's awesome."
(let ((name (read-from-minibuffer "Property Name: "))
(value (read-from-minibuffer "Property Value: ")))
(insert (format
"<property>\n <name>%s</name>\n <value>%s</value>\n</property>\n"
name value))))
Jump to Line
Something went wrong with that request. Please try again.