legacy-dotfiles/emacs/init.org

#+TITLE: Emacs init
#+LINK: yoshi-theme http://ryuslash.org/projects/yoshi-theme.html
#+OPTIONS: author:nil num:nil
#+PROPERTY: tangle init2.el
#+STARTUP: showall

* 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.

   #+BEGIN_SRC emacs-lisp
     (menu-bar-mode -1)
   #+END_SRC

** 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.

   #+BEGIN_SRC emacs-lisp
     (scroll-bar-mode -1)
   #+END_SRC

** tool-bar-mode

   I've never used the tool bar much, so remove it.

   #+BEGIN_SRC emacs-lisp
     (tool-bar-mode -1)
   #+END_SRC

* 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.

  #+BEGIN_SRC emacs-lisp
    (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"))
  #+END_SRC

  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.

  #+BEGIN_SRC emacs-lisp
    (add-hook 'emacs-startup-hook (lambda () (load-theme 'yoshi t)))
  #+END_SRC

  Add any other interesting paths to =load-path= and, if it exists,
  load the ~loaddefs.el~ file from these directories.

  #+BEGIN_SRC emacs-lisp
    (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"))
  #+END_SRC

* y-or-n-p

  Don't ask ~yes~ or ~no~, ask ~y~ or ~n~, I've never had an accidental ~y~ so
  far.

  #+BEGIN_SRC emacs-lisp
    (defalias 'yes-or-no-p 'y-or-n-p)
  #+END_SRC

* ibuffer

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

  #+BEGIN_SRC emacs-lisp
    (defalias 'list-buffers 'ibuffer)
  #+END_SRC

* hippie-expand

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

  #+BEGIN_SRC emacs-lisp
    (defalias 'dabbrev-expand 'hippie-expand)
  #+END_SRC

* 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.

  #+BEGIN_SRC emacs-lisp
    (eval-after-load "eldoc" '(diminish 'eldoc-mode))
  #+END_SRC

* emms

   Use the standard EMMS configuration and add some MPD settings.

   #+BEGIN_SRC emacs-lisp
     (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/")
   #+END_SRC

   Add some keybindings for EMMS.

   #+BEGIN_SRC emacs-lisp
     (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)
   #+END_SRC

* flymake

   Load ~flymake-cursor~ after loading ~flymake~, add Python and Go to
   "allowed" files and add go error output to error patterns.

   #+BEGIN_SRC emacs-lisp
     (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))
   #+END_SRC

   Disable the GUI for flymake errors. This causes the flymake errors
   to be shown in the minibuffer.

   #+BEGIN_SRC emacs-lisp
     (setq flymake-gui-warnings-enabled nil)
   #+END_SRC

   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.

   #+BEGIN_SRC emacs-lisp
     (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"))))
   #+END_SRC

* flycheck

   After loading ~flycheck~ Remove the default python checkers and
   replace them with my own, which tries both ~flake8~ and ~pylint~.

   #+BEGIN_SRC emacs-lisp
     (eval-after-load "flycheck"
       '(progn
          (mapc (lambda (c) (delete c flycheck-checkers))
                '(python-pylint python-pyflakes))))
   #+END_SRC

* 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~.

  #+BEGIN_SRC emacs-lisp
    (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)
  #+END_SRC

  Remove the string displayed before the ~C-l~.

  #+BEGIN_SRC emacs-lisp
    (setq pp^L-^L-string-pre nil)
  #+END_SRC

  Enable =pretty-control-l-mode= at startup and whenever a new frame is
  created.

  #+BEGIN_SRC emacs-lisp
    (add-hook 'emacs-startup-hook 'pretty-control-l-mode)
    (add-hook 'after-make-frame-functions
              '(lambda (arg) (pretty-control-l-mode)))
  #+END_SRC

* erc

  Automatically join some channels when connecting to freenode.net.

  #+BEGIN_SRC emacs-lisp
    (setq erc-autojoin-channels-alist
          '(("freenode.net" "#ninthfloor" "#emacs")))
  #+END_SRC

  Don't show ~PART~ messages.

  #+BEGIN_SRC emacs-lisp
    (setq erc-hide-list '("PART"))
  #+END_SRC

  Insert a timestamp every time a message comes in, print it on the
  left and print the hour and minute parts of the time.

  #+BEGIN_SRC emacs-lisp
    (setq erc-insert-timestamp-function 'erc-insert-timestamp-left)
    (setq erc-timestamp-format "[%H:%M] ")
    (setq erc-timestamp-only-if-changed-flag nil)
  #+END_SRC

  Set my nickname.

  #+BEGIN_SRC emacs-lisp
    (setq erc-nick "ryuslash")
  #+END_SRC

  When starting ERC disable truncating lines, don't let ERC fill each
  line and enable =visual-line-mode=.

  #+BEGIN_SRC emacs-lisp
    (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)
  #+END_SRC

* eshell

  Add ~unison~ to the list of =eshell-visual-commands= because it
  expects unbuffered input and eshell just doesn't give that.

  #+BEGIN_SRC emacs-lisp
    (eval-after-load "em-term"
      '(add-to-list 'eshell-visual-commands "unison"))
  #+END_SRC

  Don't let eshell highlight it's prompt, this way I can decide the
  colors for it myself.

  #+BEGIN_SRC emacs-lisp
    (setq eshell-highlight-prompt nil)
  #+END_SRC

  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

  #+BEGIN_SRC emacs-lisp
    (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 "^[#$]> ")
  #+END_SRC

  Don't truncate lines in eshell, wrap them.

  #+BEGIN_SRC emacs-lisp
    (defun oni:eshell-mode-func ()
      "Function for `eshell-mode-hook'."
      (setq truncate-lines nil))

    (add-hook 'eshell-mode-hook 'oni:eshell-mode-func)
  #+END_SRC

  Bind the ~f8~ key to easily show eshell.

  #+BEGIN_SRC emacs-lisp
    (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)
  #+END_SRC

* svg-mode-line-themes

  After Emacs has initialized, enable =svg-mode-line-themes= and select
  a theme.

  #+BEGIN_SRC emacs-lisp
    (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)
  #+END_SRC

* 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.

  #+BEGIN_SRC emacs-lisp
    (setq-default bidi-paragraph-direction 'left-to-right)
  #+END_SRC

* disabled

  There are some functions which get disabled by default because they
  "confuse new users", but these I like using.

  #+BEGIN_SRC emacs-lisp
    (put 'upcase-region 'disabled nil)
    (put 'downcase-region 'disabled nil)
    (put 'narrow-to-region 'disabled nil)
    (put 'scroll-left 'disabled nil)
  #+END_SRC

* jabber

  Require ~jabber-libnotify~ so we can use its alert functions.

  #+BEGIN_SRC emacs-lisp
    (require 'jabber-libnotify)
  #+END_SRC

  Enable libnotify alerts for regular and mutli-user chats, this is
  preferable to seeing them in the echo area.

  #+BEGIN_SRC emacs-lisp
    (add-hook 'jabber-alert-message-hooks 'jabber-message-libnotify)
    (add-hook 'jabber-alert-muc-hooks 'jabber-muc-libnotify)
  #+END_SRC

  Keep track of what was said to and by my contacts, both for
  "personal" chats and muc chats.

  #+BEGIN_SRC emacs-lisp
    (setq jabber-history-enabled t
          jabber-history-muc-enabled t)
  #+END_SRC

  Store history on a per-contact basis and keep these files in
  ~$HOME/.emacs.d/jabber-hist~.

  #+BEGIN_SRC emacs-lisp
    (setq jabber-use-global-history nil
          jabber-history-dir "~/.emacs.d/jabber-hist")
  #+END_SRC