org-gtd.el package-emacs23.sh @@ -787,7 +787,7 @@ (highlight-current-line ((t (nil)))) (highlight-current-line-face ((t (nil)))) (highlight-symbol-face ((t (:foreground "gray90" :background "gray35")))) - (highline-face ((t (:background "DeepSkyBlue4")))) + (highline-face ((t (:background "gray15")))) (highline-vertical-face ((t (:background "lightcyan")))) (holiday ((t (:background "chocolate4")))) (holiday-face ((t (nil)))) @@ -1008,7 +1008,7 @@ (nobreak-space ((t (nil)))) (org-agenda-structure ((t (nil)))) (org-archived ((t (nil)))) - (org-code ((t (:foreground "gold")))) + (org-code ((t (:foreground "gray70" :background "gray23")))) (org-column ((t (nil)))) (org-date ((t (:background "darkgoldenrod" :foreground "yellow")))) (org-deadline-announce ((t (:foreground "red")))) @@ -1018,7 +1018,7 @@ (org-formula ((t (:foreground "chocolate1")))) (org-headline-done ((t (:foreground "gray45")))) (org-hide ((t (:foreground "gray27")))) - (org-level-1 ((t ( :foreground "white" )))) + (org-level-1 ((t ( :foreground "white" :underline "red")))) (org-level-2 ((t ( :foreground "yellow" )))) (org-level-3 ((t (:foreground "paleturquoise")))) (org-level-4 ((t (:foreground "deepskyblue")))) @@ -1026,7 +1026,7 @@ (org-level-6 ((t (:foreground "royalblue")))) (org-level-7 ((t (:foreground "gray50")))) (org-level-8 ((t (:foreground "gray35")))) - (org-link ((t (:foreground "greenyellow")))) + (org-link ((t (:foreground "yellowgreen" :underline "yellow")))) (org-property-value ((t (:foreground "greenyellow")))) (org-scheduled-previously ((t (:foreground "red")))) (org-scheduled-today ((t (:foreground "LightSkyBlue")))) gunmetal.el @@ -24,7 +24,7 @@ (add-to-list 'load-path "~/clon") (add-to-list 'load-path "~/eon") (add-to-list 'load-path "~/alpha") -(add-to-list 'load-path "~/impress") +;(add-to-list 'load-path "~/impress") (defun add-elisp-dir (directory-name) (add-to-list 'load-path (expand-file-name directory-name user-elisp-dir))) @@ -66,6 +66,8 @@ (set-frame-font "-*-terminus-medium-*-*-*-32-*-*-*-*-*-*-*" :keep-size) (color-theme-gunmetal)) (require 'color-theme) + +(add-to-list 'load-path "~/emacs-config") (require 'gunmetal) (small-font) @@ -991,6 +993,8 @@ ;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-message) ;; (set-variable 'bbdb-pop-up-target-lines 8) +(load "~/.gnus.el") + ;;;;; mail aliases ;; (add-hook 'mail-setup-hook 'bbdb-define-all-aliases) @@ -1231,7 +1235,8 @@ (setf erc-pals '("rcy" "tromey" "sb2" "sabetts" "sabetts2" "johnsu01" "mwolson" "bobf" "simias" "male" "kv2004" "aref")) (setf erc-track-visibility 'visible) -(setf erc-autojoin-channels-alist '(("freenode" "#lispgames" "#rlx" "#emacs" "#stumpwm" "#lisp" "##metaconference"))) +(setf erc-autojoin-channels-alist '(("freenode" "#lispgames" "#rlx" "#emacs" "#stumpwm" "#lisp" "##metaconference") + ("quakenet" "#rgrd"))) (setf erc-autoaway-message " autoaway after %i seconds idle. ") (setf erc-notify-list '("rcy" "sabetts" "sabetts2" "edrx" "brx" "johnsu01" "mwolson" "forcer")) (setf erc-notify-interval 30) @@ -1293,6 +1298,10 @@ (add-hook 'emacs-lisp-mode-hook #'turn-on-orgstruct) (add-hook 'lisp-mode-hook #'turn-on-orgstruct) +(global-set-key [(meta ?\))] 'org-cycle-local) +(global-set-key [(meta ?\()] 'org-cycle-global) + + ;;;; Fontifying todo items outside of org-mode (defface todo-comment-face '((t (:background "red" :foreground "yellow" :weight bold :bold t))) "Face for TODO in code buffers.") init.el 868f878246daa104131ba2e291918efc39828ac8 David O'Toole dto@gnu.org http://github.com/dto/emacs-config/commit/b2661f75304a1dae26c2e83db48532d023640d1d b2661f75304a1dae26c2e83db48532d023640d1d 2009-04-11T10:16:40-07:00 2009-04-11T10:16:40-07:00 added build script and stuff e4a0914a36e972248b777b9429b82a61e99a8c54 David O'Toole dto@gnu.org