;;; .emacs --- Config

;;; Commentary:

;;; Code:

;; support local packages
(add-to-list 'load-path "~/.emacs.d/site-lisp/")

(require 'package)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))
(package-initialize)
(setq
 package-selected-packages '(meson-mode groovy-mode gradle-mode kotlin-mode flycheck ido-vertical-mode rg))
;; use (package-install-selected-packages) to install the ones above

;; show matching parentheses (and other characters)
(show-paren-mode t)

;; hide toolbar
(tool-bar-mode -1)
;; hide tooltips
(tooltip-mode -1)

(setq
 ;; skip startup message
 inhibit-startup-message t
 ;; show line and column number in mode-line
 line-number-mode t
 column-number-mode t
 ;; increase undo
 undo-limit 200000
 undo-strong-limit 300000
 ;; enable visible bell
 visible-bell t
 ;; enable font lockmode
 global-font-lock-mode t
 font-lock-mode t
 font-lock-maximum-decoration t)

;; Force more unique buffer names
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)

;; Clean the buffer list at midnight
(require 'midnight)
;; Set clean-buffer-list delay to 3 days
(setq clean-buffer-list-delay-general 3)
(if (not (boundp 'clean-buffer-list-kill-regexps))
    (setq clean-buffer-list-kill-regexps '()))
;; Add preprocessed buffers to the list
(add-to-list 'clean-buffer-list-kill-regexps
             '("\\`\\*.*-preprocessed\\*\\'"))

(defun rename-current-buffer-file ()
  "Renames current buffer and file it is visiting."
  (interactive)
  (let* ((name (buffer-name))
        (filename (buffer-file-name))
        (basename (file-name-nondirectory filename)))
    (if (not (and filename (file-exists-p filename)))
        (error "Buffer '%s' is not visiting a file!" name)
      (let ((new-name (read-file-name "New name: " (file-name-directory filename) basename nil basename)))
        (if (get-buffer new-name)
            (error "A buffer named '%s' already exists!" new-name)
          (rename-file filename new-name 1)
          (rename-buffer new-name)
          (set-visited-file-name new-name)
          (set-buffer-modified-p nil)
          (message "File '%s' successfully renamed to '%s'"
                   name (file-name-nondirectory new-name)))))))

;; load rg
(require 'rg)

(setq
 ;; create backups
 make-backup-files t
 ;; don't ask to delete backup versions
 delete-old-versions t
 ;; use version control
 version-control t)

;; put all backup files in their own directory
(let ((backup-dir "~/.emacs.d/backups/"))
  (make-directory backup-dir :parents)
  (setq backup-directory-alist
        `((".*" . ,backup-dir))))

;; show buffer in frame title
(setq frame-title-format "%b %* emacs")

;; frame parameters
;; frame size
(add-to-list 'default-frame-alist '(width . 80))
(add-to-list 'default-frame-alist '(height . 36))
;; tell WM that we really want those sizes
(add-to-list 'default-frame-alist '(user-size . t))
;; frame font and color
(add-to-list 'default-frame-alist
             '(font . "-*-ProggyCleanTT-*-*-*-*-*-125-*-*-*-*-*"))
(add-to-list 'default-frame-alist '(cursor-color . "green"))
(add-to-list 'default-frame-alist '(foreground-color . "grey"))
(add-to-list 'default-frame-alist '(background-color . "black"))
(add-to-list 'default-frame-alist '(background-mode . "dark"))

;; Workaround for emacs & enlightenment
(setq x-set-frame-visibility-more-laxly 'focus-in)

;; Make man open in full frame instead of always creating half a frame
(set-variable 'Man-notify-method (quote pushy))

;; Toggle frame width
(defun toggle-frame-width (frame)
  "Toggle FRAME width between 100 and 80."
  (when window-system
    (let ((width (frame-width frame)))
      (cond ((eq width 80)
             (set-frame-width frame 100))
            (t
             (set-frame-width frame 80))))))

(defun toggle-selected-frame-width ()
  "Toggle selected frame width between 100 and 80."
  (interactive)
  (toggle-frame-width (selected-frame)))

;; default styles
(setq-default
 ;; no tabs in indentation
 indent-tabs-mode nil
 ;; tab-width 4
 tab-width 4
 ;; c-basic-offset
 c-basic-offset 4
 ;; show trailing whitespace
 show-trailing-whitespace t)

;; enable c warnings
(global-cwarn-mode t)

;; auto inserts
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\(hh\\|hxx\\|hpp\\)\\'" . "C++ header")
     '((upcase
        (mapconcat 'identity (split-string
                              (file-name-nondirectory buffer-file-name)
                              "[^a-zA-Z0-9]+") "_"))
       "#ifndef " str \n
       "#define " str \n
       \n
       _ \n
       \n
       "#endif  // " str \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\(CC?\\|cc\\|cxx\\|cpp\\|c++\\)\\'" . "C++ source")
     '(nil
       (let ((base (file-name-sans-extension buffer-file-name)))
         (cond
          ((file-exists-p
            (concat base ".hh"))
           (concat "#include \""
                   (file-name-nondirectory (concat base ".hh"))
                   "\"\n\n"))))
       > _ \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\([Hh]\\)\\'" . "C header")
     '((upcase
        (mapconcat 'identity (split-string
                              (file-name-nondirectory buffer-file-name)
                              "[^a-zA-Z0-9]+") "_"))
       "#ifndef " str \n
       "#define " str \n
       \n
       _ \n
       \n
       "#endif  /* " str " */" \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\([Cc]\\)\\'" . "C source")
     '(nil
       "#include \"common.h\"" \n
       \n
       (let ((base (file-name-sans-extension buffer-file-name)))
         (cond
          ((file-exists-p
            (concat base ".h"))
           (concat "#include \""
                   (file-name-nondirectory (concat base ".h"))
                   "\"\n\n"))))
       > _ \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("[Mm]akefile\\'" . "Makefile")
     '(nil
       ".PHONY: all clean" \n
       \n
       "all: " _ \n
       \n
       "clean:" \n
       \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\(py\\)\\'" . "Python source")
     '(nil
       "#!/usr/bin/env python" \n
       \n
       _ \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\(java\\)\\'" . "Java source")
     '((file-name-base buffer-file-name)
       "package " (mapconcat 'identity (member "org" (split-string (file-name-directory buffer-file-name) "/" t)) ".") ";" \n
       \n
       "class " str " {" \n
       str "() {" \n
       > _ ?\n
       "    }" ?\n
       "}" \n)))
(eval-after-load 'autoinsert
  '(define-auto-insert
     '("\\.\\(kt\\)\\'" . "Kotlin source")
     '((file-name-base buffer-file-name)
       "package " (mapconcat 'identity (member "org" (split-string (file-name-directory buffer-file-name) "/" t)) ".") \n
       \n
       "class " str "() {" \n
       > _ ?\n
       "}" \n)))
(auto-insert-mode t)
;; don't ask before using auto-insert
(setq-default auto-insert-query nil)

;; gpg
(require 'epa-file)
(epa-file-enable)

;; keys
(global-set-key (kbd "C-c o") 'ff-find-other-file)
(global-set-key [?\C-x ?\t] 'toggle-selected-frame-width)

;; stop grep from asking to save buffers
(setq grep-save-buffers nil)

;; ido
(require 'ido)
(require 'ido-vertical-mode)
(ido-mode)
(ido-vertical-mode)
(setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
;; stop ido from switching to another frame where the same buffer is already open
(setq ido-default-buffer-method 'selected-window)

;; flycheck
(require 'flycheck)
(require 'flycheck-clangcheck)
(global-flycheck-mode)
(setq flycheck-check-syntax-automatically '(save new-line))
(setq flycheck-python-pylint-executable "/usr/bin/python3")'
(setq flycheck-clangcheck-analyze t)

;; replace ch alias fro grep with cchh alias, ie if starting with a ".h" file
;; you might still want to search in cc files
(eval-after-load "grep"
  '(setf (cdr (assoc "ch" grep-files-aliases))
         (cdr (assoc "cchh" grep-files-aliases))))

(c-add-style
 "common c"
 '("gnu"
   (c-basic-offset . 4)
   (c-offsets-alist
    .
    ((substatement-open . 0)
     (arglist-intro . ++)
     (innamespace . 0)))))

(add-hook 'c-mode-common-hook
          (lambda()
            (c-set-style "common c")))

(c-add-style
 "default c++"
 '("common c"
   (c-basic-offset . 2)))

(make-variable-buffer-local 'flycheck-clang-definitions)
(make-variable-buffer-local 'flycheck-clang-include-path)
(make-variable-buffer-local 'flycheck-clang-language-standard)

;;            (setq flycheck-clang-language-standard "c++17"
;;                  flycheck-clang-definitions '("HAVE_CONFIG_H")
;;                  flycheck-clang-include-path
;;                  '("../include" "../src" "../build" "/usr/include/taglib" "/usr/include/cairo"))

(require 'google-c-style)

(add-hook 'c++-mode-hook
          (lambda()
            (flycheck-select-checker 'c/c++-clangcheck)
            (google-set-c-style)
            (setq c-file-style "Google")))

;; Opera Java hook
(add-hook 'java-mode-hook
          (lambda()
            (when (and buffer-file-name
                       (string-match "/opera/head" buffer-file-name))
              (require 'flycheck-android-experimental)
              (setq flycheck-android-java-checkstyle-jar
                    "../../chromium/src/third_party/checkstyle/checkstyle-6.5-all.jar"
                    flycheck-android-java-checkstyle-path
                    "tools/checkstyle"
                    flycheck-android-java-checkstyle-config
                    "checkstyle-config-android.xml"
                    flycheck-android-java-checkstyle-properties
                    "checkstyle.properties")
              (require 'google-c-style)
              (google-set-c-style)
              (setq c-file-style "Google")
              (c-set-offset 'arglist-intro '++)
              (c-set-offset 'arglist-cont nil)
              (c-set-offset 'arglist-cont-nonempty '++)
              (setq indent-tabs-mode nil)
              (setq c-basic-offset 4))))

;;;
(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.
 '(ido-vertical-pad-list nil)
 '(package-selected-packages
   '(flycheck-clangcheck meson-mode groovy-mode gradle-mode kotlin-mode flycheck ido-vertical-mode rg))
 '(safe-local-variable-values
   '((eval let
           ((project-path
             (locate-dominating-file default-directory ".dir-locals.el")))
           (setq-local flycheck-clangcheck-build-path
                       (concat project-path "build"))))))
(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.
 )