legacy-dotfiles/.emacs.d/init.org

Emacs init

• Emacs init
  • Eshell

Emacs init

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/ee34dfcc2c2fec53731b64afca03bb34dd80b2ba/.emacs.d/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)

Remove the menu-bar, tool-bar and scroll-bar from the UI since I don't use them at all.

  (menu-bar-mode -1)
  (scroll-bar-mode -1)
  (tool-bar-mode -1)

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

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)

Use ibuffer instead of the default list-buffers because it has many more features.

  (defalias 'list-buffers 'ibuffer)

Do the same with hippie-expand and dabbrev-expand.

  (defalias 'dabbrev-expand 'hippie-expand)

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

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)

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, 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-gui-warnings-enabled nil)
  (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"))))

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

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)