My .emacs file (to aid in bug reproduction)

.emacs (text/plain), 27.23 KB, created by Robert Miesen on 2007-10-01 23:02:15 UTC

;; .emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stuff that should execute first:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'color-theme)
;;;(color-theme-andreas)




;;; uncomment this line to disable loading of "default.el" at startup

;; (setq inhibit-default-init t)

;; turn on font-lock mode
(when (fboundp 'global-font-lock-mode)
  (global-font-lock-mode t))

;; enable visual feedback on selections
;(setq transient-mark-mode t)

;; default to better frame titles
(setq frame-title-format
      (concat  "%b - emacs@" system-name))

;; default to unified diffs
(setq diff-switches "-u")
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(add-log-mailing-address "[e-mail]")
 '(all-christian-calendar-holidays t)
 '(auto-insert-alist (quote (("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "rmiesen-cpp-header-template.h") ("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "rmiesen-cpp-template.cpp") ("\\.\\(cxx\\)\\'" . "rmiesen-cpp-class-def-template.cxx") (("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header") (upcase (concat (file-name-nondirectory (substring buffer-file-name 0 (match-beginning 0))) "_" (substring buffer-file-name (1+ (match-beginning 0))))) "#ifndef " str n "#define " str "

" _ "

#endif") (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program") nil "#include \"" (let ((stem (file-name-sans-extension buffer-file-name))) (cond ((file-exists-p (concat stem ".h")) (file-name-nondirectory (concat stem ".h"))) ((file-exists-p (concat stem ".hh")) (file-name-nondirectory (concat stem ".hh"))))) & 34 | -10) (("[Mm]akefile\\'" . "Makefile") . "makefile.inc") (html-mode lambda nil (sgml-tag "html")) (plain-tex-mode . "tex-insert.tex") (bibtex-mode . "tex-insert.tex") (latex-mode "options, RET: " "\\documentclass[" str & 93 | -1 123 (read-string "class: ") "}
" ("package, %s: " "\\usepackage[" (read-string "options, RET: ") & 93 | -1 123 str "}
") _ "
\\begin{document}
" _ "
\\end{document}") (("/bin/.*[^/]\\'" . "Shell-Script mode magic number") lambda nil (if (eq major-mode default-major-mode) (sh-mode))) (ada-mode . ada-header) (("\\.[1-9]\\'" . "Man page skeleton") "Short description: " ".\\\" Copyright (C), " (substring (current-time-string) -4) "  " (getenv "ORGANIZATION") | (progn user-full-name) "
.\\\" You may distribute this file under the terms of the GNU Free
.\\\" Documentation License.
.TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) " " (file-name-extension (buffer-file-name)) " " (format-time-string "%Y-%m-%d ") "
.SH NAME
" (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) " \\- " str "
.SH SYNOPSIS
.B " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) "
" _ "
.SH DESCRIPTION
.SH OPTIONS
.SH FILES
.SH \"SEE ALSO\"
.SH BUGS
.SH AUTHOR
" (user-full-name) (quote (if (search-backward "&" (line-beginning-position) t) (replace-match (capitalize (user-login-name)) t t))) (quote (end-of-line 1)) " <" (progn user-mail-address) ">
") (("\\.el\\'" . "Emacs Lisp header") "Short description: " ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "

;; Copyright (C) " (substring (current-time-string) -4) "  " (getenv "ORGANIZATION") | (progn user-full-name) "

;; Author: " (user-full-name) (quote (if (search-backward "&" (line-beginning-position) t) (replace-match (capitalize (user-login-name)) t t))) (quote (end-of-line 1)) " <" (progn user-mail-address) ">
;; Keywords: " (quote (require (quote finder))) (quote (setq v1 (mapcar (lambda (x) (list (symbol-name (car x)))) finder-known-keywords) v2 (mapconcat (lambda (x) (format "%10.0s:  %s" (car x) (cdr x))) finder-known-keywords "
"))) ((let ((minibuffer-help-form v2)) (completing-read "Keyword, C-h: " v1 nil t)) str ", ") & -2 "

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; version 2 ONLY.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; " _ "

;;; Code:



(provide '" (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) ")
;;; " (file-name-nondirectory (buffer-file-name)) " ends here
"))))
 '(battery-update-interval 10)
 '(bbdb-default-country "USA")
 '(bbdb-electric-p t)
 '(bbdb-print-net (quote all))
 '(before-save-hook (quote (copyright-update time-stamp)))
 '(browse-url-browser-function (quote w3m))
 '(c-auto-align-backslashes t)
 '(c-basic-offset 2)
 '(c-block-comment-prefix "**")
 '(c-cleanup-list (quote (brace-elseif-brace brace-catch-brace empty-defun-braces one-liner-defun defun-close-semi compact-empty-funcall)))
 '(c-comment-only-line-offset (quote (2 . -2)))
 '(c-default-style (quote ((c-mode . "K&R") (c++-mode . "K&R") (java-mode . "K&R") (other . "K&R"))))
 '(c-delete-function (quote delete-char))
 '(c-echo-syntactic-information-p t)
 '(c-electric-pound-behavior (quote (alignleft)))
 '(c-hanging-braces-alist (quote ((brace-list-open after) (brace-entry-open after) (statement-cont) (substatement-open after) (block-close . c-snug-do-while) (extern-lang-open after) (namespace-open after) (module-open after) (composition-open after) (inexpr-class-open after) (inexpr-class-close before))))
 '(c-hanging-semi&comma-criteria (quote set-from-style))
 '(c-ignore-auto-fill (quote (string c cpp)))
 '(c-mode-common-hook (quote (c-toggle-auto-newline c-subword-mode)))
 '(c-mode-hook (quote (ignore)) t)
 '(c-offsets-alist (quote ((access-label . -) (arglist-intro . 0) (defun-open . 0) (defun-close . 0))))
 '(c-report-syntactic-errors nil)
 '(c-require-final-newline (quote ((c-mode . t) (c++-mode . t) (objc-mode . t) (java-mode . t))))
 '(c-special-indent-hook nil)
 '(c-strict-syntax-p nil)
 '(c-syntactic-indentation t)
 '(c-tab-always-indent t)
 '(cal-tex-diary t)
 '(calendar-holidays (quote ((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Groundhog Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-float 2 1 3 "President's Day") (holiday-fixed 3 17 "St. Patrick's Day") (holiday-fixed 4 1 "April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-float 5 1 -1 "Memorial Day") (holiday-fixed 6 14 "Flag Day") (holiday-float 6 0 3 "Father's Day") (holiday-fixed 7 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving") (if all-christian-calendar-holidays (holiday-fixed 1 6 "Epiphany")) (holiday-easter-etc 0 "Easter Sunday") (holiday-easter-etc -2 "Good Friday") (holiday-easter-etc -46 "Ash Wednesday") (if all-christian-calendar-holidays (holiday-easter-etc -63 "Septuagesima Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc -56 "Sexagesima Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc -49 "Shrove Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc -48 "Shrove Monday")) (if all-christian-calendar-holidays (holiday-easter-etc -47 "Shrove Tuesday")) (if all-christian-calendar-holidays (holiday-easter-etc -14 "Passion Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc -7 "Palm Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc -3 "Maundy Thursday")) (if all-christian-calendar-holidays (holiday-easter-etc 35 "Rogation Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc 39 "Ascension Day")) (if all-christian-calendar-holidays (holiday-easter-etc 49 "Pentecost (Whitsunday)")) (if all-christian-calendar-holidays (holiday-easter-etc 50 "Whitmonday")) (if all-christian-calendar-holidays (holiday-easter-etc 56 "Trinity Sunday")) (if all-christian-calendar-holidays (holiday-easter-etc 60 "Corpus Christi")) (if all-christian-calendar-holidays (holiday-greek-orthodox-easter)) (if all-christian-calendar-holidays (holiday-fixed 8 15 "Assumption")) (if all-christian-calendar-holidays (holiday-advent 0 "Advent")) (holiday-fixed 12 25 "Christmas") (if all-christian-calendar-holidays (holiday-julian 12 25 "Eastern Orthodox Christmas")) (holiday-rosh-hashanah-etc) (if all-hebrew-calendar-holidays (holiday-julian 11 (let* ((m displayed-month) (y displayed-year) (year)) (increment-calendar-month m y -1) (let ((year (extract-calendar-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y)))))) (if (zerop (% (1+ year) 4)) 22 21))) "\"Tal Umatar\" (evening)")) (if all-hebrew-calendar-holidays (holiday-hanukkah) (holiday-hebrew 9 25 "Hanukkah")) (if all-hebrew-calendar-holidays (holiday-hebrew 10 (let ((h-year (extract-calendar-year (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (list displayed-month 28 displayed-year)))))) (if (= (% (calendar-absolute-from-hebrew (list 10 10 h-year)) 7) 6) 11 10)) "Tzom Teveth")) (if all-hebrew-calendar-holidays (holiday-hebrew 11 15 "Tu B'Shevat")) (if all-hebrew-calendar-holidays (holiday-hebrew 11 (let ((m displayed-month) (y displayed-year)) (increment-calendar-month m y 1) (let* ((h-year (extract-calendar-year (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (list m (calendar-last-day-of-month m y) y))))) (s-s (calendar-hebrew-from-absolute (if (= (% (calendar-absolute-from-hebrew (list 7 1 h-year)) 7) 6) (calendar-dayname-on-or-before 6 (calendar-absolute-from-hebrew (list 11 17 h-year))) (calendar-dayname-on-or-before 6 (calendar-absolute-from-hebrew (list 11 16 h-year)))))) (day (extract-calendar-day s-s))) day)) "Shabbat Shirah")) (holiday-passover-etc) (if (and all-hebrew-calendar-holidays (let* ((m displayed-month) (y displayed-year) (year)) (increment-calendar-month m y -1) (let ((year (extract-calendar-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y)))))) (= 21 (% year 28))))) (holiday-julian 3 26 "Kiddush HaHamah")) (if all-hebrew-calendar-holidays (holiday-tisha-b-av-etc)) (holiday-islamic 1 1 (format "Islamic New Year %d" (let ((m displayed-month) (y displayed-year)) (increment-calendar-month m y 1) (extract-calendar-year (calendar-islamic-from-absolute (calendar-absolute-from-gregorian (list m (calendar-last-day-of-month m y) y))))))) (if all-islamic-calendar-holidays (holiday-islamic 1 10 "Ashura")) (if all-islamic-calendar-holidays (holiday-islamic 3 12 "Mulad-al-Nabi")) (if all-islamic-calendar-holidays (holiday-islamic 7 26 "Shab-e-Mi'raj")) (if all-islamic-calendar-holidays (holiday-islamic 8 15 "Shab-e-Bara't")) (if all-islamic-calendar-holidays (holiday-islamic 9 27 "Shab-e Qadr")) (if all-islamic-calendar-holidays (holiday-islamic 10 1 "Id-al-Fitr")) (if all-islamic-calendar-holidays (holiday-islamic 12 10 "Id-al-Adha")) (if all-bahai-calendar-holidays (holiday-fixed 4 22 "Second Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 23 "Third Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 24 "Fourth Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 25 "Fifth Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 26 "Sixth Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 27 "Seventh Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 28 "Eighth Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 4 30 "Tenth Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 5 1 "Eleventh Day of Ridvan")) (if all-bahai-calendar-holidays (holiday-fixed 11 26 "Day of the Covenant")) (if all-bahai-calendar-holidays (holiday-fixed 11 28 "Ascension of `Abdu'l-Baha")) (if (fboundp (quote atan)) (holiday-chinese-new-year)) (if (fboundp (quote atan)) (solar-equinoxes-solstices)) (if (progn (require (quote cal-dst)) t) (funcall (quote holiday-sexp) calendar-daylight-savings-starts (quote (format "Daylight Saving Time Begins %s" (if (fboundp (quote atan)) (solar-time-string (/ calendar-daylight-savings-starts-time (float 60)) calendar-standard-time-zone-name) ""))))) (funcall (quote holiday-sexp) calendar-daylight-savings-ends (quote (format "Daylight Saving Time Ends %s" (if (fboundp (quote atan)) (solar-time-string (/ calendar-daylight-savings-ends-time (float 60)) calendar-daylight-time-zone-name) "")))))))
 '(calendar-longitude 100)
 '(calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
 '(column-number-mode t)
 '(desktop-save-mode t)
 '(display-battery-mode t)
 '(display-time-24hr-format t)
 '(display-time-mode t)
 '(elmo-lang "en")
 '(elmo-pop3-default-user "rmiesen")
 '(emms-mode-line-titlebar-function nil)
 '(emms-playing-time-display-format "EMMS %s ")
 '(emms-playing-time-display-short-p t)
 '(emms-repeat-playlist t)
 '(fill-column 78)
 '(global-ede-mode t)
 '(global-semantic-decoration-mode t nil (semantic-decorate-mode))
 '(global-semantic-highlight-edits-mode t nil (semantic-util-modes))
 '(global-semantic-idle-completions-mode t nil (semantic-idle))
 '(global-semantic-idle-scheduler-mode t nil (semantic-idle))
 '(global-semantic-idle-summary-mode t nil (semantic-idle))
 '(global-semantic-show-parser-state-mode nil nil (semantic-util-modes))
 '(global-semantic-show-unmatched-syntax-mode t nil (semantic-util-modes))
 '(global-semantic-stickyfunc-mode t nil (semantic-util-modes))
 '(global-senator-minor-mode t nil (senator))
 '(inverse-video nil)
 '(local-holidays nil)
 '(max-lisp-eval-depth 30000)
 '(max-specpdl-size 20000)
 '(muse-colors-autogen-headings nil)
 '(muse-project-alist (quote (("MainProject" ("~/Plans" :default "TaskPool" :major-mode planner-mode :visit-link planner-visit-link) (:base "planner-xhtml" :path "~/public_html/Plans")))))
 '(objc-mode-hook (quote (ignore)))
 '(org-agenda-include-all-todo nil)
 '(org-agenda-show-all-dates nil)
 '(org-agenda-sorting-strategy (quote ((agenda time-up category-up priority-down tag-down) (todo priority-down category-up tag-down) (tags priority-down category-up tag-down))))
 '(org-agenda-start-on-weekday 0)
 '(org-agenda-todo-ignore-deadlines t)
 '(org-log-repeat t)
 '(org-tags-match-list-sublevels t)
 '(perl-continued-statement-offset 4)
 '(perl-tab-always-indent t)
 '(planner-appt-forthcoming-look-at-cyclic-flag t)
 '(planner-appt-limit-highlighting-flag t)
 '(planner-appt-sort-schedule-on-update-flag t)
 '(planner-appt-task-use-appointments-section-flag t)
 '(planner-appt-update-appts-on-save-flag t)
 '(planner-create-task-from-buffer-hook nil)
 '(planner-create-task-hook (quote (planner-appt-create-task-hook-func planner-id-add-task-id-maybe planner-appt-forthcoming-display)))
 '(planner-dates-relative-to-today-flag t)
 '(planner-expand-name-favor-future-p nil)
 '(planner-mode-hook (quote (planner-appt-schedule-add-cyclic-maybe planner-appt-font-setup planner-cyclic-create-tasks-maybe planner-id-setup planner-appt-insinuate-if-today)))
 '(planner-publish-dates-first-p nil)
 '(planner-renumber-notes-automatically t)
 '(planner-renumber-tasks-automatically t)
 '(planner-use-day-pages t)
 '(ps-print-only-one-header t)
 '(save-place t nil (saveplace))
 '(scroll-bar-mode (quote right))
 '(semantic-idle-scheduler-verbose-flag nil)
 '(semantic-imenu-auto-rebuild-directory-indexes t)
 '(semantic-imenu-index-directory t)
 '(semantic-lex-debug-analyzers t)
 '(semantic-stickyfunc-indent-string " Stickyfunc: ")
 '(semantic-which-function-use-color t)
 '(semanticdb-default-save-directory nil)
 '(semanticdb-find-default-throttle (quote (project unloaded system recursive)))
 '(semanticdb-persistent-path (quote (project)))
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(speedbar-directory-unshown-regexp "^\\(CVS\\|RCS\\|SCCS\\|\\..*\\|svn\\|SVN\\)\\'")
 '(speedbar-use-images t)
 '(tab-always-indent t)
 '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120)))
 '(tab-width 4)
 '(time-stamp-format "%02m/%02d/%:y")
 '(transient-mark-mode t)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(view-calendar-holidays-initially nil)
 '(vm-auto-displayed-mime-content-types (quote ("text" "html" "image" "multipart")))
 '(vm-mime-external-content-types-alist (quote (("text/html" "w3m"))))
 '(vm-mime-use-w3-for-text/html t)
 '(w3-honor-stylesheets t)
 '(w3-use-terminal-characters t)
 '(w3-use-terminal-glyphs t)
 '(w3-user-colors-take-precedence t)
 '(w3-user-fonts-take-precedence t)
 '(w3m-bookmark-file "/home/rmiesen/.w3m/bookmarks.html")
 '(w3m-default-display-inline-images t)
 '(w3m-favicon-use-cache-file t)
 '(w3m-form-mouse-face (quote bold-italic))
 '(w3m-home-page "http://en.wikipedia.org")
 '(w3m-make-new-session t)
 '(w3m-use-cookies t)
 '(w3m-use-favicon t)
 '(which-func-modes (quote (emacs-lisp-mode c-mode c++-mode perl-mode cperl-mode makefile-mode sh-mode fortran-mode f90-mode ada-mode python-mode)))
 '(which-function-mode t)
 '(wl-default-folder "+inbox")
 '(wl-fldmgr-sort-function (quote wl-fldmgr-sort-standard))
 '(wl-from "Robert Miesen <[e-mail]>")
 '(wl-local-domain "yahoo.com")
 '(wl-message-auto-reassemble-message/partial t)
 '(wl-message-id-domain "[e-mail]")
 '(wl-organization nil)
 '(wl-smtp-authenticate-type "plain")
 '(wl-smtp-posting-user "bobby_miesen")
 '(wl-summary-auto-refile-skip-marks nil))

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(muse-verbatim-face ((((class color) (background light)) (:foreground "orange"))))
 '(planner-cancelled-task-face ((t (:foreground "darkviolet" :strike-through t))))
 '(planner-completed-task-face ((t (:foreground "blue" :strike-through t))))
 '(planner-medium-priority-task-face ((t (:foreground "green3"))))
 '(semantic-highlight-edits-face ((((class color) (background light)) (:background "yellow"))))
 '(show-paren-match ((t (:background "forestgreen" :weight normal))))
 '(show-paren-mismatch ((t (:background "purple" :foreground "white" :weight normal)))))
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.

  

  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Default Modes:
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load-library "cperl-mode")
  (add-to-list 'auto-mode-alist '("\\\\.[Pp][LlMm][Cc]?$" . cperl-mode))
  (while (let ((orig (rassoc 'perl-mode auto-mode-alist)))
              (if orig (setcdr orig 'cperl-mode))))
  (while (let ((orig (rassoc 'perl-mode interpreter-mode-alist)))
           (if orig (setcdr orig 'cperl-mode))))
  (dolist (interpreter '("perl" "perl5" "miniperl" "pugs"))
    (unless (assoc interpreter interpreter-mode-alist)
      (add-to-list 'interpreter-mode-alist (cons interpreter 'cperl-mode))))

  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;  Macros:
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(fset 'curdate
   [?\M-1 ?\M-! ?c ?u ?r ?d ?a ?t ?e return ?\C-e])

(fset 'insert-perl-comment-header
   [?  ?  ?\C-u ?7 ?8 ?# return ?  ?  ?# ?# return ?  ?  ?\C-u ?7 ?8 ?#])






;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CEDET-specific settings:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Load CEDET
(setq semantic-load-turn-everything-on nil)
(require 'ede)
(global-ede-mode t)
;;(load-file "~/cedet-1.0pre4/common/cedet.el")

;; Enabling various SEMANTIC minor modes.  See semantic/INSTALL for more ideas.
;; Select one of the following:

;; * This enables the database and idle reparse engines
;;(semantic-load-enable-minimum-features)

;; * This enables some tools useful for coding, such as summary mode
;;   imenu support, and the semantic navigator
;;(semantic-load-enable-code-helpers)

;; * This enables even more coding tools such as the nascent intellisense mode
;;   decoration mode, and stickyfunc mode (plus regular code helpers)
;; (semantic-load-enable-guady-code-helpers)

;; * This turns on which-func support (Plus all other code helpers)
;;(semantic-load-enable-excessive-code-helpers)

;; This turns on modes that aid in grammar writing and semantic tool
;; development.  It does not enable any other features such as code
;; helpers above.
;; (semantic-load-enable-semantic-debugging-helpers)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Auto-insert settings:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'autoinsert)
(auto-insert-mode)  ;;; Adds hook to find-files-hook
(setq auto-insert-directory "~/.templates/") ;;; Or use custom, *NOTE* Trailing slash important
(setq auto-insert-query nil) ;;; If you don't want to be prompted before insertion
;;;(define-auto-insert "\\.\\([Cc]\\|cc\\|cpp\\)\\'" "rmiesen-cpp-template.cpp")
;;;(define-auto-insert "\\.\\([Hh]\\|hh\\|hpp\\)\\'" "rmiesen-cpp-header-template.h")




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Insidious Big Brother Database settings:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'bbdb)
(bbdb-initialize)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; EDE mode (part of CEDET):
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ede)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; EMMS Mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(add-to-list 'load-path "~/elisp/emms/")
(require 'emms-setup)
(emms-devel)
(emms-default-players)
  ;; When asked for emms-play-directory,
  ;; always start from this one 
(setq emms-source-file-default-directory "~/music/")

  ;; Want to use alsa with mpg321 ? 
(setq emms-player-mpg321-parameters '("-o" "alsa"))
(require 'emms-mode-line)
(emms-mode-line 0)
(require 'emms-playing-time)
(emms-playing-time 1)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Gnus Settings:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;






;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Org-mode Settings:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(global-font-lock-mode 1)                     ; for all buffers
(add-hook 'org-mode-hook 'turn-on-font-lock)  ; org-mode buffers only
(setq org-agenda-include-diary nil)
(setq org-log-done t)

(setq org-agenda-files (list "~/org/general.org"
							 "~/org/school.org"
							 "~/org/work.org"))
(setq org-todo-keywords '("TODO" "IN-PROGRESS" "DONE")
	  org-todo-interpretation 'sequence)
;;  '(org-tag-alist (quote (("Academic" . 0) ("Blah" . 0))))
(setq org-tag-alist (quote (("Academic" . ?a) ("Altristic" . 0) ("Appointment" . 0) ("Business" . ?b) ("Committment" . ?c) ("Evangelism" . ?e) ("Family" . 0) ("Financial" . ?f) ("Goals/Objectives" . ?g) ("Group" . 0) ("In His Service" . ?i)  ("Medical" . 0) ("Meeting" . ?m) ("Miscellaneous" . 0) ("Personal" . 0) ("Planning/Preperation" . ?p) ("Professional" . 0) ("Spiritual" . ?s) ("Work" . ?w))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Planner.el Settings:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  ;;
  ;;  Default project
  ;;

;;(setq planner-project "MainProject")
;;
;;(setq muse-project-alist
;;'(("MainProject"
;;   ("~/Plans"           ;; where your Planner pages are located
;;    :default "TaskPool" ;; use value of `planner-default-page'
;;    :major-mode planner-mode
;;    :visit-link planner-visit-link)
;;
;;   ;; This next part is for specifying where Planner pages
;;   ;; should be published and what Muse publishing style to
;;   ;; use.  In this example, we will use the XHTML publishing
;;   ;; style.
;;
;;   (:base "planner-xhtml"
;;          ;; where files are published to
;;          ;; (the value of `planner-publishing-directory', if
;;          ;;  you have a configuration for an older version
;;          ;;  of Planner)
;;          :path "~/public_html/Plans"))))
;;
;;
;;
;;
;;
;;(add-to-list 'load-path "~Plans/muse/lisp")
;;(add-to-list 'load-path "~/Plans")
;;(add-to-list 'load-path "~/Remember")
;;(require 'planner)
;;(require 'planner-id)
;;(require 'planner-cyclic)
;;(require 'planner-deadline)
;;(require 'planner-ical)
;;(require 'planner-experimental)
;;(planner-appt-use-tasks-and-schedule)
;;(planner-appt-insinuate)
;;(planner-appt-calendar-insinuate)
;;(planner-appt-schedule-cyclic-insinuate)
;;
;;  ;Setup taks in new window
;;;(planner-goto-today)
;;;(planner-appt-show-alerts)
;;;(switch-to-buffer-other-frame )



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Spamassassin Mode:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(autoload 'spamassassin-mode "~/.emacs.d/CustomElispModules/spamassassin-mode" nil t)
(add-to-list 'auto-mode-alist 
			 '("\\.cf\\'" . spamassassin-mode))




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; w3m mode:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'w3m-load)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Project Aid modes:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load-file "~/.emacs.d/CustomElispModules/template.el")
;;;(load-file "~/.emacs.d/CustomElispModules/projectwizard.el")
;;;(load-file "~/.emacs.d/CustomElispModules/header2.el")






;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Custom Hooks:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;






;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Custom Keys:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(global-set-key (kbd "s-z") 'emms-previous)
(global-set-key (kbd "s-x") 'emms-start)
(global-set-key (kbd " s-c") 'emms-pause)
(global-set-key (kbd "s-v") 'emms-stop)
(global-set-key (kbd "s-b") 'emms-next)
(global-set-key (kbd "<f9> t") 'planner-create-task-from-buffer)
(global-set-key (kbd "C-c C-k") 'planner-delete-task)
(global-set-key (kbd "M-/") 'hippie-expand)
(global-set-key (kbd "C-c C-M-p") 'ps-print-buffer-with-faces)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Custom Variables:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq auto-fill-mode t)




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stuff that should execute last:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(mouse-avoidance-mode "banish")
(desktop-load-default)
(desktop-read)