(setq dotfiles-dir (file-name-directory
                    (or load-file-name (buffer-file-name))))

(if (file-symlink-p (directory-file-name dotfiles-dir))
    (setq dotfiles-dir (file-truename dotfiles-dir)))

(add-to-list 'load-path dotfiles-dir)
(add-to-list 'load-path
             (expand-file-name "src" dotfiles-dir))

(add-to-list 'load-path "/home/andi/tmp/auctex-20110327-a")

;; No Gnus
(add-to-list 'load-path
             (expand-file-name
              "lisp"
              (expand-file-name "gnus"
                                (expand-file-name "src" dotfiles-dir))))
(require 'gnus-load)

;; org-mode
(add-to-list 'load-path
             (expand-file-name
              "lisp"
              (expand-file-name "org-mode"
                                (expand-file-name "src" dotfiles-dir))))

;; hehe, and I've some Lisp files in my Dropbox :)
(add-to-list 'load-path "~/Dropbox/lisp")

(setq package-user-dir (concat dotfiles-dir "elpa"))
;;  (setq custom-file (concat dotfiles-dir "custom.el"))

These defaults are copied from the Emacs start kit:

(require 'cl)
(require 'saveplace)
(require 'ffap)
(require 'uniquify)
(require 'ansi-color)
(require 'recentf)
(require 'tramp)

http://www.emacswiki.org/emacs/NumberedWindows makes it easy to switch between windows by using Alt-NUMBER to switch between windows. The number is displayed in the modeline of each window.

(require 'window-number)
(window-number-mode)
(window-number-meta-mode)

Winner Mode makes it easy to switch back to a previous window layout. You'll love this after reading some news in Gnus :)

;; Winner mode
(winner-mode 1)

Keyboard shortcuts for window management and navigation:

For detail about window configuration.

Usually I need to lookup the correct spelling of english words. So let's use the american dictionary by default.

(setq ispell-dictionary "american")

http://www.emacswiki.org/emacs/IbufferMode is great for switching buffers. It's even that great, that I set it as the default buffer menu :)

(autoload 'ibuffer "ibuffer" "List buffers." t)
(global-set-key (kbd "C-x C-b") 'ibuffer)

My Dired setup is pretty basic since I usually hop into a terminal running in another window to do my stuff there. So my http://www.emacswiki.org/emacs/DiredMode configuration is basically loading the extra features (dired-x) and configuring autosave and backup files I don't want to see by default.

(require 'dired-x)
(setq dired-omit-files 
      (rx (or (seq bol (? ".") "#")         ;; emacs autosave files 
              (seq "~" eol)                 ;; backup-files 
              (seq bol "svn" eol)           ;; svn dirs 
              (seq ".pyc" eol)
              )))
(setq dired-omit-extensions 
      (append dired-latex-unclean-extensions 
              dired-bibtex-unclean-extensions 
              dired-texinfo-unclean-extensions))
(add-hook 'dired-mode-hook (lambda () (dired-omit-mode 1)))
(put 'dired-find-alternate-file 'disabled nil)

Ido is a bitch and I'm not sure if I really like it. OTOH I don't want to miss it in the minibuffer… So my Ido setup is verrry basic, but still annoying sometimes. There are a lot of (not to say way too much) configuration examples on http://www.emacswiki.org/emacs/InteractivelyDoThings.

(ido-mode t)
(setq ido-enable-flex-matching t)

Chromium is the default browser in this tiny universe. So let's use it:

(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "chromium-browser")

…but we want to use w3m too. Here's some basic configuration for this fine piece of software:

(autoload 'w3m-goto-url "w3m" "Ask a WWW browser to show a URL." t)
(setq w3m-use-cookies t)

(setq package-archives
      '(("ELPA" . "http://tromey.com/elpa/")
        ("gnu" . "http://elpa.gnu.org/packages/")
        ("sunrise" . "http://joseito.republika.pl/sunrise-commander/")))
(setq package-user-dir (concat dotfiles-dir "elpa"))
(require 'package)
(package-initialize)

Enable ANSI colors for the shell by default.

(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

Fire up emacs server if not running already.

(server-mode)
(if (not (server-running-p))
    (server-start))

See CopyAndPaste.

(setq x-select-enable-clipboard t)

Settings that didn't fit in another section.

;; y or n is enough
(defalias 'yes-or-no-p 'y-or-n-p)

;; never forget passwords
(setq password-cache-expiry nil)

The diary file is stored in the same directory as my agenda files. The main reason is that this directory is synced between different machines.

(setq diary-file "~/org/diary")

Finally make the calendar display a bit more fancy. See http://www.emacswiki.org/emacs/DiaryMode.

(setq view-diary-entries-initially nil
      mark-diary-entries-in-calendar t
      number-of-diary-entries 7
      diary-show-holidays-flag nil
      calendar-week-start-day 1 ;; week starts on Monday
)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)

The calendar should show the week numbers too. This snippet is copied from http://www.emacswiki.org/emacs/CalendarWeekNumbers, there's also some discussions about an "official" implementation.

(setq calendar-intermonth-text
      '(propertize
        (format "%2d"
                (car
                 (calendar-iso-from-absolute
                  (calendar-absolute-from-gregorian (list month day year)))))
        'font-lock-face 'font-lock-function-name-face))

Let calendar (and google-maps) know where home is:

(setq calendar-latitude 50.553065)
(setq calendar-longitude 6.757740)
(setq calendar-location-name "Bad Münstereifel")

Add all files in the agenda directory and the diary in the agenda view:

(setq org-agenda-files '("~/org/agenda/"))
(setq org-agenda-include-diary t)

Here's my TODO sequence. Markers are

• '!' - record timestamp
• '@' - record a note
• '/!' - record a timestamp when leaving the state (iff target state doesn't alread logs a timestamp).

(setq org-todo-keywords
      '((sequence "TODO(t)" "WAITING(w@/!)" "NEXT(n!)" "STARTED(s!)"
                  "LATER(l@)"
                  "|" "MAYBE(m!)" "DONE(d!)" "CANCELLED(c!)")))

Part 2 is just to define some faces for the keywords:

(setq org-todo-keyword-faces
      (quote (("TODO"      :foreground "red"          :weight bold)
              ("STARTED"   :foreground "blue"         :weight bold)
              ("DONE"      :foreground "forest green" :weight bold)
              ("WAITING"   :foreground "yellow"       :weight bold)
              ("MAYBE"     :foreground "goldenrod"    :weight bold)
              ("CANCELLED" :foreground "orangered"    :weight bold)
              ("LATER"     :foreground "LightYellow4" :weight bold)
              ("NEXT"      :foreground "gold"         :weight bold))))

Hmmm… I have this in my current conf, but I don't know what it actually does… However, refiling tasks works as expected with this snippet.

(setq org-refile-use-outline-path 'file)
(setq org-refile-targets '((org-agenda-files . (:level . 1))))

By default checkbox counts are for direct children only. Setting this to nil sums up the counts for all children:

(setq org-hierarchical-checkbox-statistics nil)

Even with this option set, the way how checkbox counts are summed up seems to be somewhat flaky. It only seems to work, if every list item has a checkbox, i.e. list items that only exist for grouping need a checkbox too, which in turn affects the total count again. (The good news are: When you close the last item in a sub-list, you receive a double award!)

* A Heading
  - [ ] A grouping item [/]
    - [ ] Another grouping item [/]
      - [ ] Task 1
      - [ ] Task 2
    - [ ] Once again a grouping item [/]
      - [ ] Task 3

Finally, when a task is closed, log a timestamp:

(setq org-log-done 'time)

Use CSS for highlighting source code when exporting to HTML. The default is 'inline-css', but somehow the result are good old font tags. It works when using 'css':

(setq org-export-htmlize-output-type "css")

See the documentation for this variable on how to generate the CSS styles. The basic procedure is to make sure that all required modes are loaded, e.g. by opening a file in that mode, and then calling the command org-export-htmlize-generate-css.

Setting up the clock in org-mode was somehow confusing. Most of the configuration is copy & paste - unfortunately I don't know the original location. If you (yes, you!) are missing credits here, drop me a line!

;; Resume clocking tasks when emacs is restarted
(org-clock-persistence-insinuate)
;;
;; Yes it's long... but more is better ;)
(setq org-clock-history-length 28)
;; Resume clocking task on clock-in if the clock is open
(setq org-clock-in-resume t)
;; Change task state to NEXT when clocking in
;;(setq org-clock-in-switch-to-state (quote bh/clock-in-to-next))
;; Separate drawers for clocking and logs
(setq org-drawers (quote ("PROPERTIES" "LOGBOOK" "CLOCK")))
;; Save clock data in the CLOCK drawer and state changes and notes in the LOGBOOK drawer
(setq org-clock-into-drawer "CLOCK")
;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
(setq org-clock-out-remove-zero-time-clocks t)
;; Clock out when moving task to a done state
(setq org-clock-out-when-done t)
;; Save the running clock and all clock history when exiting Emacs, load it on startup
(setq org-clock-persist (quote history))
;; Enable auto clock resolution for finding open clocks
(setq org-clock-auto-clock-resolution (quote when-no-clock-is-running))
;; Include current clocking task in clock reports
(setq org-clock-report-include-clocking-task t)

(setq org-agenda-clockreport-parameter-plist '(:link t :maxlevel 4 ))

Load appointment mode and activate it.

(require 'appt)
(appt-activate)

Some details in http://www.emacswiki.org/emacs/AppointmentMode.

(require 'ob-ditaa)

Org-Mode seems to need some extra configuration when used with Yasnippet. This fragment was in my original Emacs configuration, but - again - I need to figure out why it is needed.

(defun yas/org-very-safe-expand ()
  (let ((yas/fallback-behavior 'return-nil)) (yas/expand)))

(add-hook 'org-mode-hook
          (lambda ()
            ;; yasnippet (using the new org-cycle hooks)
            (make-variable-buffer-local 'yas/trigger-key)
            (setq yas/trigger-key [tab])
            (add-to-list 'org-tab-first-hook 'yas/org-very-safe-expand)
            (define-key yas/keymap [tab] 'yas/next-field)))

(require 'ipython)
(autoload 'python-mode "python-mode" "Python Mode." t)
(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
(add-to-list 'interpreter-mode-alist '("python" . python-mode))

Use tabs in HTML code.

(add-hook 'html-mode-hook
          (lambda()
            (setq sgml-basic-offset 2)
            (setq indent-tabs-mode t)))

;;  (autoload 'js2-mode "js2" nil t)
  (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
  (setq js2-basic-offset 2)
  (setq js2-auto-indent-p t)
  (setq js2-cleanup-whitespace t)
  (setq js2-enter-indents-newline t)
  (setq js2-indent-on-enter-key t)
  (add-hook 'js2-mode-hook
              (lambda()
                (setq indent-tabs-mode t)))

(setq css-indent-offset 2)

(require 'rst)
(setq auto-mode-alist
      (append '(("\\.txt$" . rst-mode)
                ("\\.rst$" . rst-mode)
                ("\\.rest$" . rst-mode)
                ("\\.wiki$" . rst-mode)
                ("README" . rst-mode)
                ("CHANGES" . rst-mode)
                ("TODO" . rst-mode)) auto-mode-alist))

(load "auctex.el" nil t t)
(load "preview-latex.el" nil t t)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)

bibtext-utils is a nice addition to the BibTeX stuff comming with Auctex/Emacs.

(require 'bibtex-utils)

Generate PDF instead of DVI:

(add-hook 'LaTeX-mode-hook 'TeX-PDF-mode)

Enable Math mode by default, I use it quite often:

(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)

(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yaml$" . yaml-mode))

(require 'go-mode-load)

Yope, I currently need it. But expect this part to be removed pretty soon again :-)

(add-hook 'pascal-mode-hook
          (lambda ()
            (set (make-local-variable 'compile-command)
                 (concat "gpc "
                         "--standard-pascal "
                         "--extended-pascal "
                         "--disable-keyword=\"case\" "
                         "--pedantic "
                         (file-name-nondirectory (buffer-file-name)))
                 ))
          t)

Magit is really cool when working with Git repositories. The entry point is "M-x magit-status". See the cheatsheet for key bindings.

(add-to-list 'load-path
             (expand-file-name "magit"
                               (expand-file-name "src" dotfiles-dir)))
(require 'magit)
(require 'magit-svn)

(require 'mercurial)

• Projekt page: yasnippet

Load the package from src.

(require 'yasnippet)
(yas/initialize)

Configure snippet directory and load it

(setq yas/root-directory (expand-file-name "snippets" dotfiles-dir))
(yas/load-directory yas/root-directory)

That's an nice addition. An extension for the Chromium browser that adds a little "edit" button to every textarea. When you click on it a new frame pops up in your Emacs and you can edit the field there. Setting edit-server-new-frame to nil is needed when Emacs runs in daemon mode.

(require 'edit-server)
(setq edit-server-new-frame nil)
(edit-server-start)

Load Jabber package and configure GTalk account. See http://www.emacswiki.org/emacs/JabberEl for customization hints.

(add-to-list 'load-path
             (expand-file-name "jabber"
                               (expand-file-name "src" dotfiles-dir)))
(load "jabber-autoloads")
(setq jabber-account-list
      '(("albrecht.andi@googlemail.com" 
         (:network-server . "talk.google.com")
         (:connection-type . ssl))))
(setq jabber-default-show "")
(setq jabber-show-offline-contacts nil)

;; (set-background-color "black")
;; (load-theme 'naquadah)
(require 'color-theme)
(setq color-theme-is-global t)
(color-theme-initialize)

(load "color-theme-tangotango")
(load "color-theme-leuven")

(setq my-color-themes (list
  'color-theme-tangotango
  'color-theme-leuven
))

(defun my-theme-set-default () ; Set the first row
  (interactive)
  (setq theme-current my-color-themes)
  (funcall (car theme-current)))

(defun my-describe-theme () ; Show the current theme
  (interactive)
  (message "%s" (car theme-current)))

; Set the next theme (fixed by Chris Webber - tanks)
(defun my-theme-cycle ()
  (interactive)
  (setq theme-current (cdr theme-current))
  (if (null theme-current)
      (setq theme-current my-color-themes))
  (funcall (car theme-current))
  (message "%S" (car theme-current)))

(setq theme-current my-color-themes)
(setq color-theme-is-global nil) ; Initialization
(my-theme-set-default)
(global-set-key [f4] 'my-theme-cycle)

Emacs nav-mode provides a lightweight sidebar to access files, buffers and tags. M-x nav toggles the nav sidebar. See this wiki page for more shortcuts.

(add-to-list 'load-path
             (expand-file-name "emacs-nav"
                               (expand-file-name "src" dotfiles-dir)))
(require 'nav)

http://www.emacswiki.org/emacs/ColumnMarker highlights one or more columns. I'm using it for the 80-column rule.

(require 'column-marker)
(mapc (lambda (hook)
        (add-hook hook (lambda () (interactive) (column-marker-1 80))))
      '(org-mode-hook
        emacs-lisp-mode-hook
        python-mode-hook
        js2-mode-hook
        text-mode-hook))

With WinRing you can switch between named window configurations. It makes context switching much easier.

TwitteringMode is added as a submodule in my git repository. Type M-x twit to get started.

(add-to-list 'load-path
             (expand-file-name "twittering-mode"
                               (expand-file-name "src" dotfiles-dir)))
(require 'twittering-mode)
(if (window-system)
    (setq twittering-icon-mode t))
(setq twittering-timer-interval 300)
(setq twittering-use-master-password t)

(add-to-list
 'load-path
 (expand-file-name "elisp"
                   (expand-file-name "elim"
                                     (expand-file-name "src"
                                                       dotfiles-dir))))
(autoload 'garak "garak" nil t)
(setq garak-hide-offline-buddies t)

Elim stores private information in a directory elim on the same level as the generated emacs.el (this file). Therefore I've added this auto-generated elim directory to .gitignore.

See homepage for install instructions and shortcuts.

For org-mode it's C-c M-L to enter a location and C-c M-l to view a location.

(add-to-list 'load-path
             (expand-file-name "google-maps"
                               (expand-file-name "src" dotfiles-dir)))
(require 'google-maps)
(require 'org-location-google-maps)

Sometimes it's useful to actually have a menu bar and tool bar.

(defun aa/toggle-chrome ()
  "Show/hide toolbar and menubar."
  (interactive)
  (menu-bar-mode)
  (when (window-system)
    (tool-bar-mode)))

(global-set-key [f5] 'aa/toggle-chrome)

Toggle fullscreen function by using wmctrl as found on the EmacsWiki.

(defun switch-full-screen ()
  (interactive)
  (shell-command "wmctrl -r :ACTIVE: -btoggle,fullscreen"))

(global-set-key [f11] 'switch-full-screen)

The following two functions prompt for a width/height in columns and tries to set the window size accordingly.

(defun aa/window-set-size-internal (is-width)
  "Prompts for window size (in columns) and adjusts buffer accordingly."
  (if is-width
      (progn
        (setq size (window-width))
        (setq prompt "Width: "))
    (progn
      (setq size (window-height))
      (setq prompt "Height: ")))
  (setq reqsize (string-to-int
                 (read-from-minibuffer prompt (format "%d" size))))
  (if (> reqsize size)
      (enlarge-window (- reqsize size) is-width)
    (shrink-window (- size reqsize) is-width)))

(defun aa/window-set-width ()
  "Set window width."
  (interactive)
  (aa/window-set-size-internal t)
)

(defun aa/window-set-height ()
  "Set window height."
  (interactive)
  (aa/window-set-size-internal nil)
)

(global-set-key (kbd "C-c j") 'jabber-connect-all)
(global-set-key (kbd "C-c J") 'jabber-send-presence)
(global-set-key (kbd "C-c g") 'magit-status)
(global-set-key (kbd "C-c w") 'w3m-goto-url)

(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(global-set-key "\C-cr" 'org-remember)
(global-set-key "\C-cn" 'org-insert-todo-heading)
(global-set-key "\C-cN" 'org-insert-todo-subheading)
(global-set-key "\C-x\r" 'org-insert-todo-heading-respect-content)

(global-set-key (kbd "<f5>") 'browse-url-at-point)

(global-set-key "\C-c;" 'comment-or-uncomment-region)
(global-set-key "\C-cm" 'gnus-msg-mail) ;; hm... looks strange :)

(global-set-key (kbd "C-<f12>") 'save-buffers-kill-emacs)
(global-set-key (kbd "M-<f12>") 'fullscreen)

(global-set-key (kbd "<f2>") 'nav)
(global-set-key (kbd "<f7>") 'py-shell)

The default prefix key for WinRing C-x 7- is a bit awkward. F6 is much easier to remember:

(global-set-key (kbd "<f6>") 'winring-next-configuration)
(global-set-key (kbd "C-<f6>") 'winring-jump-to-configuration)

Let's bind F8 to various toggle actions:

(defun aa/flyspell-mode-en ()
  (interactive)
  (progn
    (if (equal (flyspell-mode) t)
        (ispell-change-dictionary "american")
      )))

(defun aa/flyspell-prog-mode-en ()
  (interactive)
  (progn
    (if (equal (flyspell-prog-mode) t)
        (ispell-change-dictionary "american")
      )))

(defun aa/flyspell-mode-de ()
  (interactive)
  (progn
    (if (equal (flyspell-mode) t)
        (ispell-change-dictionary "german8")
      )))

(defun aa/flyspell-prog-mode-de ()
  (interactive)
  (progn
    (if (equal (flyspell-prog-mode) t)
        (ispell-change-dictionary "german8")
      )))

(global-set-key (kbd "<f8> w") 'whitespace-mode)
(global-set-key (kbd "<f8> c") 'comment-or-uncomment-region)
(global-set-key (kbd "<f8> f f") 'aa/flyspell-mode-en)
(global-set-key (kbd "<f8> f g") 'aa/flyspell-mode-de)
(global-set-key (kbd "<f8> f p f") 'aa/flyspell-prog-mode-en)
(global-set-key (kbd "<f8> f p g") 'aa/flyspell-prog-mode-de)