path: root/emacs-blue

;;; .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 glsl-mode java-imports 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 . "-*-Source Code Pro-*-*-*-*-*-110-*-*-*-*-*"))
(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"))

;; 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)
(define-key java-mode-map (kbd "M-I") 'java-imports-add-import-dwim)

;; java-imports
(require 'java-imports)
(require 's)

(defun jk-get-package-prefix (full-name)
  "Return the first part of FULL-NAME, ie `android.' from `android.os.Bundle'.

If there is no first part, full-name is returned in full."
  (let ((match (s-match "[^.]*\\\." full-name)))
    (if match
        (car match)
      full-name)))


(defun jk-package-prefix< (prefix1 prefix2)
  "Return non-nil if PREFIX1 should be sorted before PREFIX2."
  (if (s-starts-with? "java." prefix1)
      (if (s-starts-with? "java." prefix2)
          (string< prefix1 prefix2)
        nil)
    (if (s-starts-with? "java." prefix2)
        t
      (string< prefix1 prefix2))))


(defun jk-find-place-sorted-blocks (full-name class-name package)
  "Finds the insertion place within one of the sorted import blocks.

Follows a convention where imports are separated in sorted blocks based
on first identifier in package name (com in one group, java in another)
ordered alphabetically with the exception of java that is always last."

  (let ((prefix (jk-get-package-prefix full-name)))
    ;; Find group with same prefix if any
    (while (or (and (java-imports-import-for-line)
                    (jk-package-prefix< (jk-get-package-prefix
                                             (java-imports-import-for-line))
                                            prefix))
               (s-blank? (string-trim (thing-at-point 'line))))
      (forward-line 1))

    (cond
     ((and (java-imports-import-for-line)
           (string= prefix (jk-get-package-prefix
                            (java-imports-import-for-line))))
      ;; insert into existing group
      (while (and (java-imports-import-for-line)
                  (string< (java-imports-import-for-line) full-name))
        (forward-line 1))
      (open-line 1))
     (t
      ;; create new group, adding separating blank line
      (open-line 2)))))

(setq java-imports-find-block-function 'jk-find-place-sorted-blocks)
(add-hook 'java-mode-hook 'java-imports-scan-file)

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

;; glsl
(autoload 'glsl-mode "glsl-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.glsl\\'" . glsl-mode))
(add-to-list 'auto-mode-alist '("\\.vert\\'" . glsl-mode))
(add-to-list 'auto-mode-alist '("\\.frag\\'" . glsl-mode))
(add-to-list 'auto-mode-alist '("\\.geom\\'" . glsl-mode))

;; 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-8.0-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"
                    flycheck-android-java-variant
                    "devX86Debug"
                    flycheck-android-java-skip-gen t)
              (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.
 '(package-selected-packages
   '(kotlin-mode meson-mode groovy-mode gradle-mode flycheck ido-vertical-mode glsl-mode java-imports flycheck-android-experimental))
 '(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.
 )