15 KiB
Emacs init
- GUI
- load-path
- y-or-n-p
- ibuffer
- hippie-expand
- eldoc
- emms
- flymake
- flycheck
- pretty-control-l-mode
- erc
- eshell
- svg-mode-line-themes
- bidi
- disabled
- jabber
GUI
These things should happen early, so that Emacs will look the way I want it to as quickly as is possible.
menu-bar-mode
Disable menu-bar-mode since I haven't used the menu bar much ever,
even when I first started using Emacs.
(menu-bar-mode -1)scroll-bar-mode
Since Emacs gives a pretty good indication of where in the buffer I'm working I really don't need to have the scroll bar visible.
(scroll-bar-mode -1)tool-bar-mode
I've never used the tool bar much, so remove it.
(tool-bar-mode -1)load-path
Before doing anything else I should make sure that both the
directories /usr/local/emacs/share/emacs/site-lisp and
/usr/share/emacs/site-list are included in load-path, along with
their subdirectories, but only if they haven't already been added
and exist. Place them at the end of load-path so they don't mess up
package precedence.
(eval-and-compile
(defun oni:path-init (dir)
"Add DIR to `load-path' and all its subdirectories, unless
DIR is already in `load-path'."
(unless (or (member dir load-path) (not (file-exists-p dir)))
(let ((default-directory dir))
(add-to-list 'load-path dir t)
(normal-top-level-add-subdirs-to-load-path))))
(oni:path-init "/usr/share/emacs/site-lisp")
(oni:path-init "/usr/local/emacs/share/emacs/site-lisp"))
Load my preferred theme after emacs has finished starting up. Use
the emacs-startup-hook to wait until we're sure all ELPA packages
have been loaded.
(add-hook 'emacs-startup-hook (lambda () (load-theme 'yoshi t)))
Add any other interesting paths to load-path and, if it exists,
load the loaddefs.el file from these directories.
(mapc #'(lambda (dir)
(add-to-list 'load-path dir)
(let ((loaddefs (concat dir "/loaddefs.el")))
(when (file-exists-p loaddefs)
(load loaddefs))))
'("~/projects/emacs/mode-icons" "~/.emacs.d/site-lisp"
"~/projects/emacs/pony-mode/src" "~/projects/emacs/php-mode"
"/usr/local/org-mode/share/emacs/site-lisp/org"))y-or-n-p
Don't ask yes or no, ask y or n, I've never had an accidental y so
far.
(defalias 'yes-or-no-p 'y-or-n-p)ibuffer
Use ibuffer instead of the default list-buffers because it has many
more features.
(defalias 'list-buffers 'ibuffer)hippie-expand
Do the same with hippie-expand and dabbrev-expand.
(defalias 'dabbrev-expand 'hippie-expand)eldoc
Don't show it when eldoc is running, I almost assume that it is
whenever I'm working in a mode that supports it anyway. This should
only execute once eldoc has been loaded.
(eval-after-load "eldoc" '(diminish 'eldoc-mode))emms
Use the standard EMMS configuration and add some MPD settings.
(defun oni:emms-init ()
"Initialization function for EMMS."
(require 'emms-setup)
(require 'emms-player-mpd)
(emms-standard)
(add-to-list 'emms-info-functions 'emms-info-mpd)
(add-to-list 'emms-player-list 'emms-player-mpd)
(setq emms-player-mpd-server-name "localhost")
(setq emms-player-mpd-server-port "6600")
(setq emms-player-mpd-music-directory "/mnt/music/mp3"))
(eval-after-load "emms-source-file" '(oni:emms-init))
(setq emms-source-file-default-directory "/mnt/music/")Add some keybindings for EMMS.
(defun oni:emms-toggle-playing ()
"Toggle between playing/paused states."
(interactive)
(if (eq emms-player-playing-p nil)
(emms-start)
(emms-pause)))
(defun oni:start-emms ()
"Check to see if the function `emms' exists, if not call
`emms-player-mpd-connect' and assume that will have loaded it."
(interactive)
(unless (fboundp 'emms)
(emms-player-mpd-connect))
(emms))
(global-set-key (kbd "<XF86AudioNext>") 'emms-next)
(global-set-key (kbd "<XF86AudioPlay>") 'oni:emms-toggle-playing)
(global-set-key (kbd "<XF86AudioPrev>") 'emms-previous)
(global-set-key (kbd "<XF86AudioStop>") 'emms-stop)
(global-set-key (kbd "<XF86Tools>") 'oni:start-emms)flymake
Load flymake-cursor after loading flymake, add Python and Go to
"allowed" files and add go error output to error patterns.
(defun oni:flymake-init ()
"Initialization function for flymake."
(require 'flymake-cursor)
(add-to-list ; Make sure pyflakes is loaded
'flymake-allowed-file-name-masks ; for python files.
'("\\.py\\'" ext:flymake-pyflakes-init))
(add-to-list ; Error line repexp for go
'flymake-err-line-patterns ; compilation.
'("^\\([a-zA-Z0-9_]+\\.go\\):\\([0-9]+\\):\\(.*\\)$"
1 2 nil 3))
(add-to-list ; Go uses makefiles, makes
'flymake-allowed-file-name-masks ; flymaking 'easy'.
'("\\.go$" flymake-simple-make-init)))
(eval-after-load "flymake" '(oni:flymake-init))Disable the GUI for flymake errors. This causes the flymake errors to be shown in the minibuffer.
(setq flymake-gui-warnings-enabled nil)Add a bunch of pep8, flymake and pyflakes messages to warning and info patterns, set the log file to somewhere in my home directory and set logging level to 0.
(setq flymake-info-line-regexp
(eval-when-compile
(regexp-opt
'("Invalid name"
"String statement has no effect"
"Missing docstring"
"Empty docstring"
"multiple imports on one line"
"expected 2 blank lines, found 1"
"expected 2 blank lines, found 0"
"TODO:"
"whitespace after '{'"
"whitespace before '}'"
"whitespace before ':'"
"whitespace after '('"
"whitespace before ')'"
"whitespace after '['"
"whitespace before ']'"
"the backslash is redundant between brackets"
"continuation line over-indented for visual indent"
"continuation line under-indented for visual indent"
"Too many statements"
"comparison to None should be"
"missing whitespace around operator"
"missing whitespace after ','"
"line too long"
"at least two spaces before inline comment"
"trailing whitespace"
"imported but unused"
"Unused import"
"too many blank lines"))))
(setq flymake-log-file-name (expand-file-name "~/.emacs.d/flymake.log"))
(setq flymake-log-level 0)
(setq flymake-warn-line-regexp
(eval-when-compile
(regexp-opt '("warning"
"Warning"
"redefinition of unused"
"Redefining built-in"
"Redefining name"
"Unused argument"
"Unused variable"
"Dangerous default value {} as argument"
"no newline at end of file"
"Access to a protected member"))))flycheck
After loading flycheck Remove the default python checkers and
replace them with my own, which tries both flake8 and pylint.
(eval-after-load "flycheck"
'(progn
(mapc (lambda (c) (delete c flycheck-checkers))
'(python-pylint python-pyflakes))))pretty-control-l-mode
Make the C-l look like a line of - up to fill-column or
fci-rule-column and remove the string displayed before the C-l.
(defun oni:pretty-control-l-function (win)
"Just make a string of either `fci-rule-column' or
`fill-column' length -1. Use the `-' character. WIN is ignored."
(make-string
(1- (if (boundp 'fci-rule-column)
fci-rule-column fill-column)) ?-))
(setq pp^L-^L-string-function 'oni:pretty-control-l-function)
Remove the string displayed before the C-l.
(setq pp^L-^L-string-pre nil)
Enable pretty-control-l-mode at startup and whenever a new frame is
created.
(add-hook 'emacs-startup-hook 'pretty-control-l-mode)
(add-hook 'after-make-frame-functions
'(lambda (arg) (pretty-control-l-mode)))erc
Automatically join some channels when connecting to freenode.net.
(setq erc-autojoin-channels-alist
'(("freenode.net" "#ninthfloor" "#emacs")))
Don't show PART messages.
(setq erc-hide-list '("PART"))Insert a timestamp every time a message comes in, print it on the left and print the hour and minute parts of the time.
(setq erc-insert-timestamp-function 'erc-insert-timestamp-left)
(setq erc-timestamp-format "[%H:%M] ")
(setq erc-timestamp-only-if-changed-flag nil)Set my nickname.
(setq erc-nick "ryuslash")
When starting ERC disable truncating lines, don't let ERC fill each
line and enable visual-line-mode.
(defun oni:erc-mode-func ()
"Function for `erc-mode-hook'."
(erc-fill-mode -1)
(visual-line-mode)
(setq truncate-lines nil))
(add-hook 'erc-mode-hook 'oni:erc-mode-func)eshell
Add unison to the list of eshell-visual-commands because it
expects unbuffered input and eshell just doesn't give that.
(eval-after-load "em-term"
'(add-to-list 'eshell-visual-commands "unison"))Don't let eshell highlight it's prompt, this way I can decide the colors for it myself.
(setq eshell-highlight-prompt nil)In the prompt:
- Show the exit status of the last program/command run represented
by a green
+and a red-sign. - Show the current hostname with the
mode-line-buffer-idface. - Show an abbreviation of the current directory (as seen in
fish) using thefont-lock-string-faceface. - If we're in a git repository, show the current branch with the
font-lock-function-name-faceface. - Show the status of priviledges in blue.
And set the eshell-prompt-regexp to
(defun oni:eshell-prompt-function ()
"Show a pretty shell prompt."
(let ((status (if (zerop eshell-last-command-status) ?+ ?-))
(hostname (shell-command-to-string "hostname"))
(dir (abbreviate-file-name (eshell/pwd)))
(branch
(shell-command-to-string
"git branch --contains HEAD 2>/dev/null | sed -e '/^[^*]/d'"))
(userstatus (if (zerop (user-uid)) ?# ?$)))
(concat
(propertize (char-to-string status)
'face `(:foreground ,(if (= status ?+)
"green"
"red")))
" "
(propertize (substring hostname 0 -1) 'face 'mode-line-buffer-id)
" "
(propertize (oni:shorten-dir dir) 'face 'font-lock-string-face)
" "
(when (not (string= branch ""))
(propertize
;; Cut off "* " and "\n"
(substring branch 2 -1)
'face 'font-lock-function-name-face))
" \n"
(propertize (char-to-string userstatus)
'face `(:foreground "blue"))
"> ")))
(setq eshell-prompt-function 'oni:eshell-prompt-function
eshell-prompt-regexp "^[#$]> ")Don't truncate lines in eshell, wrap them.
(defun oni:eshell-mode-func ()
"Function for `eshell-mode-hook'."
(setq truncate-lines nil))
(add-hook 'eshell-mode-hook 'oni:eshell-mode-func)
Bind the f8 key to easily show eshell.
(defun oni:raise-eshell ()
"Start or switch back to `eshell'.
Also change directories to current working directory."
(interactive)
(let ((dir (file-name-directory
(or (buffer-file-name) "~/")))
(hasfile (not (eq (buffer-file-name) nil))))
(eshell)
(if (and hasfile (eq eshell-process-list nil))
(progn
(eshell/cd dir)
(eshell-reset)))))
(global-set-key (kbd "<f8>") 'oni:raise-eshell)svg-mode-line-themes
After Emacs has initialized, enable svg-mode-line-themes and select
a theme.
(defun oni:enable-svg-mode-line-theme ()
"Enable `svg-mode-line-theme' and select a theme."
(smt/enable)
(smt/set-theme 'black-crystal))
(add-hook 'emacs-startup-hook 'oni:enable-svg-mode-line-theme)bidi
Disable bi-directional text, since I don't write right-to-left myself and I don't know anyone who does. I have read that it is a bad idea to disable it completely, but forcing left-to-right should help.
(setq-default bidi-paragraph-direction 'left-to-right)disabled
There are some functions which get disabled by default because they "confuse new users", but these I like using.
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'scroll-left 'disabled nil)jabber
Require jabber-libnotify so we can use its alert functions.
(require 'jabber-libnotify)Enable libnotify alerts for regular and mutli-user chats, this is preferable to seeing them in the echo area.
(add-hook 'jabber-alert-message-hooks 'jabber-message-libnotify)
(add-hook 'jabber-alert-muc-hooks 'jabber-muc-libnotify)Keep track of what was said to and by my contacts, both for "personal" chats and muc chats.
(setq jabber-history-enabled t
jabber-history-muc-enabled t)
Store history on a per-contact basis and keep these files in
$HOME/.emacs.d/jabber-hist.
(setq jabber-use-global-history nil
jabber-history-dir "~/.emacs.d/jabber-hist")