;;; System

(add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp"))

;; Platform specific configuration
(cond ((equal system-type 'darwin)
       (setenv "PATH" (concat (getenv "PATH") ":/usr/local/bin"))
       (setq exec-path (append exec-path '("/usr/local/bin")))
       (setq dired-listing-switches "-al")
       (scroll-bar-mode -1)
       (global-set-key [home] 'move-beginning-of-line)
       (global-set-key [end] 'move-end-of-line))
      ((or (equal system-type 'gnu/linux) (equal system-type 'gnu/kfreebsd))
       (setq dired-listing-switches "-al --time-style=long-iso")
       (scroll-bar-mode (quote right))))

(setq-default
 gc-cons-threshold              100000000
 backup-by-copying              t
 backup-directory-alist         `((".*" . ,temporary-file-directory))
 auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
 scheme-program-name            "mzscheme"
 browse-url-generic-program     (executable-find "sensible-browser")
 browse-url-browser-function    'browse-url-generic)

(add-hook 'dired-mode-hook (lambda () (dired-hide-details-mode)))

;;; Code formatting

(require 'clang-format)

(defun get-clang-format-option (config-str field is-num)
  "Retrieve a config option from a clang-format config."
  (cond (is-num
         (let ((primary-match (s-match (concat "^" field ":[ \t]*[0-9]+") config-str)))
           (if primary-match
               (string-to-number (car (s-match "[0-9]+" (car primary-match))))
             0)))
        (t
         (let ((primary-match (s-match (concat "^" field ":[ \t]*[A-Za-z]+") config-str)))
           (if primary-match
               (car (s-match "[A-Za-z]+$" (car primary-match)))
             "")))))

(defun clang-format-c-mode-hook ()
  (let* ((clang-format-config
          (shell-command-to-string "clang-format -dump-config"))
         (c-offset (get-clang-format-option clang-format-config "IndentWidth" t))
         (tabs-str (get-clang-format-option clang-format-config "UseTab" nil))
         (base-style
          (get-clang-format-option clang-format-config "BasedOnStyle" nil)))
    (progn
      (if (> c-offset 0)
          (setq-local c-basic-offset c-offset)
        (if (not (equal "" base-style))
            (cond ((or (equal "LLVM" base-style)
                       (equal "Google" base-style)
                       (equal "Chromium" base-style)
                       (equal "Mozilla" base-style))
                   (setq-local c-basic-offset 2))
                  ((equal "WebKit" base-style)
                   (setq-local c-basic-offset 4)))))
      (if (not (equal "" tabs-str))
          (if (not (string-equal "Never" tabs-str))
              (setq-local indent-tabs-mode t)
            (setq-local indent-tabs-mode nil))
        (if (not (equal "" base-style))
            (cond ((or (equal "LLVM" base-style)
                       (equal "Google" base-style)
                       (equal "Chromium" base-style)
                       (equal "Mozilla" base-style)
                       (equal "WebKit" base-style))
                   (setq-local indent-tabs-mode nil))))))))

;;; Packages

(require 'package)
;; (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
(add-to-list 'package-archives '("melpa" . "https://stable.melpa.org/packages/"))
(package-initialize)
(unless (package-installed-p 'use-package)
  (progn
    (package-refresh-contents)
    (package-install 'use-package)))

(setq use-package-always-ensure t)

(use-package clang-format
  :commands (c-mode c++-mode objc-mode)
  :after (s)
  :hook (c-mode-common . clang-format-c-mode-hook))

(use-package counsel :after (ivy) :config (counsel-mode))
(use-package counsel-gtags :commands ggtags-mode)
(use-package counsel-projectile :after (counsel projectile))
(use-package diminish)
;; (use-package dired-rainbow)
(use-package flyspell :commands flyspell-mode)
(use-package flyspell-correct-ivy :after (flyspell ivy) :commands flyspell-mode)
(use-package ggtags :commands ggtags-mode)
(use-package ivy :config (ivy-mode))
(use-package dpkg-dev-el :commands debian-changelog-mode)
(use-package magit :commands magit-status :after (diff-hl) :bind ("C-c m" . magit-status) :config (define-key magit-mode-map (kbd "C-<tab>") nil))
(use-package markdown-mode :commands markdown-mode)
(use-package pdf-tools :magic ("%PDF" . pdf-view-mode) :config (pdf-tools-install))
(use-package projectile :config (projectile-global-mode))
(use-package quack :commands scheme-mode)
(use-package rainbow-delimiters :commands prog-mode)
(use-package smart-tabs-mode :commands (c-mode c++-mode))
(use-package spaceline)
(use-package swiper :commands swiper)
;; (use-package ttl-mode :commands ttl-mode)
(use-package tramp)

(require 'spaceline-config)

(require 'turtle-mode)
(require 'glsl-mode)

;;; Basic editor configuration

(defalias 'yes-or-no-p 'y-or-n-p)
(setq-default tab-width        4)
(setq-default indent-tabs-mode nil)
(setq-default scroll-margin    3)
(spaceline-toggle-buffer-size-off)
(spaceline-toggle-hud-off)
(spaceline-toggle-buffer-encoding-abbrev-off)
(diminish 'abbrev-mode "")
(diminish 'auto-fill-function "↵")
(diminish 'auto-revert-mode "↻")
(diminish 'compilation-in-progress "⚙")
(diminish 'counsel-mode "")
(diminish 'flyspell-mode "✓")
(diminish 'ggtags-mode "☚")
(diminish 'ivy-mode "")
(setq spaceline-minor-modes-separator " ")

(spaceline-define-segment version-control
  "Version control information."
  (when vc-mode
    (powerline-raw
     (s-trim (concat vc-mode
                     (when (buffer-file-name)
                       (pcase (vc-state (buffer-file-name))
                         (`up-to-date " ")
                         (`edited " *")
                         (`added " +")
                         (`unregistered " ?")
                         (`removed " -")
                         (`needs-merge " !")
                         (`needs-update " ^")
                         (`ignored " I")
                         (_ " ?"))))))))

(spaceline-define-segment buffer-position
  "Buffer position in percent"
  (format "%3d%%%% " (/ (* 100 (- (line-number-at-pos) 1))
                         (max 1 (count-lines (point-min) (point-max))))))

(spaceline-define-segment line-column
  "The current line and column numbers."
  (if (eq major-mode 'pdf-view-mode)
      ;; Show page number and count for PDF documents
      (concat (number-to-string (pdf-view-current-page))
              "/"
              (number-to-string (pdf-cache-number-of-pages)))
    mode-line-position
    "%l :%2c"))

(add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)

;;; Variables

(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.
 '(Man-switches "--nj")
 '(auto-revert-interval 1)
 '(backup-by-copying t)
 '(backup-directory-alist `((".*" \, temporary-file-directory)))
 '(browse-url-browser-function 'browse-url-firefox)
 '(browse-url-firefox-new-window-is-tab t)
 '(browse-url-generic-program "firefox")
 '(column-number-mode t)
 '(compilation-error-screen-columns nil)
 '(compilation-scroll-output t)
 '(css-indent-offset 2)
 '(cursor-in-non-selected-windows 'hollow)
 '(custom-enabled-themes '(drobillized))
 '(custom-safe-themes
   '("34dd19be0ae289b90ea8e6f3e33d588a54b7f734f122892bcfdbb2e45acded57" default))
 '(delete-old-versions t)
 '(delete-selection-mode t)
 '(dired-omit-files "^\\.?#\\|^\\.$\\|^\\.\\.\\|^\\..*$")
 '(diredp-hide-details-initially-flag t)
 '(diredp-wrap-around-flag nil)
 '(erc-autojoin-channels-alist
   '((".*\\.oftc.net" "#mesonbuild")
     (".*\\.libera.chat" "#ardour-dev" "#ingen" "#lv2" "#lobsters")))
 '(erc-autojoin-mode t)
 '(erc-insert-timestamp-function 'ks-timestamp)
 '(erc-join-buffer 'bury)
 '(erc-log-channels-directory "~/.erc/logs")
 '(erc-log-insert-log-on-open t)
 '(erc-log-mode t)
 '(erc-mode-hook
   '(erc-munge-invisibility-spec erc-move-to-prompt-setup pcomplete-erc-setup erc-button-setup erc-imenu-setup toggle-word-wrap))
 '(erc-mode-line-format "%t")
 '(erc-modules
   '(autojoin button completion irccontrols list log match menu move-to-prompt netsplit networks noncommands readonly ring stamp track))
 '(erc-nick-uniquifier "")
 '(erc-prompt ">")
 '(erc-server "irc.libera.chat")
 '(erc-track-exclude-server-buffer t)
 '(erc-track-exclude-types
   '("JOIN" "NICK" "PART" "QUIT" "MODE" "333" "353" "324" "329" "332" "477"))
 '(erc-try-new-nick-p nil)
 '(fill-column 79)
 '(font-lock-maximum-decoration t)
 '(frame-background-mode 'dark)
 '(frame-inhibit-implied-resize t)
 '(fringe-mode '(nil . 0) nil (fringe))
 '(gc-cons-threshold 10000000)
 '(global-diff-hl-mode t)
 '(grep-find-command
   "find . -type f -not -name \"*.svn-base\" -print0 | xargs -0 grep -I -n -s -F ")
 '(indicate-empty-lines t)
 '(inhibit-startup-screen t)
 '(initial-major-mode 'fundamental-mode)
 '(ivy-magic-tilde nil)
 '(jabber-account-list
   '(("david.e.robillard@gmail.com"
      (:network-server . "talk.google.com")
      (:port . 5223)
      (:connection-type . ssl))))
 '(jabber-chat-buffer-show-avatar nil)
 '(jabber-chat-header-line-format
   '(""
     (:eval
      (jabber-jid-displayname jabber-chatting-with))
     "	"
     (:eval
      (let
          ((buddy
            (jabber-jid-symbol jabber-chatting-with)))
        (propertize
         (or
          (cdr
           (assoc
            (get buddy 'show)
            jabber-presence-strings))
          (get buddy 'show))
         'face
         (or
          (cdr
           (assoc
            (get buddy 'show)
            jabber-presence-faces))
          'jabber-roster-user-online))))
     "	"
     (:eval
      (jabber-fix-status
       (get
        (jabber-jid-symbol jabber-chatting-with)
        'status)))
     "	" jabber-events-message "	" jabber-chatstates-message))
 '(jabber-roster-line-format " %c %-25n %u %-8s  %S")
 '(js-indent-level 2)
 '(jshint-mode-node-program "nodejs")
 '(magit-auto-revert-mode nil)
 '(magit-diff-refine-hunk 'all)
 '(menu-bar-mode nil)
 '(ns-use-srgb-colorspace nil)
 '(package-selected-packages
   '(quack vterm ace-window cython-mode groovy-mode jenkins qml-mode ninja-mode bison-mode csv-mode apache-mode auctex clang-format cmake-mode counsel-gtags counsel-projectile diff-hl diminish dired-rainbow dockerfile-mode flyspell-correct-ivy ggtags git-gutter-fringe glsl-mode ivy jinja2-mode json-mode llvm-mode magit markdown-mode meson-mode n3-mode pdf-tools pkgbuild-mode projectile rainbow-delimiters rust-mode smart-tabs-mode spaceline swift-mode ttl-mode use-package yaml-mode))
 '(pdf-view-midnight-colors '("#C3D1D1" . "#141414"))
 '(powerline-default-separator nil)
 '(projectile-completion-system 'ivy)
 '(projectile-enable-caching t)
 '(projectile-mode-line nil)
 '(projectile-mode-line-function
   (lambda nil
     (format "%s:%s" projectile-mode-line-prefix
             (or
              (projectile-project-name)
              "-"))))
 '(projectile-mode-line-prefix "P")
 '(projectile-use-git-grep t)
 '(quack-pretty-lambda-p t)
 '(quack-run-scheme-always-prompts-p t)
 '(savehist-mode t)
 '(scroll-bar-mode nil)
 '(scroll-conservatively 5)
 '(send-mail-function 'sendmail-send-it)
 '(show-paren-mode t)
 '(speedbar-use-images nil)
 '(split-window-preferred-function 'split-window-horizontally)
 '(tool-bar-mode nil)
 '(ttl-electric-punctuation t)
 '(typescript-indent-level 2)
 '(version-control t)
 '(visible-bell nil)
 '(window-divider-default-bottom-width 1)
 '(window-divider-default-right-width 1)
 '(window-divider-mode t)
 '(winner-mode t))

(setq ring-bell-function
      (lambda ()
        (let ((orig-fg (face-foreground 'mode-line)))
          (set-face-foreground 'mode-line "#F2804F")
          (run-with-idle-timer 0.1 nil
                               (lambda (fg) (set-face-foreground 'mode-line fg))
                               orig-fg))))

;;; Colours

(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.
 '(default ((t (:inherit nil :stipple nil :background "#141414" :foreground "#C3D1D1" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 180 :width normal :foundry "PfEd" :family "DejaVu Sans Mono")))))

;;; Windows

(defun compile-autoclose (buffer string)
  "Close compilation window on success"
  (cond ((and (string-match "compilation" (buffer-name buffer))
              (string-match "finished" string))
         (bury-buffer "*compilation*")
         ;; (winner-undo)
         (message "Build successful."))
        (t
         (message "Compilation exited abnormally: %s" string))))

(defun rotate-windows ()
  "Rotate windows"
  (interactive)
  (if (> (count-windows) 1)
      (let ((i 0)
            (num-windows (count-windows)))
        (while  (< i (- num-windows 1))
          (let* ((w1 (elt (window-list) i))
                 (w2 (elt (window-list) (% (+ i 1) num-windows)))
                 (b1 (window-buffer w1))
                 (b2 (window-buffer w2))
                 (s1 (window-start w1))
                 (s2 (window-start w2)))
            (set-window-buffer w1 b2)
            (set-window-buffer w2 b1)
            (set-window-start w1 s2)
            (set-window-start w2 s1)
            (setq i (+ i 1)))))))

(setq split-height-threshold       nil)
(setq split-width-threshold        0)
(setq compilation-finish-functions 'compile-autoclose)

;; Remove slow Maven regexp that makes the compilation buffer clunky
(setq compilation-error-regexp-alist
      (delete 'maven compilation-error-regexp-alist))

;; Add matcher for glibc assertion failures
(add-to-list
 'compilation-error-regexp-alist
 '("[[:print:]]+: \\([^:]+\\):\\([[:digit:]]+\\):.*Assertion.* failed.\n$" 1 2))

;;; Key bindings

(windmove-default-keybindings)

(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)

(global-set-key (kbd "C-<left>")        'previous-buffer)
(global-set-key (kbd "C-<right>")       'next-buffer)
(global-set-key (kbd "C-<tab>")         'next-window-any-frame)
(global-set-key (kbd "C-<iso-lefttab>") 'previous-window-any-frame)
(global-set-key (kbd "C-b")             'compile)
(global-set-key (kbd "C-m")             'newline-and-indent)
(global-set-key (kbd "C-n")             'next-error)
(global-set-key (kbd "C-p")             'previous-error)
(global-set-key (kbd "C-s")             'swiper)
(global-set-key (kbd "C-c <")           'first-error)
(global-set-key (kbd "C-c =")           'set-variable)
(global-set-key (kbd "C-c I")           'clang-format-region)
(global-set-key (kbd "C-c P")           'prettier-prettify)
(global-set-key (kbd "C-c R")           'replace-regexp)
(global-set-key (kbd "C-c a")           'align)
(global-set-key (kbd "C-c b")           'magit-blame)
(global-set-key (kbd "C-c c")           'comment-region)
(global-set-key (kbd "C-c d")           'svn-status-show-svn-diff)
(global-set-key (kbd "C-c e")           'erc-track-switch-buffer)
(global-set-key (kbd "C-c f")           'ff-find-other-file)
(global-set-key (kbd "C-c g")           'grep-find)
(global-set-key (kbd "C-c h")           'mark-defun)
(global-set-key (kbd "C-c i")           'clang-format-buffer)
(global-set-key (kbd "C-c m")           'magit-status)
(global-set-key (kbd "C-c o")           'ace-window)
(global-set-key (kbd "C-c r")           'replace-string)
(global-set-key (kbd "C-c s")           'sort-lines)
(global-set-key (kbd "C-c t")           'toggle-truncate-lines)
(global-set-key (kbd "C-c u")           'uncomment-region)
(global-set-key (kbd "C-c w")           'rotate-windows)

;;; File modes

(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)

;; C/C++

(defconst my-c-style
  '((c-block-comment-prefix            . "   ")
    (c-comment-only-line-offset        . 0)
    (c-auto-align-backslashes          . nil)
    (c-label-minimum-indentation       . 0)
    (c-hungry-delete-key               . t)
    (c-indent-comments-syntactically-p . nil)
    (c-hanging-braces-alist . ((brace-list-open after)
                               (defun-open after)
                               (defun-close before after)
                               (class-open after)
                               (class-close before after)
                               (namespace-open after)
                               (inline-open after)
                               (inline-close before after)
                               (block-open after)
                               (block-close . c-snug-do-while)
                               (extern-lang-open after)
                               (extern-lang-close after)
                               (statement-case-open after)
                               (substatement-open after)))
    (c-hanging-colons-alist . ((case-label)
                               (label after)
                               (access-label after)
                               (member-init-intro before)
                               (inher-intro)))
    (c-hanging-semi&comma-criteria . (c-semi&comma-no-newlines-for-oneline-inliners
                                      c-semi&comma-inside-parenlist
                                      c-semi&comma-no-newlines-before-nonblanks))
    (c-cleanup-list . (brace-catch-brace
                       brace-else-brace
                       brace-elseif-brace
                       compact-empty-funcall
                       defun-close-semi
                       empty-defun-braces
                       list-close-comma
                       one-liner-defun
                       scope-operator))
    (c-offsets-alist . ((func-decl-cont       . ++)
                        (member-init-intro    . +)
                        (inher-intro          . ++)
                        (comment-intro        . 0)
                        (arglist-close        . c-lineup-arglist)
                        (topmost-intro        . 0)
                        (block-open           . 0)
                        (inline-open          . 0)
                        (substatement-open    . 0)
                        (label                . /)
                        (case-label           . 0)
                        (statement-case-open  . +)
                        (statement-case-intro . +)
                        (access-label         . -)
                        (innamespace          . 0)
                        (inextern-lang        . 0)
                        (extern-lang-open     . 0)
                        (label                . -)))))

(c-add-style "drobilla" my-c-style)

(defun my-c-mode-common-hook ()
  "C mode for people with taste."
  (require 'smart-tabs-mode)
  (auto-fill-mode 1)
  (abbrev-mode -1)
  (set-fill-column 79)
  (smart-tabs-mode-enable)
  (setq tab-width 4)
  (setq indent-tabs-mode t)
  (setq truncate-lines t)
  (setq show-trailing-whitespace t)
  (smart-tabs-advice c-indent-line c-basic-offset)
  (c-set-style "drobilla"))

(add-hook 'c-mode-common-hook   'my-c-mode-common-hook)
(add-hook 'c++-mode-common-hook 'my-c-mode-common-hook)

;; Python

(add-hook 'python-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq indent-tabs-mode nil)
            (setq show-trailing-whitespace t)))

;; Turtle

(add-hook 'turtle-mode-hook
          (lambda ()
            (setq tab-width 4)
            (setq indent-tabs-mode t)
            (setq show-trailing-whitespace t)))

;; Dired

(add-hook 'dired-mode-hook
          (lambda ()
            (dired-hide-details-mode)))

;; IRC

(make-variable-buffer-local
 (defvar erc-last-datestamp nil))

;; Show minute timestamps on the left and a date header when they change
(defun ks-timestamp (string)
  (erc-insert-timestamp-left string)
  (let ((datestamp (erc-format-timestamp (current-time) erc-datestamp-format)))
    (unless (string= datestamp erc-last-datestamp)
      (erc-insert-timestamp-left datestamp)
      (setq erc-last-datestamp datestamp))))

(setq erc-datestamp-format "[%Y-%m-%d %a]\n"
      erc-insert-timestamp-function 'ks-timestamp)

;; PDF

(defun my-doc-view-hook ()
  (auto-revert-mode)
  (blink-cursor-mode -1))

(add-hook 'doc-view-mode-hook 'my-doc-view-hook)
(add-hook 'pdf-view-mode-hook 'my-doc-view-hook)


;; Associations

(add-to-list 'auto-mode-alist '("\\.ipp\\'"          . c++-mode))
(add-to-list 'auto-mode-alist '("\\.pl\\'"           . prolog-mode))
(add-to-list 'auto-mode-alist '("\\.n3\\'"           . turtle-mode))
(add-to-list 'auto-mode-alist '("\\.ttl\\'"          . turtle-mode))
(add-to-list 'auto-mode-alist '("\\.owl\\'"          . turtle-mode))
(add-to-list 'auto-mode-alist '("\\.ll\\'"           . llvm-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'"           . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.pdf\\'"          . pdf-view-mode))
(add-to-list 'auto-mode-alist '("\\.gyp\\'"          . python-mode))
(add-to-list 'auto-mode-alist '("\\.gypi\\'"         . python-mode))
(add-to-list 'auto-mode-alist '("\\.jsonld\\'"       . json-mode))
(add-to-list 'auto-mode-alist '("\\.tesc\\'"         . glsl-mode))
(add-to-list 'auto-mode-alist '("\\.tese\\'"         . glsl-mode))
(add-to-list 'auto-mode-alist '("\\.m\\'"            . objc-mode))
(add-to-list 'auto-mode-alist '("\\.mm\\'"           . objc-mode))
(add-to-list 'auto-mode-alist '("\\.ipp\\'"          . c++-mode))
(add-to-list 'auto-mode-alist '("\\.clang-format\\'" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.clang-tidy\\'"   . yaml-mode))
(add-to-list 'auto-mode-alist '("\\NEWS"             . debian-changelog-mode))

;;; Projectile

(defun my-projectile-mode-line ()
  "Report project name in the modeline."
  (format "%s[%s%s]"
          projectile-mode-line-prefix
          (or (projectile-project-name) "-")))

;;; Launch

(spaceline-spacemacs-theme)
(server-start)