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

Adding erc/saveplace/shortcuts to emacs. +useful

Browse source
This commit is contained in:
Hunter Haugen 2010-10-23 12:11:40 -07:00
parent 430a8dd7ed
commit 596f5badff
2 changed files with 50 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

59
.emacs.hunner.el
View file

@ -1,6 +1,6 @@
(require 'cl) ;; (require 'cl)
(mapcar (lambda (x) (add-to-list 'load-path (expand-file-name x))) (mapc (lambda (x) (add-to-list 'load-path (expand-file-name x)))
'("~/.emacs.d" '("~/.emacs.d"
)) ))
@ -8,10 +8,13 @@
(mapcar #'require packages)) (mapcar #'require packages))
(require-all '( (require-all '(
saveplace
color-theme color-theme
irblack irblack
parenface parenface
bar-cursor bar-cursor
tls
erc
)) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -30,6 +33,12 @@
;(load-file "~/.emacs.d/color-theme-inkpot.el") ;(load-file "~/.emacs.d/color-theme-inkpot.el")
;(color-theme-inkpot) ;(color-theme-inkpot)
;; OS X settings
;; (setq mac-option-key-is-meta nil)
;; (setq mac-command-key-is-meta t)
;; (setq mac-command-modifier 'meta)
;; (setq mac-option-modifier nil)
(bar-cursor-mode 1) (bar-cursor-mode 1)
(menu-bar-mode 0) (menu-bar-mode 0)
(scroll-bar-mode -1) (scroll-bar-mode -1)
@ -166,6 +175,7 @@
commands)) commands))
(set-keys '( (set-keys '(
("C-c t" totd) ("C-c t" totd)
("C-c n" global-linum-mode)
("C-c s p" (lambda () (interactive) ("C-c s p" (lambda () (interactive)
(if (shellfm-running-p) (if (shellfm-running-p)
(shellfm-pause) (shellfm-pause)
@ -183,7 +193,8 @@
("C-S-<down>" shrink-window) ("C-S-<down>" shrink-window)
("C-S-<up>" enlarge-window) ("C-S-<up>" enlarge-window)
("M-s" save-buffer) ("M-s" save-buffer)
("M-n" global-linum-mode) ("M-p" ctrl-y-in-vi)
("M-n" ctrl-e-in-vi)
("M-N" make-frame) ("M-N" make-frame)
("M-W" delete-frame) ("M-W" delete-frame)
("M-w" ido-kill-buffer) ("M-w" ido-kill-buffer)
@ -200,16 +211,16 @@
)) ))
;;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)
;; Transparency ;; Transparency
(set-frame-parameter (selected-frame) 'alpha '(85 85)) (set-frame-parameter (selected-frame) 'alpha '(85 85))
@ -219,11 +230,20 @@
(interactive) (interactive)
(if (/= (if (/=
(cadr (find 'alpha (frame-parameters nil) :key #'car)) (cadr (find 'alpha (frame-parameters nil) :key #'car))
10) 40)
(set-frame-parameter nil 'alpha '(10 10)) (set-frame-parameter nil 'alpha '(40 40))
(set-frame-parameter nil 'alpha '(85 85)))) (set-frame-parameter nil 'alpha '(85 85))))
(global-set-key (kbd "C-c T") 'toggle-transparency) (global-set-key (kbd "C-c T") 'toggle-transparency)
;; Vim-like scrolling
(defun ctrl-e-in-vi (n)
(interactive "p")
(scroll-up n))
(defun ctrl-y-in-vi (n)
(interactive "p")
(scroll-down n))
;; (global-set-key (kbd "<XF86AudioPlay>") ;; (global-set-key (kbd "<XF86AudioPlay>")
;; (lambda () (interactive) ;; (lambda () (interactive)
;; (if (shellfm-running-p) ;; (if (shellfm-running-p)
@ -232,8 +252,15 @@
;; ERC stuff ;; ERC stuff
;; (setq erc-encoding-coding-alist (quote (("#lisp" . utf-8) ;; (setq erc-encoding-coding-alist (quote (("#lisp" . utf-8)
;; ("#nihongo" . iso-2022-jp) ("#truelambda" . iso-latin-1) ;; ("#nihongo" . iso-2022-jp)
;; ("#bitlbee" . iso-latin-1)))) ;; ("#" . iso-latin-1)
;; ("#" . iso-latin-1))))
(autoload 'erc "erc")
(add-hook 'erc-mode-hook
'(lambda ()
(setq scroll-margin 0)
(setq erc-scrolltobottom-mode 1)))
(load "~/.emacs.d/erc-bip") ;; Passwords here
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Haskell mode ;; Haskell mode