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

Whitespace formatting

Browse source
This commit is contained in:
Hunter Haugen 2010-10-13 11:23:13 -07:00
parent 8e6d3480fc
commit 3b5a270a23
2 changed files with 25 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
.emacs.d/irblack.el
View file

@ -22,8 +22,8 @@
(interactive) (interactive)
(color-theme-install (color-theme-install
'(color-theme-irblack '(color-theme-irblack
(;; (background-color . "black") ((background-color . "black")
;; (background-mode . dark) (background-mode . dark)
(border-color . "gray10") (border-color . "gray10")
(cursor-color . "DarkOliveGreen2") (cursor-color . "DarkOliveGreen2")
(foreground-color . "#F6F3E8") (foreground-color . "#F6F3E8")
@ -67,6 +67,8 @@
(show-paren-mismatch ((t (:background "#FF1100")))) (show-paren-mismatch ((t (:background "#FF1100"))))
(underline ((nil (:underline nil)))) (underline ((nil (:underline nil))))
;; whitespace
(trailing-whitespace ((t (:background "gray22"))))
;; mumamo ;; mumamo
;(mumamo-background-chunk-major ((t (:background "#000000")))) ;(mumamo-background-chunk-major ((t (:background "#000000"))))
;(mumamo-background-chunk-submode ((t (:background "#222222")))) ;(mumamo-background-chunk-submode ((t (:background "#222222"))))

27
.emacs.hunner.el
View file

@ -32,6 +32,7 @@
(bar-cursor-mode 1) (bar-cursor-mode 1)
(menu-bar-mode 0) (menu-bar-mode 0)
(scroll-bar-mode -1)
(tool-bar-mode 0) (tool-bar-mode 0)
(setq linum-format "%3d ") (setq linum-format "%3d ")
(setq-default indent-tabs-mode nil) (setq-default indent-tabs-mode nil)
@ -96,6 +97,7 @@
;; Highlight bad whitespace ;; Highlight bad whitespace
(global-whitespace-mode t) (global-whitespace-mode t)
(setq whitespace-style (quote (tabs tab-mark))) (setq whitespace-style (quote (tabs tab-mark)))
(setq-default show-trailing-whitespace t)
;; Make % work like vi ;; Make % work like vi
(global-set-key "%" 'match-paren) (global-set-key "%" 'match-paren)
@ -107,12 +109,12 @@
(t (self-insert-command (or arg 1))))) (t (self-insert-command (or arg 1)))))
;; Prevent Emacs from stupidly auto-changing my working directory ;; Prevent Emacs from stupidly auto-changing my working directory
(defun find-file-save-default-directory () ;; (defun find-file-save-default-directory ()
(interactive) ;; (interactive)
(setq saved-default-directory default-directory) ;; (setq saved-default-directory default-directory)
(ido-find-file) ;; (ido-find-file)
(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)
;; 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)
@ -194,8 +196,21 @@
("M-O" other-window) ("M-O" other-window)
("M-`" switch-to-next-frame) ("M-`" switch-to-next-frame)
("M-~" switch-to-previous-frame) ("M-~" switch-to-previous-frame)
("M-RET" ns-toggle-fullscreen)
)) ))
;;toggle full-screen
(defun toggle-fullscreen ()
(interactive)
(set-frame-parameter
nil
'fullscreen
(if (frame-parameter nil 'fullscreen)
nil
'fullboth)))
(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))
(add-to-list 'default-frame-alist '(alpha 85 85)) (add-to-list 'default-frame-alist '(alpha 85 85))