Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

48 lines (34 sloc) 1.326 kb
;; Startup script for paredit screencast demo
(setq start-dir (file-name-directory
(or (buffer-file-name) load-file-name)))
(dolist (m '("paredit" "clojure-mode" "espresso"))
(load (concat start-dir m)))
(fringe-mode 0)
(set-default-font "-unknown-Inconsolata-normal-normal-normal-*-19-*-*-*-m-0-*-*")
(set-frame-size (caadr (current-frame-configuration)) 99 30)
(ido-mode t)
(show-paren-mode t)
(tooltip-mode -1)
(tool-bar-mode -1)
(blink-cursor-mode -1)
(global-set-key (kbd "C-M-h") 'backward-kill-word)
(defface paren-face
'((((class color) (background light))
(:foreground "grey15"))) "for parens")
(defun intro ()
(interactive)
(find-file (concat start-dir "intro"))
(set-default-font "-unknown-Inconsolata-normal-normal-normal-*-60-*-*-*-m-0-*-*")
(set-frame-size (caadr (current-frame-configuration)) 33 12)
(font-lock-add-keywords nil '(("(\\|)" . 'paren-face)))
(dotimes (n 70)
(set-face-foreground 'paren-face (concat "grey" (number-to-string (- 80 n))))
(sit-for 0.01)))
;; modes
(add-to-list 'auto-mode-alist '("\\.js$" . espresso-mode))
(defun esk-paredit-nonlisp ()
"Turn on paredit mode for non-lisps."
(interactive)
(set (make-local-variable 'paredit-space-delimiter-chars) (list ?\"))
(paredit-mode +1))
(add-hook 'clojure-mode-hook 'enable-paredit-mode)
Jump to Line
Something went wrong with that request. Please try again.