45 KiB
Tom-Emacs Interface
- Preamble
- General settings
- Typographic style
- Theme
- Diminish
- Ivy
- Counsel
- Bookmarks
- Personal info
- Automatic alignment
- Url browsing
- Minibuffer
- Shackle
- Libraries
- Minor modes
- Major modes
- Applications
- Custom
This is my personal Emacs configuration. The name was inspired by "Ghost in the Shell 2: Man-Machine Interface" and Ryan Rix's "Complete Computing Environment".
Preamble
These are some settings that need to be taken care of before the rest.
Lexical binding
To start off, first I need to enable lexical binding. It offers better performance in some circumstances and enables me to use cool things such as closures.
;; -*- lexical-binding: t; -*-Load path
Emacs' load path is where it looks to find Emacs Lisp files when
confronted with a load or require form. Most of my packages are
managed through the package manager, but not all of them.
Mode-specific configuration directory
Add the directory with my mode-specific configuration files to the load path.
(add-to-list 'load-path (locate-user-emacs-file "init/"))Vendor directory
Add all my vendored packages to the load path.
(eval-and-compile
(mapc (lambda (d) (add-to-list 'load-path d))
(directory-files
(locate-user-emacs-file "vendor-lisp/") t "^[^.]")))Site lisp
Setup everything so that any autoloads in site-lisp/ get loaded
and can be used.
(eval-and-compile
(add-to-list 'load-path (locate-user-emacs-file "site-lisp/"))
(let ((loaddefs (locate-user-emacs-file "site-lisp/site-autoloads.el")))
(when (file-exists-p loaddefs)
(load loaddefs))))Helper functions
Some things are best abstracted into special functions and/or macros so as not to make the setting itself too verbose.
I have some helper functions stored away in a separate file.
(require 'oni-helpers)Package configuration
Since Emacs 24 there has been a package manager in Emacs. A lot of packages have been added to a number of package repositories.
Load the package manager
Require package.el since I immediately start using its variables and functions anyway, no need to delay loading.
(require 'package)Add package archives
The default package archive has some pretty neat packages, but the Melpa package archive is much more popular because it doesn't require copyright assignment to upload packages to it and it is well integrated with git.
I add these archives both at compile-time and run-time because I install missing packages at compile-time. If the archives aren't added then, the packages can't be installed.
Add Melpa
Add the Melpa package archive because I like living on the bleeding edge.
(eval-and-compile
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")))Add org
Add the org package archive because it hosts the latest org development release, and as stated above, I like living on the bleeding edge.
(eval-and-compile
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/")))Initialize the package manager
Initialize package.el so that packages can be loaded and used. This also needs to be done at both run-time and compile-time so packages can be installed at compile-time.
(eval-and-compile (package-initialize))Install missing packages
Refresh the package contents so packages can be installed from all configured archives. Don't do this at run-time because it slows down the process too much. Afterwards
(eval-when-compile
(let* ((not-installed (seq-remove 'package-installed-p
package-selected-packages))
(available (seq-filter (lambda (p)
(assq p package-archive-contents))
not-installed))
(difference (- (length not-installed) (length available))))
(when (> difference 0)
(silently "Refresh packages"
(package-refresh-contents)))
(when available
(mapc (lambda (p) (package-install p t)) available))))General settings
These settings are generally not associated with a specific mode, but affect how the core of Emacs behaves.
Files
There are a lot of files that Emacs uses to keep track of things. I usually prefer to keep them all in one place together, instead of spreading them around the filesystem. With exceptions of course.
Backups
I don't like having every directory filled with "filename~" files. So instead of saving backup files to the same directory, save them to a special one instead.
(setq backup-directory-alist `((".*" . ,(oni:data-location "backup-files/"))))Auto saves
I prefer to keep all autosave files in a single directory so they don't clog up my filesystem so much.
Auto save files
Usually these files get deleted, but sometimes they don't, and I don't think they look pretty. Add it to the end of the list because the default value stores auto-saves for remote files in /tmp, which is fine by me.
(add-to-list 'auto-save-file-name-transforms
`(".*" ,(oni:data-location "auto-save-files/") t) :append)Auto save indexes
Place the files which contain the indexes of auto save files in a similar directory.
(setq auto-save-list-file-prefix (oni:data-location "auto-save-list/.saves-"))Additional file type mappings
Load *.js files with /ryuslash/dotfiles/src/commit/58cd42d5b034aedbd1ab56b1f5501bc616a11e2b/emacs/.emacs.d/JavaScript%20IDE%20mode. js2-mode is a better
JavaScript mode than plain old js-mode.
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))Global Keybindings
Bind expand-region, which functions a lot like a better
mark-sexp.
(global-set-key (kbd "C-M-SPC") 'er/expand-region)Using multiple cursors can be really handy when you have the same edits to make on multiple levels.
(global-set-key (kbd "M-+") 'mc/mark-next-like-this)
I've been looking for something like Embrace for a long time. I
really like the surround.vim module for vim (which I've only used
as evil-surround in evil-mode). Though because Emacs is not a
moded editor like vim, it's hard to find the right way to do
things.
(global-set-key (kbd "C-c (") 'embrace-commander)Hydra
Hydra is an interesting way of managing keybindings, I want to experiment.
Add a hydra for org.
(global-set-key (kbd "C-c o") 'oni-hydra-org/body)Add a hydra for magit.
(global-set-key (kbd "C-c m") 'oni-hydra-magit/body)Typographic style
Emacs being a text editor has options on how to handle your text.
Whitespace
Even though whitespace technically isn't seen, it can still be an eyesore and highly annoying, you must always keep it well in check.
Remove trailing whitespace before saving
I hate it when trailing whitespace is left around a file. I've been using this for years, and apart from having some trouble working with people who don't pay attention to it, it has worked flawlessly.
(require 'destroy-trailing-whitespace)
(global-destroy-trailing-whitespace-mode)Make sure there is a newline at the end of the file
Having a final newline at the end of the file is always a good idea. Some programs just don't work without it and others produce some strange results. Github diffs are an example.
(setq require-final-newline t)Tabs
Unless absolutely necessary, I really don't want any tabs in my code.
Don't use tabs for indentation
Generally I prefer using spaces over tabs. Especially for lisp-like languages.
(setq-default indent-tabs-mode nil)Display tabs as 4 columns wide
A tab-width of 8 is too wide for me, and 2 is too narrow. 4 is just right.
(setq-default tab-width 4)Sentences end with a single space
I'm not an American, and I don't follow American grammatical rules when I write. I have always ended my sentences with a single space and I'm sure I'll always keep doing that.
(setq sentence-end-double-space nil)User Interface
Emacs' user interface is very configurable, from themes to hiding unnecessary elements.
Inhibit startup screen
I've been using Emacs long enough not to need the startup screen anymore. I don't see it on my PC where I start Emacs in daemon mode, but on my laptop I always start it normally, so it gets in the way.
(setq inhibit-startup-screen t)Font
Set the default font to a more pleasing one, in my opinion, with a better size as well.
(add-to-list 'default-frame-alist '(font . "Fantasque Sans Mono-15"))Internal border
For aesthetics I like to have a thick border on the inside of my Emacs window. I have the same border in URxvt, but I haven't found out how to add it to Conkeror yet.
(add-to-list 'default-frame-alist '(internal-border-width . 15))Menu bar
I don't use the menu bar, so it just takes up space.
(menu-bar-mode -1)Tool bar
I don't use the tool bar, so it just takes up space.
(tool-bar-mode -1)Scroll bar
I don't use the scroll bar to either navigate my buffers or see whereabouts I am, so they just take up space.
(scroll-bar-mode -1)Cursor
Use a bar cursor instead of a box.
(setq-default cursor-type '(bar . 2))Long lines
By default Emacs wraps long lines around to the next line when they reach the far end of the window. However I prefer to have them truncated instead.
(setq-default truncate-lines t)Suspend
The key in a terminal suspends the current application to the background and lets you do other things on the command line without having to fully close the application. In GUI Emacs this minimizes the current frame. I have no place for it to minimize to (no task bar or anything), so this just freezes my frame. To prevent this from happening I unbind the key.
(global-unset-key (kbd "C-z"))Don't ask for yes or no
One of the more annoying things can be when Emacs starts asking
for confirmation and you have to type in yes or no. I get that
this is to prevent you from accidentally performing an action, but
just y or n has since 2008 not made me accidentally perform
any action I didn't mean to.
(defalias 'yes-or-no-p 'y-or-n-p)Show any matching parenthesis
When working in Lisp code (but other code as well) it can be very handy to see which parenthesis the one near the cursor matches.
(show-paren-mode)Theme
Load my personal theme. I sometimes change it to a different theme, but for some reason I always come crawling back to it.
(add-to-list 'custom-theme-load-path
(concat user-emacs-directory "vendor-lisp/yoshi-theme"))
(load-theme 'yoshi :no-confirm)Load my personal SVG mode-line theme.
(require 'svg-mode-line-themes)
(require 'oni-smt)
(smt/enable)
(smt/set-theme 'oni-smt)Because SVG mode-line themes doesn't include the box around the mode-line, remove it (my personal theme adds it as padding).
(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil)Diminish
I really don't need to see some of the minor modes.
(require 'diminish)Ivy
Ivy is a completing read implementation that offers choises vertically. I'm surprised how much I like it. I've tried Swiper before and I didn't like that so much.
Since I immediately use and enable Ivy, there's no need to autoload it, so require it to keep the byte-compiler quiet.
(require 'ivy)Don't show that ivy is enabled in the mode-line. It's enabled globally and I'll notice it from other things anyway (like it showing up).
(diminish 'ivy-mode)Enable Ivy.
(ivy-mode)Counsel
Counsel is a group of functions that use Ivy to specialize on certain built-in commands, such as .
Since I enable Counsel mode immediately, there's no point in leaving it to be autoloaded. Requiring it keeps the byte-compiler happy.
(require 'counsel)
Hide dotfiles in counsel-find-file.
(setq counsel-find-file-ignore-regexp
(rx (or (and bos ".")
(and ".zwc" eos))))Enable Counsel.
(counsel-mode)Don't show that counsel is enabled in the mode-line. It's enabled globally and I'll notice whenever I press for example.
(diminish 'counsel-mode)Bookmarks
Save bookmarks in my data directory so my user-emacs-directory is
less cluttered.
(eval-when-compile (require 'bookmark))
(setq bookmark-default-file (oni:data-location "bookmarks"))Personal info
Set some personal info for, for example, Gnus to use.
(setq user-full-name "Tom Willemse"
user-mail-address "tom@ryuslash.org")Automatic alignment
Emacs has some powerful automatic alignment features.
(eval-when-compile (require 'align))CSS
Align CSS files like so:
body { color: #ffffff; }
.some-class { background-color: #ffffff; }
#some-id { width: 200px; }
.some-more-class {
color: #ffffff;
background-color: #ffffff;
width: 200px;
} (with-eval-after-load 'align
;; Keep these in order. They are each added to the _front_ of the
;; list and are applied in order. Changing their order will change
;; the results.
(add-to-list 'align-rules-list
`(css-closing-brace
(regexp . ,(rx (group (0+ whitespace)) "}" eol))
(group . (1))
(modes . '(scss-mode css-mode))))
(add-to-list 'align-rules-list
`(css-colons
(regexp . ,(rx bol
(0+ whitespace)
(1+ (any (?a . ?z) ?- ?$))
":"
(group (0+ whitespace))
(0+ nonl)
";"
eol))
(group . (1))
(modes . '(scss-mode css-mode))
(repeat . t)))
(add-to-list 'align-rules-list
`(css-opening-brace
(regexp . ,(rx bol
(0+ whitespace)
(0+ (any ?# ?. ?, ?\s ?& ?: ?-
(?a . ?z) (?A . ?Z) (?0 . ?9)))
(any (?a . ?z) (?A . ?Z) (?0 . ?9))
(group (0+ whitespace))
"{"
(0+ nonl)))
(group . (1))
(modes . '(scss-mode css-mode)))))PHP
In PHP code it's nice to have any => aligned.
<?php
array(
'foo' => 'bar',
'frob' => 'baz'
);
?>
(with-eval-after-load 'align
(add-to-list 'align-rules-list
`(php-array-arrow
(regexp . ,(rx any (group whitespace) "=>" any))
(group . (1))
(modes . '(php-mode web-mode))
(repeat . t))))Url browsing
Use Firefox to open URLs.
(eval-when-compile (require 'browse-url))
(with-eval-after-load 'browse-url
(setq browse-url-browser-function 'browse-url-firefox))Minibuffer
Enable Electric pair mode in the minibuffer. I tried Paredit for a little while, but I forgot that it isn't always only lisp that I'm entering in the minibuffer.
(add-hook 'minibuffer-setup-hook 'electric-pair-local-mode)Shackle
Shackle is an abstraction over display-buffer-alist.
(require 'shackle)
(shackle-mode)Libraries
-
(with-eval-after-load 'shr (load "oni-shr-init"))
Minor modes
- Company mode
-
A better auto completion system than auto complete.
(with-eval-after-load 'company (load "oni-company-init"))
Paredit
Paredit is an awesome minor-mode to have when you write in any lisp-like languages. It can feel rather strict and uncomfortable at first, but once you get the hang of using it, you won't want to live without it.
Don't show that paredit is enabled, it should be obvious from the effects it has. This will save some precious real-estate on my mode line.
(with-eval-after-load 'paredit
(diminish 'paredit-mode))Electric indent mode
By default electric-indent-mode is enabled globally, but I prefer
to enable it locally where I need it.
(electric-indent-mode -1)
Since Emacs 24 electric-indent-mode switches the behavior of the
keys. I prefer the original
situation because my muscle-memory still remembers to use
for newline-and-indent behaviour.
(defun oni:switch-newline-keys ()
"Switch the C-j and RET keys in the local buffer."
(if electric-indent-mode
(progn
(local-set-key (kbd "C-j") 'newline)
(local-set-key (kbd "RET") 'electric-newline-and-maybe-indent))
(local-unset-key (kbd "C-j"))
(local-unset-key (kbd "RET"))))
(add-hook 'electric-indent-local-mode-hook #'oni:switch-newline-keys)Flycheck
Flycheck lets me see (compiler) errors, warnings and info messages while writing code.
When developing packages with Cask, some special care needs to be taken to ensure the checkers work correctly.
(add-hook 'flycheck-mode-hook 'flycheck-cask-setup)I disable the pylint and pyflakes checkers because they don't seem to add much except noise when used together with flake8. Also pylint seems hell-bent on making Python written like a statically-typed langauge.
(with-eval-after-load 'flycheck
(mapc (lambda (c) (delq c flycheck-checkers))
'(python-pylint python-pyflakes)))Also show which columns messages appear in.
(with-eval-after-load 'flycheck
(setq flycheck-highlighting-mode 'columns))Show the error message at point in a tooltip.
(with-eval-after-load 'flycheck
(require 'flycheck-pos-tip)
(flycheck-pos-tip-mode))Shorten the flycheck mode line lighter.
(with-eval-after-load 'flycheck
(setq flycheck-mode-line-prefix "✓"))Auto revert mode
ARev isn't very descriptive, and fairly wide. Use a font-awesome icon instead.
(with-eval-after-load 'autorevert
(diminish 'auto-revert-mode
(propertize (concat " " (char-to-string #xf021))
'face '(:family "Font Awesome" :height 0.75))))Auto fill mode
"Fill" is fine as a mode-line lighter, but I prefer something shorter.
(diminish 'auto-fill-function
(propertize (concat " " (char-to-string #xf149))
'face '(:family "Font Awesome" :height 0.75)))Diff highlight mode
Show the state of lines added, changed and removed since the last commit.
(require 'diff-hl)
(global-diff-hl-mode)Add p4 options for diff-hl to fix diff highlighting in Perforce projects.
(defun oni:with-diff-hl-p4-args (orig-fun &rest args)
(let ((p4-lowlevel-diff-switches '("-du0")))
(apply orig-fun args)))
(with-eval-after-load 'vc-p4
(add-function :around (symbol-function 'diff-hl-changes-buffer)
#'oni:with-diff-hl-p4-args))Isearch
Replace the Isearch mode line lighter with a magnifying glass icon.
(diminish 'isearch-mode
(propertize (concat " " (char-to-string #xf002))
'face '(:family "Font Awesome" :height 0.75)))Projectile
Projectile is, thus far, the best project module for Emacs.
Set the known projects file before loading projectile because projectile loads the known projects as it's loading, not after.
(setq projectile-known-projects-file
(oni:data-location "projectile-bookmarks.eld"))Since I'm just going to use it anyway, require it immediately.
(require 'projectile)I don't like that projectile tries to take up so much space in my mode-line, so I try to make it a little shorter.
(with-eval-after-load 'projectile
(setq projectile-mode-line
'(:eval
(if (file-remote-p default-directory)
" P"
(let ((name (projectile-project-name)))
(if (string= "-" name)
""
(format " P[%s]" name)))))))Store projectile files in my data dir.
(setq projectile-cache-file
(oni:data-location "projectile.cache"))Enable it globally so I can always switch to/from projects.
(projectile-mode)Use Ivy for projectile completions.
(setq projectile-completion-system 'ivy)
Add yarn.lock as a possible root file for Projectile.
(add-to-list 'projectile-project-root-files "yarn.lock")Server mode
Diminish server mode with a nice icon.
(with-eval-after-load 'server
(diminish 'server-buffer-clients
(propertize (concat " " (char-to-string #xf233))
'face '(:family "Font Awesome" :height 0.75))))Slime
Slime is crucial for developing Common Lisp programs. Set the available Lisp implementations and the default implementation to use.
(with-eval-after-load 'slime
(setq slime-lisp-implementations
'((sbcl ("sbcl" "--noinform") :coding-system utf-8-unix)
(clisp ("clisp") :coding-system utf-8-unix)))
(setq slime-default-lisp 'sbcl)
(slime-setup '(slime-fancy slime-company)))Major modes
Configuration for major modes is specified in dedicated configuration files.
- js-mode
-
JavaScript mode is used by me for json files. js2-mode doesn't work very nicely with json, always showing syntax errors.
(with-eval-after-load 'js (load "oni-js-mode-init")) - php-mode
-
I use PHP mode for files that only contain PHP code, no HTML or anything.
(with-eval-after-load 'php-mode (load "oni-php-mode-init")) - sh-mode
-
Used for most types of shell scripting (bash, zsh, etc.).
(with-eval-after-load 'sh-mode (load "oni-sh-mode-init")) - css-mode
-
CSS and SCSS mode are used for stylesheets!
(with-eval-after-load 'css-mode (load "oni-css-mode-init")) - emacs-lisp-mode
-
Emacs lisp is what powers all this Emacs awesomeness.
(with-eval-after-load 'elisp-mode (load "oni-emacs-lisp-mode-init")) - scheme-mode
-
Scheme is an awesome lisp variant.
(with-eval-after-load 'scheme (load "oni-scheme-init")) - compilation-mode
-
Major mode for various compilation processes.
(with-eval-after-load 'compile (load "oni-compilation-init")) - java-mode
-
Major mode for the Java programming language.
(with-eval-after-load 'cc-mode (load "oni-java-init"))
Inferior Emacs lisp mode (ielm)
Enable paredit mode.
(add-hook 'ielm-mode-hook 'paredit-mode)Mbsync configuration mode
I wrote a simple major-mode for editing my .mbsyncrc file. I
might release it as a package, but for now I keep it with the rest
of my configuration.
Since it isn't installed by package.el, I need to specify the autoload myself.
(autoload 'mbsync-conf-mode "mbsync-conf-mode"
"Major mode for editing mbsync configuration files."
:interactive)
I also need to add it to the auto-mode-alist so .mbsyncrc is
opened with mbsync conf mode.
(add-to-list 'auto-mode-alist '("\\.mbsyncrc\\'" . mbsync-conf-mode))Msmtprc mode
I wrote a simple major-mode for editing my .msmtprc file. I might
release it as a package, but for now I keep it with the rest of my
configuration.
Since it isn't installed by package.el, I need to specify the autoload myself.
(autoload 'msmtprc-mode "msmtprc-mode"
"Major mode for editing msmtp configuration files."
:interactive)
I also need to add it to the auto-mode-alist so .msmtprc is
opened with msmtprc mode.
(add-to-list 'auto-mode-alist '("\\.msmtprc\\'" . msmtprc-mode))Git commit mode
Enable electric-quote-local-mode to easily type nice-looking
quotes while writing commits.
(add-hook 'git-commit-mode-hook 'electric-quote-local-mode)Python mode
Enable electric pair mode.
(add-hook 'python-mode-hook 'electric-pair-local-mode)Enable syntax and style checking with flycheck.
(add-hook 'python-mode-hook 'flycheck-mode)Web mode
Web mode is a good general-purpose web template mode. It works well with many template languages and PHP as well.
Enable a specialized whitespace mode for web mode that shows tabs at the beginning of a line.
(add-hook 'web-mode-hook 'oni-whitespace-only-tabs-mode)Makefile mode
Show tabs in Makefiles. Tabs are required at the beginning of any non-continuation line in a recipe. I don't use it for indenting, however.
(add-hook 'makefile-mode-hook 'oni-whitespace-only-tabs-mode)Enable electric pairing.
(add-hook 'makefile-mode-hook 'electric-pair-local-mode)Clojure mode
Install extra font-locking for clojure.
(with-eval-after-load 'clojure-mode
(require 'clojure-mode-extra-font-locking))Enable paredit mode.
(add-hook 'clojure-mode-hook 'paredit-mode)Enable rainbow delimiters.
(add-hook 'clojure-mode-hook 'rainbow-delimiters-mode)Use the clojure repl as the inferior lisp mode.
(eval-when-compile (require 'inf-lisp))
(defun oni:clojure-set-inferior-lisp ()
(setq inferior-lisp-program "lein repl"))Add a little more font locking still, and some indentation. This is included in the Clojure for the Brave and True configuration.
(add-hook 'clojure-mode-hook 'oni-clojure-add-font-lock)
(add-hook 'clojure-mode-hook 'oni-clojure-add-indent)Cider mode
Cider is like Slime for Common Lisp. This configuration is copied from the one provided by Clojure for the Brave and True.
Go right to the REPL buffer when it's finished connecting
(with-eval-after-load 'cider
(setq cider-repl-pop-to-buffer-on-connect t))When there's a cider error, show its buffer and switch to it.
(setq cider-show-error-buffer t
cider-auto-select-error-buffer t)Where to store the cider history.
(setq cider-repl-history-file
(oni:data-location "cider-history"))Wrap when navigating history.
(setq cider-repl-wrap-history t)Enable paredit in your REPL.
(add-hook 'cider-repl-mode-hook 'paredit-mode)C Mode
Enable electric pair mode.
(add-hook 'c-mode-hook 'electric-pair-local-mode)Enable electric indent mode.
(add-hook 'c-mode-hook 'electric-indent-local-mode)Lisp mode
Enable paredit mode for Common Lisp programming.
(add-hook 'lisp-mode-hook 'paredit-mode)Enable rainbow-delimiters mode for Common Lisp programming.
(add-hook 'lisp-mode-hook 'rainbow-delimiters-mode)Enable company mode for Common Lisp programmind.
(add-hook 'lisp-mode-hook 'company-mode)JavaScript IDE mode
Since js2-mode isn't loaded when Emacs starts put the
configuration in a different file so that it doesn't cause a
slowdown in startup time.
(with-eval-after-load 'js2-mode (load "oni-js2-init"))
Keep the byte-compiler happy by requiring js2-mode, by this time
it will have been loaded anyway.
(require 'js2-mode)Silence warnings about trailing commas in JavaScript code. I usually write code that goes through Babel or something similar and doesn't actually die when a trailing comma is present. Also this should really be handled by a linter such as eslint.
(setq js2-strict-trailing-comma-warning nil)
Enable subword-mode because a lot of JavaScript identifiers look
either like someIdentifier or SomeClassName.
(add-hook 'js2-mode-hook 'subword-mode)Set the basic offset to 2 spaces for JavaScript.
(setq js2-basic-offset 2)Applications
- Dired
-
The Emacs file manager. Very powerful, and I don't use it enough yet.
(with-eval-after-load 'dired (load "oni-dired-init")) - Magit
-
The Emacs git interface. By now I think I may know magit better than the git cli.
(with-eval-after-load 'magit (load "oni-magit-init")) - Ediff
-
A reall diff application.
(with-eval-after-load 'ediff (load "oni-ediff-init")) - Eshell
-
The best shell on the planet.
(with-eval-after-load 'eshell (load "oni-eshell-init")) - Slack
-
A slack client for Emacs.
(with-eval-after-load 'slack (load "oni-slack-init")) - Circe
-
A very nice and clean IRC client for Emacs.
(with-eval-after-load 'circe (load "oni-circe-init"))
Linewise user-interface
This is the library used by Circe and Slack to display messages.
(eval-when-compile (require 'lui))Put the time stamp in lui buffers in the right margin. This gives the text some extra room.
(with-eval-after-load 'lui
(setq lui-time-stamp-position 'right-margin))Remove the "[]" from the time stamp, it's not really necessary.
(with-eval-after-load 'lui
(setq lui-time-stamp-format "%H:%M"))Give the right margin just enough room to show the time-stamps, no more, no less.
(defun oni:set-circe-margin-width ()
(setq right-margin-width 5))
(add-hook 'lui-mode-hook #'oni:set-circe-margin-width)Fix the wrap prefix so that text at the prompt is aligned properly.
(defun oni:set-lui-prompt-wrap-prefix ()
(setq wrap-prefix " "))
(add-hook 'lui-mode-hook #'oni:set-lui-prompt-wrap-prefix)Enable visual line mode in lui buffers so my text doesn't go off-screen.
(add-hook 'lui-mode-hook 'visual-line-mode)Turn off filling in lui buffers. I use visual-line mode instead.
(setq lui-fill-type nil)Jabber
I like using XMPP to talk to people, jabber.el is very good at this.
(eval-when-compile (require 'jabber))Add my account.
(setq jabber-account-list
`((,(concat "ryuslash@dukgo.com/" (system-name))
(:connection-type . starttls))))Store any persistent data in the data directory.
(setq jabber-avatar-cache-directory (oni:data-location "jabber/avatars/")
jabber-history-dir (oni:data-location "jabber/hist/"))Change the default prompts.
(setq jabber-chat-buffer-format "+%n"
jabber-chat-foreign-prompt-format "%t %n "
jabber-chat-local-prompt-format "%t %n "
jabber-chat-delayed-time-format "%H:%M"
jabber-groupchat-buffer-format "++%n"
jabber-groupchat-prompt-format "%t %n ")Don't show avatars, publish or retrieve avatars.
(setq jabber-chat-buffer-show-avatar nil
jabber-vcard-avatars-publish nil
jabber-vcard-avatars-retrieve nil)Don't fill long lines in jabber chat buffers, but use visual line mode.
(setq jabber-chat-fill-long-lines nil)
(add-hook 'jabber-chat-mode-hook 'visual-line-mode)Don't send notifications about chat states.
(setq jabber-chatstates-confirm nil)Colorize text in multi-user chats.
(setq jabber-muc-colorize-local t
jabber-muc-colorize-foreign t)Enable recording history.
(setq jabber-history-enabled t
jabber-use-global-history nil)Clean up the default view of the roster buffer.
(setq jabber-roster-show-bindings nil
jabber-show-offline-contacts nil)
(add-hook 'jabber-roster-mode-hook 'oni-jabber-set-roster-mode-line)Use libnotify to send jabber notifications.
(add-hook 'jabber-alert-message-hooks 'jabber-message-libnotify)
(add-hook 'jabber-alert-muc-hooks 'jabber-muc-libnotify)Don't echo presence changes in the mode line, show them in the relevant buffer instead.
(with-eval-after-load 'jabber-alert
(remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
(add-hook 'jabber-alert-presence-hooks 'oni-jabber-show-status-in-buffer)Set the default directory to my home directory for jabber chat buffers.
(defun oni:set-default-directory ()
(setq default-directory "~/"))
(add-hook 'jabber-chat-mode-hook 'oni:set-default-directory)Gnus
Gnus is the very extensible Emacs news reader, which just happens to also function very well as a mail reader. Since it is so extensible and also configurable the configuration for it tends to get big, so I split it into a separate file.
(with-eval-after-load 'gnus (load "oni-gnus-init"))Configuring Gnus is actually configuring a handful of packages, so I require them all when Gnus is loaded so the byte compiler won't yell at me.
(require 'gnus)
(require 'gnus-msg)
(require 'mail-source)
(require 'message)
(require 'nnfolder)
(require 'sendmail)
I don't like having a lot of files spread around in my .emacs.d
directory, so put all of Gnus', Message's and nnfolder's data in
.emacs.d/data.
(setq gnus-directory (locate-user-emacs-file "data/News")
gnus-article-save-directory gnus-directory
gnus-cache-directory gnus-directory
gnus-kill-files-directory gnus-directory)
(setq mail-source-directory (locate-user-emacs-file "data/Mail")
message-directory mail-source-directory
nnfolder-directory mail-source-directory)Use msmtp to send my messages.
(setq send-mail-function 'send-mail-send-it
message-send-mail-function 'message-send-mail-with-sendmail
sendmail-program "/usr/bin/msmtp")I've been using Gnus for a while now and I don't think I fit the profile of a novice anymore. Turning this off will stop Gnus from asking me if I'm sure I want to delete a certain message, I do this a lot because expiring messages seems to take too long for my tastes.
(setq gnus-novice-user nil)Add a keybinding to the Gnus summary mode to easily delete messages.
(defun oni-gnus-delete-forward (&optional n)
"Delete the article under point and move to the next one.
Do this N times."
(interactive "p")
(dotimes (_ (or n 1))
(gnus-summary-delete-article)
(gnus-summary-next-subject 1)))
(define-key gnus-summary-mode-map (kbd "M-d") #'oni-gnus-delete-forward)Change the format of how each line for a group in the Group buffer is displayed. This shows the group name, the select method, group subscription status, the process mark (whatever that is), whether there is a summary buffer open for that group, number of unread articles and the number of ticked articles.
(setq gnus-group-line-format "%P%(%20G%): %-10s %S%p%B %5y %5T\n")Mail accounts
I mostly use two email accounts.
ryuslash.org
Set my main email account as the primary select method for Gnus.
(setq gnus-select-method
'(nnmaildir "ryuslash" (directory "~/documents/mail/ryuslash/")))When sending mail from the ryuslash inbox, use the ryuslash msmtp account.
(add-to-list 'gnus-posting-styles
'(".*"
(address "tom@ryuslash.org")
(eval (setq message-sendmail-extra-arguments
'("-a" "ryuslash")))))gmail.com
Add my other personal email as a secondary select method.
(add-to-list 'gnus-secondary-select-methods
'(nnmaildir "gmail"
(directory "~/documents/mail/gmail/")))When sending mail from the gmail account, use the gmail msmtp accound and set the proper email address.
(add-to-list 'gnus-posting-styles
'("gmail:"
(name "Tom Willemse")
(address "ryuslash@gmail.com")
(eval (setq message-sendmail-extra-arguments
'("-a" "gmail")))))Org mode
Since Org mode is a big package and I end up customizing it a lot I always keep its settings in a separate file since it might be awhile before org-mode is loaded.
(with-eval-after-load 'org (load "oni-org-init"))To keep the byte-compiler from complaining, require any libraries that are used by my configuration when this file is loaded.
(require 'org)
(require 'org-bullets)
(require 'org-capture)Fontify source code blocks in Org mode natively, meaning that they should be fontified using the major mode specified in the source block language.
(setq org-src-fontify-natively t)Follow the link at point when is pressed.
(setq org-return-follows-link t)Automatically fill paragraphs while editing text.
(add-hook 'org-mode-hook 'auto-fill-mode)Show pretty bullets instead of the default asterisk characters.
(add-hook 'org-mode-hook 'org-bullets-mode)Custom
Put the customize settings in a different file so that Emacs doesn't have to modify this file whenever something changes through customize. I put this into my init file last so any settings made in there can overwrite the ones in the rest of the file, not that I usually like to do that.
(setq custom-file (concat user-emacs-directory "custom.el"))
(load custom-file)