mirror of
https://github.com/larstvei/dot-emacs.git
synced 2024-11-26 07:28:31 +00:00
Fixed indentation (org-file), and tweaked slime.
This commit is contained in:
parent
760fb89cde
commit
42e5a1af33
176
README.md
176
README.md
@ -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
|
||||
`org`-document after changes.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun tangle-init ()
|
||||
"If the current buffer is 'init.org' the code-blocks are
|
||||
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
|
||||
loaded, along with `package`, which is obviously needed.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(require 'cl)
|
||||
(require 'package)
|
||||
(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
|
||||
archive and is well maintained.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(setq package-archives
|
||||
'(("gnu" . "http://elpa.gnu.org/packages/")
|
||||
("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
|
||||
of a package is installed.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun newest-package-installed-p (package)
|
||||
"Return true if the newest available PACKAGE is installed."
|
||||
(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
|
||||
in handy.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun upgrade-or-install-package (package)
|
||||
"Unless the newest available version of PACKAGE is installed
|
||||
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.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun dependencies (package)
|
||||
"Returns a list of dependencies from a given PACKAGE."
|
||||
(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
|
||||
when packages were updated last.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defvar days-between-updates 7)
|
||||
(defvar do-package-update-on-init t)
|
||||
(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
|
||||
must run the `time-stamp`-function to update the time-stamp.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(require 'time-stamp)
|
||||
;; Open the 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
|
||||
configurations are also dependent on them).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(when (and do-package-update-on-init
|
||||
(y-or-n-p "Update all packages?"))
|
||||
(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
|
||||
`Command`-key as the `Meta`-key.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(when (memq window-system '(mac ns))
|
||||
(setq mac-option-modifier nil
|
||||
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,
|
||||
but is not a high priority.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(require 'idle-require) ; Need in order to use idle-require
|
||||
(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`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(setq default-input-method "TeX" ; Use TeX when toggling input method.
|
||||
doc-view-continuous t ; At page edge goto next/previous.
|
||||
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
|
||||
buffer-local variable's default value.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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.
|
||||
@ -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
|
||||
projects).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(let ((default-directory (concat user-emacs-directory "site-lisp/")))
|
||||
(when (file-exists-p default-directory)
|
||||
(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
|
||||
single *y* or *n* will suffice.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(fset 'yes-or-no-p 'y-or-n-p)
|
||||
```
|
||||
|
||||
To avoid file system clutter we put all auto saved files in a single
|
||||
directory.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defvar emacs-autosave-directory
|
||||
(concat user-emacs-directory "autosaves/")
|
||||
"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.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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,
|
||||
and don't want to be warned.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(put 'narrow-to-region 'disabled nil)
|
||||
```
|
||||
|
||||
Call `auto-complete` default configuration, which enables `auto-complete`
|
||||
globally.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(eval-after-load 'auto-complete-config `(ac-config-default))
|
||||
```
|
||||
|
||||
Automaticly revert `doc-view`-buffers when the file changes on disk.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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
|
||||
these.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(dolist (mode
|
||||
'(tool-bar-mode ; No toolbars, more room for text.
|
||||
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
|
||||
default.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(dolist (mode
|
||||
'(abbrev-mode ; E.g. sopl -> System.out.println.
|
||||
column-number-mode ; Show column number in mode line.
|
||||
@ -451,7 +451,7 @@ default.
|
||||
|
||||
This makes `.md`-files open in `markdown-mode`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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`).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(load-theme 'monokai t)
|
||||
```
|
||||
|
||||
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))
|
||||
(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
|
||||
are displayed, and `flx-ido-mode` enables fuzzy matching.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(dolist (mode
|
||||
'(ido-mode ; Interactivly do.
|
||||
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
|
||||
files along with `org`- and `tex`-files.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(setq ido-file-extensions-order
|
||||
'(".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
|
||||
there is really no need for it in the buffer list).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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
|
||||
the standard `execute-extended-command` with `smex`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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
|
||||
is from [EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun calendar-show-week (arg)
|
||||
"Displaying week number in calendar-mode."
|
||||
(interactive "P")
|
||||
@ -536,13 +536,13 @@ is from [EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers).
|
||||
|
||||
Evaluate the `calendar-show-week` function.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(calendar-show-week t)
|
||||
```
|
||||
|
||||
Set Monday as the first day of the week, and set my location.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(setq calendar-week-start-day 1
|
||||
calendar-latitude 60.0
|
||||
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
|
||||
a `non-nil` value mail is setup.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defvar load-mail-setup nil)
|
||||
|
||||
(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
|
||||
text-modes with this snippet.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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
|
||||
auto-complete mode, but there is a workaround provided by auto complete.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
|
||||
(eval-after-load 'auto-complete
|
||||
'(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
|
||||
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 ()
|
||||
"Changes the ispell dictionary to the first element in
|
||||
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
|
||||
function returned from `cycle-languages`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defadvice turn-on-flyspell (before check nil activate)
|
||||
"Turns on flyspell only if a spell-checking tool is installed."
|
||||
(when (executable-find ispell-program-name)
|
||||
(local-set-key (kbd "C-c l") (cycle-languages))))
|
||||
```
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defadvice flyspell-prog-mode (before check nil activate)
|
||||
"Turns on flyspell only if a spell-checking tool is installed."
|
||||
(when (executable-find ispell-program-name)
|
||||
@ -659,7 +659,7 @@ function returned from `cycle-languages`.
|
||||
|
||||
I use `org-agenda` for appointments and such.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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.
|
||||
@ -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
|
||||
be themed as they would in their native mode.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(setq org-src-fontify-natively t
|
||||
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 string"`, because the quotation marks causes problems.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(require 'org)
|
||||
(setcar (nthcdr 2 org-emphasis-regexp-components) " \t\n,")
|
||||
(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
|
||||
[EmacsWiki](http://www.emacswiki.org/emacs/CalendarWeekNumbers).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun recentf-ido-find-file ()
|
||||
"Find a recent file using Ido."
|
||||
(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
|
||||
number of spaces.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun cycle-spacing-delete-newlines ()
|
||||
"Removes whitespace before and after the point."
|
||||
(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
|
||||
anything.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun jump-to-symbol-internal (&optional backwardp)
|
||||
"Jumps to the next symbol near the point if such a symbol
|
||||
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
|
||||
making it the least likely candidate for `other-buffer`).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun kill-this-buffer-unless-scratch ()
|
||||
"Works like `kill-this-buffer' unless the current buffer is the
|
||||
*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
|
||||
function.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun duplicate-thing ()
|
||||
"Duplicates the current line, or the region if active."
|
||||
(interactive)
|
||||
@ -786,7 +786,7 @@ function.
|
||||
|
||||
To tidy up a buffer we define this function borrowed from [simenheg](https://github.com/simenheg).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun tidy ()
|
||||
"Ident, untabify and unwhitespacify current buffer, or region if active."
|
||||
(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
|
||||
into the minibuffer, and the file will be evaluated.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun try (url)
|
||||
"Takes an URL to a .el-file, and evaluates it."
|
||||
(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
|
||||
the value.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defadvice eval-last-sexp (around replace-sexp (arg) activate)
|
||||
"Replace sexp when called with a prefix argument."
|
||||
(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
|
||||
enabled themes.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defadvice load-theme
|
||||
(before disable-before-load (theme &optional no-confirm no-enable) activate)
|
||||
(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
|
||||
makes this work globally.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defadvice text-scale-mode (around all-buffers (arg) activate)
|
||||
(if (not global-text-scale-mode)
|
||||
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
|
||||
from the `text-scale-mode`, using `define-globalized-minor-mode`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(require 'face-remap)
|
||||
|
||||
(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
|
||||
forth between a shell I make use of this little function.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun toggle-shell ()
|
||||
"Jumps to eshell or back."
|
||||
(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,
|
||||
since we can always undo!
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun clear-shell ()
|
||||
"Runs `comint-truncate-buffer' with the
|
||||
`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
|
||||
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)))
|
||||
```
|
||||
|
||||
@ -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`
|
||||
function to activate `pretty-lambda-mode` in lisp modes.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(dolist (mode '(slime-repl-mode geiser-repl-mode ielm-mode clojure-mode
|
||||
cider-repl-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
|
||||
in the `pretty-lambda-auto-modes` list.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(dolist (mode pretty-lambda-auto-modes)
|
||||
;; add paredit-mode to all mode-hooks
|
||||
(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
|
||||
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 '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
|
||||
with this snippet.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(when (file-exists-p "~/.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).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(setq inferior-lisp-program "sbcl")
|
||||
```
|
||||
|
||||
To improve auto completion for Common Lisp editing we can use `ac-slime`
|
||||
which uses slime completions as a source.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(add-hook 'slime-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).
|
||||
|
||||
```lisp
|
||||
(setq lisp-loop-forms-indentation 2
|
||||
```emacs-lisp
|
||||
(setq lisp-loop-forms-indentation 6
|
||||
lisp-simple-loop-indentation 2
|
||||
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>
|
||||
|
||||
[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,
|
||||
and specify which scheme-interpreter we prefer.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(add-hook 'geiser-mode-hook 'ac-geiser-setup)
|
||||
(add-hook 'geiser-repl-mode-hook 'ac-geiser-setup)
|
||||
(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…). I like being able to quickly compile
|
||||
using `C-c C-c` (instead of `M-x compile`), a habit from `latex-mode`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun c-setup ()
|
||||
(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
|
||||
out. We can use abbrevs to speed this up.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(define-abbrev-table 'java-mode-abbrev-table
|
||||
'(("psv" "public static void main(String[] args) {" 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
|
||||
activated.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun java-setup ()
|
||||
(abbrev-mode t)
|
||||
(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
|
||||
modes. Also in assembler should one be able to compile using `C-c C-c`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun asm-setup ()
|
||||
(setq comment-start "#")
|
||||
(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-mode`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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
|
||||
use this we add the following snippet.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(eval-after-load 'org
|
||||
'(add-to-list 'org-latex-packages-alist '("" "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
|
||||
(if anyone finds a nicer way to do this, please let me know).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(eval-after-load 'ox-latex
|
||||
'(setq org-latex-pdf-process
|
||||
(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
|
||||
`$/math$`. Writing these out became tedious, so I wrote a small function.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defun insert-markdown-inline-math-block ()
|
||||
"Inserts an empty math-block if no region is active, otherwise wrap a
|
||||
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
|
||||
function to a key!
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(add-hook 'markdown-mode-hook
|
||||
(lambda ()
|
||||
(auto-fill-mode 0)
|
||||
@ -1121,7 +1125,7 @@ function to a key!
|
||||
the echo area. Haskell has several indentation modes - I prefer using
|
||||
`haskell-indent`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
|
||||
(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
|
||||
splash screen.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(eval-after-load 'matlab
|
||||
'(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
|
||||
defined.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(defvar custom-bindings-map (make-keymap)
|
||||
"A keymap for custom bindings.")
|
||||
```
|
||||
|
||||
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/contract-region)
|
||||
```
|
||||
|
||||
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 a") 'mc/mark-all-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).
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(define-key custom-bindings-map (kbd "C-c m") 'magit-status)
|
||||
```
|
||||
|
||||
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)
|
||||
```
|
||||
|
||||
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)
|
||||
```
|
||||
|
||||
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)
|
||||
```
|
||||
|
||||
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-down>") 'move-text-down)
|
||||
```
|
||||
|
||||
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-c s") 'ispell-word)
|
||||
(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.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(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 "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
|
||||
`minor-mode`.
|
||||
|
||||
```lisp
|
||||
```emacs-lisp
|
||||
(define-minor-mode custom-bindings-mode
|
||||
"A mode that activates custom-bindings."
|
||||
t nil custom-bindings-map)
|
||||
|
||||
4
init.el
4
init.el
@ -774,10 +774,12 @@ the buffer is buried."
|
||||
|
||||
;; 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-loop-keyword-indentation 6)
|
||||
|
||||
(define-key slime-repl-mode-map (kbd "C-l") 'slime-repl-clear-buffer)
|
||||
|
||||
;; Scheme
|
||||
|
||||
;; [[http://www.nongnu.org/geiser/][Geiser]] provides features similar to Slime for Scheme editing. Everything
|
||||
|
||||
336
init.org
336
init.org
@ -96,15 +96,15 @@
|
||||
of a package is installed.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun newest-package-installed-p (package)
|
||||
"Return true if the newest available PACKAGE is installed."
|
||||
(when (package-installed-p package)
|
||||
(let* ((local-pkg-desc (or (assq package package-alist)
|
||||
(assq package package--builtins)))
|
||||
(newest-pkg-desc (assq package package-archive-contents)))
|
||||
(and local-pkg-desc newest-pkg-desc
|
||||
(version-list-= (package-desc-vers (cdr local-pkg-desc))
|
||||
(package-desc-vers (cdr newest-pkg-desc)))))))
|
||||
(defun newest-package-installed-p (package)
|
||||
"Return true if the newest available PACKAGE is installed."
|
||||
(when (package-installed-p package)
|
||||
(let* ((local-pkg-desc (or (assq package package-alist)
|
||||
(assq package package--builtins)))
|
||||
(newest-pkg-desc (assq package package-archive-contents)))
|
||||
(and local-pkg-desc newest-pkg-desc
|
||||
(version-list-= (package-desc-vers (cdr local-pkg-desc))
|
||||
(package-desc-vers (cdr newest-pkg-desc)))))))
|
||||
#+END_SRC
|
||||
|
||||
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.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun dependencies (package)
|
||||
"Returns a list of dependencies from a given PACKAGE."
|
||||
(let* ((pkg-desc (assq package package-alist))
|
||||
(reqs (and pkg-desc (package-desc-reqs (cdr pkg-desc)))))
|
||||
(mapcar 'car reqs)))
|
||||
(defun dependencies (package)
|
||||
"Returns a list of dependencies from a given PACKAGE."
|
||||
(let* ((pkg-desc (assq package package-alist))
|
||||
(reqs (and pkg-desc (package-desc-reqs (cdr pkg-desc)))))
|
||||
(mapcar 'car reqs)))
|
||||
#+END_SRC
|
||||
|
||||
The =package-refresh-contents= function downloads archive descriptions,
|
||||
@ -147,10 +147,10 @@
|
||||
when packages were updated last.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defvar days-between-updates 7)
|
||||
(defvar do-package-update-on-init t)
|
||||
(defvar package-last-update-file
|
||||
(expand-file-name (concat user-emacs-directory ".package-last-update")))
|
||||
(defvar days-between-updates 7)
|
||||
(defvar do-package-update-on-init t)
|
||||
(defvar package-last-update-file
|
||||
(expand-file-name (concat user-emacs-directory ".package-last-update")))
|
||||
#+END_SRC
|
||||
|
||||
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.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(require 'time-stamp)
|
||||
;; Open the package-last-update-file
|
||||
(with-temp-file package-last-update-file
|
||||
(if (file-exists-p package-last-update-file)
|
||||
(progn
|
||||
;; Insert it's original content's.
|
||||
(insert-file-contents package-last-update-file)
|
||||
(let ((start (re-search-forward time-stamp-start nil t))
|
||||
(end (re-search-forward time-stamp-end nil t)))
|
||||
(when (and start end)
|
||||
;; Assuming we have found a time-stamp, we check determine if it's
|
||||
;; time to update.
|
||||
(setq do-package-update-on-init
|
||||
(<= days-between-updates
|
||||
(days-between
|
||||
(current-time-string)
|
||||
(buffer-substring-no-properties start end))))
|
||||
;; Remember to update the time-stamp.
|
||||
(when do-package-update-on-init
|
||||
(time-stamp)))))
|
||||
;; If no such file exists it is created with a time-stamp.
|
||||
(insert "Time-stamp: <>")
|
||||
(time-stamp)))
|
||||
(require 'time-stamp)
|
||||
;; Open the package-last-update-file
|
||||
(with-temp-file package-last-update-file
|
||||
(if (file-exists-p package-last-update-file)
|
||||
(progn
|
||||
;; Insert it's original content's.
|
||||
(insert-file-contents package-last-update-file)
|
||||
(let ((start (re-search-forward time-stamp-start nil t))
|
||||
(end (re-search-forward time-stamp-end nil t)))
|
||||
(when (and start end)
|
||||
;; Assuming we have found a time-stamp, we check determine if it's
|
||||
;; time to update.
|
||||
(setq do-package-update-on-init
|
||||
(<= days-between-updates
|
||||
(days-between
|
||||
(current-time-string)
|
||||
(buffer-substring-no-properties start end))))
|
||||
;; Remember to update the time-stamp.
|
||||
(when do-package-update-on-init
|
||||
(time-stamp)))))
|
||||
;; If no such file exists it is created with a time-stamp.
|
||||
(insert "Time-stamp: <>")
|
||||
(time-stamp)))
|
||||
#+END_SRC
|
||||
|
||||
Now we can use the function above to make sure packages are installed and
|
||||
@ -317,10 +317,10 @@
|
||||
buffer-local variable's default value.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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.
|
||||
(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
|
||||
|
||||
The =load-path= specifies where Emacs should look for =.el=-files (or
|
||||
@ -339,30 +339,30 @@
|
||||
single /y/ or /n/ will suffice.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(fset 'yes-or-no-p 'y-or-n-p)
|
||||
(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
|
||||
(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.")
|
||||
(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)))
|
||||
;; 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
|
||||
(set-language-environment "UTF-8")
|
||||
(set-language-environment "UTF-8")
|
||||
#+END_SRC
|
||||
|
||||
By default the =narrow-to-region= command is disabled and issues a
|
||||
@ -370,7 +370,7 @@
|
||||
and don't want to be warned.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(put 'narrow-to-region 'disabled nil)
|
||||
(put 'narrow-to-region 'disabled nil)
|
||||
#+END_SRC
|
||||
|
||||
Call =auto-complete= default configuration, which enables =auto-complete=
|
||||
@ -383,7 +383,7 @@
|
||||
Automaticly revert =doc-view=-buffers when the file changes on disk.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'doc-view-mode-hook 'auto-revert-mode)
|
||||
(add-hook 'doc-view-mode-hook 'auto-revert-mode)
|
||||
#+END_SRC
|
||||
|
||||
** Modes
|
||||
@ -393,11 +393,11 @@
|
||||
these.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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
|
||||
'(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
|
||||
@ -484,20 +484,20 @@
|
||||
are displayed, and =flx-ido-mode= enables fuzzy matching.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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))
|
||||
(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
|
||||
(setq ido-file-extensions-order
|
||||
'(".el" ".scm" ".lisp" ".java" ".c" ".h" ".org" ".tex"))
|
||||
(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
|
||||
@ -505,7 +505,7 @@
|
||||
there is really no need for it in the buffer list).
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-to-list 'ido-ignore-buffers "*Messages*")
|
||||
(add-to-list 'ido-ignore-buffers "*Messages*")
|
||||
#+END_SRC
|
||||
|
||||
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]].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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))))
|
||||
(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 =calendar-show-week= function.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(calendar-show-week t)
|
||||
(calendar-show-week t)
|
||||
#+END_SRC
|
||||
|
||||
Set Monday as the first day of the week, and set my location.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq calendar-week-start-day 1
|
||||
calendar-latitude 60.0
|
||||
calendar-longitude 10.7
|
||||
calendar-location-name "Oslo, Norway")
|
||||
(setq calendar-week-start-day 1
|
||||
calendar-latitude 60.0
|
||||
calendar-longitude 10.7
|
||||
calendar-location-name "Oslo, Norway")
|
||||
#+END_SRC
|
||||
|
||||
** Mail
|
||||
@ -606,7 +606,7 @@
|
||||
text-modes with this snippet.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'text-mode-hook 'turn-on-flyspell)
|
||||
(add-hook 'text-mode-hook 'turn-on-flyspell)
|
||||
#+END_SRC
|
||||
|
||||
To use flyspell for programming there is =flyspell-prog-mode=, that only
|
||||
@ -665,9 +665,9 @@
|
||||
I use =org-agenda= for appointments and such.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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-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
|
||||
@ -695,12 +695,12 @@
|
||||
[[http://www.emacswiki.org/emacs/CalendarWeekNumbers][EmacsWiki]].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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 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
|
||||
@ -792,14 +792,14 @@
|
||||
To tidy up a buffer we define this function borrowed from [[https://github.com/simenheg][simenheg]].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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)))))
|
||||
(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
|
||||
|
||||
If you have a link to a raw =.el=-file, run =M-x try= and yank an URL
|
||||
@ -820,15 +820,15 @@
|
||||
the value.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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))
|
||||
(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
|
||||
|
||||
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.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun toggle-shell ()
|
||||
"Jumps to eshell or back."
|
||||
(interactive)
|
||||
(if (string= (buffer-name) "*shell*")
|
||||
(switch-to-prev-buffer)
|
||||
(shell)))
|
||||
(defun toggle-shell ()
|
||||
"Jumps to eshell or back."
|
||||
(interactive)
|
||||
(if (string= (buffer-name) "*shell*")
|
||||
(switch-to-prev-buffer)
|
||||
(shell)))
|
||||
#+END_SRC
|
||||
|
||||
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.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(dolist (mode pretty-lambda-auto-modes)
|
||||
;; add paredit-mode to all mode-hooks
|
||||
(add-hook (intern (concat (symbol-name mode) "-hook")) 'paredit-mode))
|
||||
(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
|
||||
@ -942,8 +942,8 @@
|
||||
about a function or a variable in the echo area.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
|
||||
(add-hook 'lisp-interaction-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)
|
||||
#+END_SRC
|
||||
|
||||
*** Common lisp
|
||||
@ -955,35 +955,39 @@
|
||||
with this snippet.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(when (file-exists-p "~/.quicklisp/slime-helper.el")
|
||||
(load (expand-file-name "~/.quicklisp/slime-helper.el")))
|
||||
(when (file-exists-p "~/.quicklisp/slime-helper.el")
|
||||
(load (expand-file-name "~/.quicklisp/slime-helper.el")))
|
||||
#+END_SRC
|
||||
|
||||
We can specify what Common Lisp program Slime should use (I use SBCL).
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq inferior-lisp-program "sbcl")
|
||||
(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
|
||||
(add-hook 'slime-mode-hook 'set-up-slime-ac)
|
||||
(add-hook 'slime-repl-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)
|
||||
|
||||
(eval-after-load "auto-complete"
|
||||
'(add-to-list 'ac-modes 'slime-repl-mode))
|
||||
(eval-after-load "auto-complete"
|
||||
'(add-to-list 'ac-modes 'slime-repl-mode))
|
||||
#+END_SRC
|
||||
|
||||
More sensible =loop= indentation, borrowed from [[https://github.com/simenheg][simenheg]].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq lisp-loop-forms-indentation 2
|
||||
(setq lisp-loop-forms-indentation 6
|
||||
lisp-simple-loop-indentation 2
|
||||
lisp-loop-keyword-indentation 6)
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(define-key slime-repl-mode-map (kbd "C-l") 'slime-repl-clear-buffer)
|
||||
#+END_SRC
|
||||
|
||||
*** Scheme
|
||||
|
||||
[[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=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun c-setup ()
|
||||
(local-set-key (kbd "C-c C-c") 'compile))
|
||||
(defun c-setup ()
|
||||
(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
|
||||
|
||||
Some statements in Java appear often, and become tedious to write
|
||||
out. We can use abbrevs to speed this up.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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)))
|
||||
(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
|
||||
(defun java-setup ()
|
||||
(abbrev-mode t)
|
||||
(setq-local compile-command (concat "javac " (buffer-name))))
|
||||
(defun java-setup ()
|
||||
(abbrev-mode t)
|
||||
(setq-local compile-command (concat "javac " (buffer-name))))
|
||||
|
||||
(add-hook 'java-mode-hook 'java-setup)
|
||||
(add-hook 'java-mode-hook 'java-setup)
|
||||
#+END_SRC
|
||||
|
||||
** Assembler
|
||||
@ -1040,11 +1044,11 @@
|
||||
modes. Also in assembler should one be able to compile using =C-c C-c=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun asm-setup ()
|
||||
(setq comment-start "#")
|
||||
(local-set-key (kbd "C-c C-c") 'compile))
|
||||
(defun asm-setup ()
|
||||
(setq comment-start "#")
|
||||
(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
|
||||
|
||||
** LaTeX
|
||||
@ -1053,7 +1057,7 @@
|
||||
=tex-mode=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode))
|
||||
(add-to-list 'auto-mode-alist '("\\.tex\\'" . latex-mode))
|
||||
#+END_SRC
|
||||
|
||||
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=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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-doc-mode)
|
||||
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
|
||||
#+END_SRC
|
||||
|
||||
** Matlab
|
||||
@ -1169,28 +1173,28 @@
|
||||
Bindings for [[https://github.com/magnars/expand-region.el][expand-region]].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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/expand-region)
|
||||
(define-key custom-bindings-map (kbd "C-;") 'er/contract-region)
|
||||
#+END_SRC
|
||||
|
||||
Bindings for [[https://github.com/magnars/multiple-cursors.el][multiple-cursors]].
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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 n") 'mc/mark-next-like-this)
|
||||
(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 n") 'mc/mark-next-like-this)
|
||||
#+END_SRC
|
||||
|
||||
Bindings for [[http://magit.github.io][Magit]].
|
||||
|
||||
#+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
|
||||
|
||||
Bindings for [[https://github.com/winterTTr/ace-jump-mode][ace-jump-mode]].
|
||||
|
||||
#+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
|
||||
|
||||
Bindings for [[http://emacs-helm.github.io/helm/][Helm]].
|
||||
@ -1208,8 +1212,8 @@
|
||||
Bindings for =move-text=.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(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-up>") 'move-text-up)
|
||||
(define-key custom-bindings-map (kbd "<M-S-down>") 'move-text-down)
|
||||
#+END_SRC
|
||||
|
||||
Bind some native Emacs functions.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user