.emacs-local.el

.emacs-local.el

;; -*- mode: emacs-lisp; auto-compile-lisp: nil; -*-

;;;;;;;;;;;;;;;;;;;;;;;;
;; Name/Email settings
;;

(setq user-full-name "Firstname Lastname")
(setq user-mail-address "me@example.com")
(setq message-alternative-emails (rx "other.me@example.com"))
(setq home-directory (getenv "HOME"))

(setq foo-passwd "unsecure_password_i_don_t_care_about")
;;; ...

;;;;;;;;;;
;; Paths
;;
(setq auto-insert-directory (expand-file-name "~/.emacs.d/autoinsert/")
      diary-file (expand-file-name "~/.diary")
      ecb-source-path (list "/usr/include" (expand-file-name "~/Projects"))
      load-path (append (directory-files "~/.emacs.d/packages" t)
                        (mapcar 'expand-file-name
                                '("~/Projects/git/mocker.el"
                                  "~/Projects/git/pcache"
                                  "~/.emacs.d/elpa"
                                  "~/.emacs.d/config"
                                  "~/.emacs.d/custom"
                                  "~/.emacs.d/lib"
                                  "~/.emacs.d/site-lisp"
                                  "~/.emacs.d/var"
                                  "~/share/emacs/site-lisp"
                                  ))
                        load-path
                        '("/usr/local/share/emacs/site-lisp/"))
      doxymacs-external-xml-parser-executable (expand-file-name "~/.emacs.d/doxymacs/c/doxymacs_parser"))

(add-to-list 'Info-default-directory-list (expand-file-name "~/share/info"))

(defvar inferior-acl2-program (expand-file-name "~/apps/acl2/saved_acl2"))

(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
(setq common-lisp-hyperspec-symbol-table
      (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))

(setq cltl2-root-url "/usr/share/doc/cltl/")

;(load-file (expand-file-name "~/.emacs.d/dvc/dvc-load.el"))

(eval-after-load "org"
  '(setq org-agenda-files "~/org/agenda.list"
         org-default-notes-file "~/org/inbox.org"))

(eval-after-load 'rcirc-config
  `(setq rcirc-default-nick "Sigma"
         rcirc-server-alist '(("im.bitlbee.org" :port 6667 :nick "Nick" :user-name "Name")
                              ("irc.freenode.net" :nick "Nick" :user-name "Name" 
                               :channels ("#foo"))
                              ("irc.oftc.net" :nick "Nick" :user-name "Name" :channels ("#bar"))
                              ("irc.epiknet.org" :nick "Nick" :user-name"Name" :channels ("#baz")))
         rcirc-authinfo '(("bitlbee" bitlbee "Nick" ,bitlbee-passwd)
                          ("freenode" nickserv "Nick" ,freenode-passwd)
                          ("oftc" nickserv "Nick" ,oftc-passwd)
                          ("epiknet" nickserv "Nick" "epiknet")) 
         rcirc-coding-system-alist '(("#baz" . latin-1))))

;(load-file "~/.emacs.d/cedet/common/cedet.el")
(require 'cedet)
(require 'semantic)

;(load (expand-file-name "~/.emacs.d/nxml/autostart.el"))

(mapcar (lambda (pair)
          (global-set-key (car pair)
                          (cdr pair)))
        `((,(kbd "A-b") . gud-break)
          (,(kbd "A-d") . gud-remove)
          (,(kbd "A-f") . gud-finish)
          (,(kbd "A-i") . gud-stepi)
          (,(kbd "A-j") . gud-jump)
          (,(kbd "A-l") . gud-refresh)
          (,(kbd "A-n") . gud-next)
          (,(kbd "A-p") . gud-print)
          (,(kbd "A-r") . gud-cont)
          (,(kbd "A-s") . gud-step)
          (,(kbd "A-t") . gud-tbreak)
          (,(kbd "A-u") . gud-until)
          (,(kbd "A-v") . gud-pv)
          (,(kbd "A-w") . gud-watch)
          (,(kbd "A-<") . gud-up)
          (,(kbd "A->") . gud-down)))

(eval-after-load 'yasnippet
  '(yas/load-directory (expand-file-name "~/.emacs.d/snippets")))

;; (defvar xref-current-project nil) ;; can be also "my_project_name"
;; (defvar xref-key-binding 'global) ;; can be also 'local or 'none
;; (setq load-path (cons (expand-file-name "~/apps/xref/emacs") load-path))
;; (setq exec-path (cons (expand-file-name "~/apps/xref") exec-path))
;; (load "xrefactory")

(defun org-encrypt-entries ()
  (ignore))

(setq org-ditaa-jar-path "/home/yann/apps/ditaa.jar")

(eval-after-load 'package
  '(setq package-load-list '(all ;; load every package
                             ;; except the ones I maintain
                             (mocker nil)
                             (pcache nil)
                             (gist nil)
                             (gh nil))))