(maybe-autoload 'git-status "git" nil t)
(maybe-autoload 'git-blame-mode "git-blame" nil t)
(maybe-autoload 'stgit "stgit" nil t)
+ (maybe-autoload 'nc-timesheet-prepare "nc-timesheet" nil t nil)
+ (maybe-autoload 'nc-timesheet-submit "nc-timesheet" nil t nil)
+
(and (library-exists-p "vc-git")
(not (memq 'GIT vc-handled-backends))
(setq vc-handled-backends (cons 'GIT vc-handled-backends)))
(setq rmail-display-summary t)
(setq rmail-file-name "~/Mail/rmail")
+ ;; --- Customization ---
+
+ (setq custom-file "~/.emacs-custom")
+ (trap (load custom-file))
+
+ (trap (load "~/.emacs-local"))
+
;; --- Internationalization twiddling ---
(trap
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-after-kill-buffer-p t))
(transient-mark-mode t)
+ (setq mark-even-if-inactive t)
(trap
(tooltip-mode 0)
(tool-bar-mode 0))
(defvar mdw-black-background t)
+(eval-after-load "outline"
+ '(progn
+ (trap (require 'foldout))
+ (define-key outline-mode-prefix-map [?\C-r] 'reveal-mode)
+ (define-key outline-mode-prefix-map [?\C--] 'mdw-outline-collapse-all)))
+
(setq cltl2-root-url (mdw-config 'cltl-url))
(setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))
(global-set-key [?\C-x ?w ?j] 'windmove-down)
(global-set-key [?\C-x ?w right] 'windmove-right)
(global-set-key [?\C-x ?w ?l] 'windmove-right)
+(global-set-key [?\C-x ?g ?l] 'org-store-link)
+(global-set-key [?\C-x ?g ?a] 'org-agenda)
(global-set-key [?\C-x ?t ?i] 'timeclock-in)
(global-set-key [?\C-x ?t ?c] 'timeclock-change)
(global-set-key [?\C-x ?t ?o] 'timeclock-out)
(global-set-key [?\C-x ?t ?r] 'timeclock-reread-log)
(global-set-key [?\C-x ?t ?w] 'timeclock-workday-remaining-string)
(global-set-key [?\C-x ?t ?s] 'timeclock-status-string)
+ (global-set-key [?\C-x ?t ?p] 'nc-timesheet-prepare)
+ (global-set-key [?\C-x ?t ?\C-m] 'nc-timesheet-submit)
(global-set-key [?\M-#] 'calc-dispatch)
(global-set-key [?\C-x ?/] 'auto-fill-mode)
(global-set-key [?\C-x ?w ?d] 'mdw-divvy-window)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs" . csharp-mode)
+ ("\\.org$" . org-mode)
;; ("/[ch]/" . c-mode)
(,(concat "/\\("
"\\.stgit\\.msg" "\\|"