emacs: I'm on a highway to hell!

Signed-off-by: Miquel Sabaté Solà <msabate@suse.com>

1 files changed, 382 insertions, 0 deletions

diff --git a/emacs/init.el b/emacs/init.el
new file mode 100644
index 0000000..5f98d28
--- /dev/null
+++ b/emacs/init.el
@@ -0,0 +1,382 @@
+;;; init.el --- My Emacs configuration
+
+;; Copyright (C) 2016 Miquel Sabaté Solà <mikisabate@gmail.com>
+;;
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; This is my personal Emacs configuration.  I wouldn't expect much to be
+;; honest :)
+
+;;; Credits:
+;;
+;; I've built this file by simply scavenging from other people's
+;; emacs.d/dotfiles repositories. I have taken lots of pieces from here and
+;; there, but most notably:
+;;  - @ereslibre:   https://github.com/ereslibre/dotfiles
+;;  - @dmacvicar:   https://github.com/dmacvicar/dotfiles
+;;  - @bbatsov:     https://github.com/bbatsov/emacs.d
+;;  - @aaronbieber: https://github.com/aaronbieber/dotfiles
+
+;;; Code:
+
+;; I'm sticking with the major version I'm using, deal with it.
+(unless (>= emacs-major-version 24)
+  (error "Don't be a cheap bastard and upgrade to at least Emacs 24"))
+
+;; Initialize 'package
+(require 'package)
+
+(add-to-list 'package-archives
+             '("melpa" . "http://melpa.milkbox.net/packages/") t)
+(add-to-list 'package-archives
+             '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+
+(package-initialize)
+
+;; UTF-8 *always*.
+(prefer-coding-system 'utf-8)
+(set-default-coding-systems 'utf-8)
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+
+;; User name and email.
+(setq user-full-name "Miquel Sabaté Solà"
+      user-mail-address "mikisabate@gmail.com")
+
+;; Calendar
+(defvar calendar-week-start-day 1)
+
+;; No welcome screen
+(setq-default inhibit-startup-message t)
+
+;; Enable y/n answers
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;; The frame title is "mssola: <path>". If we are not editing a file, then the
+;; name of the buffer is displayed (e.g. "mssola: *scratch*").
+(setq frame-title-format
+  '((:eval
+    (if (buffer-file-name)
+      (concat
+        (user-real-login-name)
+        ": "
+        (abbreviate-file-name (buffer-file-name)))
+		  "mssola: %b"))))
+
+;; Emacs modes typically provide a standard means to change the indentation
+;; width (e.g. c-basic-offset). Moreover, even though I prefer tabs over space,
+;; for most coding conventions this is not the case (e.g. ruby). For this
+;; reason, I will disable them by default and enabled them back for each
+;; specific case (e.g. C). I'm also using the smart-tabs-mode package, see
+;; below in the languages section.
+(setq-default indent-tabs-mode nil)
+(setq-default tab-width 4)
+
+;; Delete the selection with a keypress.
+(delete-selection-mode t)
+
+;; Revert buffers automatically when underlying files are changed externally
+(global-auto-revert-mode t)
+
+;; Do not break lines
+(set-default 'truncate-lines t)
+
+;; No backups
+(setq-default make-backup-files nil)
+(setq-default auto-save-default nil)
+
+;; Nice scrolling
+(setq scroll-margin 0
+      scroll-conservatively 100000
+      scroll-preserve-screen-position 1)
+
+;; Remove whitespaces at the end of line
+(add-hook 'before-save-hook 'delete-trailing-whitespace)
+
+;; Graphical interface tweaks
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+(scroll-bar-mode -1)
+
+;; Lines and columns
+(line-number-mode 1)
+(column-number-mode 1)
+
+;; Cursor
+(blink-cursor-mode 0)
+(global-hl-line-mode -1)
+
+;; Follow symlinks
+(setq vc-follow-symlinks t)
+
+;; Default theme
+(load-theme 'soria t)
+
+;; Default font
+
+(set-frame-font "Droid Sans Mono Dotted for Powerline-10")
+(add-to-list 'default-frame-alist '(font . "Droid Sans Mono Dotted for Powerline-10"))
+(set-face-attribute 'default t :font "Droid Sans Mono Dotted for Powerline-10")
+
+;; Disable C-z. It will later on be picked up by Evil's config as the escape
+;; sequence. This is here to make sure that it will be disabled even if Evil
+;; cannot be loaded due to some error.
+(global-unset-key (kbd "C-z"))
+
+;; Let flyspell be performant.
+(defvar flyspell-issue-message-flag nil)
+
+;;; Packages
+
+;; I'm using use-package to handle my installed packages. I don't know if it's
+;; the best option or what because I haven't tested all the package managers
+;; for Emacs out there. After trying some custom functions to handle
+;; package-install, I decided on use-package because I feel more well-organized.
+(unless (package-installed-p 'use-package)
+  (package-install 'use-package))
+
+(require 'use-package)
+(setq use-package-verbose t)
+
+;; Ayo silver!
+(use-package ag
+  :ensure t
+  :config
+  (add-hook 'ag-mode-hook
+    (lambda ()
+      (define-key ag-mode-map (kbd "n") 'evil-search-next)
+      (define-key ag-mode-map (kbd "N") 'evil-search-previous)
+      (define-key ag-mode-map (kbd "gg") 'evil-goto-first-line)))
+  (setq ag-reuse-buffers t)
+  (setq ag-reuse-window t))
+
+;; Flycheck
+
+(use-package let-alist
+  :ensure t)
+
+(use-package flycheck
+  :ensure t
+  :config
+  (add-hook 'after-init-hook 'global-flycheck-mode)
+
+  ;; Only show the errors buffer if it isn't there and if I'm saving the
+  ;; buffer.
+  (setq flycheck-emacs-lisp-load-path 'inherit)
+  (setq flycheck-check-syntax-automatically '(mode-enabled save))
+  (setq flycheck-display-errors-function
+    #'flycheck-display-error-messages-unless-error-list))
+
+;; Projectile & Helm
+
+(use-package projectile
+  :ensure t
+  :config
+  (projectile-global-mode +1)
+  (setq projectile-mode-line
+    '(:eval (format " %s" (projectile-project-name))))
+)
+
+(use-package helm
+  :ensure t
+  :config
+  (setq projectile-completion-system 'helm))
+
+(use-package helm-projectile
+  :ensure t
+  :config
+  (helm-projectile-on))
+
+;; Rising from the deep flames of Hell: my Evil configuration.
+;; TODO: evil mode also in backtraces
+;; TODO: evil mode also in documentation
+;; TODO: evil mode also in calendar
+;; TODO: evil mode also in helm's find-file
+
+(defun mssola-evil ()
+  "Configure evil mode."
+
+  ; We can safely remap <C-u> because the counting will be handled a-la Vim.
+  (define-key evil-normal-state-map (kbd "C-u") 'evil-scroll-up)
+
+  ; Make window navigation easier.
+  (define-key evil-normal-state-map (kbd "C-j") 'evil-window-down)
+  (define-key evil-normal-state-map (kbd "C-k") 'evil-window-up)
+  (define-key evil-normal-state-map (kbd "C-l") 'evil-window-right)
+  (define-key evil-normal-state-map (kbd "C-h") 'evil-window-left)
+
+  ; The window navigation tweaks effectively wipe out the help prefix, which
+  ; is bad. Fortunately we can workaround this by providing "M-h" as the new
+  ; help prefix. This prefix is only used in emacs mode to mark lines, which is
+  ; something already handled by Evil.
+  (define-key global-map (kbd "M-h") 'help-command)
+  (fset 'help-command help-map)
+
+  ; Helm + Projectile shortcuts.
+  (define-key evil-normal-state-map (kbd "C-p") 'helm-projectile-find-file)
+  (define-key evil-normal-state-map (kbd "M-p") 'helm-projectile-switch-project)
+
+  ; I store macros on the <q> register for convenience, so let's also use the
+  ; <C-q> combo to execute the macro.
+  ; TODO: not really working
+  (define-key evil-normal-state-map (kbd "C-q")
+    (lambda () (interactive) (evil-execute-macro 1 'q)))
+
+  ; C-s: switch to normal mode and save the buffer. I know :)
+  (define-key evil-normal-state-map (kbd "C-s") 'save-buffer)
+  (define-key evil-insert-state-map (kbd "C-s")
+    (lambda () (interactive) (save-buffer) (evil-force-normal-state))))
+
+(use-package evil
+  :ensure t
+  :config
+  (add-hook 'evil-mode-hook 'mssola-evil)
+  (evil-mode 1)
+
+  ;; C-z is unused and it's close to my beloved C-c. Since I don't want to mess
+  ;; with one of the most sacred Emacs prefixes, I'm moving to C-z.
+  (define-key key-translation-map (kbd "C-z") [escape])
+  (define-key evil-operator-state-map (kbd "C-z") 'keyboard-quit)
+  (set-quit-char "C-z")
+
+  ;; Use insert mode by default on the following modes.
+  (dolist (mode '(twittering-edit-mode))
+    (add-to-list 'evil-insert-state-modes mode))
+
+  (use-package evil-leader
+    :ensure t
+    :config
+    (global-evil-leader-mode)
+    (evil-leader/set-leader ",")
+    (setq evil-leader/in-all-states 1)
+    (evil-leader/set-key
+      "," 'back-to-indentation
+      "c" 'delete-window
+      "v" 'split-window-right
+      "V" (lambda () (interactive) (split-window-right) (other-window 1))
+      "f" 'flycheck-list-errors
+      "e" 'eval-last-sexp))
+
+  (use-package evil-surround
+    :ensure t
+    :config
+    (global-evil-surround-mode 1)))
+
+;; I heard you could have Twitter in Emacs, so let's roll with it.
+(use-package twittering-mode
+  :ensure t
+  :commands twit
+  :config
+  (setq twittering-use-master-password t)
+  (setq twittering-use-native-retweet t)
+  (setq twittering-icon-mode t)
+  (setq twittering-use-icon-storage t)
+
+  ; Let's use the <leader> key to perform the actions that I use more often.
+  (add-hook 'twittering-mode-hook
+    (lambda ()
+      (evil-leader/set-key
+        "t" 'twittering-update-status-interactive ; Tweet
+        "q" 'twittering-retweet                   ; Quote
+        "r" 'twittering-native-retweet            ; Retweet
+        "f" 'twittering-favorite)))               ; Fav
+
+  ; Activate flyspell mode when tweeting and added the <leader>c shortcut to
+  ; cancel sending a tweet.
+  (add-hook 'twittering-edit-mode-hook
+    (lambda ()
+      (flyspell-mode 1))
+      (evil-leader/set-key
+        "c" 'twittering-edit-cancel-status)))
+
+;;; Programming languages.
+
+(defun warnings-mode-hook ()
+  "Hook for enabling the warning face on strings with a warning prefix."
+
+  (font-lock-add-keywords nil
+    '(("\\(XXX\\|FIXME\\|TODO\\|HACK\\|NOTE\\)"
+    1 font-lock-warning-face prepend))))
+
+;; Text mode.
+(add-hook 'text-mode-hook (lambda () (flyspell-mode 1)))
+
+;; Emacs Lisp mode
+(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
+
+;; C-common (it includes languages with a similar syntax of C).
+(add-hook 'c-mode-common-hook 'warnings-mode-hook)
+(add-hook 'c-mode-common-hook (lambda() (flyspell-prog-mode)))
+
+;; C
+(add-hook 'c-mode-hook
+  (lambda () (setq indent-tabs-mode t)))
+
+;; C++
+(add-hook 'c++-mode-hook
+  (lambda () (setq indent-tabs-mode t)))
+
+(defun mssola-go-mode ()
+  "My configuration for Go mode."
+
+  (require 'go-mode-autoloads)
+
+  ; Use goimports instead of go-fmt
+  (setq gofmt-command "goimports")
+
+  ; Call Gofmt before saving
+  (add-hook 'before-save-hook 'gofmt-before-save)
+
+  ; Integration flycheck with Go
+  (add-to-list 'load-path
+    (concat (getenv "GOPATH") "/src/github.com/dougm/goflymake"))
+  (require 'go-flycheck)
+
+  (evil-leader/set-key
+    "." 'godef-jump-other-window)
+
+  ; TODO: yasnippet
+
+  ; eldoc support
+  (use-package go-eldoc
+    :ensure t
+    :config
+    (require 'go-eldoc)))
+
+;; Go
+(use-package go-mode
+  :ensure t
+  :pin melpa-stable
+  :config
+  (mssola-go-mode))
+
+(add-hook 'go-mode-hook 'warnings-mode-hook)
+(add-hook 'go-mode-hook 'go-eldoc-setup)
+(add-hook 'go-mode-hook
+  (lambda ()
+    (setq indent-tabs-mode t)
+    (flyspell-prog-mode)))
+
+;; Smart tabs
+(use-package smart-tabs-mode
+  :ensure t
+  :config
+  (smart-tabs-add-language-support golang go-mode-hook
+    ((c-indent-line . c-basic-offset)
+     (c-indent-region . c-basic-offset)))
+  (smart-tabs-insinuate 'c 'c++ 'golang))
+
+;;; init.el ends here