ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
legacy-dotfiles/emacs/init.org

15 KiB
Raw Blame History

Emacs init

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"))

Add my project /ryuslash/legacy-dotfiles/src/commit/7856c942888afd7aafdbde09646c59d90cd5fe39/emacs/yoshi-theme to custom-theme-load-path and load it.

  (add-to-list 'custom-theme-load-path "~/projects/emacs/yoshi-theme/")
  (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-id face.
  • Show an abbreviation of the current directory (as seen in fish) using the font-lock-string-face face.
  • If we're in a git repository, show the current branch with the font-lock-function-name-face face.
  • 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")