460 lines
14 KiB
Text
460 lines
14 KiB
Text
;; feel out the system
|
|
(defvar macosx-p (string-match "darwin" (symbol-name system-type)))
|
|
(defvar linux-p (string-match "gnu/linux" (symbol-name system-type)))
|
|
|
|
;; disable splash screen and startup message
|
|
(setq inhibit-startup-message t)
|
|
;(setq initial-scratch-message nil)
|
|
|
|
;; don't litter my filesystem with ~ files!
|
|
(setq make-backup-files nil)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
;; setup load paths ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun add-to-load-path (file)
|
|
"Add FILE to `load-path' if it is readable."
|
|
(if (file-readable-p file)
|
|
(add-to-list 'load-path file)))
|
|
|
|
;; use icicles for enhanced minibuffer completion and lots of other goodies
|
|
(let ((load-paths '("~/.emacs.d" "~/.emacs.d/icicles")))
|
|
(mapcar 'add-to-load-path load-paths))
|
|
|
|
|
|
;;;;;;;
|
|
;; c ;;
|
|
;;;;;;;
|
|
|
|
;; Make a non-standard key binding. We can put this in
|
|
;; c-mode-base-map because c-mode-map, c++-mode-map, and so on,
|
|
;; inherit from it.
|
|
(defun sjs-c-initialization-hook ()
|
|
(define-key c-mode-base-map "\r" 'newline-and-indent)) ; auto indent after inserting newline
|
|
(add-hook 'c-initialization-hook 'sjs-c-initialization-hook)
|
|
|
|
;; offset customizations not in my-c-style
|
|
;; This will take precedence over any setting of the syntactic symbol
|
|
;; made by a style.
|
|
;; (setq c-offsets-alist '((member-init-intro . ++)))
|
|
|
|
;; Create my personal style.
|
|
(defconst my-c-style
|
|
'("linux"
|
|
(c-tab-always-indent . t)
|
|
(c-basic-offset . 8)
|
|
;; (c-comment-only-line-offset . 4)
|
|
;; (c-hanging-braces-alist . ((substatement-open after)
|
|
;; (brace-list-open)))
|
|
;; (c-hanging-colons-alist . ((member-init-intro before)
|
|
;; (inher-intro)
|
|
;; (case-label after)
|
|
;; (label after)
|
|
;; (access-label after)))
|
|
(c-cleanup-list . (list-close-comma
|
|
compact-empty-funcall
|
|
one-liner-defun
|
|
defun-close-semi))
|
|
;; (c-offsets-alist . ((arglist-close . c-lineup-arglist)
|
|
;; (substatement-open . 0)
|
|
;; (case-label . 4)
|
|
;; (block-open . 0)
|
|
;; (knr-argdecl-intro . -)))
|
|
;; (c-echo-syntactic-information-p . t)
|
|
)
|
|
"how sjs likes his C")
|
|
(c-add-style "sjs" my-c-style)
|
|
|
|
;; Customizations for all modes in CC Mode.
|
|
(defun sjs-c-mode-common-hook ()
|
|
;; set my personal style for the current buffer
|
|
(c-set-style "sjs")
|
|
;; other customizations
|
|
(setq tab-width 8
|
|
;; this will make sure spaces are used instead of tabs
|
|
indent-tabs-mode nil)
|
|
(c-toggle-auto-newline 1)
|
|
(c-subword-mode))
|
|
;; (setq skeleton-pair t)
|
|
;; (setq skeleton-autowrap t)
|
|
;; (let ((chars '("'" "\"" "(" "[" "{")))
|
|
;; (mapcar (lambda (char)
|
|
;; (local-set-key char 'skeleton-pair-insert-maybe)) chars))
|
|
(add-hook 'c-mode-common-hook 'sjs-c-mode-common-hook)
|
|
|
|
|
|
;;;;;;;;;;;
|
|
;; shell ;;
|
|
;;;;;;;;;;;
|
|
|
|
;; chmod u+x files that have a shebang line
|
|
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
|
|
|
|
(add-to-list 'auto-mode-alist '("zshenv$" . sh-mode))
|
|
(add-to-list 'auto-mode-alist '("zshrc$" . sh-mode))
|
|
|
|
|
|
|
|
;;;;;;;;;;
|
|
;; ruby ;;
|
|
;;;;;;;;;;
|
|
|
|
;; Based on http://infolab.stanford.edu/~manku/dotemacs.html
|
|
(autoload 'ruby-mode "ruby-mode"
|
|
"Mode for editing ruby source files")
|
|
(autoload 'ruby-electric-mode "ruby-electric"
|
|
"Mode for automatically inserting end and such for Ruby")
|
|
(add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode))
|
|
(add-to-list 'interpreter-mode-alist '("ruby" . ruby-mode))
|
|
(autoload 'run-ruby "inf-ruby"
|
|
"Run an inferior Ruby process")
|
|
(autoload 'inf-ruby-keys "inf-ruby"
|
|
"Set local key defs for inf-ruby in ruby-mode")
|
|
(add-hook 'ruby-mode-hook
|
|
'(lambda ()
|
|
(inf-ruby-keys)
|
|
(ruby-electric-mode)
|
|
(c-subword-mode)))
|
|
(autoload 'rubydb "rubydb3x" "Ruby debugger" t)
|
|
|
|
|
|
;;;;;;;;;;;;;
|
|
;; haskell ;;
|
|
;;;;;;;;;;;;;
|
|
|
|
;; (if (file-readable-p "~/.emacs.d/haskell/haskell-site-file.el")
|
|
;; (load "~/.emacs.d/haskell/haskell-site-file.el" nil t))
|
|
|
|
|
|
;;;;;;;;;;;
|
|
;; rails ;;
|
|
;;;;;;;;;;;
|
|
|
|
;(require 'rails)
|
|
|
|
|
|
;; wraps selected text with the given tag or inserts the tag if nothing selected
|
|
(require 'tagify)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;
|
|
;; javascript ;;
|
|
;;;;;;;;;;;;;;;;
|
|
|
|
(autoload 'js2-mode "js2-mode" nil t)
|
|
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
|
|
(add-hook 'js2-mode-hook '(lambda ()
|
|
(local-set-key "\C-m" 'newline)
|
|
(c-subword-mode)))
|
|
|
|
(autoload #'espresso-mode "espresso" "Start espresso-mode" t)
|
|
;;(add-to-list 'auto-mode-alist '("\\.js$" . espresso-mode))
|
|
(add-to-list 'auto-mode-alist '("\\.json$" . espresso-mode))
|
|
|
|
(add-hook 'js2-mode-hook 'c-subword-mode)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;
|
|
;; objective j ;;
|
|
;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'objj-mode)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;
|
|
;; mojo (webOS) ;;
|
|
;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'mojo)
|
|
|
|
;; enable Mojo for CSS, HTML, JS, and JSON files within a Mojo project
|
|
;; root. Did I forget anything?
|
|
(mojo-setup-mode-hooks 'css-mode-hook 'js2-mode-hook 'espresso-mode-hook 'html-mode-hook)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; inferior javascript ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'js-comint)
|
|
;(setq inferior-js-program-command "/usr/local/bin/v8")
|
|
(setq inferior-js-program-command "/opt/local/bin/js -v 1.8")
|
|
(add-hook 'js2-mode-hook '(lambda ()
|
|
(local-set-key "\C-x\C-e" 'js-send-last-sexp)
|
|
(local-set-key "\C-\M-x" 'js-send-last-sexp-and-go)
|
|
(local-set-key "\C-cb" 'js-send-buffer)
|
|
(local-set-key "\C-c\C-b" 'js-send-buffer-and-go)
|
|
(local-set-key "\C-cl" 'js-load-file-and-go)
|
|
))
|
|
|
|
|
|
;;;;;;;;;;;;
|
|
;; python ;;
|
|
;;;;;;;;;;;;
|
|
|
|
;; handy but ugly as fuck
|
|
(autoload 'whitespace-mode "whitespace"
|
|
"Toggle whitespace visualization." t)
|
|
|
|
(add-hook 'python-mode-hook '(lambda ()
|
|
(c-subword-mode)))
|
|
|
|
|
|
;;;;;;;;;;;;
|
|
;; markup ;;
|
|
;;;;;;;;;;;;
|
|
|
|
;; (require 'textile-mode)
|
|
;; (add-to-list 'auto-mode-alist '("\\.textile\\'" . textile-mode))
|
|
|
|
(require 'yaml-mode)
|
|
(add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))
|
|
|
|
|
|
;; keep a list of recently visited files
|
|
(require 'recentf)
|
|
(recentf-mode 1)
|
|
|
|
;; remember my position in files
|
|
(require 'saveplace)
|
|
(setq-default save-place t)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;
|
|
;; lisp and scheme ;;
|
|
;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; recognize my non-standard emacs config location
|
|
(add-to-list 'auto-mode-alist '("config/emacs$" . emacs-lisp-mode))
|
|
|
|
;; use ElSchemo as the default scheme
|
|
(setq scheme-program-name "~/Projects/elschemo/elschemo")
|
|
|
|
;; use sbcl for lisp
|
|
(setq inferior-lisp-program "/usr/bin/env sbcl")
|
|
|
|
;; setup slime
|
|
(add-to-list 'load-path "~/.slime")
|
|
(require 'slime)
|
|
(slime-setup)
|
|
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
|
|
(add-hook 'scheme-mode-hook (lambda () (slime-mode t)))
|
|
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
|
|
(add-hook 'inferior-scheme-mode-hook (lambda () (inferior-slime-mode t)))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;
|
|
;; customizations ;;
|
|
;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; always start emacs server
|
|
(server-start)
|
|
|
|
;; setup tramp mode
|
|
(setq tramp-default-method "ssh")
|
|
|
|
;; complete like zsh's complete-in-word option (p-b expands to print-buffer)
|
|
(load "complete")
|
|
|
|
;; show the date & time in the mode line
|
|
(setq display-time-day-and-date t)
|
|
(display-time)
|
|
|
|
(setq track-eol t) ; When at EOL, C-n and C-p move to EOL on other lines
|
|
(setq indent-tabs-mode nil) ; never insert tabs
|
|
|
|
;; ah, now I can read the text I'm supposed to correct
|
|
;; (progn
|
|
;; (set-face-background 'flymake-errline "red4")
|
|
;; (set-face-background 'flymake-warnline "dark slate blue"))
|
|
|
|
;; highlight the current line
|
|
(global-hl-line-mode 1)
|
|
|
|
;; To customize the background color
|
|
(set-face-background 'hl-line "#330")
|
|
|
|
;;;;;;;;;;;;;;;;;;
|
|
;; key bindings ;;
|
|
;;;;;;;;;;;;;;;;;;
|
|
;; TODO add these only to appropriate modes
|
|
|
|
;; custom key bindings under a common prefix
|
|
(global-set-key "\C-z" nil) ; Suspend is useless. Give me C-z!
|
|
(global-set-key "\C-zf" 'find-file-at-point)
|
|
(global-set-key "\C-zz" 'shell) ; z for zsh
|
|
(global-set-key "\C-zl" 'duplicate-line)
|
|
(global-set-key "\C-zg" 'goto-line)
|
|
(global-set-key "\C-zr" 'query-replace-regexp)
|
|
(global-set-key "\C-z\C-r" 'reload-dot-emacs)
|
|
(global-set-key "\C-zc" 'comment-line)
|
|
(global-set-key "\C-zj" 'run-js)
|
|
(global-set-key "\C-zs" 'run-scheme)
|
|
(global-set-key "\C-z\C-t" 'totd)
|
|
(global-set-key [f5] 'compile)
|
|
|
|
;; *** only do this for specific modes?
|
|
;; help out a TextMate junkie
|
|
;; (setq skeleton-pair t)
|
|
;; (setq skeleton-autowrap t)
|
|
|
|
;; (let ((chars '("'" "\"" "`" "(" "[" "{")))
|
|
;; (mapcar (lambda (char)
|
|
;; (global-set-key char 'skeleton-pair-insert-maybe)) chars))
|
|
|
|
;; web searches
|
|
(global-set-key "\C-zwg" 'web-search-google)
|
|
(global-set-key "\C-zww" 'web-search-wikipedia)
|
|
(global-set-key "\C-zwih" 'web-search-iso-hunt)
|
|
(global-set-key "\C-zwpb" 'web-search-pirate-bay)
|
|
|
|
;; extend Emacs' default key binding space
|
|
(global-set-key "\C-x\C-b" 'bs-show) ; use the buffer list buffer menu
|
|
(global-set-key "\C-x\C-r" 'recentf-find-files-compl)
|
|
|
|
;; use the X clipboard for cut/copy/paste
|
|
(global-set-key "\C-w" 'clipboard-kill-region)
|
|
(global-set-key "\M-w" 'clipboard-kill-ring-save)
|
|
(global-set-key "\C-y" 'clipboard-yank)
|
|
|
|
;; wrap a region with an HTML/XML tag
|
|
(global-set-key "<" 'tagify-region-or-insert-self)
|
|
(global-set-key "\C-zt" 'tagify-region-or-insert-tag)
|
|
|
|
;; XXX:todo need a version of this that inserts a line terminator as well
|
|
;; Use C-j!
|
|
;;(global-set-key [M-return] 'move-end-of-line-insert-newline)
|
|
|
|
;; saved macros
|
|
|
|
(defun duplicate-line (&optional arg)
|
|
"Duplicate the current line."
|
|
(interactive "p")
|
|
(save-excursion
|
|
(move-beginning-of-line nil)
|
|
(let ((beg (point)))
|
|
(move-end-of-line nil)
|
|
(let* ((end (point))
|
|
(txt (buffer-substring beg end)))
|
|
(newline)
|
|
(insert txt)))))
|
|
|
|
(fset 'comment-line
|
|
(lambda (&optional arg)
|
|
"Comment or uncomment the current line using `comment-dwim'."
|
|
(interactive "p")
|
|
(kmacro-call-macro (quote ([1 67108896 14 134217787 16] 0 "%d")) arg)))
|
|
|
|
;; function definitions
|
|
|
|
;; Reload the .emacs file with a minimum of effort,
|
|
;; first saving histories with Persistent
|
|
(defun reload-dot-emacs () (interactive)
|
|
"If there is a buffer named .emacs save it. Reload ~/.emacs if it exists."
|
|
(if (get-buffer "emacs")
|
|
(save-excursion
|
|
(set-buffer "emacs")
|
|
(save-buffer)))
|
|
(if (file-exists-p "~/config/emacs")
|
|
(load-file "~/config/emacs")))
|
|
|
|
;; find recently visited files quickly
|
|
(defun recentf-find-files-compl ()
|
|
"Find a file that has recently been visited."
|
|
(interactive)
|
|
(let* ((all-files recentf-list)
|
|
(tocpl (mapcar (function
|
|
(lambda (x) (cons (file-name-nondirectory x) x))) all-files))
|
|
(prompt (append '("Recent file name: ") tocpl))
|
|
(fname (completing-read (car prompt) (cdr prompt) nil nil)))
|
|
(find-file (or (cdr (assoc fname tocpl))
|
|
fname))))
|
|
|
|
|
|
(cond ((file-readable-p "~/.emacs.d/color-theme")
|
|
(add-to-list 'load-path "~/.emacs.d/color-theme")
|
|
(require 'color-theme)
|
|
|
|
;; dark themes
|
|
;; (color-theme-arjen) ;; easy on the eyes, but sucks for Ruby
|
|
;; (color-theme-billw) ;; bright yellow and white, decent for Ruby
|
|
;; (color-theme-charcoal-black) ;; pastels, low contrast, decent for Ruby
|
|
;; (color-theme-dark-laptop) ;; red comments, so-so, decent for Ruby
|
|
;; (color-theme-euphoria) ;; pink and green, not too shabby
|
|
;; (color-theme-ld-dark) ;; easy on the eyes, low contrast, not bad
|
|
(color-theme-midnight) ;; pretty nice, but very basic, good for Ruby
|
|
;; (color-theme-pok-wob) ;; white and yellow, kind of lame
|
|
;; (color-theme-simple-1) ;; red comments, white text
|
|
;; (color-theme-taming-mr-arneson) ;; blue text, red comments, status bar blends into document
|
|
;; (color-theme-taylor) ;; beige text, orange comments
|
|
;; (color-theme-tty-dark)
|
|
))
|
|
|
|
;; always highlight syntax
|
|
(global-font-lock-mode t)
|
|
(setq font-lock-maximum-decoration t) ; highlight liberally
|
|
|
|
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
|
|
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
|
|
|
(defun totd ()
|
|
(interactive)
|
|
(with-output-to-temp-buffer "*Tip of the day*"
|
|
(let* ((commands (loop for s being the symbols
|
|
when (commandp s) collect s))
|
|
(command (nth (random (length commands)) commands)))
|
|
(princ
|
|
(concat "Your tip for the day is:\n"
|
|
"========================\n\n"
|
|
(describe-function command)
|
|
"\n\nInvoke with:\n\n"
|
|
(with-temp-buffer
|
|
(where-is command t)
|
|
(buffer-string)))))))
|
|
|
|
|
|
(custom-set-variables
|
|
;; custom-set-variables was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
'(blink-cursor-mode nil)
|
|
'(case-fold-search t)
|
|
'(column-number-mode t)
|
|
'(current-language-environment "UTF-8")
|
|
'(default-input-method "rfc1345")
|
|
'(face-font-family-alternatives (quote (("bistream vera sans mono" "courier" "fixed") ("helv" "helvetica" "arial" "fixed"))))
|
|
'(global-font-lock-mode t nil (font-lock))
|
|
'(icicle-reminder-prompt-flag 5)
|
|
'(js2-bounce-indent-p t)
|
|
'(js2-highlight-level 3)
|
|
'(js2-mode-escape-quotes nil)
|
|
'(js2-strict-inconsistent-return-warning nil)
|
|
'(mojo-build-directory "~/Projects/brighthouse/webOS/build")
|
|
'(mojo-debug nil)
|
|
'(mojo-project-directory "~/Projects/brighthouse/webOS")
|
|
'(remote-shell-program "/usr/bin/ssh")
|
|
'(save-place t nil (saveplace))
|
|
'(scroll-bar-mode nil)
|
|
'(show-paren-mode t nil (paren))
|
|
'(tool-bar-mode nil)
|
|
'(transient-mark-mode t))
|
|
|
|
(if linux-p
|
|
(custom-set-faces
|
|
;; custom-set-faces was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
|
|
'(default ((t (:stipple nil :background "black" :foreground "grey85" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "bitstream-bitstream vera sans mono"))))))
|
|
|
|
(put 'upcase-region 'disabled nil)
|
|
(put 'downcase-region 'disabled nil)
|
|
(custom-set-faces
|
|
;; custom-set-faces was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
)
|