.emacs.d/init.el

   1 ;; Ganneff's emacs config
   2
   3 ;; Emacs can not read its config directly from org-mode files.
   4 ;; But as my config nearly completly is inside an org-mode file,
   5 ;; emacs need to be told to deal with it.
   6 ;; Meet org-tangle/org-babel-load-file, which extracts the emacs-lisp
   7 ;; source parts of my config files, writes them into .el files
   8 ;; and then lets emacs load those.
   9
  10 ;; That way I have a nice environment to edit and comment - and easily export
  11 ;; to web or elsewhere - while emacs has its elisp. The initial run after
  12 ;; a config change takes longer, but as that only happens when I change
  13 ;; something in the .org files - I don't care.
  14
  15 ;; Go go go
  16 (unless noninteractive
  17 (message "Emacs is powering up... Be patient, Master %s!" (getenv "USER")))
  18
  19 ;; I like to see how long it takes to "boot" emacs (usually one or two
  20 ;; seconds), so save the start time
  21 (defvar emacs-load-start-time (current-time))
  22
  23 ;; Set a high number of lines for the message buffer so stuff doesn't "scroll out"
  24 (setq message-log-max 16384)
  25
  26 ;; Set path to (my, recent) Org-Mode version
  27 (add-to-list 'load-path (concat (file-name-directory (or load-file-name (buffer-file-name))) "elisp/org/"))
  28
  29 ;; org-mode can load modules when it loads itself, lets tell it which ones we want.
  30 (setq org-modules (quote
  31                    (org-bbdb org-bibtex org-crypt org-docview org-gnus
  32                     org-id org-info org-habit org-inlinetask
  33                     org-irc org-protocol org-w3m org-mouse org-checklist
  34                     org-notmuch icalendar)))
  35
  36 ;; And load org-mode
  37 (require 'org)
  38 ;; Without this the whole config can't load
  39 (require 'ob-tangle)
  40 ;; And finally, let org-babel do its work. All the rest of the emacs
  41 ;; initialization comes from initjj.org
  42 (org-babel-load-file (expand-file-name "initjj.org" (file-name-directory (or load-file-name (buffer-file-name)))))
  43