init.el

;; Turn off mouse interface early in startup to avoid momentary display

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

;; (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))

(package-initialize)

;; Remove security vulnerability
(eval-after-load "enriched"
  '(defun enriched-decode-display-prop (start end &optional param)
     (list start end)))

;; No splash screen please ... jeez
(setq inhibit-startup-message t)

;; Initialize maximized
(toggle-frame-maximized)

;; Set path to dependencies
(setq site-lisp-dir
      (expand-file-name "site-lisp" user-emacs-directory))

(setq settings-dir
      (expand-file-name "settings" user-emacs-directory))

;; Set up load path
(add-to-list 'load-path settings-dir)
(add-to-list 'load-path site-lisp-dir)

;; Keep emacs Custom-settings in separate file
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(load custom-file)

;; Load CIAO file
(if (file-exists-p "/usr/local/lib/ciao/ciao-mode-init.el")
    (load-file "/usr/local/lib/ciao/ciao-mode-init.el"))

;; Set up appearance early
(require 'appearance)

;; Settings for currently logged in user
(setq user-settings-dir
      (concat user-emacs-directory "users/" user-login-name))
(add-to-list 'load-path user-settings-dir)

;; Add external projects to load path
(dolist (project (directory-files site-lisp-dir t "\\w+"))
  (when (file-directory-p project)
    (add-to-list 'load-path project)))

;; Write backup files to own directory
(setq backup-directory-alist
      `(("." . ,(expand-file-name
                 (concat user-emacs-directory "backups")))))

;; Make backups of files, even when they're in version control
(setq vc-make-backup-files t)

;; Save point position between sessions
(require 'saveplace)
(setq-default save-place t)
(setq save-place-file (expand-file-name ".places" user-emacs-directory))

;; Are we on a mac?
(setq is-mac (equal system-type 'darwin))

;; Setup packages
(require 'setup-package)

;; Install extensions if they're missing
(defun init--install-packages ()
  (packages-install
   '(magit                      ;; A must
     wgrep
     edn                        ;; Extensible Data Notation
     ;; inflections             ;; Convert english words between plural and singular
     hydra                      ;; Allow quick secuential commands C-xx => C-x C-x
     paredit                    ;; Structured editing of S-expression data
     move-text                  ;; Move current region with M-up and M-down
     ;; gist                    ;; Allows creating gists
     htmlize                    ;; Export buffer content to HTML. Maintaining format
     visual-regexp              ;; See regexp while writing them
     markdown-mode              ;; This is obvious
     erlang                     ;; Erlang <3 <3
     fill-column-indicator      ;; Shows a margin in the right side
     flycheck                   ;; Linter <3
     flycheck-pos-tip           ;; Linter errors in "tooltips"
     ;; flycheck-clojure        ;; If sometime write clojure...
     flx                        ;; With ido, search files by partial name
     f                          ;; API to work with files and directories
     flx-ido                    ;; This is the reason to install flx
     ;; dired-details ;; The package is no longer available
     css-eldoc                  ;; Documentation for CSS
     yasnippet                  ;; Expand snippets
     smartparens                ;; Automatically add "(", "[", etc.
     haskell-mode               ;; For Haskell
     ido-vertical-mode          ;; IDO in vertical
     ido-at-point               ;; Make autocompletion in IDO
     ;; simple-httpd            ;; A server. ¬¬
     guide-key                  ;; A guide for keys
     nodejs-repl                ;; Run nodejs console
     restclient                 ;; A rest client for emacs
     highlight-escape-sequences ;; And nothing more
     whitespace-cleanup-mode    ;; Clear whitespaces only if don't exist before the file was editted
     elisp-slime-nav            ;; ???
     ;; dockerfile-mode         ;; For Dockerfiles
     ;; clojure-mode
     ;; clojure-mode-extra-font-locking
     ;; groovy-mode
     slime                      ;; Superior Lisp Interaction Mode for Emacs
     prodigy                    ;; Manage external services
     js2-mode                   ;; Mode for javascript
     json-mode                  ;; Mode for json
     web-mode                   ;; Mode for JSX
     sass-mode                  ;; Mode for SCSS/Sass
     ;; cider                   ;; Clojure Interactive Development Environment
     ;; yesql-ghosts            ;; ???
     string-edit                ;; Edit a string in other buffer. Automatically escape it
     markdown-mode              ;; For markdown
     elixir-mode                ;; For elixir
     sml-mode                   ;; Standard ML of course
     racket-mode                ;; For Racket
     beginend
     )))

(condition-case nil
    (init--install-packages)
  (error
   (package-refresh-contents)
   (init--install-packages)))

;; Lets start with a smattering of sanity
(require 'sane-defaults)

;; Setup environment variables from the user's shell.
(when is-mac
  (require-package 'exec-path-from-shell)
  (exec-path-from-shell-initialize))

;; guide-key
(require 'guide-key)
(setq guide-key/guide-key-sequence '("C-x r" "C-x 4" "C-x v" "C-x 8" "C-x +"))
(guide-key-mode 1)
(setq guide-key/recursive-key-sequence-flag t)
(setq guide-key/popup-window-position 'bottom)

;; Setup extensions
(eval-after-load 'ido '(require 'setup-ido))
(eval-after-load 'org '(require 'setup-org))
(eval-after-load 'dired '(require 'setup-dired))
(eval-after-load 'magit '(require 'setup-magit))
(eval-after-load 'shell '(require 'setup-shell))
(require 'setup-rgrep)
(require 'setup-hippie)
(require 'setup-yasnippet)
;; (require 'setup-perspective)
(require 'setup-ffip)
(require 'setup-html-mode)
(require 'setup-paredit)
(beginend-global-mode)

(require 'prodigy)
(global-set-key (kbd "C-x M-m") 'prodigy)

;; Font lock dash.el
(eval-after-load "dash" '(dash-enable-font-lock))

;; Default setup of smartparens
(require 'smartparens-config)
(setq sp-autoescape-string-quote nil)
(--each '(css-mode-hook
          restclient-mode-hook
          js-mode-hook
          java-mode
          ruby-mode
          markdown-mode
          groovy-mode
          scala-mode)
  (add-hook it 'turn-on-smartparens-mode))

;; Language specific setup files
(eval-after-load 'js2-mode '(require 'setup-js2-mode))
(eval-after-load 'web-mode '(require 'setup-web-mode))
(eval-after-load 'ruby-mode '(require 'setup-ruby-mode))
(eval-after-load 'clojure-mode '(require 'setup-clojure-mode))
(eval-after-load 'markdown-mode '(require 'setup-markdown-mode))

;; Load stuff on demand
(autoload 'skewer-start "setup-skewer" nil t)
(autoload 'skewer-demo "setup-skewer" nil t)
(autoload 'auto-complete-mode "auto-complete" nil t)
(autoload 'n3-mode "n3-mode" t)
(eval-after-load 'flycheck '(require 'setup-flycheck))
(add-hook 'after-init-hook #'global-flycheck-mode)

;; Map files to modes
(require 'mode-mappings)

;; Highlight escape sequences
(require 'highlight-escape-sequences)
(hes-mode)
(put 'font-lock-regexp-grouping-backslash 'face-alias 'font-lock-builtin-face)

;; Visual regexp
(require 'visual-regexp)
(define-key global-map (kbd "M-&") 'vr/query-replace)
(define-key global-map (kbd "M-/") 'vr/replace)

;; Functions (load all files in defuns-dir)
(setq defuns-dir (expand-file-name "defuns" user-emacs-directory))
(dolist (file (directory-files defuns-dir t "\\w+"))
  (when (file-regular-p file)
    (load file)))

(require 'expand-region)
(require 'multiple-cursors)
(require 'delsel)
;; (require 'jump-char)
(require 'eproject)
(require 'smart-forward)
(require 'change-inner)
(require 'multifiles)

;; Don't use expand-region fast keys
(setq expand-region-fast-keys-enabled nil)

;; Show expand-region command used
(setq er--show-expansion-message t)

;; Fill column indicator
(require 'fill-column-indicator)
(setq fci-rule-color "#222233")

;; Browse kill ring
(require 'browse-kill-ring)
(setq browse-kill-ring-quit-action 'save-and-restore)

;; Smart M-x is smart
(require 'smex)
(smex-initialize)

;; Setup key bindings
(require 'key-bindings)

;; Misc
(require 'my-misc)
(when is-mac (require 'mac))

;; Elisp go-to-definition with M-. and back again with M-,
;; (autoload 'elisp-slime-nav-mode "elisp-slime-nav")
;; (add-hook 'emacs-lisp-mode-hook (lambda () (elisp-slime-nav-mode t) (eldoc-mode 1)))

;; Emacs server
(require 'server)
(unless (server-running-p)
  (server-start))

;; Run at full power please
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)

;; Conclude init by setting up specifics for the current user
(when (file-exists-p user-settings-dir)
  (mapc 'load (directory-files user-settings-dir nil "^[^#].*el$")))