17 KiB
Emacs init
Disable the menu-bar-mode, tool-bar-mode and scroll-bar-mode early on
so the disappear quickly after emacs starts up.
(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)Define a macro for deferring code until after emacs has started up.
(defmacro eval-after-init (&rest body)
"Defer execution of BODY until after Emacs init."
`(add-hook 'emacs-startup-hook #'(lambda () ,@body)))
Add /usr/share/emacs/site-lisp and
/usr/local/emacs/share/emacs/site-lisp and all their sub-directories
to the load-path so I can use modules from both Emacs from the
official repository and the self-compiled one.
This should be done both when compiling the elisp file and when loading it so it doesn't complain about missing modules and such.
(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"))
Defer loading my theme until after emacs initialization. This is
because it has been installed with package.el, and the packages aren't
added to the load-path until after init.el has been run through.
(eval-after-init (load-theme 'yoshi t))
Add some of my project directories and other important directories
into load-path so I can easily load libraries in them. Also, if it
exists, load loaddefs.el in each directory for autoloads.
(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"))
Replace the question of yes or no with just y or n, I have never (yet)
accidentally typed a y or n when asked and typing yes or no is just
too much work.
(defalias 'yes-or-no-p 'y-or-n-p)Replace these functions with better alternatives. They offer the same functionality, plus more.
(defalias 'list-buffers 'ibuffer)
(defalias 'dabbrev-expand 'hippie-expand) (setq compilation-scroll-output t)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:smt/minor-mode-indicator-text (widget)
(let ((text (concat
(when (bound-and-true-p auto-complete-mode) "C")
(when (bound-and-true-p auto-fill-mode) "F")
(when (bound-and-true-p eldoc-mode) "D"))))
(if (plusp (length text))
(concat " " text)
"")))
(defun oni:jabber-activity (widget)
(when (boundp 'jabber-activity-mode-string)
(concat jabber-activity-mode-string " ")))
(eval-after-load "svg-mode-line-themes"
'(progn
(smt/defwidget oni:jabber-activity-widget
:text 'oni:jabber-activity)
(smt/defrow oni:default-right
:widgets '(oni:jabber-activity-widget major-mode version-control
minor-modes)
:align "right"
:margin 14)
(smt/deftheme yoshi
:prototype 'black-crystal
:local-widgets
(lambda (theme)
(let ((parent-local-widgets
(smt/t-local-widgets (smt/t-prototype theme))))
(append
(list (cons 'minor-modes
(smt/make-widget
:prototye 'minor-modes
:text 'oni:smt/minor-mode-indicator-text)))
parent-local-widgets)))
:rows '(default-left default-position oni:default-right))))
(defun oni:enable-svg-mode-line-theme ()
"Enable `svg-mode-line-theme' and select a theme."
(smt/enable)
(smt/set-theme 'yoshi))
(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
Don't echo presence updates in the message area.
(defun oni:jabber-init ()
"Initialization function for jabber."
(remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
(eval-after-load "jabber" '(oni:jabber-init))
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")Add some accounts.
(setq jabber-account-list '(("ryuslash@jabber.org")
("tom@ryuslash.org/drd"
(:connection-type . ssl))))ido
Keep some buffers from showing up when using ido-mode. Either these get used very rarely or they don't have any really useful information in them.
(defun oni:ido-init ()
"Initialization functionn for ido."
(setq ido-ignore-buffers
(list "^\\` " "^irc\\." "^\\#" "^\\*Customize Option:"
(eval-when-compile
(regexp-opt
'("*-jabber-roster-*"
"*Messages*"
"*fsm-debug*"
"*magit-process*"
"*magit-edit-log*"
"*Backtrace*"))))))
(eval-after-load "ido" '(oni:ido-init))Ido tries to be smart and find files in other directories, I don't like that, stop doing that (or at least wait a long time).
(setq ido-auto-merge-delay-time 1000000)Open files in the selected window when switching between buffers.
(setq ido-default-buffer-method 'selected-window)Only ever show one line of possibilities when using ido. I hate it when the minibuffer grows.
(setq ido-max-window-height 1)Don't save ido state between invocations.
(setq ido-save-directory-list-file nil)
Enable ido-mode.
(ido-mode)ido-ubiquitous
Don't use ido when calling org-refile or org-capture-refile.
(setq ido-ubiquitous-command-exceptions
'(org-refile org-capture-refile))
Enable ido-ubiquitous.
(ido-ubiquitous-mode)idomenu
Call idomenu with M-n.
(global-set-key (kbd "M-n") 'idomenu)