diff --git a/init.el b/init.el index 2c4d7c3..0e91c9b 100644 --- a/init.el +++ b/init.el @@ -1,186 +1,234 @@ -;;-----------------------------------------------------------------------;; -;;----------------------[ init.el by Lars Tveito ]-----------------------;; -;;---------------------------[ 15. Jul, 2012 ]---------------------------;; -;;-----------------------------------------------------------------------;; +(defun init-hook () + "If the current buffer is 'init.org' the code-blocks are +tangled, and the tangled file is compiled." + (when (equal (buffer-file-name) + (concat user-emacs-directory "init.org")) + (org-babel-tangle) + (byte-compile-file (concat user-emacs-directory "init.el")))) -;------------------------------[ libraries ]------------------------------; - -(let ((default-directory "~/Dropbox/ifi/.emacs.d/site-lisp/")) - (normal-top-level-add-to-load-path '(".")) - (normal-top-level-add-subdirs-to-load-path)) - -;-------------------------------------------------------------------------; - - - -;---------------------------[ initializations ]---------------------------; +(add-hook 'after-save-hook 'init-hook) (package-initialize) -(color-theme-initialize) -;-------------------------------------------------------------------------; +(add-to-list 'package-archives + '("MELPA" . "http://melpa.milkbox.net/packages/") t) +(let ((packages + '(ac-geiser ; Auto-complete backend for geiser + ac-slime ; An auto-complete source using slime completions + ace-jump-mode ; quick cursor location minor mode + auto-compile ; automatically compile Emacs Lisp libraries + auto-complete ; auto completion + elscreen ; window session manager + expand-region ; Increase selected region by semantic units + flx-ido ; flx integration for ido + ido-vertical-mode ; Makes ido-mode display vertically. + geiser ; GNU Emacs and Scheme talk to each other + haskell-mode ; A Haskell editing mode + jedi ; Python auto-completion for Emacs + magit ; control Git from Emacs + markdown-mode ; Emacs Major mode for Markdown-formatted files. + monokai-theme ; A fruity color theme for Emacs. + move-text ; Move current line or region with M-up or M-down + multiple-cursors ; Multiple cursors for Emacs. + org ; Outline-based notes management and organizer + paredit ; minor mode for editing parentheses + pretty-lambdada ; the word `lambda' as the Greek letter. + ;; slime ; Superior Lisp Interaction Mode for Emacs + smex ; M-x interface with Ido-style fuzzy matching. + ))) + ;; 'remove-if' is a part of the cl-library, so we require this feature. + (require 'cl) + ;; Filter out installed packages and install the remaining. + (mapc 'package-install (remove-if 'package-installed-p packages))) +(dolist (feature + '(auto-compile ; auto-compile .el files + auto-complete-config ; a configuration for auto-complete-mode + jedi ; auto-completion for python + pretty-lambdada ; show 'lambda' as the greek letter. + ox-latex ; the latex-exporter (from org) + recentf ; recently opened files + tex-mode ; TeX, LaTeX, and SliTeX mode commands + )) + (require feature)) -;--------------------------[ loads color-theme ]--------------------------; +(setq initial-scratch-message nil ; Clean scratch buffer. + inhibit-startup-message t ; No splash screen please. + default-input-method "TeX" ; Use TeX when toggeling input method. + doc-view-continuous t ; At page edge goto next/previous. + echo-keystrokes 0.1 ; Show keystrokes asap. + ) -(load-library "subdued") -(require 'color-theme-subdued) -(color-theme-subdued) +(setq-default fill-column 76 ; Maximum line width. + indent-tabs-mode nil ; Use spaces instead of tabs. + split-width-threshold 100 ; Split verticly by default. + auto-fill-function 'do-auto-fill ; Auto-fill-mode everywhere. + ) -;-------------------------------------------------------------------------; - - - -;--------------------[ remove bars, blink and splash ]--------------------; - -(menu-bar-mode -1) -(tool-bar-mode -1) -(scroll-bar-mode -1) -(blink-cursor-mode 0) -(setq inhibit-startup-message t) -(setq-default indent-tabs-mode nil) - -;-------------------------------------------------------------------------; - - - -;-----------------------------[ Für Package ]-----------------------------; - -(setq package-archives - '(("gnu" . "http://elpa.gnu.org/packages/") - ("marmalade" . "http://marmalade-repo.org/packages/") - ("melpa" . "http://melpa.milkbox.net/packages/"))) - -;-------------------------------------------------------------------------; - - - -;----------------------[ UTF-8 and tex-input mode ]-----------------------; - -(set-language-environment "UTF-8") -(setq default-input-method "TeX" - initial-scratch-message '()) - -;-------------------------------------------------------------------------; - - - -;-----------------[ show parentheses, ido-mode and y/n ]------------------; - -(ido-mode t) -(show-paren-mode t) (fset 'yes-or-no-p 'y-or-n-p) -(setq ido-file-extensions-order - '("src" ".Org" ".java" ".c" ".h" ".emacs" ".el" ".tex")) -;-------------------------------------------------------------------------; +(defvar emacs-autosave-directory + (concat user-emacs-directory "autosaves/") + "This variable dictates where to put auto saves. It is set to a + directory called autosaves located wherever your .emacs.d/ is + located.") - - -;-------------[ Delete selection, veiw column, load header ]--------------; - -(delete-selection-mode t) -(setq column-number-mode t) -(autoload 'header "header" nil t) - -;-------------------------------------------------------------------------; - - - -;--------------------------------[ Mail ]---------------------------------; - -(setq - user-mail-address "larstvei@student.matnat.uio.no" - user-full-name "Lars Tveito" - send-mail-function 'smtpmail-send-it - smtpmail-smtp-server "smtp.uio.no" - smtpmail-smtp-service 587) - -;-------------------------------------------------------------------------; - - - -;------------------------------[ Autosave ]-------------------------------; - -(defvar emacs-autosave-directory "~/Dropbox/ifi/.emacs.d/autosaves/") +;; Sets all files to be backed up and auto saved in a single directory. (setq backup-directory-alist `((".*" . ,emacs-autosave-directory)) auto-save-file-name-transforms `((".*" ,emacs-autosave-directory t))) - -;-------------------------------------------------------------------------; +(set-language-environment "UTF-8") +(put 'narrow-to-region 'disabled nil) -;---------------------------[ Resize buffers ]----------------------------; - -(global-set-key (kbd "") - (lambda () (interactive) - (enlarge-window -1 t))) -(global-set-key (kbd "") - (lambda () (interactive) - (enlarge-window 1 t))) -(global-set-key (kbd "") - (lambda () (interactive) - (enlarge-window -1))) -(global-set-key (kbd "") - (lambda () (interactive) - (enlarge-window 1))) - -;-------------------------------------------------------------------------; - - - -;--------------------[ start eshell and bind to key ]---------------------; - -(global-set-key (kbd "C-x t") - (lambda () (interactive) - (if (string= (buffer-name) "*eshell*") - (switch-to-buffer (second (buffer-list))) - (eshell)))) - -;-------------------------------------------------------------------------; - - - -;----------------------------[ Auto-complete ]----------------------------; - -(require 'auto-complete-config) -(add-to-list 'ac-dictionary-directories - "/home/lars/Dropbox/ifi/.emacs.d/lisp//ac-dict") (ac-config-default) -;-------------------------------------------------------------------------; - - -;-------------------------------[ DocView ]-------------------------------; - (add-hook 'doc-view-mode-hook 'auto-revert-mode) -(setq doc-view-continuous t) -;-------------------------------------------------------------------------; +(dolist (mode + '(tool-bar-mode ; No toolbars, more room for text. + scroll-bar-mode ; No scroll bars either. + blink-cursor-mode ; The blinking cursor gets old. + )) + (funcall mode 0)) +(dolist (mode + '(abbrev-mode ; E.g. sopl -> System.out.println. + auto-compile-on-load-mode ; Compile .el files on load ... + auto-compile-on-save-mode ; ... and save. + column-number-mode ; Show column number in mode line. + delete-selection-mode ; Replace selected text. + recentf-mode ; Recently opened files. + show-paren-mode ; Highlight matching parentheses. + )) + (funcall mode 1)) -;----------------------------[ Key bindings ]-----------------------------; +(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) -(global-set-key (kbd "C-x k") 'kill-this-buffer) +(load-theme 'monokai t) -(key-chord-mode 1) +(when (member "Inconsolata" (font-family-list)) + (set-face-attribute 'default nil :font "Inconsolata-13")) -(key-chord-define-global ";'" 'ace-jump-mode) -(key-chord-define-global "qw" 'mc/mark-all-like-this) -(key-chord-define-global "qs" 'mc/mark-next-like-this) +(dolist (mode + '(ido-mode ; Interactivly do. + ido-everywhere ; Use Ido for all buffer/file reading. + ido-vertical-mode ; Makes ido-mode display vertically. + flx-ido-mode ; Toggle flx ido mode. + )) + (funcall mode 1)) -(global-set-key (kbd "C-'") 'er/expand-region) -(global-set-key (kbd "C-;") 'er/contract-region) +(setq ido-file-extensions-order + '(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex")) -;-------------------------------------------------------------------------; +(add-to-list 'ido-ignore-buffers "*Messages*") +(smex-initialize) +(global-set-key (kbd "M-x") 'smex) +(setq user-full-name "Lars Tveito" + user-mail-address "larstvei@ifi.uio.no" + smtpmail-smtp-server "smtp.uio.no" + smtpmail-smtp-service 587) -;-------------------[ Replace expression with output ]-------------------- +(defun calendar-show-week (arg) + "Displaying week number in calendar-mode." + (interactive "P") + (copy-face font-lock-constant-face 'calendar-iso-week-face) + (set-face-attribute + 'calendar-iso-week-face nil :height 0.7) + (setq calendar-intermonth-text + (and arg + '(propertize + (format + "%2d" + (car (calendar-iso-from-absolute + (calendar-absolute-from-gregorian + (list month day year))))) + 'font-lock-face 'calendar-iso-week-face)))) + +(calendar-show-week t) + +(setq calendar-week-start-day 1 + calendar-latitude 60.0 + calendar-longitude 10.7 + calendar-location-name "Oslo, Norway") + +(add-hook 'text-mode-hook 'turn-on-flyspell) + +(add-hook 'prog-mode-hook 'flyspell-prog-mode) +(ac-flyspell-workaround) + +(setq org-agenda-start-on-weekday nil ; Show agenda from today. + org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files. + org-agenda-default-appointment-duration 120 ; 2 hours appointments. + ) + +(setq org-src-fontify-natively t) + +(defun recentf-ido-find-file () + "Find a recent file using Ido." + (interactive) + (let ((f (ido-completing-read "Choose recent file: " recentf-list nil t))) + (when f + (find-file f)))) + +(defun remove-whitespace-inbetween () + "Removes whitespace before and after the point." + (interactive) + (just-one-space -1)) + +(defun switch-to-shell () + "Jumps to eshell or back." + (interactive) + (if (string= (buffer-name) "*shell*") + (switch-to-prev-buffer) + (shell))) + +(defun duplicate-thing () + "Ethier duplicates the line or the region" + (interactive) + (save-excursion + (let ((start (if (region-active-p) (region-beginning) (point-at-bol))) + (end (if (region-active-p) (region-end) (point-at-eol)))) + (goto-char end) + (unless (region-active-p) + (newline)) + (insert (buffer-substring start end))))) + +(defun tidy () + "Ident, untabify and unwhitespacify current buffer, or region if active." + (interactive) + (let ((beg (if (region-active-p) (region-beginning) (point-min))) + (end (if (region-active-p) (region-end) (point-max)))) + (indent-region beg end) + (whitespace-cleanup) + (untabify beg (if (< end (point-max)) end (point-max))))) + +(global-set-key (kbd "C-'") 'er/expand-region) +(global-set-key (kbd "C-;") 'er/contract-region) + +(global-set-key (kbd "C-c e") 'mc/edit-lines) +(global-set-key (kbd "C-c a") 'mc/mark-all-like-this) +(global-set-key (kbd "C-c n") 'mc/mark-next-like-this) + +(global-set-key (kbd "C-c SPC") 'ace-jump-mode) + +(global-set-key (kbd "C-c t") 'org-agenda-list) +(global-set-key (kbd "C-x k") 'kill-this-buffer) +(global-set-key (kbd "C-x C-r") 'recentf-ido-find-file) + +(global-set-key (kbd "C-c j") 'remove-whitespace-inbetween) +(global-set-key (kbd "C-x t") 'switch-to-shell) +(global-set-key (kbd "C-c d") 'duplicate-thing) +(global-set-key (kbd "") 'tidy) + +(global-set-key (kbd "") 'move-text-up) +(global-set-key (kbd "") 'move-text-down) (defadvice eval-last-sexp (around replace-sexp (arg) activate) "Replace sexp when called with a prefix argument." @@ -192,71 +240,81 @@ (forward-sexp)) ad-do-it)) -;-------------------------------------------------------------------------; +(dolist (mode '(slime-repl-mode inferior-lisp-mode inferior-scheme-mode)) + (add-to-list 'pretty-lambda-auto-modes mode)) +(pretty-lambda-for-modes) -;-------------------------------------------------------------------------; -;--------------[ * Programming-language-modes specifics * ]---------------; -;-------------------------------------------------------------------------; +(dolist (mode pretty-lambda-auto-modes) + ;; add paredit-mode to all mode-hooks + (add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode)) -;--------------------------------[ Java ]---------------------------------; +(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode) +(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode) -(autoload 'java-extras "java-extras" "Fold brackets") -(add-hook 'java-mode-hook 'java-extras) -;;TODO Fix this ugliness - -;-------------------------------------------------------------------------; - - -;----------------------------------[ C ]----------------------------------; - -(load-library "hideshow-on") -(add-hook 'c-mode-common-hook 'hideshow-on) - -;-------------------------------------------------------------------------; - - -;--------------------------------[ Lisp ]---------------------------------; - -;; Show λ in Lisp code. -(defun sm-lambda-mode-hook () - (font-lock-add-keywords - nil `(("\\" - (0 (progn (compose-region (match-beginning 0) (match-end 0) - ,(make-char 'greek-iso8859-7 107)) - nil)))))) -(dolist (h '(lisp-mode-hook - scheme-mode-hook - emacs-lisp-mode-hook - slime-repl-mode-hook - inferior-lisp-mode-hook - inferior-scheme-mode-hook - lisp-interaction-mode-hook)) - (progn - (add-hook h (lambda () (paredit-mode 1))) - (add-hook h 'sm-lambda-mode-hook))) - -(when (file-exists-p "~/quicklisp/slime-helper.el") - (load (expand-file-name "~/quicklisp/slime-helper.el"))) +(when (file-exists-p "~/quicklisp/slime-helper.elc") + (load (expand-file-name "~/quicklisp/slime-helper.elc"))) (setq inferior-lisp-program "sbcl") -;-------------------------------------------------------------------------; +(add-hook 'slime-mode-hook 'set-up-slime-ac) +(add-hook 'slime-repl-mode-hook 'set-up-slime-ac) +(eval-after-load "auto-complete" + '(add-to-list 'ac-modes 'slime-repl-mode)) -;-------------------------------[ Scheme ]--------------------------------; +(add-hook 'geiser-mode-hook 'ac-geiser-setup) +(add-hook 'geiser-repl-mode-hook 'ac-geiser-setup) +(eval-after-load "auto-complete" + '(add-to-list 'ac-modes 'geiser-repl-mode)) -(require 'quack) +(defun c-setup () + (local-set-key (kbd "C-c C-c") 'compile)) -(autoload 'scheme-smart-complete "scheme-complete" nil t) -(eval-after-load 'scheme - '(define-key scheme-mode-map "\t" 'scheme-complete-or-indent)) -(autoload 'scheme-get-current-symbol-info "scheme-complete" nil t) -(add-hook 'scheme-mode-hook - (lambda () - (make-local-variable 'eldoc-documentation-function) - (setq eldoc-documentation-function - 'scheme-get-current-symbol-info) - (eldoc-mode))) +(add-hook 'c-mode-common-hook 'c-setup) -;-------------------------------------------------------------------------; +(define-abbrev-table 'java-mode-abbrev-table + '(("psv" "public static void main(String[] args) {" nil 0) + ("sopl" "System.out.println" nil 0) + ("sop" "System.out.printf" nil 0))) + +(defun java-setup () + (abbrev-mode t) + (setq-local compile-command (concat "javac " (buffer-name)))) + +(add-hook 'java-mode-hook 'java-setup) + +(defun asm-setup () + (setq comment-start "#") + (local-set-key (kbd "C-c C-c") 'compile)) + +(add-hook 'asm-mode-hook 'asm-setup) + +(add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode)) + +(setcar (cdr (cddaar tex-compile-commands)) " -shell-escape ") + +;; Add minted to the defaults packages to include when exporting. +(add-to-list 'org-latex-packages-alist '("" "minted")) +;; Tell the latex export to use the minted package for source +;; code coloration. +(setq org-latex-listings 'minted) +;; Let the exporter use the -shell-escape option to let latex +;; execute external programs. +;; This obviously and can be dangerous to activate! +(setq org-latex-pdf-process + (mapcar + (lambda (str) + (concat "pdflatex -shell-escape " + (substring str (string-match "-" str)))) + org-latex-pdf-process)) + +(setq jedi:server-command + (cons "python3" (cdr jedi:server-command)) + python-shell-interpreter "python3") +(add-hook 'python-mode-hook 'jedi:setup) +(setq jedi:complete-on-dot t) +(add-hook 'python-mode-hook 'jedi:ac-setup) + +(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) +(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) diff --git a/init.elc b/init.elc new file mode 100644 index 0000000..a0ec112 Binary files /dev/null and b/init.elc differ diff --git a/init.org b/init.org new file mode 100644 index 0000000..ea25a80 --- /dev/null +++ b/init.org @@ -0,0 +1,677 @@ +#+LATEX_HEADER: \usepackage{parskip} +#+LATEX_HEADER: \usepackage{inconsolata} +#+TITLE: Emacs configuration file +#+AUTHOR: Lars Tveito + +* About + This is a Emacs configuration file written in =org-mode=. There are a few + reasons why I wanted to do this. My =.emacs.d/= was a mess, and needed a + proper clean-up. Also I like keeping all my configurations in a single + file, using =org-mode= I can keep this file /organized/. I aim to briefly + explain all my configurations. + +* Configurations +** Meta + + Emacs can only load =.el=-files. We can use =C-c C-v t= to run + =org-babel-tangle=, which extracts the code blocks from the current file + into a source-specific file (in this case a =.el=-file). + + To avoid doing this each time a change is made we can add a function to + the =after-save-hook= ensuring to always tangle and byte-compile the + =org=-document after changes. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun init-hook () + "If the current buffer is 'init.org' the code-blocks are + tangled, and the tangled file is compiled." + (when (equal (buffer-file-name) + (concat user-emacs-directory "init.org")) + (org-babel-tangle) + (byte-compile-file (concat user-emacs-directory "init.el")))) + + (add-hook 'after-save-hook 'init-hook) + #+END_SRC + +** Package + + Managing extensions for Emacs is simplified using =package= which is + built in to Emacs 24 and newer. To load downloaded packages we need to + initialize =package=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (package-initialize) + #+END_SRC + + Packages can be fetched from different mirrors, [[http://melpa.milkbox.net/#/][melpa]] is the largest + archive and is well maintained. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-to-list 'package-archives + '("MELPA" . "http://melpa.milkbox.net/packages/") t) + #+END_SRC + + Some packages I find useful are installed if missing. + + #+BEGIN_SRC emacs-lisp :tangle yes + (let ((packages + '(ac-geiser ; Auto-complete backend for geiser + ac-slime ; An auto-complete source using slime completions + ace-jump-mode ; quick cursor location minor mode + auto-compile ; automatically compile Emacs Lisp libraries + auto-complete ; auto completion + elscreen ; window session manager + expand-region ; Increase selected region by semantic units + flx-ido ; flx integration for ido + ido-vertical-mode ; Makes ido-mode display vertically. + geiser ; GNU Emacs and Scheme talk to each other + haskell-mode ; A Haskell editing mode + jedi ; Python auto-completion for Emacs + magit ; control Git from Emacs + markdown-mode ; Emacs Major mode for Markdown-formatted files. + monokai-theme ; A fruity color theme for Emacs. + move-text ; Move current line or region with M-up or M-down + multiple-cursors ; Multiple cursors for Emacs. + org ; Outline-based notes management and organizer + paredit ; minor mode for editing parentheses + pretty-lambdada ; the word `lambda' as the Greek letter. + ;; slime ; Superior Lisp Interaction Mode for Emacs + smex ; M-x interface with Ido-style fuzzy matching. + ))) + ;; 'remove-if' is a part of the cl-library, so we require this feature. + (require 'cl) + ;; Filter out installed packages and install the remaining. + (mapc 'package-install (remove-if 'package-installed-p packages))) + #+END_SRC + +** Require + + Some features are not loaded by default to minimize initialization time, + so they have to be required (or loaded, if you will). + + #+BEGIN_SRC emacs-lisp :tangle yes + (dolist (feature + '(auto-compile ; auto-compile .el files + auto-complete-config ; a configuration for auto-complete-mode + jedi ; auto-completion for python + pretty-lambdada ; show 'lambda' as the greek letter. + ox-latex ; the latex-exporter (from org) + recentf ; recently opened files + tex-mode ; TeX, LaTeX, and SliTeX mode commands + )) + (require feature)) + #+END_SRC + +** Sane defaults + + These are what /I/ consider to be saner defaults. + + We can set variables to whatever value we'd like using =setq=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq initial-scratch-message nil ; Clean scratch buffer. + inhibit-startup-message t ; No splash screen please. + default-input-method "TeX" ; Use TeX when toggeling input method. + doc-view-continuous t ; At page edge goto next/previous. + echo-keystrokes 0.1 ; Show keystrokes asap. + ) + #+END_SRC + + Some variables are buffer-local, so changing them using =setq= will only + change them in a single buffer. Using =setq-default= we change the + buffer-local variable's default value. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq-default fill-column 76 ; Maximum line width. + indent-tabs-mode nil ; Use spaces instead of tabs. + split-width-threshold 100 ; Split verticly by default. + auto-fill-function 'do-auto-fill ; Auto-fill-mode everywhere. + ) + #+END_SRC + + Answering /yes/ and /no/ to each question from Emacs can be tedious, a + single /y/ or /n/ will suffice. + + #+BEGIN_SRC emacs-lisp :tangle yes + (fset 'yes-or-no-p 'y-or-n-p) + #+END_SRC + + To avoid file system clutter we put all auto saved files in a single + directory. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defvar emacs-autosave-directory + (concat user-emacs-directory "autosaves/") + "This variable dictates where to put auto saves. It is set to a + directory called autosaves located wherever your .emacs.d/ is + located.") + + ;; Sets all files to be backed up and auto saved in a single directory. + (setq backup-directory-alist + `((".*" . ,emacs-autosave-directory)) + auto-save-file-name-transforms + `((".*" ,emacs-autosave-directory t))) + #+END_SRC + + Set =utf-8= as preferred coding system. + + #+BEGIN_SRC emacs-lisp :tangle yes + (set-language-environment "UTF-8") + #+END_SRC + + By default the =narrow-to-region= command is disabled and issues a + warning, because it might confuse new users. I find it useful sometimes, + and don't want to be warned. + + #+BEGIN_SRC emacs-lisp :tangle yes + (put 'narrow-to-region 'disabled nil) + #+END_SRC + + Call =auto-complete= default configuration, which enables =auto-complete= + globally. + + #+BEGIN_SRC emacs-lisp :tangle yes + (ac-config-default) + #+END_SRC + + Automaticly revert =doc-view=-buffers when the file changes on disk. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'doc-view-mode-hook 'auto-revert-mode) + #+END_SRC + +** Modes + + There are some modes that are enabled by default that I don't find + particularly useful. We create a list of these modes, and disable all of + these. + + #+BEGIN_SRC emacs-lisp :tangle yes + (dolist (mode + '(tool-bar-mode ; No toolbars, more room for text. + scroll-bar-mode ; No scroll bars either. + blink-cursor-mode ; The blinking cursor gets old. + )) + (funcall mode 0)) + #+END_SRC + + Let's apply the same technique for enabling modes that are disabled by + default. + + #+BEGIN_SRC emacs-lisp :tangle yes + (dolist (mode + '(abbrev-mode ; E.g. sopl -> System.out.println. + auto-compile-on-load-mode ; Compile .el files on load ... + auto-compile-on-save-mode ; ... and save. + column-number-mode ; Show column number in mode line. + delete-selection-mode ; Replace selected text. + recentf-mode ; Recently opened files. + show-paren-mode ; Highlight matching parentheses. + )) + (funcall mode 1)) + #+END_SRC + + This makes =.md=-files open in =markdown-mode=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) + #+END_SRC + +** Visual + + Change the color-theme to =monokai= (downloaded using =package=). + + #+BEGIN_SRC emacs-lisp :tangle yes + (load-theme 'monokai t) + #+END_SRC + + Use the [[http://www.levien.com/type/myfonts/inconsolata.html][Inconsolata]] font if it's installed on the system. + + #+BEGIN_SRC emacs-lisp :tangle yes + (when (member "Inconsolata" (font-family-list)) + (set-face-attribute 'default nil :font "Inconsolata-13")) + #+END_SRC + +** Ido + + Interactive do (or =ido-mode=) changes the way you switch buffers and + open files/directories. Instead of writing complete file paths and buffer + names you can write a part of it and select one from a list of + possibilities. Using =ido-vertical-mode= changes the way possibilities + are displayed, and =flx-ido-mode= enables fuzzy matching. + + #+BEGIN_SRC emacs-lisp :tangle yes + (dolist (mode + '(ido-mode ; Interactivly do. + ido-everywhere ; Use Ido for all buffer/file reading. + ido-vertical-mode ; Makes ido-mode display vertically. + flx-ido-mode ; Toggle flx ido mode. + )) + (funcall mode 1)) + #+END_SRC + + We can set the order of file selections in =ido=. I prioritize source + files along with =org=- and =tex=-files. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq ido-file-extensions-order + '(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex")) + #+END_SRC + + Sometimes when using =ido-switch-buffer= the =*Messages*= buffer get in + the way, so we set it to be ignored (it can be accessed using =C-h e=, so + there is really no need for it in the buffer list). + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-to-list 'ido-ignore-buffers "*Messages*") + #+END_SRC + + To make =M-x= behave more like =ido-mode= we can use the =smex= + package. It needs to be initialized, and we can replace the binding to + the standard =execute-extended-command= with =smex=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (smex-initialize) + (global-set-key (kbd "M-x") 'smex) + #+END_SRC + +** Mail + #+BEGIN_SRC emacs-lisp :tangle yes + (setq user-full-name "Lars Tveito" + user-mail-address "larstvei@ifi.uio.no" + smtpmail-smtp-server "smtp.uio.no" + smtpmail-smtp-service 587) + #+END_SRC + +** Calendar + + Define a function to display week numbers in =calender-mode=. The snippet + is from [[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun calendar-show-week (arg) + "Displaying week number in calendar-mode." + (interactive "P") + (copy-face font-lock-constant-face 'calendar-iso-week-face) + (set-face-attribute + 'calendar-iso-week-face nil :height 0.7) + (setq calendar-intermonth-text + (and arg + '(propertize + (format + "%2d" + (car (calendar-iso-from-absolute + (calendar-absolute-from-gregorian + (list month day year))))) + 'font-lock-face 'calendar-iso-week-face)))) + #+END_SRC + + Evaluate the =toggle-calendar-show-week= function. + + #+BEGIN_SRC emacs-lisp :tangle yes + (calendar-show-week t) + #+END_SRC + + Set Monday as the first day of the week, and set my location. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq calendar-week-start-day 1 + calendar-latitude 60.0 + calendar-longitude 10.7 + calendar-location-name "Oslo, Norway") + #+END_SRC + +** Flyspell + + Flyspell offers on-the-fly spell checking. We can enable flyspell for all + text-modes with this snippet. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'text-mode-hook 'turn-on-flyspell) + #+END_SRC + + To use flyspell for programming there is =flyspell-prog-mode=, that only + enables spell checking for comments and strings. We can enable it for all + programming modes using the =prog-mode-hook=. Flyspell interferes with + auto-complete mode, but there is a workaround provided by auto complete. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'prog-mode-hook 'flyspell-prog-mode) + (ac-flyspell-workaround) + #+END_SRC + +** Org + + I use =org-agenda= for appointments and such. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq org-agenda-start-on-weekday nil ; Show agenda from today. + org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files. + org-agenda-default-appointment-duration 120 ; 2 hours appointments. + ) + #+END_SRC + + When editing org-files with source-blocks, we want the source blocks to + be themed as they would in their native mode. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq org-src-fontify-natively t) + #+END_SRC + +** Interactive functions + <> + + To search recent files useing =ido-mode= we add this snippet from + [[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun recentf-ido-find-file () + "Find a recent file using Ido." + (interactive) + (let ((f (ido-completing-read "Choose recent file: " recentf-list nil t))) + (when f + (find-file f)))) + #+END_SRC + + =just-one-space= removes all whitespace around a point - giving it a + negative argument it removes newlines as well. We wrap a interactive + function around it to be able to bind it to a key. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun remove-whitespace-inbetween () + "Removes whitespace before and after the point." + (interactive) + (just-one-space -1)) + #+END_SRC + + This interactive function switches you to a =shell=, and if triggered in + the shell it switches back to the previous buffer. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun switch-to-shell () + "Jumps to eshell or back." + (interactive) + (if (string= (buffer-name) "*shell*") + (switch-to-prev-buffer) + (shell))) + #+END_SRC + + To duplicate either selected text or a line we define this interactive + function. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun duplicate-thing () + "Ethier duplicates the line or the region" + (interactive) + (save-excursion + (let ((start (if (region-active-p) (region-beginning) (point-at-bol))) + (end (if (region-active-p) (region-end) (point-at-eol)))) + (goto-char end) + (unless (region-active-p) + (newline)) + (insert (buffer-substring start end))))) + #+END_SRC + + To tidy up a buffer we define this function borrowed from [[https://github.com/simenheg][simenheg]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun tidy () + "Ident, untabify and unwhitespacify current buffer, or region if active." + (interactive) + (let ((beg (if (region-active-p) (region-beginning) (point-min))) + (end (if (region-active-p) (region-end) (point-max)))) + (indent-region beg end) + (whitespace-cleanup) + (untabify beg (if (< end (point-max)) end (point-max))))) + #+END_SRC + +** Key bindings + + Bindings for [[https://github.com/magnars/expand-region.el][expand-region]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (global-set-key (kbd "C-'") 'er/expand-region) + (global-set-key (kbd "C-;") 'er/contract-region) + #+END_SRC + + Bindings for [[https://github.com/magnars/multiple-cursors.el][multiple-cursors]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (global-set-key (kbd "C-c e") 'mc/edit-lines) + (global-set-key (kbd "C-c a") 'mc/mark-all-like-this) + (global-set-key (kbd "C-c n") 'mc/mark-next-like-this) + #+END_SRC + + Bindings for [[https://github.com/winterTTr/ace-jump-mode][ace-jump-mode]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (global-set-key (kbd "C-c SPC") 'ace-jump-mode) + #+END_SRC + + Bind some native Emacs functions. + + #+BEGIN_SRC emacs-lisp :tangle yes + (global-set-key (kbd "C-c t") 'org-agenda-list) + (global-set-key (kbd "C-x k") 'kill-this-buffer) + (global-set-key (kbd "C-x C-r") 'recentf-ido-find-file) + #+END_SRC + + Bind the functions defined [[sec:defuns][above]]. + + #+BEGIN_SRC emacs-lisp :tangle yes + (global-set-key (kbd "C-c j") 'remove-whitespace-inbetween) + (global-set-key (kbd "C-x t") 'switch-to-shell) + (global-set-key (kbd "C-c d") 'duplicate-thing) + (global-set-key (kbd "") 'tidy) + #+END_SRC + + Bindings for =move-text=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (global-set-key (kbd "") 'move-text-up) + (global-set-key (kbd "") 'move-text-down) + #+END_SRC + +** Advice + + An advice can be given to a function to make it behave differently. This + advice makes =eval-last-sexp= (bound to =C-x C-e=) replace the sexp with + the value. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defadvice eval-last-sexp (around replace-sexp (arg) activate) + "Replace sexp when called with a prefix argument." + (if arg + (let ((pos (point))) + ad-do-it + (goto-char pos) + (backward-kill-sexp) + (forward-sexp)) + ad-do-it)) + #+END_SRC + +* Language mode specific +** Lisp + + =Pretty-lambda= provides a customizable variable + =pretty-lambda-auto-modes= that is a list of common lisp modes. Here we + can add some extra lisp-modes. We run the =pretty-lambda-for-modes= + function to activate =pretty-lambda-mode= in lisp modes. + + #+BEGIN_SRC emacs-lisp :tangle yes + (dolist (mode '(slime-repl-mode inferior-lisp-mode inferior-scheme-mode)) + (add-to-list 'pretty-lambda-auto-modes mode)) + + (pretty-lambda-for-modes) + #+END_SRC + + I use =Paredit= when editing lisp code, we enable this for all lisp-modes + in the =pretty-lambda-auto-modes= list. + + #+BEGIN_SRC emacs-lisp :tangle yes + (dolist (mode pretty-lambda-auto-modes) + ;; add paredit-mode to all mode-hooks + (add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode)) + #+END_SRC + +*** Emacs Lisp + + In =emacs-lisp-mode= we can enable =eldoc-mode= to display information + about a function or a variable in the echo area. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode) + (add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode) + #+END_SRC + +*** Common lisp + + I use [[http://www.common-lisp.net/project/slime/][Slime]] along with =lisp-mode= to edit Common Lisp code. Slime + provides code evaluation and other great features, a must have for a + Common Lisp developer. [[http://www.quicklisp.org/beta/][Quicklisp]] is a library manager for Common Lisp, + and you can install Slime following the instructions from the site along + with this snippet. + + #+BEGIN_SRC emacs-lisp :tangle yes + (when (file-exists-p "~/quicklisp/slime-helper.elc") + (load (expand-file-name "~/quicklisp/slime-helper.elc"))) + #+END_SRC + + We can specify what Common Lisp program Slime should use (I use SBCL). + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq inferior-lisp-program "sbcl") + #+END_SRC + + To improve auto completion for Common Lisp editing we can use =ac-slime= + which uses slime completions as a source. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'slime-mode-hook 'set-up-slime-ac) + (add-hook 'slime-repl-mode-hook 'set-up-slime-ac) + + (eval-after-load "auto-complete" + '(add-to-list 'ac-modes 'slime-repl-mode)) + #+END_SRC + +*** Scheme + + [[http://www.nongnu.org/geiser/][Geiser]] provides features similar to Slime for Scheme editing. Everything + works pretty much out of the box, the only thing we need to add is the + auto completion. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'geiser-mode-hook 'ac-geiser-setup) + (add-hook 'geiser-repl-mode-hook 'ac-geiser-setup) + (eval-after-load "auto-complete" + '(add-to-list 'ac-modes 'geiser-repl-mode)) + #+END_SRC + +** Java and C + + The =c-mode-common-hook= is a general hook that work on all C-like + languages (C, C++, Java, etc...). I like being able to quickly compile + using =C-c C-c= (instead of =M-x compile=), a habit from =latex-mode=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun c-setup () + (local-set-key (kbd "C-c C-c") 'compile)) + + (add-hook 'c-mode-common-hook 'c-setup) + #+END_SRC + + Some statements in Java appear often, and become tedious to write + out. We can use abbrevs to speed this up. + + #+BEGIN_SRC emacs-lisp :tangle yes + (define-abbrev-table 'java-mode-abbrev-table + '(("psv" "public static void main(String[] args) {" nil 0) + ("sopl" "System.out.println" nil 0) + ("sop" "System.out.printf" nil 0))) + #+END_SRC + + To be able to use the abbrev table defined above, =abbrev-mode= must be + activated. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun java-setup () + (abbrev-mode t) + (setq-local compile-command (concat "javac " (buffer-name)))) + + (add-hook 'java-mode-hook 'java-setup) + #+END_SRC + +** Assembler + + When writing assembler code I use =#= for comments. By defining + =comment-start= we can add comments using =M-;= like in other programming + modes. Also in assembler should one be able to compile using =C-c C-c=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (defun asm-setup () + (setq comment-start "#") + (local-set-key (kbd "C-c C-c") 'compile)) + + (add-hook 'asm-mode-hook 'asm-setup) + #+END_SRC + +** LaTeX + + I want =.tex=-files to be associated with =latex-mode= instead of + =tex-mode=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode)) + #+END_SRC + + When compiling LaTeX using =C-c C-c= a latex compile command is run. When + using the =Minted=-package for LaTeX, one must compile with the flag + =shell-escape=. Here is a not-quite-so-elegant fix. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setcar (cdr (cddaar tex-compile-commands)) " -shell-escape ") + #+END_SRC + + + #+BEGIN_SRC emacs-lisp :tangle yes + ;; Add minted to the defaults packages to include when exporting. + (add-to-list 'org-latex-packages-alist '("" "minted")) + ;; Tell the latex export to use the minted package for source + ;; code coloration. + (setq org-latex-listings 'minted) + ;; Let the exporter use the -shell-escape option to let latex + ;; execute external programs. + ;; This obviously and can be dangerous to activate! + (setq org-latex-pdf-process + (mapcar + (lambda (str) + (concat "pdflatex -shell-escape " + (substring str (string-match "-" str)))) + org-latex-pdf-process)) + #+END_SRC + +** Python + + [[http://tkf.github.io/emacs-jedi/released/][Jedi]] offers very nice auto completion for =python-mode=. Mind that it is + dependent on some python programs as well, so make sure you follow the + instructions from the site. + + #+BEGIN_SRC emacs-lisp :tangle yes + (setq jedi:server-command + (cons "python3" (cdr jedi:server-command)) + python-shell-interpreter "python3") + (add-hook 'python-mode-hook 'jedi:setup) + (setq jedi:complete-on-dot t) + (add-hook 'python-mode-hook 'jedi:ac-setup) + #+END_SRC + +** Haskell + + =haskell-doc-mode= is similar to =eldoc=, it displays documentation in + the echo area. Haskell has several indentation modes - I prefer using + =haskell-indent=. + + #+BEGIN_SRC emacs-lisp :tangle yes + (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) + (add-hook 'haskell-mode-hook 'turn-on-haskell-indent) + #+END_SRC diff --git a/init.pdf b/init.pdf new file mode 100644 index 0000000..0f6d396 Binary files /dev/null and b/init.pdf differ diff --git a/site-lisp/header.el b/site-lisp/header.el deleted file mode 100644 index 8971e9f..0000000 --- a/site-lisp/header.el +++ /dev/null @@ -1,26 +0,0 @@ -;-------------[ This function creates headers like this one ]-------------; - -(defun header () - (interactive) - (beginning-of-line) - (if (and (eolp) (bolp)) - (insert ";;") - (progn - (insert ";[ ") - (move-end-of-line 1) - (insert " ];"))) - (add-dashes)) - -(defun add-dashes () - ;; lets wait, just for fun. - (sit-for 0.006) - (end-of-line) - (let ((line-length (current-column))) - (if (oddp line-length) - (progn - (beginning-of-line) - (forward-char)) - (backward-char)) - (insert "-") - (unless (< 73 line-length) - (add-dashes))))