larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed indentation (org-file), and tweaked slime.

Browse Source
This commit is contained in:
larstvei 2014-11-02 12:00:49 +01:00
parent 760fb89cde
commit 42e5a1af33
3 changed files with 263 additions and 253 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

176
README.md
View File

@ -84,7 +84,7 @@ 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 the `after-save-hook` ensuring to always tangle and byte-compile the
`org`-document after changes. `org`-document after changes.
```lisp ```emacs-lisp
(defun tangle-init () (defun tangle-init ()
"If the current buffer is 'init.org' the code-blocks are "If the current buffer is 'init.org' the code-blocks are
tangled, and the tangled file is compiled." tangled, and the tangled file is compiled."
@ -106,7 +106,7 @@ initialize `package`. `cl` is a library that contains many functions from
Common Lisp, and comes in handy quite often, so we want to make sure it's Common Lisp, and comes in handy quite often, so we want to make sure it's
loaded, along with `package`, which is obviously needed. loaded, along with `package`, which is obviously needed.
```lisp ```emacs-lisp
(require 'cl) (require 'cl)
(require 'package) (require 'package)
(setq package-enable-at-startup nil) (setq package-enable-at-startup nil)
@ -116,7 +116,7 @@ loaded, along with `package`, which is obviously needed.
Packages can be fetched from different mirrors, [melpa](http://melpa.milkbox.net/#/) is the largest Packages can be fetched from different mirrors, [melpa](http://melpa.milkbox.net/#/) is the largest
archive and is well maintained. archive and is well maintained.
```lisp ```emacs-lisp
(setq package-archives (setq package-archives
'(("gnu" . "http://elpa.gnu.org/packages/") '(("gnu" . "http://elpa.gnu.org/packages/")
("org" . "http://orgmode.org/elpa/") ("org" . "http://orgmode.org/elpa/")
@ -126,7 +126,7 @@ archive and is well maintained.
We can define a predicate that tells us whether or not the newest version We can define a predicate that tells us whether or not the newest version
of a package is installed. of a package is installed.
```lisp ```emacs-lisp
(defun newest-package-installed-p (package) (defun newest-package-installed-p (package)
"Return true if the newest available PACKAGE is installed." "Return true if the newest available PACKAGE is installed."
(when (package-installed-p package) (when (package-installed-p package)
@ -142,7 +142,7 @@ Let's write a function to install a package if it is not installed or
upgrades it if a new version has been released. Here our predicate comes upgrades it if a new version has been released. Here our predicate comes
in handy. in handy.
```lisp ```emacs-lisp
(defun upgrade-or-install-package (package) (defun upgrade-or-install-package (package)
"Unless the newest available version of PACKAGE is installed "Unless the newest available version of PACKAGE is installed
PACKAGE is installed and the current version is deleted." PACKAGE is installed and the current version is deleted."
@ -161,7 +161,7 @@ PACKAGE is installed and the current version is deleted."
Also, we will need a function to find all dependencies from a given package. Also, we will need a function to find all dependencies from a given package.
```lisp ```emacs-lisp
(defun dependencies (package) (defun dependencies (package)
"Returns a list of dependencies from a given PACKAGE." "Returns a list of dependencies from a given PACKAGE."
(let* ((pkg-desc (assq package package-alist)) (let* ((pkg-desc (assq package package-alist))
@ -177,7 +177,7 @@ second specifies whether one should update during the initialization. The
third is a path to a file where a time-stamp is stored in order to check third is a path to a file where a time-stamp is stored in order to check
when packages were updated last. when packages were updated last.
```lisp ```emacs-lisp
(defvar days-between-updates 7) (defvar days-between-updates 7)
(defvar do-package-update-on-init t) (defvar do-package-update-on-init t)
(defvar package-last-update-file (defvar package-last-update-file
@ -189,7 +189,7 @@ a hacky way of doing it, using [time-stamps](http://www.gnu.org/software/emacs/m
a file, we can determine whether or not to do an update. After that we a file, we can determine whether or not to do an update. After that we
must run the `time-stamp`-function to update the time-stamp. must run the `time-stamp`-function to update the time-stamp.
```lisp ```emacs-lisp
(require 'time-stamp) (require 'time-stamp)
;; Open the package-last-update-file ;; Open the package-last-update-file
(with-temp-file package-last-update-file (with-temp-file package-last-update-file
@ -219,7 +219,7 @@ Now we can use the function above to make sure packages are installed and
up to date. Here are some packages I find useful (some of these up to date. Here are some packages I find useful (some of these
configurations are also dependent on them). configurations are also dependent on them).
```lisp ```emacs-lisp
(when (and do-package-update-on-init (when (and do-package-update-on-init
(y-or-n-p "Update all packages?")) (y-or-n-p "Update all packages?"))
(package-refresh-contents) (package-refresh-contents)
@ -276,7 +276,7 @@ to include environment-variables from the shell. It makes useing Emacs
along with external processes a lot simpler. I also prefer using the along with external processes a lot simpler. I also prefer using the
`Command`-key as the `Meta`-key. `Command`-key as the `Meta`-key.
```lisp ```emacs-lisp
(when (memq window-system '(mac ns)) (when (memq window-system '(mac ns))
(setq mac-option-modifier nil (setq mac-option-modifier nil
mac-command-modifier 'meta mac-command-modifier 'meta
@ -293,7 +293,7 @@ configuration. `idle-require` delays the `require`-calls to a time where
Emacs is in idle. So this is great for stuff you eventually want to load, Emacs is in idle. So this is great for stuff you eventually want to load,
but is not a high priority. but is not a high priority.
```lisp ```emacs-lisp
(require 'idle-require) ; Need in order to use idle-require (require 'idle-require) ; Need in order to use idle-require
(require 'auto-complete-config) ; a configuration for auto-complete-mode (require 'auto-complete-config) ; a configuration for auto-complete-mode
@ -320,7 +320,7 @@ These are what *I* consider to be saner defaults.
We can set variables to whatever value we'd like using `setq`. We can set variables to whatever value we'd like using `setq`.
```lisp ```emacs-lisp
(setq default-input-method "TeX" ; Use TeX when toggling input method. (setq default-input-method "TeX" ; Use TeX when toggling input method.
doc-view-continuous t ; At page edge goto next/previous. doc-view-continuous t ; At page edge goto next/previous.
echo-keystrokes 0.1 ; Show keystrokes asap. echo-keystrokes 0.1 ; Show keystrokes asap.
@ -346,7 +346,7 @@ Some variables are buffer-local, so changing them using `setq` will only
change them in a single buffer. Using `setq-default` we change the change them in a single buffer. Using `setq-default` we change the
buffer-local variable's default value. buffer-local variable's default value.
```lisp ```emacs-lisp
(setq-default fill-column 76 ; Maximum line width. (setq-default fill-column 76 ; Maximum line width.
indent-tabs-mode nil ; Use spaces instead of tabs. indent-tabs-mode nil ; Use spaces instead of tabs.
split-width-threshold 100 ; Split verticly by default. split-width-threshold 100 ; Split verticly by default.
@ -358,7 +358,7 @@ Emacs lisp files). I have a directory called `site-lisp` where I keep all
extensions that have been installed manually (these are mostly my own extensions that have been installed manually (these are mostly my own
projects). projects).
```lisp ```emacs-lisp
(let ((default-directory (concat user-emacs-directory "site-lisp/"))) (let ((default-directory (concat user-emacs-directory "site-lisp/")))
(when (file-exists-p default-directory) (when (file-exists-p default-directory)
(normal-top-level-add-to-load-path '(".")) (normal-top-level-add-to-load-path '("."))
@ -368,14 +368,14 @@ projects).
Answering *yes* and *no* to each question from Emacs can be tedious, a Answering *yes* and *no* to each question from Emacs can be tedious, a
single *y* or *n* will suffice. single *y* or *n* will suffice.
```lisp ```emacs-lisp
(fset 'yes-or-no-p 'y-or-n-p) (fset 'yes-or-no-p 'y-or-n-p)
``` ```
To avoid file system clutter we put all auto saved files in a single To avoid file system clutter we put all auto saved files in a single
directory. directory.
```lisp ```emacs-lisp
(defvar emacs-autosave-directory (defvar emacs-autosave-directory
(concat user-emacs-directory "autosaves/") (concat user-emacs-directory "autosaves/")
"This variable dictates where to put auto saves. It is set to a "This variable dictates where to put auto saves. It is set to a
@ -391,7 +391,7 @@ directory.
Set `utf-8` as preferred coding system. Set `utf-8` as preferred coding system.
```lisp ```emacs-lisp
(set-language-environment "UTF-8") (set-language-environment "UTF-8")
``` ```
@ -399,20 +399,20 @@ By default the `narrow-to-region` command is disabled and issues a
warning, because it might confuse new users. I find it useful sometimes, warning, because it might confuse new users. I find it useful sometimes,
and don't want to be warned. and don't want to be warned.
```lisp ```emacs-lisp
(put 'narrow-to-region 'disabled nil) (put 'narrow-to-region 'disabled nil)
``` ```
Call `auto-complete` default configuration, which enables `auto-complete` Call `auto-complete` default configuration, which enables `auto-complete`
globally. globally.
```lisp ```emacs-lisp
(eval-after-load 'auto-complete-config `(ac-config-default)) (eval-after-load 'auto-complete-config `(ac-config-default))
``` ```
Automaticly revert `doc-view`-buffers when the file changes on disk. Automaticly revert `doc-view`-buffers when the file changes on disk.
```lisp ```emacs-lisp
(add-hook 'doc-view-mode-hook 'auto-revert-mode) (add-hook 'doc-view-mode-hook 'auto-revert-mode)
``` ```
@ -422,7 +422,7 @@ 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 particularly useful. We create a list of these modes, and disable all of
these. these.
```lisp ```emacs-lisp
(dolist (mode (dolist (mode
'(tool-bar-mode ; No toolbars, more room for text. '(tool-bar-mode ; No toolbars, more room for text.
scroll-bar-mode ; No scroll bars either. scroll-bar-mode ; No scroll bars either.
@ -433,7 +433,7 @@ these.
Let's apply the same technique for enabling modes that are disabled by Let's apply the same technique for enabling modes that are disabled by
default. default.
```lisp ```emacs-lisp
(dolist (mode (dolist (mode
'(abbrev-mode ; E.g. sopl -> System.out.println. '(abbrev-mode ; E.g. sopl -> System.out.println.
column-number-mode ; Show column number in mode line. column-number-mode ; Show column number in mode line.
@ -451,7 +451,7 @@ default.
This makes `.md`-files open in `markdown-mode`. This makes `.md`-files open in `markdown-mode`.
```lisp ```emacs-lisp
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
``` ```
@ -459,13 +459,13 @@ This makes `.md`-files open in `markdown-mode`.
Change the color-theme to `monokai` (downloaded using `package`). Change the color-theme to `monokai` (downloaded using `package`).
```lisp ```emacs-lisp
(load-theme 'monokai t) (load-theme 'monokai t)
``` ```
Use the [Inconsolata](http://www.levien.com/type/myfonts/inconsolata.html) font if it's installed on the system. Use the [Inconsolata](http://www.levien.com/type/myfonts/inconsolata.html) font if it's installed on the system.
```lisp ```emacs-lisp
(when (member "Inconsolata-g" (font-family-list)) (when (member "Inconsolata-g" (font-family-list))
(set-face-attribute 'default nil :font "Inconsolata-g-11")) (set-face-attribute 'default nil :font "Inconsolata-g-11"))
``` ```
@ -478,7 +478,7 @@ names you can write a part of it and select one from a list of
possibilities. Using `ido-vertical-mode` changes the way possibilities possibilities. Using `ido-vertical-mode` changes the way possibilities
are displayed, and `flx-ido-mode` enables fuzzy matching. are displayed, and `flx-ido-mode` enables fuzzy matching.
```lisp ```emacs-lisp
(dolist (mode (dolist (mode
'(ido-mode ; Interactivly do. '(ido-mode ; Interactivly do.
ido-everywhere ; Use Ido for all buffer/file reading. ido-everywhere ; Use Ido for all buffer/file reading.
@ -490,7 +490,7 @@ are displayed, and `flx-ido-mode` enables fuzzy matching.
We can set the order of file selections in `ido`. I prioritize source We can set the order of file selections in `ido`. I prioritize source
files along with `org`- and `tex`-files. files along with `org`- and `tex`-files.
```lisp ```emacs-lisp
(setq ido-file-extensions-order (setq ido-file-extensions-order
'(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex")) '(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex"))
``` ```
@ -499,7 +499,7 @@ 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 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). there is really no need for it in the buffer list).
```lisp ```emacs-lisp
(add-to-list 'ido-ignore-buffers "*Messages*") (add-to-list 'ido-ignore-buffers "*Messages*")
``` ```
@ -507,7 +507,7 @@ 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 package. It needs to be initialized, and we can replace the binding to
the standard `execute-extended-command` with `smex`. the standard `execute-extended-command` with `smex`.
```lisp ```emacs-lisp
(smex-initialize) (smex-initialize)
``` ```
@ -516,7 +516,7 @@ the standard `execute-extended-command` with `smex`.
Define a function to display week numbers in `calender-mode`. The snippet Define a function to display week numbers in `calender-mode`. The snippet
is from [EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers). is from [EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers).
```lisp ```emacs-lisp
(defun calendar-show-week (arg) (defun calendar-show-week (arg)
"Displaying week number in calendar-mode." "Displaying week number in calendar-mode."
(interactive "P") (interactive "P")
@ -536,13 +536,13 @@ is from [EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers).
Evaluate the `calendar-show-week` function. Evaluate the `calendar-show-week` function.
```lisp ```emacs-lisp
(calendar-show-week t) (calendar-show-week t)
``` ```
Set Monday as the first day of the week, and set my location. Set Monday as the first day of the week, and set my location.
```lisp ```emacs-lisp
(setq calendar-week-start-day 1 (setq calendar-week-start-day 1
calendar-latitude 60.0 calendar-latitude 60.0
calendar-longitude 10.7 calendar-longitude 10.7
@ -556,7 +556,7 @@ computers. Because the mail-setup wont work without these programs
installed we bind `load-mail-setup` to `nil`. If the value is changed to installed we bind `load-mail-setup` to `nil`. If the value is changed to
a `non-nil` value mail is setup. a `non-nil` value mail is setup.
```lisp ```emacs-lisp
(defvar load-mail-setup nil) (defvar load-mail-setup nil)
(when load-mail-setup (when load-mail-setup
@ -600,7 +600,7 @@ a `non-nil` value mail is setup.
Flyspell offers on-the-fly spell checking. We can enable flyspell for all Flyspell offers on-the-fly spell checking. We can enable flyspell for all
text-modes with this snippet. text-modes with this snippet.
```lisp ```emacs-lisp
(add-hook 'text-mode-hook 'turn-on-flyspell) (add-hook 'text-mode-hook 'turn-on-flyspell)
``` ```
@ -609,7 +609,7 @@ enables spell checking for comments and strings. We can enable it for all
programming modes using the `prog-mode-hook`. Flyspell interferes with programming modes using the `prog-mode-hook`. Flyspell interferes with
auto-complete mode, but there is a workaround provided by auto complete. auto-complete mode, but there is a workaround provided by auto complete.
```lisp ```emacs-lisp
(add-hook 'prog-mode-hook 'flyspell-prog-mode) (add-hook 'prog-mode-hook 'flyspell-prog-mode)
(eval-after-load 'auto-complete (eval-after-load 'auto-complete
'(ac-flyspell-workaround)) '(ac-flyspell-workaround))
@ -621,7 +621,7 @@ cycle of languages, so that cycling in one buffer does not change the
state in a different buffer (this problem occurs if you only have one state in a different buffer (this problem occurs if you only have one
global cycle). We can implement this by using a [closure](http://www.gnu.org/software/emacs/manual/html_node/elisp/Closures.html). global cycle). We can implement this by using a [closure](http://www.gnu.org/software/emacs/manual/html_node/elisp/Closures.html).
```lisp ```emacs-lisp
(defun cycle-languages () (defun cycle-languages ()
"Changes the ispell dictionary to the first element in "Changes the ispell dictionary to the first element in
ISPELL-LANGUAGES, and returns an interactive function that cycles ISPELL-LANGUAGES, and returns an interactive function that cycles
@ -641,14 +641,14 @@ only try to enable `flyspell` if a spell-checking tool is available. Also
we want to enable cycling the languages by typing `C-c l`, so we bind the we want to enable cycling the languages by typing `C-c l`, so we bind the
function returned from `cycle-languages`. function returned from `cycle-languages`.
```lisp ```emacs-lisp
(defadvice turn-on-flyspell (before check nil activate) (defadvice turn-on-flyspell (before check nil activate)
"Turns on flyspell only if a spell-checking tool is installed." "Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name) (when (executable-find ispell-program-name)
(local-set-key (kbd "C-c l") (cycle-languages)))) (local-set-key (kbd "C-c l") (cycle-languages))))
``` ```
```lisp ```emacs-lisp
(defadvice flyspell-prog-mode (before check nil activate) (defadvice flyspell-prog-mode (before check nil activate)
"Turns on flyspell only if a spell-checking tool is installed." "Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name) (when (executable-find ispell-program-name)
@ -659,7 +659,7 @@ function returned from `cycle-languages`.
I use `org-agenda` for appointments and such. I use `org-agenda` for appointments and such.
```lisp ```emacs-lisp
(setq org-agenda-start-on-weekday nil ; Show agenda from today. (setq org-agenda-start-on-weekday nil ; Show agenda from today.
org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files. org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files.
org-agenda-default-appointment-duration 120) ; 2 hours appointments. org-agenda-default-appointment-duration 120) ; 2 hours appointments.
@ -668,7 +668,7 @@ I use `org-agenda` for appointments and such.
When editing org-files with source-blocks, we want the source blocks to When editing org-files with source-blocks, we want the source blocks to
be themed as they would in their native mode. be themed as they would in their native mode.
```lisp ```emacs-lisp
(setq org-src-fontify-natively t (setq org-src-fontify-natively t
org-confirm-babel-evaluate nil) org-confirm-babel-evaluate nil)
``` ```
@ -676,7 +676,7 @@ be themed as they would in their native mode.
This is quite an ugly fix for allowing code markup for expressions like This is quite an ugly fix for allowing code markup for expressions like
`"this string"`, because the quotation marks causes problems. `"this string"`, because the quotation marks causes problems.
```lisp ```emacs-lisp
(require 'org) (require 'org)
(setcar (nthcdr 2 org-emphasis-regexp-components) " \t\n,") (setcar (nthcdr 2 org-emphasis-regexp-components) " \t\n,")
(custom-set-variables `(org-emphasis-alist ',org-emphasis-alist)) (custom-set-variables `(org-emphasis-alist ',org-emphasis-alist))
@ -689,7 +689,7 @@ This is quite an ugly fix for allowing code markup for expressions like
To search recent files useing `ido-mode` we add this snippet from To search recent files useing `ido-mode` we add this snippet from
[EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers). [EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers).
```lisp ```emacs-lisp
(defun recentf-ido-find-file () (defun recentf-ido-find-file ()
"Find a recent file using Ido." "Find a recent file using Ido."
(interactive) (interactive)
@ -705,7 +705,7 @@ function around it to be able to bind it to a key. In Emacs 24.4
when run in succession it cycles between one, zero and the original when run in succession it cycles between one, zero and the original
number of spaces. number of spaces.
```lisp ```emacs-lisp
(defun cycle-spacing-delete-newlines () (defun cycle-spacing-delete-newlines ()
"Removes whitespace before and after the point." "Removes whitespace before and after the point."
(interactive) (interactive)
@ -721,7 +721,7 @@ I don't want to be bothered with the `isearch` interface. Rather jump
quickly between occurrences of a symbol, or if non is found, don't do quickly between occurrences of a symbol, or if non is found, don't do
anything. anything.
```lisp ```emacs-lisp
(defun jump-to-symbol-internal (&optional backwardp) (defun jump-to-symbol-internal (&optional backwardp)
"Jumps to the next symbol near the point if such a symbol "Jumps to the next symbol near the point if such a symbol
exists. If BACKWARDP is non-nil it jumps backward." exists. If BACKWARDP is non-nil it jumps backward."
@ -755,7 +755,7 @@ clean it up. The function below does just this for the
buffer. It removes all buffer content and buries the buffer (this means buffer. It removes all buffer content and buries the buffer (this means
making it the least likely candidate for `other-buffer`). making it the least likely candidate for `other-buffer`).
```lisp ```emacs-lisp
(defun kill-this-buffer-unless-scratch () (defun kill-this-buffer-unless-scratch ()
"Works like `kill-this-buffer' unless the current buffer is the "Works like `kill-this-buffer' unless the current buffer is the
*scratch* buffer. In witch case the buffer content is deleted and *scratch* buffer. In witch case the buffer content is deleted and
@ -771,7 +771,7 @@ the buffer is buried."
To duplicate either selected text or a line we define this interactive To duplicate either selected text or a line we define this interactive
function. function.
```lisp ```emacs-lisp
(defun duplicate-thing () (defun duplicate-thing ()
"Duplicates the current line, or the region if active." "Duplicates the current line, or the region if active."
(interactive) (interactive)
@ -786,7 +786,7 @@ function.
To tidy up a buffer we define this function borrowed from [simenheg](https://github.com/simenheg). To tidy up a buffer we define this function borrowed from [simenheg](https://github.com/simenheg).
```lisp ```emacs-lisp
(defun tidy () (defun tidy ()
"Ident, untabify and unwhitespacify current buffer, or region if active." "Ident, untabify and unwhitespacify current buffer, or region if active."
(interactive) (interactive)
@ -800,7 +800,7 @@ To tidy up a buffer we define this function borrowed from [simenheg](https://git
If you have a link to a raw `.el`-file, run `M-x try` and yank an URL If you have a link to a raw `.el`-file, run `M-x try` and yank an URL
into the minibuffer, and the file will be evaluated. into the minibuffer, and the file will be evaluated.
```lisp ```emacs-lisp
(defun try (url) (defun try (url)
"Takes an URL to a .el-file, and evaluates it." "Takes an URL to a .el-file, and evaluates it."
(interactive (list (read-from-minibuffer "url: "))) (interactive (list (read-from-minibuffer "url: ")))
@ -814,7 +814,7 @@ 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 advice makes `eval-last-sexp` (bound to `C-x C-e`) replace the sexp with
the value. the value.
```lisp ```emacs-lisp
(defadvice eval-last-sexp (around replace-sexp (arg) activate) (defadvice eval-last-sexp (around replace-sexp (arg) activate)
"Replace sexp when called with a prefix argument." "Replace sexp when called with a prefix argument."
(if arg (if arg
@ -831,7 +831,7 @@ current custom theme is not disabled. This often gives weird-looking
results; we can advice `load-theme` to always disable themes currently results; we can advice `load-theme` to always disable themes currently
enabled themes. enabled themes.
```lisp ```emacs-lisp
(defadvice load-theme (defadvice load-theme
(before disable-before-load (theme &optional no-confirm no-enable) activate) (before disable-before-load (theme &optional no-confirm no-enable) activate)
(mapc 'disable-theme custom-enabled-themes)) (mapc 'disable-theme custom-enabled-themes))
@ -843,7 +843,7 @@ When giving talks it's nice to be able to scale the text
globally. `text-scale-mode` works great for a single buffer, this advice globally. `text-scale-mode` works great for a single buffer, this advice
makes this work globally. makes this work globally.
```lisp ```emacs-lisp
(defadvice text-scale-mode (around all-buffers (arg) activate) (defadvice text-scale-mode (around all-buffers (arg) activate)
(if (not global-text-scale-mode) (if (not global-text-scale-mode)
ad-do-it ad-do-it
@ -856,7 +856,7 @@ makes this work globally.
We don't want this to be default behavior, so we can make a global mode We don't want this to be default behavior, so we can make a global mode
from the `text-scale-mode`, using `define-globalized-minor-mode`. from the `text-scale-mode`, using `define-globalized-minor-mode`.
```lisp ```emacs-lisp
(require 'face-remap) (require 'face-remap)
(define-globalized-minor-mode (define-globalized-minor-mode
@ -875,7 +875,7 @@ keep a symlink between my `~/.bash_profile` (because I run OS X) and
the shell as small as possible. To be able to quickly switch back and the shell as small as possible. To be able to quickly switch back and
forth between a shell I make use of this little function. forth between a shell I make use of this little function.
```lisp ```emacs-lisp
(defun toggle-shell () (defun toggle-shell ()
"Jumps to eshell or back." "Jumps to eshell or back."
(interactive) (interactive)
@ -891,7 +891,7 @@ bunch of newlines, and puts the prompt at the top of the window, so it
does not remove anything. In Emacs removing stuff is less of a worry, does not remove anything. In Emacs removing stuff is less of a worry,
since we can always undo! since we can always undo!
```lisp ```emacs-lisp
(defun clear-shell () (defun clear-shell ()
"Runs `comint-truncate-buffer' with the "Runs `comint-truncate-buffer' with the
`comint-buffer-maximum-size' set to zero." `comint-buffer-maximum-size' set to zero."
@ -904,7 +904,7 @@ Lastly we should bind our functions. The `toggle-shell` should be a
global binding (because we want to be able to switch to a shell from any global binding (because we want to be able to switch to a shell from any
buffer), but the `clear-shell` should only affect `shell-mode`. buffer), but the `clear-shell` should only affect `shell-mode`.
```lisp ```emacs-lisp
(add-hook 'shell-mode-hook (lambda () (local-set-key (kbd "C-l") 'clear-shell))) (add-hook 'shell-mode-hook (lambda () (local-set-key (kbd "C-l") 'clear-shell)))
``` ```
@ -915,7 +915,7 @@ buffer), but the `clear-shell` should only affect `shell-mode`.
can add some extra lisp-modes. We run the `pretty-lambda-for-modes` can add some extra lisp-modes. We run the `pretty-lambda-for-modes`
function to activate `pretty-lambda-mode` in lisp modes. function to activate `pretty-lambda-mode` in lisp modes.
```lisp ```emacs-lisp
(dolist (mode '(slime-repl-mode geiser-repl-mode ielm-mode clojure-mode (dolist (mode '(slime-repl-mode geiser-repl-mode ielm-mode clojure-mode
cider-repl-mode)) cider-repl-mode))
(add-to-list 'pretty-lambda-auto-modes mode)) (add-to-list 'pretty-lambda-auto-modes mode))
@ -926,7 +926,7 @@ function to activate `pretty-lambda-mode` in lisp modes.
I use `Paredit` when editing lisp code, we enable this for all lisp-modes I use `Paredit` when editing lisp code, we enable this for all lisp-modes
in the `pretty-lambda-auto-modes` list. in the `pretty-lambda-auto-modes` list.
```lisp ```emacs-lisp
(dolist (mode pretty-lambda-auto-modes) (dolist (mode pretty-lambda-auto-modes)
;; add paredit-mode to all mode-hooks ;; add paredit-mode to all mode-hooks
(add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode)) (add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode))
@ -937,7 +937,7 @@ in the `pretty-lambda-auto-modes` list.
In `emacs-lisp-mode` we can enable `eldoc-mode` to display information In `emacs-lisp-mode` we can enable `eldoc-mode` to display information
about a function or a variable in the echo area. about a function or a variable in the echo area.
```lisp ```emacs-lisp
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode) (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode) (add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
``` ```
@ -950,21 +950,21 @@ Common Lisp developer. [Quicklisp](http://www.quicklisp.org/beta/) is a library
and you can install Slime following the instructions from the site along and you can install Slime following the instructions from the site along
with this snippet. with this snippet.
```lisp ```emacs-lisp
(when (file-exists-p "~/.quicklisp/slime-helper.el") (when (file-exists-p "~/.quicklisp/slime-helper.el")
(load (expand-file-name "~/.quicklisp/slime-helper.el"))) (load (expand-file-name "~/.quicklisp/slime-helper.el")))
``` ```
We can specify what Common Lisp program Slime should use (I use SBCL). We can specify what Common Lisp program Slime should use (I use SBCL).
```lisp ```emacs-lisp
(setq inferior-lisp-program "sbcl") (setq inferior-lisp-program "sbcl")
``` ```
To improve auto completion for Common Lisp editing we can use `ac-slime` To improve auto completion for Common Lisp editing we can use `ac-slime`
which uses slime completions as a source. which uses slime completions as a source.
```lisp ```emacs-lisp
(add-hook 'slime-mode-hook 'set-up-slime-ac) (add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac) (add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
@ -974,19 +974,23 @@ which uses slime completions as a source.
More sensible `loop` indentation, borrowed from [simenheg](https://github.com/simenheg). More sensible `loop` indentation, borrowed from [simenheg](https://github.com/simenheg).
```lisp ```emacs-lisp
(setq lisp-loop-forms-indentation 2 (setq lisp-loop-forms-indentation 6
lisp-simple-loop-indentation 2 lisp-simple-loop-indentation 2
lisp-loop-keyword-indentation 6) lisp-loop-keyword-indentation 6)
``` ```
```emacs-lisp
(define-key slime-repl-mode-map (kbd "C-l") 'slime-repl-clear-buffer)
```
### Scheme<a id="sec-3-2-3" name="sec-3-2-3"></a> ### Scheme<a id="sec-3-2-3" name="sec-3-2-3"></a>
[Geiser](http://www.nongnu.org/geiser/) provides features similar to Slime for Scheme editing. Everything [Geiser](http://www.nongnu.org/geiser/) provides features similar to Slime for Scheme editing. Everything
works pretty much out of the box, we only need to add auto completion, works pretty much out of the box, we only need to add auto completion,
and specify which scheme-interpreter we prefer. and specify which scheme-interpreter we prefer.
```lisp ```emacs-lisp
(add-hook 'geiser-mode-hook 'ac-geiser-setup) (add-hook 'geiser-mode-hook 'ac-geiser-setup)
(add-hook 'geiser-repl-mode-hook 'ac-geiser-setup) (add-hook 'geiser-repl-mode-hook 'ac-geiser-setup)
(eval-after-load "auto-complete" (eval-after-load "auto-complete"
@ -1001,7 +1005,7 @@ The `c-mode-common-hook` is a general hook that work on all C-like
languages (C, C++, Java, etc&#x2026;). I like being able to quickly compile languages (C, C++, Java, etc&#x2026;). I like being able to quickly compile
using `C-c C-c` (instead of `M-x compile`), a habit from `latex-mode`. using `C-c C-c` (instead of `M-x compile`), a habit from `latex-mode`.
```lisp ```emacs-lisp
(defun c-setup () (defun c-setup ()
(local-set-key (kbd "C-c C-c") 'compile)) (local-set-key (kbd "C-c C-c") 'compile))
@ -1011,7 +1015,7 @@ using `C-c C-c` (instead of `M-x compile`), a habit from `latex-mode`.
Some statements in Java appear often, and become tedious to write Some statements in Java appear often, and become tedious to write
out. We can use abbrevs to speed this up. out. We can use abbrevs to speed this up.
```lisp ```emacs-lisp
(define-abbrev-table 'java-mode-abbrev-table (define-abbrev-table 'java-mode-abbrev-table
'(("psv" "public static void main(String[] args) {" nil 0) '(("psv" "public static void main(String[] args) {" nil 0)
("sopl" "System.out.println" nil 0) ("sopl" "System.out.println" nil 0)
@ -1021,7 +1025,7 @@ out. We can use abbrevs to speed this up.
To be able to use the abbrev table defined above, `abbrev-mode` must be To be able to use the abbrev table defined above, `abbrev-mode` must be
activated. activated.
```lisp ```emacs-lisp
(defun java-setup () (defun java-setup ()
(abbrev-mode t) (abbrev-mode t)
(setq-local compile-command (concat "javac " (buffer-name)))) (setq-local compile-command (concat "javac " (buffer-name))))
@ -1035,7 +1039,7 @@ When writing assembler code I use `#` for comments. By defining
`comment-start` we can add comments using `M-;` like in other programming `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`. modes. Also in assembler should one be able to compile using `C-c C-c`.
```lisp ```emacs-lisp
(defun asm-setup () (defun asm-setup ()
(setq comment-start "#") (setq comment-start "#")
(local-set-key (kbd "C-c C-c") 'compile)) (local-set-key (kbd "C-c C-c") 'compile))
@ -1048,14 +1052,14 @@ modes. Also in assembler should one be able to compile using `C-c C-c`.
`.tex`-files should be associated with `latex-mode` instead of `.tex`-files should be associated with `latex-mode` instead of
`tex-mode`. `tex-mode`.
```lisp ```emacs-lisp
(add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode)) (add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode))
``` ```
I like using the [Minted](https://code.google.com/p/minted/) package for source blocks in LaTeX. To make org I like using the [Minted](https://code.google.com/p/minted/) package for source blocks in LaTeX. To make org
use this we add the following snippet. use this we add the following snippet.
```lisp ```emacs-lisp
(eval-after-load 'org (eval-after-load 'org
'(add-to-list 'org-latex-packages-alist '("" "minted"))) '(add-to-list 'org-latex-packages-alist '("" "minted")))
(setq org-latex-listings 'minted) (setq org-latex-listings 'minted)
@ -1067,7 +1071,7 @@ Because [Minted](https://code.google.com/p/minted/) uses [Pygments](http://pygme
Tex- and LaTeX-mode, we can add the flag with a rather dirty statement Tex- and LaTeX-mode, we can add the flag with a rather dirty statement
(if anyone finds a nicer way to do this, please let me know). (if anyone finds a nicer way to do this, please let me know).
```lisp ```emacs-lisp
(eval-after-load 'ox-latex (eval-after-load 'ox-latex
'(setq org-latex-pdf-process '(setq org-latex-pdf-process
(mapcar (mapcar
@ -1086,7 +1090,7 @@ I sometimes use a specialized markdown format, where inline math-blocks
can be achieved by surrounding a LaTeX formula with `$math$` and can be achieved by surrounding a LaTeX formula with `$math$` and
`$/math$`. Writing these out became tedious, so I wrote a small function. `$/math$`. Writing these out became tedious, so I wrote a small function.
```lisp ```emacs-lisp
(defun insert-markdown-inline-math-block () (defun insert-markdown-inline-math-block ()
"Inserts an empty math-block if no region is active, otherwise wrap a "Inserts an empty math-block if no region is active, otherwise wrap a
math-block around the region." math-block around the region."
@ -1105,7 +1109,7 @@ set accordingly. The markup is also sensitive to line breaks, so
`auto-fill-mode` is disabled. Of course we want to bind our lovely `auto-fill-mode` is disabled. Of course we want to bind our lovely
function to a key! function to a key!
```lisp ```emacs-lisp
(add-hook 'markdown-mode-hook (add-hook 'markdown-mode-hook
(lambda () (lambda ()
(auto-fill-mode 0) (auto-fill-mode 0)
@ -1121,7 +1125,7 @@ function to a key!
the echo area. Haskell has several indentation modes - I prefer using the echo area. Haskell has several indentation modes - I prefer using
`haskell-indent`. `haskell-indent`.
```lisp ```emacs-lisp
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
``` ```
@ -1131,7 +1135,7 @@ the echo area. Haskell has several indentation modes - I prefer using
`Matlab-mode` works pretty good out of the box, but we can do without the `Matlab-mode` works pretty good out of the box, but we can do without the
splash screen. splash screen.
```lisp ```emacs-lisp
(eval-after-load 'matlab (eval-after-load 'matlab
'(add-to-list 'matlab-shell-command-switches "-nosplash")) '(add-to-list 'matlab-shell-command-switches "-nosplash"))
``` ```
@ -1145,21 +1149,21 @@ inhibits other `major-modes` to override these bindings. I keep this at
the end of the init-file to make sure that all functions are actually the end of the init-file to make sure that all functions are actually
defined. defined.
```lisp ```emacs-lisp
(defvar custom-bindings-map (make-keymap) (defvar custom-bindings-map (make-keymap)
"A keymap for custom bindings.") "A keymap for custom bindings.")
``` ```
Bindings for [expand-region](https://github.com/magnars/expand-region.el). Bindings for [expand-region](https://github.com/magnars/expand-region.el).
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "C-'") 'er/expand-region) (define-key custom-bindings-map (kbd "C-'") 'er/expand-region)
(define-key custom-bindings-map (kbd "C-;") 'er/contract-region) (define-key custom-bindings-map (kbd "C-;") 'er/contract-region)
``` ```
Bindings for [multiple-cursors](https://github.com/magnars/multiple-cursors.el). Bindings for [multiple-cursors](https://github.com/magnars/multiple-cursors.el).
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "C-c e") 'mc/edit-lines) (define-key custom-bindings-map (kbd "C-c e") 'mc/edit-lines)
(define-key custom-bindings-map (kbd "C-c a") 'mc/mark-all-like-this) (define-key custom-bindings-map (kbd "C-c a") 'mc/mark-all-like-this)
(define-key custom-bindings-map (kbd "C-c n") 'mc/mark-next-like-this) (define-key custom-bindings-map (kbd "C-c n") 'mc/mark-next-like-this)
@ -1167,38 +1171,38 @@ Bindings for [multiple-cursors](https://github.com/magnars/multiple-cursors.el).
Bindings for [Magit](http://magit.github.io). Bindings for [Magit](http://magit.github.io).
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "C-c m") 'magit-status) (define-key custom-bindings-map (kbd "C-c m") 'magit-status)
``` ```
Bindings for [ace-jump-mode](https://github.com/winterTTr/ace-jump-mode). Bindings for [ace-jump-mode](https://github.com/winterTTr/ace-jump-mode).
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "C-c SPC") 'ace-jump-mode) (define-key custom-bindings-map (kbd "C-c SPC") 'ace-jump-mode)
``` ```
Bindings for [Helm](http://emacs-helm.github.io/helm/). Bindings for [Helm](http://emacs-helm.github.io/helm/).
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "C-c h g") 'helm-google-suggest) (define-key custom-bindings-map (kbd "C-c h g") 'helm-google-suggest)
``` ```
Bindings for [smex](https://github.com/nonsequitur/smex). This overrides the standard `M-x`. Bindings for [smex](https://github.com/nonsequitur/smex). This overrides the standard `M-x`.
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "M-x") 'smex) (define-key custom-bindings-map (kbd "M-x") 'smex)
``` ```
Bindings for `move-text`. Bindings for `move-text`.
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "<M-S-up>") 'move-text-up) (define-key custom-bindings-map (kbd "<M-S-up>") 'move-text-up)
(define-key custom-bindings-map (kbd "<M-S-down>") 'move-text-down) (define-key custom-bindings-map (kbd "<M-S-down>") 'move-text-down)
``` ```
Bind some native Emacs functions. Bind some native Emacs functions.
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "C-j") 'newline-and-indent) (define-key custom-bindings-map (kbd "C-j") 'newline-and-indent)
(define-key custom-bindings-map (kbd "C-c s") 'ispell-word) (define-key custom-bindings-map (kbd "C-c s") 'ispell-word)
(define-key custom-bindings-map (kbd "C-c t") 'org-agenda-list) (define-key custom-bindings-map (kbd "C-c t") 'org-agenda-list)
@ -1207,7 +1211,7 @@ Bind some native Emacs functions.
Bind the functions defined above. Bind the functions defined above.
```lisp ```emacs-lisp
(define-key custom-bindings-map (kbd "M-,") 'jump-to-previous-like-this) (define-key custom-bindings-map (kbd "M-,") 'jump-to-previous-like-this)
(define-key custom-bindings-map (kbd "M-.") 'jump-to-next-like-this) (define-key custom-bindings-map (kbd "M-.") 'jump-to-next-like-this)
(define-key custom-bindings-map (kbd "C-x k") 'kill-this-buffer-unless-scratch) (define-key custom-bindings-map (kbd "C-x k") 'kill-this-buffer-unless-scratch)
@ -1220,7 +1224,7 @@ Bind the functions defined above.
Lastly we need to activate the map by creating and activating the Lastly we need to activate the map by creating and activating the
`minor-mode`. `minor-mode`.
```lisp ```emacs-lisp
(define-minor-mode custom-bindings-mode (define-minor-mode custom-bindings-mode
"A mode that activates custom-bindings." "A mode that activates custom-bindings."
t nil custom-bindings-map) t nil custom-bindings-map)

4
init.el
View File

@ -774,10 +774,12 @@ the buffer is buried."
;; More sensible =loop= indentation, borrowed from [[https://github.com/simenheg][simenheg]]. ;; More sensible =loop= indentation, borrowed from [[https://github.com/simenheg][simenheg]].
(setq lisp-loop-forms-indentation 2 (setq lisp-loop-forms-indentation 6
lisp-simple-loop-indentation 2 lisp-simple-loop-indentation 2
lisp-loop-keyword-indentation 6) lisp-loop-keyword-indentation 6)
(define-key slime-repl-mode-map (kbd "C-l") 'slime-repl-clear-buffer)
;; Scheme ;; Scheme
;; [[http://www.nongnu.org/geiser/][Geiser]] provides features similar to Slime for Scheme editing. Everything ;; [[http://www.nongnu.org/geiser/][Geiser]] provides features similar to Slime for Scheme editing. Everything

336
init.org
View File

@ -96,15 +96,15 @@
of a package is installed. of a package is installed.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun newest-package-installed-p (package) (defun newest-package-installed-p (package)
"Return true if the newest available PACKAGE is installed." "Return true if the newest available PACKAGE is installed."
(when (package-installed-p package) (when (package-installed-p package)
(let* ((local-pkg-desc (or (assq package package-alist) (let* ((local-pkg-desc (or (assq package package-alist)
(assq package package--builtins))) (assq package package--builtins)))
(newest-pkg-desc (assq package package-archive-contents))) (newest-pkg-desc (assq package package-archive-contents)))
(and local-pkg-desc newest-pkg-desc (and local-pkg-desc newest-pkg-desc
(version-list-= (package-desc-vers (cdr local-pkg-desc)) (version-list-= (package-desc-vers (cdr local-pkg-desc))
(package-desc-vers (cdr newest-pkg-desc))))))) (package-desc-vers (cdr newest-pkg-desc)))))))
#+END_SRC #+END_SRC
Let's write a function to install a package if it is not installed or Let's write a function to install a package if it is not installed or
@ -131,11 +131,11 @@
Also, we will need a function to find all dependencies from a given package. Also, we will need a function to find all dependencies from a given package.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun dependencies (package) (defun dependencies (package)
"Returns a list of dependencies from a given PACKAGE." "Returns a list of dependencies from a given PACKAGE."
(let* ((pkg-desc (assq package package-alist)) (let* ((pkg-desc (assq package package-alist))
(reqs (and pkg-desc (package-desc-reqs (cdr pkg-desc))))) (reqs (and pkg-desc (package-desc-reqs (cdr pkg-desc)))))
(mapcar 'car reqs))) (mapcar 'car reqs)))
#+END_SRC #+END_SRC
The =package-refresh-contents= function downloads archive descriptions, The =package-refresh-contents= function downloads archive descriptions,
@ -147,10 +147,10 @@
when packages were updated last. when packages were updated last.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar days-between-updates 7) (defvar days-between-updates 7)
(defvar do-package-update-on-init t) (defvar do-package-update-on-init t)
(defvar package-last-update-file (defvar package-last-update-file
(expand-file-name (concat user-emacs-directory ".package-last-update"))) (expand-file-name (concat user-emacs-directory ".package-last-update")))
#+END_SRC #+END_SRC
The tricky part is figuring out when packages were last updated. Here is The tricky part is figuring out when packages were last updated. Here is
@ -159,29 +159,29 @@
must run the =time-stamp=-function to update the time-stamp. must run the =time-stamp=-function to update the time-stamp.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(require 'time-stamp) (require 'time-stamp)
;; Open the package-last-update-file ;; Open the package-last-update-file
(with-temp-file package-last-update-file (with-temp-file package-last-update-file
(if (file-exists-p package-last-update-file) (if (file-exists-p package-last-update-file)
(progn (progn
;; Insert it's original content's. ;; Insert it's original content's.
(insert-file-contents package-last-update-file) (insert-file-contents package-last-update-file)
(let ((start (re-search-forward time-stamp-start nil t)) (let ((start (re-search-forward time-stamp-start nil t))
(end (re-search-forward time-stamp-end nil t))) (end (re-search-forward time-stamp-end nil t)))
(when (and start end) (when (and start end)
;; Assuming we have found a time-stamp, we check determine if it's ;; Assuming we have found a time-stamp, we check determine if it's
;; time to update. ;; time to update.
(setq do-package-update-on-init (setq do-package-update-on-init
(<= days-between-updates (<= days-between-updates
(days-between (days-between
(current-time-string) (current-time-string)
(buffer-substring-no-properties start end)))) (buffer-substring-no-properties start end))))
;; Remember to update the time-stamp. ;; Remember to update the time-stamp.
(when do-package-update-on-init (when do-package-update-on-init
(time-stamp))))) (time-stamp)))))
;; If no such file exists it is created with a time-stamp. ;; If no such file exists it is created with a time-stamp.
(insert "Time-stamp: <>") (insert "Time-stamp: <>")
(time-stamp))) (time-stamp)))
#+END_SRC #+END_SRC
Now we can use the function above to make sure packages are installed and Now we can use the function above to make sure packages are installed and
@ -317,10 +317,10 @@
buffer-local variable's default value. buffer-local variable's default value.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq-default fill-column 76 ; Maximum line width. (setq-default fill-column 76 ; Maximum line width.
indent-tabs-mode nil ; Use spaces instead of tabs. indent-tabs-mode nil ; Use spaces instead of tabs.
split-width-threshold 100 ; Split verticly by default. split-width-threshold 100 ; Split verticly by default.
auto-fill-function 'do-auto-fill) ; Auto-fill-mode everywhere. auto-fill-function 'do-auto-fill) ; Auto-fill-mode everywhere.
#+END_SRC #+END_SRC
The =load-path= specifies where Emacs should look for =.el=-files (or The =load-path= specifies where Emacs should look for =.el=-files (or
@ -339,30 +339,30 @@
single /y/ or /n/ will suffice. single /y/ or /n/ will suffice.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(fset 'yes-or-no-p 'y-or-n-p) (fset 'yes-or-no-p 'y-or-n-p)
#+END_SRC #+END_SRC
To avoid file system clutter we put all auto saved files in a single To avoid file system clutter we put all auto saved files in a single
directory. directory.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar emacs-autosave-directory (defvar emacs-autosave-directory
(concat user-emacs-directory "autosaves/") (concat user-emacs-directory "autosaves/")
"This variable dictates where to put auto saves. It is set to a "This variable dictates where to put auto saves. It is set to a
directory called autosaves located wherever your .emacs.d/ is directory called autosaves located wherever your .emacs.d/ is
located.") located.")
;; Sets all files to be backed up and auto saved in a single directory. ;; Sets all files to be backed up and auto saved in a single directory.
(setq backup-directory-alist (setq backup-directory-alist
`((".*" . ,emacs-autosave-directory)) `((".*" . ,emacs-autosave-directory))
auto-save-file-name-transforms auto-save-file-name-transforms
`((".*" ,emacs-autosave-directory t))) `((".*" ,emacs-autosave-directory t)))
#+END_SRC #+END_SRC
Set =utf-8= as preferred coding system. Set =utf-8= as preferred coding system.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(set-language-environment "UTF-8") (set-language-environment "UTF-8")
#+END_SRC #+END_SRC
By default the =narrow-to-region= command is disabled and issues a By default the =narrow-to-region= command is disabled and issues a
@ -370,7 +370,7 @@
and don't want to be warned. and don't want to be warned.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(put 'narrow-to-region 'disabled nil) (put 'narrow-to-region 'disabled nil)
#+END_SRC #+END_SRC
Call =auto-complete= default configuration, which enables =auto-complete= Call =auto-complete= default configuration, which enables =auto-complete=
@ -383,7 +383,7 @@
Automaticly revert =doc-view=-buffers when the file changes on disk. Automaticly revert =doc-view=-buffers when the file changes on disk.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-hook 'doc-view-mode-hook 'auto-revert-mode) (add-hook 'doc-view-mode-hook 'auto-revert-mode)
#+END_SRC #+END_SRC
** Modes ** Modes
@ -393,11 +393,11 @@
these. these.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(dolist (mode (dolist (mode
'(tool-bar-mode ; No toolbars, more room for text. '(tool-bar-mode ; No toolbars, more room for text.
scroll-bar-mode ; No scroll bars either. scroll-bar-mode ; No scroll bars either.
blink-cursor-mode)) ; The blinking cursor gets old. blink-cursor-mode)) ; The blinking cursor gets old.
(funcall mode 0)) (funcall mode 0))
#+END_SRC #+END_SRC
Let's apply the same technique for enabling modes that are disabled by Let's apply the same technique for enabling modes that are disabled by
@ -484,20 +484,20 @@
are displayed, and =flx-ido-mode= enables fuzzy matching. are displayed, and =flx-ido-mode= enables fuzzy matching.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(dolist (mode (dolist (mode
'(ido-mode ; Interactivly do. '(ido-mode ; Interactivly do.
ido-everywhere ; Use Ido for all buffer/file reading. ido-everywhere ; Use Ido for all buffer/file reading.
ido-vertical-mode ; Makes ido-mode display vertically. ido-vertical-mode ; Makes ido-mode display vertically.
flx-ido-mode)) ; Toggle flx ido mode. flx-ido-mode)) ; Toggle flx ido mode.
(funcall mode 1)) (funcall mode 1))
#+END_SRC #+END_SRC
We can set the order of file selections in =ido=. I prioritize source We can set the order of file selections in =ido=. I prioritize source
files along with =org=- and =tex=-files. files along with =org=- and =tex=-files.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq ido-file-extensions-order (setq ido-file-extensions-order
'(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex")) '(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex"))
#+END_SRC #+END_SRC
Sometimes when using =ido-switch-buffer= the =*Messages*= buffer get in Sometimes when using =ido-switch-buffer= the =*Messages*= buffer get in
@ -505,7 +505,7 @@
there is really no need for it in the buffer list). there is really no need for it in the buffer list).
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-to-list 'ido-ignore-buffers "*Messages*") (add-to-list 'ido-ignore-buffers "*Messages*")
#+END_SRC #+END_SRC
To make =M-x= behave more like =ido-mode= we can use the =smex= To make =M-x= behave more like =ido-mode= we can use the =smex=
@ -522,36 +522,36 @@
is from [[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]]. is from [[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun calendar-show-week (arg) (defun calendar-show-week (arg)
"Displaying week number in calendar-mode." "Displaying week number in calendar-mode."
(interactive "P") (interactive "P")
(copy-face font-lock-constant-face 'calendar-iso-week-face) (copy-face font-lock-constant-face 'calendar-iso-week-face)
(set-face-attribute (set-face-attribute
'calendar-iso-week-face nil :height 0.7) 'calendar-iso-week-face nil :height 0.7)
(setq calendar-intermonth-text (setq calendar-intermonth-text
(and arg (and arg
'(propertize '(propertize
(format (format
"%2d" "%2d"
(car (calendar-iso-from-absolute (car (calendar-iso-from-absolute
(calendar-absolute-from-gregorian (calendar-absolute-from-gregorian
(list month day year))))) (list month day year)))))
'font-lock-face 'calendar-iso-week-face)))) 'font-lock-face 'calendar-iso-week-face))))
#+END_SRC #+END_SRC
Evaluate the =calendar-show-week= function. Evaluate the =calendar-show-week= function.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(calendar-show-week t) (calendar-show-week t)
#+END_SRC #+END_SRC
Set Monday as the first day of the week, and set my location. Set Monday as the first day of the week, and set my location.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq calendar-week-start-day 1 (setq calendar-week-start-day 1
calendar-latitude 60.0 calendar-latitude 60.0
calendar-longitude 10.7 calendar-longitude 10.7
calendar-location-name "Oslo, Norway") calendar-location-name "Oslo, Norway")
#+END_SRC #+END_SRC
** Mail ** Mail
@ -606,7 +606,7 @@
text-modes with this snippet. text-modes with this snippet.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-hook 'text-mode-hook 'turn-on-flyspell) (add-hook 'text-mode-hook 'turn-on-flyspell)
#+END_SRC #+END_SRC
To use flyspell for programming there is =flyspell-prog-mode=, that only To use flyspell for programming there is =flyspell-prog-mode=, that only
@ -665,9 +665,9 @@
I use =org-agenda= for appointments and such. I use =org-agenda= for appointments and such.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-agenda-start-on-weekday nil ; Show agenda from today. (setq org-agenda-start-on-weekday nil ; Show agenda from today.
org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files. org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files.
org-agenda-default-appointment-duration 120) ; 2 hours appointments. org-agenda-default-appointment-duration 120) ; 2 hours appointments.
#+END_SRC #+END_SRC
When editing org-files with source-blocks, we want the source blocks to When editing org-files with source-blocks, we want the source blocks to
@ -695,12 +695,12 @@
[[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]]. [[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun recentf-ido-find-file () (defun recentf-ido-find-file ()
"Find a recent file using Ido." "Find a recent file using Ido."
(interactive) (interactive)
(let ((f (ido-completing-read "Choose recent file: " recentf-list nil t))) (let ((f (ido-completing-read "Choose recent file: " recentf-list nil t)))
(when f (when f
(find-file f)))) (find-file f))))
#+END_SRC #+END_SRC
=just-one-space= removes all whitespace around a point - giving it a =just-one-space= removes all whitespace around a point - giving it a
@ -792,14 +792,14 @@
To tidy up a buffer we define this function borrowed from [[https://github.com/simenheg][simenheg]]. To tidy up a buffer we define this function borrowed from [[https://github.com/simenheg][simenheg]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun tidy () (defun tidy ()
"Ident, untabify and unwhitespacify current buffer, or region if active." "Ident, untabify and unwhitespacify current buffer, or region if active."
(interactive) (interactive)
(let ((beg (if (region-active-p) (region-beginning) (point-min))) (let ((beg (if (region-active-p) (region-beginning) (point-min)))
(end (if (region-active-p) (region-end) (point-max)))) (end (if (region-active-p) (region-end) (point-max))))
(indent-region beg end) (indent-region beg end)
(whitespace-cleanup) (whitespace-cleanup)
(untabify beg (if (< end (point-max)) end (point-max))))) (untabify beg (if (< end (point-max)) end (point-max)))))
#+END_SRC #+END_SRC
If you have a link to a raw =.el=-file, run =M-x try= and yank an URL If you have a link to a raw =.el=-file, run =M-x try= and yank an URL
@ -820,15 +820,15 @@
the value. the value.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defadvice eval-last-sexp (around replace-sexp (arg) activate) (defadvice eval-last-sexp (around replace-sexp (arg) activate)
"Replace sexp when called with a prefix argument." "Replace sexp when called with a prefix argument."
(if arg (if arg
(let ((pos (point))) (let ((pos (point)))
ad-do-it ad-do-it
(goto-char pos) (goto-char pos)
(backward-kill-sexp) (backward-kill-sexp)
(forward-sexp)) (forward-sexp))
ad-do-it)) ad-do-it))
#+END_SRC #+END_SRC
When interactively changing the theme (using =M-x load-theme=), the When interactively changing the theme (using =M-x load-theme=), the
@ -880,12 +880,12 @@
forth between a shell I make use of this little function. forth between a shell I make use of this little function.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun toggle-shell () (defun toggle-shell ()
"Jumps to eshell or back." "Jumps to eshell or back."
(interactive) (interactive)
(if (string= (buffer-name) "*shell*") (if (string= (buffer-name) "*shell*")
(switch-to-prev-buffer) (switch-to-prev-buffer)
(shell))) (shell)))
#+END_SRC #+END_SRC
I'd like the =C-l= to work more like the standard terminal (which works I'd like the =C-l= to work more like the standard terminal (which works
@ -931,9 +931,9 @@
in the =pretty-lambda-auto-modes= list. in the =pretty-lambda-auto-modes= list.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(dolist (mode pretty-lambda-auto-modes) (dolist (mode pretty-lambda-auto-modes)
;; add paredit-mode to all mode-hooks ;; add paredit-mode to all mode-hooks
(add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode)) (add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode))
#+END_SRC #+END_SRC
*** Emacs Lisp *** Emacs Lisp
@ -942,8 +942,8 @@
about a function or a variable in the echo area. about a function or a variable in the echo area.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode) (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode) (add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
#+END_SRC #+END_SRC
*** Common lisp *** Common lisp
@ -955,35 +955,39 @@
with this snippet. with this snippet.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(when (file-exists-p "~/.quicklisp/slime-helper.el") (when (file-exists-p "~/.quicklisp/slime-helper.el")
(load (expand-file-name "~/.quicklisp/slime-helper.el"))) (load (expand-file-name "~/.quicklisp/slime-helper.el")))
#+END_SRC #+END_SRC
We can specify what Common Lisp program Slime should use (I use SBCL). We can specify what Common Lisp program Slime should use (I use SBCL).
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq inferior-lisp-program "sbcl") (setq inferior-lisp-program "sbcl")
#+END_SRC #+END_SRC
To improve auto completion for Common Lisp editing we can use =ac-slime= To improve auto completion for Common Lisp editing we can use =ac-slime=
which uses slime completions as a source. which uses slime completions as a source.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-hook 'slime-mode-hook 'set-up-slime-ac) (add-hook 'slime-mode-hook 'set-up-slime-ac)
(add-hook 'slime-repl-mode-hook 'set-up-slime-ac) (add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
(eval-after-load "auto-complete" (eval-after-load "auto-complete"
'(add-to-list 'ac-modes 'slime-repl-mode)) '(add-to-list 'ac-modes 'slime-repl-mode))
#+END_SRC #+END_SRC
More sensible =loop= indentation, borrowed from [[https://github.com/simenheg][simenheg]]. More sensible =loop= indentation, borrowed from [[https://github.com/simenheg][simenheg]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq lisp-loop-forms-indentation 2 (setq lisp-loop-forms-indentation 6
lisp-simple-loop-indentation 2 lisp-simple-loop-indentation 2
lisp-loop-keyword-indentation 6) lisp-loop-keyword-indentation 6)
#+END_SRC #+END_SRC
#+BEGIN_SRC emacs-lisp
(define-key slime-repl-mode-map (kbd "C-l") 'slime-repl-clear-buffer)
#+END_SRC
*** Scheme *** Scheme
[[http://www.nongnu.org/geiser/][Geiser]] provides features similar to Slime for Scheme editing. Everything [[http://www.nongnu.org/geiser/][Geiser]] provides features similar to Slime for Scheme editing. Everything
@ -1006,31 +1010,31 @@
using =C-c C-c= (instead of =M-x compile=), a habit from =latex-mode=. using =C-c C-c= (instead of =M-x compile=), a habit from =latex-mode=.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun c-setup () (defun c-setup ()
(local-set-key (kbd "C-c C-c") 'compile)) (local-set-key (kbd "C-c C-c") 'compile))
(add-hook 'c-mode-common-hook 'c-setup) (add-hook 'c-mode-common-hook 'c-setup)
#+END_SRC #+END_SRC
Some statements in Java appear often, and become tedious to write Some statements in Java appear often, and become tedious to write
out. We can use abbrevs to speed this up. out. We can use abbrevs to speed this up.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-abbrev-table 'java-mode-abbrev-table (define-abbrev-table 'java-mode-abbrev-table
'(("psv" "public static void main(String[] args) {" nil 0) '(("psv" "public static void main(String[] args) {" nil 0)
("sopl" "System.out.println" nil 0) ("sopl" "System.out.println" nil 0)
("sop" "System.out.printf" nil 0))) ("sop" "System.out.printf" nil 0)))
#+END_SRC #+END_SRC
To be able to use the abbrev table defined above, =abbrev-mode= must be To be able to use the abbrev table defined above, =abbrev-mode= must be
activated. activated.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun java-setup () (defun java-setup ()
(abbrev-mode t) (abbrev-mode t)
(setq-local compile-command (concat "javac " (buffer-name)))) (setq-local compile-command (concat "javac " (buffer-name))))
(add-hook 'java-mode-hook 'java-setup) (add-hook 'java-mode-hook 'java-setup)
#+END_SRC #+END_SRC
** Assembler ** Assembler
@ -1040,11 +1044,11 @@
modes. Also in assembler should one be able to compile using =C-c C-c=. modes. Also in assembler should one be able to compile using =C-c C-c=.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun asm-setup () (defun asm-setup ()
(setq comment-start "#") (setq comment-start "#")
(local-set-key (kbd "C-c C-c") 'compile)) (local-set-key (kbd "C-c C-c") 'compile))
(add-hook 'asm-mode-hook 'asm-setup) (add-hook 'asm-mode-hook 'asm-setup)
#+END_SRC #+END_SRC
** LaTeX ** LaTeX
@ -1053,7 +1057,7 @@
=tex-mode=. =tex-mode=.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode)) (add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode))
#+END_SRC #+END_SRC
I like using the [[https://code.google.com/p/minted/][Minted]] package for source blocks in LaTeX. To make org I like using the [[https://code.google.com/p/minted/][Minted]] package for source blocks in LaTeX. To make org
@ -1139,8 +1143,8 @@
=haskell-indent=. =haskell-indent=.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
#+END_SRC #+END_SRC
** Matlab ** Matlab
@ -1169,28 +1173,28 @@
Bindings for [[https://github.com/magnars/expand-region.el][expand-region]]. Bindings for [[https://github.com/magnars/expand-region.el][expand-region]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-'") 'er/expand-region) (define-key custom-bindings-map (kbd "C-'") 'er/expand-region)
(define-key custom-bindings-map (kbd "C-;") 'er/contract-region) (define-key custom-bindings-map (kbd "C-;") 'er/contract-region)
#+END_SRC #+END_SRC
Bindings for [[https://github.com/magnars/multiple-cursors.el][multiple-cursors]]. Bindings for [[https://github.com/magnars/multiple-cursors.el][multiple-cursors]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c e") 'mc/edit-lines) (define-key custom-bindings-map (kbd "C-c e") 'mc/edit-lines)
(define-key custom-bindings-map (kbd "C-c a") 'mc/mark-all-like-this) (define-key custom-bindings-map (kbd "C-c a") 'mc/mark-all-like-this)
(define-key custom-bindings-map (kbd "C-c n") 'mc/mark-next-like-this) (define-key custom-bindings-map (kbd "C-c n") 'mc/mark-next-like-this)
#+END_SRC #+END_SRC
Bindings for [[http://magit.github.io][Magit]]. Bindings for [[http://magit.github.io][Magit]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c m") 'magit-status) (define-key custom-bindings-map (kbd "C-c m") 'magit-status)
#+END_SRC #+END_SRC
Bindings for [[https://github.com/winterTTr/ace-jump-mode][ace-jump-mode]]. Bindings for [[https://github.com/winterTTr/ace-jump-mode][ace-jump-mode]].
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "C-c SPC") 'ace-jump-mode) (define-key custom-bindings-map (kbd "C-c SPC") 'ace-jump-mode)
#+END_SRC #+END_SRC
Bindings for [[http://emacs-helm.github.io/helm/][Helm]]. Bindings for [[http://emacs-helm.github.io/helm/][Helm]].
@ -1208,8 +1212,8 @@
Bindings for =move-text=. Bindings for =move-text=.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-key custom-bindings-map (kbd "<M-S-up>") 'move-text-up) (define-key custom-bindings-map (kbd "<M-S-up>") 'move-text-up)
(define-key custom-bindings-map (kbd "<M-S-down>") 'move-text-down) (define-key custom-bindings-map (kbd "<M-S-down>") 'move-text-down)
#+END_SRC #+END_SRC
Bind some native Emacs functions. Bind some native Emacs functions.