hunner/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update for emacs 24; arrow keys, mit-scheme, fullscreen, elpa

Browse source
This commit is contained in:
Hunter Haugen 2014-05-05 11:54:12 -07:00
parent 98de7ae580
commit 8ac9e285a5
1 changed files with 35 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

57
.emacs.hunner.el
View file

@ -49,7 +49,7 @@
(set-language-environment "UTF-8") (set-language-environment "UTF-8")
(set-input-method "japanese-ascii") ; C-x C-m C-\ (set-input-method "japanese-ascii") ; C-x C-m C-\
(winner-mode t) (winner-mode t)
(display-battery-mode t) ;;(display-battery-mode t) ;; broken on 10.9.2
(setq display-time-24hr-format t) (setq display-time-24hr-format t)
(display-time-mode t) (display-time-mode t)
(line-number-mode 1) (line-number-mode 1)
@ -85,6 +85,26 @@
(indent-according-to-mode))) (indent-according-to-mode)))
(global-set-key [C-tab] 'indent-according-to-mode) (global-set-key [C-tab] 'indent-according-to-mode)
(autoload 'copy-from-above-command "misc"
"Copy characters from previous nonblank line, starting just above point.
\(fn &optional arg)"
'interactive)
(global-set-key [up] 'copy-from-above-command)
(global-set-key [down] (lambda ()
(interactive)
(forward-line 1)
(open-line 1)
(copy-from-above-command)))
(global-set-key [right] (lambda ()
(interactive)
(copy-from-above-command 1)))
(global-set-key [left] (lambda ()
(interactive)
(copy-from-above-command -1)
(forward-char -1)
(delete-char -1)))
;; Proxy for ssh tunnel + privoxy ;; Proxy for ssh tunnel + privoxy
;; (setq url-proxy-services '(("no_proxy" . "localhost") ;; (setq url-proxy-services '(("no_proxy" . "localhost")
;; ("http" . "localhost:8118"))) ;; ("http" . "localhost:8118")))
@ -125,6 +145,11 @@
;; (setq default-directory saved-default-directory)) ;; (setq default-directory saved-default-directory))
;; (global-set-key "\C-x\C-f" 'find-file-save-default-directory) ;; (global-set-key "\C-x\C-f" 'find-file-save-default-directory)
;; Enable mit-scheme
(setq scheme-program-name
"/opt/boxen/homebrew/bin/mit-scheme")
(require 'xscheme)
;; Give killing lines advice ;; Give killing lines advice
(defadvice kill-ring-save (before slick-copy activate compile) (defadvice kill-ring-save (before slick-copy activate compile)
"When called interactively with no active region, copy a single line instead." "When called interactively with no active region, copy a single line instead."
@ -208,18 +233,18 @@
("M-O" other-window) ("M-O" other-window)
("M-`" next-window) ("M-`" next-window)
("M-~" previous-window) ("M-~" previous-window)
("M-RET" ns-toggle-fullscreen) ("M-RET" toggle-fullscreen)
)) ))
;;toggle full-screen ;;toggle full-screen
;; (defun toggle-fullscreen () (defun toggle-fullscreen ()
;; (interactive) (interactive)
;; (set-frame-parameter (set-frame-parameter
;; nil nil
;; 'fullscreen 'fullscreen
;; (if (frame-parameter nil 'fullscreen) (if (frame-parameter nil 'fullscreen)
;; nil nil
;; 'fullboth))) 'fullboth)))
;; (global-set-key [(meta return)] 'toggle-fullscreen) ;; (global-set-key [(meta return)] 'toggle-fullscreen)
@ -351,15 +376,3 @@
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(mumamo-border-face-in ((t nil))) '(mumamo-border-face-in ((t nil)))
'(mumamo-border-face-out ((t nil)))) '(mumamo-border-face-out ((t nil))))
;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
(when
(load
(expand-file-name "~/.emacs.d/elpa/package.el"))
(package-initialize)
(require 'starter-kit-elpa))