;;; .emacs --- tastytea's .emacs file.
;;; Commentary:
;;; Code:
(require 'package)
;; (add-to-list 'package-archives
;; 	         '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(add-to-list 'package-archives
	         '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

;; Add path for custom packages
(add-to-list 'load-path "~/.emacs.d/custom-packages/")

;; Install use-package if necessary
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(eval-when-compile
  (require 'use-package))

;; Always install packages if they are not present
(require 'use-package-ensure)
(setq use-package-always-ensure t)

;; ;; Benchmark initialization
;; (use-package benchmark-init
;;   :config
;;   ;; To disable collection of benchmark data after init is done.
;;   (add-hook 'after-init-hook 'benchmark-init/deactivate))

;; Update packages if at least auto-package-update-interval (7) days have passed
(use-package auto-package-update
  :config
  (setq auto-package-update-delete-old-versions t)
  ;; (setq auto-package-update-hide-results t)
  (auto-package-update-maybe))

;; Determine if we run on a slow computer
(defvar slow-computer nil)
(if (member (system-name) '("steuerbeamter" "azimuth" "localhost"))
    (setq slow-computer t))             ; localhost is schnibble

;; Just type y/n instead of yes/no when prompted
(defalias 'yes-or-no-p 'y-or-n-p)

;;;;;;;;;;;;;;;;;;;; Configure some minor modes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Hide toolbar
(tool-bar-mode -1)

;; Save cursor position
(save-place-mode 1)

;; Delete selection when you start to write
(delete-selection-mode t)

;; Save minibuffer history
(savehist-mode t)

;; Show column numbers in modeline
(column-number-mode t)

;; Auto-type closing brackets
(electric-pair-mode t)

;; Accelerate startup by not printing so much
(setf inhibit-startup-screen t
      inhibit-startup-echo-area-message t
      inhibit-startup-message t)

;; Save backups in ~/.emacs.d/ and keep more versions
(setq backup-directory-alist
      `(("." . ,(concat user-emacs-directory "backups"))))
(setq delete-old-versions t
      kept-new-versions 6
      kept-old-versions 2
      version-control t)

;;;;;;;;;;;;;;;;;;;; Keybindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Next/Previous buffer
(global-set-key (kbd "C-c <left>") 'previous-buffer)
(global-set-key (kbd "C-c <right>") 'next-buffer)
;; Scroll in other window
(global-set-key (kbd "S-<prior>") 'scroll-other-window-down)
(global-set-key (kbd "S-<next>") 'scroll-other-window)
;; Switch window
(global-set-key (kbd "C-<tab>") 'other-window)

;;;;;;;;;;;;;;;;;;;; Programming / irony ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (unless slow-computer
;;   (use-package irony
;;     :hook
;;     (c++-mode        . irony-mode)
;;     (c-mode          . irony-mode)
;;     (irony-mode      . irony-cdb-autosetup-compile-options)
;;     :config
;;     ;; If irony server was never installed, install it.
;;     (unless (irony--find-server-executable)
;;       (call-interactively #'irony-install-server))
;;     ;; Use compilation database first, clang_complete as fallback.
;;     (setq-default irony-cdb-compilation-databases '(irony-cdb-libclang
;;                                                     irony-cdb-clang-complete))))

;; ;; Eldoc shows argument list of the function you are currently writing.
;; (unless slow-computer
;;   (use-package eldoc))
;; (use-package irony-eldoc
;;   :after (eldoc irony)
;;   :init
;;   :hook
;;   (irony-mode . #'irony-eldoc))

;; ;; Syntax checker
;; (unless slow-computer
;;   (use-package flycheck))
;; (use-package flycheck-irony
;;   :after (flycheck irony)
;;   :config
;;   (global-flycheck-mode)
;;   (eval-after-load 'flycheck
;;     '(add-hook 'flycheck-mode-hook #'flycheck-irony-setup)))

;; ;; Autocomplete
;; (unless slow-computer
;;   (use-package company
;;     :hook
;;     (after-init . global-company-mode)))
;; (use-package company-irony
;;   :after (company irony)
;;   :config
;;   (add-to-list 'company-backends 'company-irony))

;; ;; Autocomplete headers
;; (use-package company-irony-c-headers
;;   :after (company-irony)
;;   :config
;;   (add-to-list 'company-backends 'company-irony-c-headers))

;;;;;;;;;;;;;;;;;;;; Programming / RTags ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(unless slow-computer
  (use-package rtags
    :if (executable-find "llvm-config")
    :if (executable-find "clang++")
    :config
    (unless (and (rtags-executable-find "rc") (rtags-executable-find "rdm"))
      (progn
        (message "RTags is not installed!")
        (rtags-install)))

    (define-key c-mode-base-map (kbd "M-.") 'rtags-find-symbol-at-point)
    (define-key c-mode-base-map (kbd "M-,") 'rtags-find-references-at-point)
    (define-key c-mode-base-map (kbd "M-?") 'rtags-display-summary)
    (rtags-enable-standard-keybindings)
    :hook
    (c++-mode   . (rtags-start-process-unless-running))
    (c-mode     . (rtags-start-process-unless-running))
    (kill-emacs . rtags-quit-rdm)))

(unless slow-computer
  (use-package flycheck))
(use-package flycheck-rtags
  :after (flycheck rtags)
  :defer nil
  :config
  ;; ensure that we use only rtags checking
  ;; https://github.com/Andersbakken/rtags#optional-1
  (defun setup-flycheck-rtags ()
    (flycheck-select-checker 'rtags)
    (setq-local flycheck-highlighting-mode nil))  ; Can't disable RTags overlay
  (global-flycheck-mode)
  :hook
  (c-mode-hook   . #'setup-flycheck-rtags)
  (c++-mode-hook . #'setup-flycheck-rtags))

(unless slow-computer
  (use-package company
    :hook
    (after-init . global-company-mode)))
(use-package company-rtags
  :after (company rtags)
  :config
  ;; (setq rtags-autostart-diagnostics t)
  ;; (rtags-diagnostics)
  (setq rtags-completions-enabled t)
  (push 'company-rtags company-backends))

;; Fuzzy autocompletion
(use-package company-flx
  :after company
  :config
  (company-flx-mode +1))

;;;;;;;;;;;;;;;;;;;; Programming / other ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; cmake integration
(unless slow-computer
  (use-package cmake-ide
    :config
    (setq cmake-ide-build-dir "build")
    (cmake-ide-setup)))

;; Project management
(unless slow-computer
  (use-package projectile
    :after neotree
    :config
    (projectile-mode +1)
    (setq projectile-switch-project-action 'neotree-projectile-action)
    (setq projectile-project-compilation-dir "build")
    (setq projectile-project-configure-cmd
          "cmake -DCMAKE_BUILD_TYPE=Debug
          -DCMAKE_EXPORT_COMPILE_COMMANDS=ON -G 'Unix Makefiles'
          ..")
    (setq projectile-project-compilation-cmd "cmake --build .")
    :bind
    ("C-c p" . 'projectile-command-map)))

;; Debugger
(use-package realgud
  :config
  (defun load-realgud ()
    (load-library "realgud"))
  :hook
  (c++-mode . load-realgud)
  (c-mode   . load-realgud))

;;;;;;;;;;;;;;;;;;;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Directory tree
(use-package neotree
  :demand t
  :config
  (setq neo-smart-open t)
  :bind
  ("<f8>" . neotree-toggle))

;; Indentation
(setq-default indent-tabs-mode nil
              tab-width 4)
;(setq tab-width 4)
(setq c-default-style "linux"
      c-basic-offset 4)

(use-package git-commit)
(use-package magit
  :bind
  ("C-x g"   . magit-status)
  ("C-x M-g" . magit-dispatch))

;; Appearance
(unless slow-computer
  (use-package monokai-theme
    :init
    (setq monokai-highlight-line "#34342F")
    :config
    (load-theme 'monokai t)))
(set-face-font 'default "Source Code Pro")
(global-hl-line-mode t)
(global-display-line-numbers-mode)
(setq show-trailing-whitespace t)
(show-paren-mode t)

;; Draw line in column 80
(use-package fill-column-indicator
  :after company
  :init
  (setq fci-rule-column 80)
  ;; Fix bug with fci + company
  (defun on-off-fci-before-company(command)
    (when (string= "show" command)
      (turn-off-fci-mode))
    (when (string= "hide" command)
      (turn-on-fci-mode)))
  ;; Add global fci-mode
  (define-globalized-minor-mode global-fci-mode fci-mode
    (lambda () (fci-mode t)))
  :config
  (global-fci-mode t)
  (advice-add 'company-call-frontends :before #'on-off-fci-before-company))

;; Highlight TODO, FIXME, NOTE
(use-package hl-todo
  :config
  (global-hl-todo-mode t))

;; Better commenting
(use-package smart-comment
  :bind
  ("C-c c" . smart-comment))

;; IDO
(use-package ido)
(use-package flx-ido
  :after ido
  :config
  (ido-mode t)
  (ido-everywhere t)
  (flx-ido-mode t)
  (setq ido-enable-flex-matching t)
  (setq ido-ignore-extensions t))

;; Toggle betweeen beginning of line and beginning of code
(defun beginning-of-line-or-indentation ()
  "Move to beginning of line, or indentation."
  (interactive)
  (if (bolp)
      (back-to-indentation)
    (beginning-of-line)))
(global-set-key (kbd "<home>") 'beginning-of-line-or-indentation)

;; Tab bar
(unless slow-computer
  (use-package tabbar-ruler
    :after projectile
    :init
    (setq tabbar-ruler-global-tabbar t)
    :config
    ;; (tabbar-ruler-group-by-projectile-project) ; Group by projectile
    ;; (tabbar-ruler-group-buffer-groups)         ; Group by file type
    (tabbar-ruler-group-user-buffers)          ; Group by frame
    ;; (mode-icons-mode 0)                        ; Disable modeline symbols
    (setq tabbar-ruler-swap-faces t)           ; Swap tab colors
    :bind
    ("C-<prior>" . 'tabbar-ruler-tabbar-backward-tab)
    ("C-<next>"  . 'tabbar-ruler-tabbar-forward-tab)))

;; Keybinding for whitespace, don't visualise newlines
(use-package whitespace
  :config
  (delete 'newline-mark whitespace-style)
  :bind
  ("C-C w" . 'whitespace-mode))

;; Spell checking
(use-package flyspell
  :config
  (defun toggle-flyspell ()
    "Toggle flyspell-mode and run flyspell-buffer after activating"
    (interactive)
    (if (bound-and-true-p flyspell-mode)
        (flyspell-mode 0)
      (flyspell-mode)
      (flyspell-buffer)))
  (setq ispell-dictionary "english")
  :bind
  ("<f6>" . toggle-flyspell)
  :hook
  (c++-mode . flyspell-prog-mode)
  (c-mode   . flyspell-prog-mode))

;; Multiple cursors
(use-package multiple-cursors
  :init
  (global-unset-key (kbd "M-<down-mouse-1>"))
  :bind
  ("C-c m c"     . mc/edit-lines)
  ("M-<mouse-1>" . mc/add-cursor-on-click))

;;;;;;;;;;;;;;;;;;;; File formats ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package adoc-mode
  :mode (("\\.adoc" . adoc-mode)))

(use-package markdown-mode
  :mode (("README\\.md\\'" . gfm-mode)
         ("\\.md\\'" . markdown-mode)
         ("\\.markdown\\'" . markdown-mode))
  :init (setq markdown-command "markdown2"))

(use-package crontab-mode
  :defer t)

(use-package nginx-mode
  :defer t)

(use-package company-nginx
  :after nginx-mode
  :config
  :hook
  (nginx-mode #'company-nginx-keywords))

;;;;;;;;;;;;;;;;;;;; Server / Remote editing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Edit remote files
(unless slow-computer
  (use-package tramp
    :config
    ;; ssh is faster than scp and supports ports
    (setq tramp-default-method "ssh")
    ;; Add verification code support
    (customize-set-variable
     'tramp-password-prompt-regexp
     (concat
      "^.*"
      (regexp-opt
       '("passphrase" "Passphrase"
         "password" "Password"
         "Verification code")
       t)
      ".*:\0? *"))
    ;; Respect remote PATH
    (add-to-list 'tramp-remote-path 'tramp-own-remote-path)))

;; Run server if:
;; - Our EUID is not 0
;; - We are not logged in via SSH
;; - It is not already running
(unless (equal (user-real-uid) 0)
  (unless (getenv "SSH_CONNECTION")
    (use-package server
      :init
      (setq server-use-tcp t)
      (setq server-port 51313)
      (setq server-auth-key
            "phahw2ohVoh0oopheish7IVie9desh8aequeenei3uo8wahShe%thuadaeNa4ieh")
      :config
      (unless (server-running-p)
        (server-start))
      )))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages
   (quote
    (use-package-ensure zenburn-theme use-package tabbar-ruler spaceline smart-comment realgud projectile popup neotree multiple-cursors monokai-theme markdown-mode magit irony-eldoc hl-todo flycheck-rtags flycheck-irony flx-ido fill-column-indicator crontab-mode counsel company-rtags company-irony-c-headers company-irony company-flx cmake-ide benchmark-init base16-theme autothemer auto-package-update adoc-mode))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(provide '.emacs)
;;; .emacs ends here