;;; dot-development.el --- -*- lexical-binding: t; -*-

;;; Commentary:

;; Development.

;;; Code:

;; -----------------------------------------
;; Company

(elpaca-setup company
  (:require company)
  (:with-mode
      (c-mode-common
       emacs-lisp-mode
       latex-mode
       org-mode
       php-mode
       shell-mode
       shell-script-mode)
    (:hook company-mode))
  (:when-loaded
    (setq company-idle-delay 0.2)
    (setq company-minimum-prefix-length 2)
    (setq company-show-numbers t)
    (setq company-tooltip-align-annotations 't)))

;; Sort Company completions.

(elpaca-setup company-prescient
  (:load-after company prescient)
  (:when-loaded (company-prescient-mode)))

;; Auto-completion for C/C++ headers.

(elpaca-setup company-c-headers
  (:when-loaded (add-to-list 'company-backends 'company-c-headers)))

;; GLSL integration with company requires the package: ~glslang~.

(when (executable-find "glslangValidator")
  (elpaca-setup company-glsl
    (:when-loaded (add-to-list 'company-backends 'company-glsl))))

;; -----------------------------------------
;; Git

(elpaca-setup diff-hl
  (:require diff-hl)
  (:with-mode prog-mode
    (:hook turn-on-diff-hl-mode)
    (:hook dot/diff-hl-enable-flydiff-and-fringe))
  (:when-loaded

    (defun dot/diff-hl-enable-flydiff-and-fringe ()
      "Enable on the fly diff checking if file is under version control."
      (let ((buffer buffer-file-name))
        (when (and buffer (vc-registered buffer))
          (diff-hl-flydiff-mode)
          (dot/toggle-fringe 1))))))

(elpaca-setup transient
  (:when-loaded
    (setq transient-history-file (expand-file-name "transient/history.el" dot-cache-dir))
    (setq transient-values-file  (expand-file-name "transient/values.el"  dot-cache-dir))))

(elpaca-setup magit
  (:autoload magit-status magit-status-here)
  (:with-mode git-commit-setup
    (:hook git-commit-turn-on-auto-fill)
    (:hook git-commit-turn-on-flyspell))
  (:with-mode magit-pre-refresh (:hook diff-hl-magit-pre-refresh))
  (:with-mode magit-post-refresh (:hook diff-hl-magit-post-refresh))
  (:load-after diff-hl transient)
  (:when-loaded
    (setq git-commit-fill-column 72)
    (setq git-commit-summary-max-length 72)
    (setq magit-completing-read-function #'completing-read)
    (setq magit-diff-paint-whitespace-lines 'both)
    (setq magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)
    (setq magit-process-extreme-logging nil)
    (setq magit-repository-directories '(("~/dotfiles" . 0)
                                         ("~/code" . 3)))

    (put 'magit-log-select-pick :advertised-binding [?\M-c])
    (put 'magit-log-select-quit :advertised-binding [?\M-k])

    (defun dot/magit-select-repo ()
      "Select project repo."
      (interactive)
      (let ((current-prefix-arg '(t)))
        (call-interactively #'magit-status)))))

(elpaca-setup magit-todos
  (:load-after magit)
  (:when-loaded
    (magit-todos-mode)))

;; -----------------------------------------
;; Project

;; Project manager.

;; Adding to project.el project directory detection
;; https://michael.stapelberg.ch/posts/2021-04-02-emacs-project-override/

(elpaca-nil (setup project ; built-in
       (setq project-list-file (expand-file-name "projects" dot-cache-dir))
       (:when-loaded

         (defun dot/project-find (dir)
           (let ((root (locate-dominating-file dir ".project")))
             (and root (list 'vc 'Filewise root))))
         (add-hook 'project-find-functions #'dot/project-find)

         (defun dot/find-project-root ()
           "Return root of the project, determined by `.git/' and `.project',
`default-directory' otherwise."
           (let ((project (project-current)))
             (if project
                 (project-root project)
               default-directory)))

         (defun dot/find-file-in-project-root ()
           "Find file in project root."
           (interactive)
           (let ((default-directory (dot/find-project-root)))
             (call-interactively 'find-file)))

         (defun dot/project-remember-projects-under (dir maxdepth)
           "Index all projects below directory DIR recursively, until MAXDEPTH."
           (let ((files (mapcar 'file-name-directory
                                (dot/directory-files-recursively-depth
                                 dir "\\.git$\\|\\.project$" t maxdepth))))
             (dolist (path files)
               (project-remember-projects-under path))))

         (unless (file-exists-p project-list-file)
           (project-remember-projects-under "~/dotfiles")
           (dot/project-remember-projects-under "~/code" 4))

         (defun dot/project-project-name ()
           "Return project name."
           (let ((project (project-current)))
             (if project
                 (let* ((project (file-truename (directory-file-name (project-root (project-current)))))
                        (parent-dir-full (file-name-directory (directory-file-name project)))
                        (parent-dir (file-name-nondirectory (substring parent-dir-full 0 -1)))
                        (filename (file-name-nondirectory project)))
                   (concat filename "/" parent-dir))
               "-")))

         (defun dot/project-save-project-buffers ()
           "Save all project buffers."
           (interactive)
           (let ((buffers (cl-remove-if (lambda (buffer) (not (buffer-file-name buffer)))
                                        (project-buffers (project-current)))))
             (save-some-buffers t (lambda () (member (current-buffer) buffers))))))))

;; -----------------------------------------
;; Compile

;; Enable color escape codes.

(elpaca-nil (setup ansi-color ; built-in
       (:with-mode compilation-filter (:hook ansi-color-compilation-filter))
       ;; :hook (compilation-filter . ansi-color-compilation-filter)
       (:when-loaded (setq ansi-color-bold-is-bright t))))

(elpaca-nil (setup compile ; built-in
       (defun dot/compile-disable-underline () ""
              (face-remap-add-relative 'underline :underline nil))
       (:with-mode comint-mode (:hook dot/compile-disable-underline))
       (:when-loaded
         (setq compilation-scroll-output 'first-error)

         (defun dot/compile ()
           "Compile project."
           (interactive)
           (let ((default-directory (dot/find-project-root)))
             (dot/project-save-project-buffers)
             (let ((current-prefix-arg '(t)))
               (call-interactively 'compile)))))))

;; -----------------------------------------
;; Languages

;;; Language Server Protocol

(elpaca-setup lsp-mode
  (:autoload lsp-deferred)
  ;; (:require lsp-modeline lsp-mode)
  (:with-mode
      (c-mode         ; clangd
       c++-mode       ; clangd
       php-mode       ; nodejs-intelephense
       csharp-mode    ; omnisharp-roslyn-bin
       go-mode        ; gopls
       kotlin-mode    ; kotlin-language-server
       lua-mode       ; lua-language-server
       latex-mode     ; texlab
       swift-mode     ; swift-bin
       web-mode)
    (:hook lsp-deferred))
  (:when-loaded
    (setq lsp-auto-guess-root t)
    (setq lsp-clients-clangd-args '("-j=2"
                                    "--background-index"
                                    "--clang-tidy"
                                    "--compile-commands-dir=build"
                                    "--log=error"
                                    "--header-insertion-decorators=0"
                                    "--pch-storage=memory"
                                    "--enable-config"))
    (setq lsp-csharp-omnisharp-roslyn-binary-path "/usr/bin/omnisharp")
    (setq lsp-csharp-server-install-dir "/usr/lib/omnisharp/")
    (setq lsp-clients-lua-language-server-bin "/usr/bin/lua-language-server")
    (setq lsp-clients-lua-language-server-install-dir "/usr/lib/lua-language-server/")
    (setq lsp-clients-lua-language-server-main-location "/usr/lib/lua-language-server/main.lua")
    (setq lsp-enable-xref t)
    (setq lsp-headerline-breadcrumb-enable nil)
    (setq lsp-intelephense-storage-path (expand-file-name "lsp-cache" dot-cache-dir))
    (setq lsp-keep-workspace-alive nil)
    ;; (setq lsp-modeline-code-actions-enable nil)
    ;; (setq lsp-modeline-diagnostics-enable nil)
    ;; (setq lsp-modeline-workspace-status-enable nil)
    (setq lsp-prefer-flymake nil)
    (setq lsp-session-file (expand-file-name "lsp-session-v1" dot-cache-dir))

    ;; Mark clangd args variable as safe to modify via .dir-locals.el
    (put 'lsp-clients-clangd-args 'safe-local-variable #'listp)

    ;; Enable which-key descriptions
    (dolist (leader-key (list dot/leader-key dot/leader-alt-key))
      (let ((lsp-keymap-prefix (concat leader-key " l")))
        (lsp-enable-which-key-integration)))

    (defun dot/lsp-format-buffer-or-region ()
      "Format the selection (or buffer) with LSP."
      (interactive)
      (unless (bound-and-true-p lsp-mode)
        (message "Not in an LSP buffer"))
      (call-interactively
       (if (use-region-p)
           #'lsp-format-region
         #'lsp-format-buffer)))

    ;; This is cached to prevent unneeded I/O
    (setq lsp-in-cpp-project-cache nil)
    (defun dot/lsp-format-cpp-buffer ()
      "Format buffer in C++ projects."
      (unless lsp-in-cpp-project-cache
        (set (make-local-variable 'lsp-in-cpp-project-cache)
             (list
              (if (and (eq major-mode 'c++-mode)
                       (bound-and-true-p lsp-mode)
                       (or
                        (locate-dominating-file "." ".clang-format")
                        (locate-dominating-file "." "_clang-format")))
                  t
                nil))))
      (when (car lsp-in-cpp-project-cache)
        (lsp-format-buffer)))
    (add-hook 'before-save-hook #'dot/lsp-format-cpp-buffer)))

(elpaca-setup lsp-ui
  (:autoload lsp-ui-mode)
  (:load-after flycheck lsp-mode)
  (:when-loaded
    (setq lsp-ui-doc-border (face-foreground 'default))
    (setq lsp-ui-doc-delay 0.5)
    (setq lsp-ui-doc-enable t)
    (setq lsp-ui-doc-header t)
    (setq lsp-ui-doc-include-signature t)
    (setq lsp-ui-doc-position 'top)
    (setq lsp-ui-doc-use-childframe t)
    (setq lsp-ui-flycheck-list-position 'right)
    (setq lsp-ui-imenu-enable nil)
    (setq lsp-ui-peek-enable nil)
    (setq lsp-ui-sideline-enable nil)))

;;; Debug Adapter Protocol

(elpaca-setup treemacs
  (:hook dot/hook-disable-line-numbers)
  (:when-loaded (setq treemacs-persist-file (expand-file-name "treemacs/persist" dot-cache-dir))))

(elpaca-setup lsp-treemacs
  (:load-after treemacs)
  (:when-loaded (setq lsp-treemacs-error-list-current-project-only t)))

(elpaca-setup dap-mode
  (:with-mode lsp-after-initialize (:hook dot/dap-install-debug-adapters))
  (:load-after lsp-treemacs lsp-mode)
  (:when-loaded
    (setq dap-auto-configure-features '(sessions locals expressions controls tooltip))
    (setq dap-breakpoints-file (expand-file-name "dap/breakpoints" dot-cache-dir))
    (setq dap-utils-extension-path (expand-file-name "dap" dot-cache-dir))

    ;; Create dap extension directory
    (unless (file-directory-p dap-utils-extension-path)
      (make-directory dap-utils-extension-path t))

    (defun dot/dap-install-debug-adapters ()
      "Install and Load debug adapters."
      (interactive)
      (unless (bound-and-true-p lsp-mode)
        (user-error "Not in an LSP buffer"))
      (when (string-equal major-mode "c++-mode")
        (require 'dap-cpptools)
        (dap-cpptools-setup)))))

;;; C/C++

(elpaca-nil (setup c-mode ; built-in
       ;; C++ // line comment style in c-mode
       (defun dot/c-mode-comment-style () ""
              (c-toggle-comment-style -1))
       (:hook dot/c-mode-comment-style)))

;;; C#

;; Packages:
;; - dotnet-host
;; - dotnet-runtime-6.0
;; - dotnet-sdk-6.0
;; - dotnet-targeting-pack-6.0
;; - omnisharp-roslyn-bin
;; - netcoredbg (edit PKGBUILD to detect dotnet -6.0 dependencies)

(elpaca-nil (setup csharp-mode)) ; built-in

;;; CMake

(elpaca-setup cmake-mode
  (:defer 2)
  (:when-loaded (setq cmake-tab-width (default-value 'tab-width))))

;;; Emacs Lisp

(elpaca-nil (setup emacs-lisp ; built-in
       (defun dot/elisp-init () ""
              (setq-local indent-tabs-mode nil))
       (:hook dot/elisp-init)))

;;; GLSL

(elpaca-setup glsl-mode)

;;; Golang

(elpaca-setup go-mode)

;;; HTML

(elpaca-setup web-mode
  (:file-match "\\.ts")
  (:file-match "\\.vue"))

;;; Kotlin

(elpaca-setup kotlin-mode)

;;; Lua

(elpaca-setup lua-mode
  (:when-loaded (setq lua-indent-level (default-value 'tab-width))))

;;; PHP

(elpaca-setup php-mode
  (defun dot/php-mode-init () ""
         (setq-local indent-tabs-mode t))
  (:hook dot/php-mode-init))

(elpaca-setup restclient)
(elpaca-setup restclient-jq
  (:load-after restclient))

;;; Python

(elpaca-nil (setup python-mode ; built-in
       (defun dot/python-mode-init () ""
              (setq-local indent-tabs-mode t)
              (setq-local tab-width (default-value 'tab-width))
              (setq python-indent-offset (default-value 'tab-width)))
       (:hook dot/python-mode-init)))

;;; Swift

(elpaca-setup swift-mode)
(elpaca-setup lsp-sourcekit
  (:load-after lsp-mode)
  (:when-loaded
    (setq lsp-sourcekit-executable "/usr/bin/sourcekit-lsp")))

;;; YAML

(elpaca-setup yaml-mode)
;; :defer t)

;; -----------------------------------------
;; Syntax Highlighting

;; (elpaca-setup tree-sitter-langs))

;; (elpaca-setup tree-sitter)
;;   (:also-load tree-sitter-langs)
;;   (:when-loaded
;;     (global-tree-sitter-mode)
;;     (add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode)))

;; -----------------------------------------
;; Quality of Life

;;; Flycheck, on the fly syntax checking

(elpaca-setup flycheck
  (:autoload flycheck-mode)
  (:with-mode
      (c-mode-common
       emacs-lisp-mode
       latex-mode
       org-mode
       php-mode
       sh-mode
       shell-mode
       shell-script-mode)
    (:hook flycheck-mode))
  (:when-loaded
    (setq flycheck-clang-language-standard "c++20")
    (setq flycheck-gcc-language-standard "c++20")))

;; For .el files which are intended to be packages
(elpaca-setup flycheck-package
  (:load-after flycheck)
  (:when-loaded
    (add-to-list 'flycheck-checkers 'flycheck-emacs-lisp-package)
    (flycheck-package-setup)))

(elpaca-setup flycheck-clang-tidy
  (:load-after flycheck)
  (:with-mode flycheck-mode (:hook flycheck-clang-tidy-setup))
  (:when-loaded (setq flycheck-clang-tidy-extra-options "--format-style=file")))

;;; Flyspell

(elpaca-nil (setup ispell ; built-in
              (:when-loaded
                (setq ispell-program-name "/usr/bin/hunspell")
                (ispell-set-spellchecker-params)
                (ispell-hunspell-add-multi-dic "en_US,nl_NL")
                (setq ispell-dictionary "en_US,nl_NL"))))

;; Give Flyspell a selection menu.
(elpaca-setup flyspell-correct
  (:load-after flyspell)
  (:with-mode org-mode (:hook flyspell-mode))
  (:when-loaded
    (setq flyspell-issue-message-flag nil)
    (setq flyspell-issue-welcome-flag nil))

  (defun dot/flyspell-toggle ()
    "Toggle Flyspell, prompt for language."
    (interactive)
    (if (symbol-value flyspell-mode)
        (flyspell-mode -1)
      (call-interactively 'ispell-change-dictionary)
      (if (derived-mode-p 'prog-mode)
          (flyspell-prog-mode)
        (flyspell-mode))
      (flyspell-buffer))))

;;; Rainbow Delimiters

(elpaca-setup rainbow-delimiters
  (:hook-into prog-mode))

;;; Rainbow Mode

(elpaca-setup rainbow-mode
  (:hook-into css-mode))

;;; YASnippet

(elpaca-setup yasnippet
  (:autoload yas-expand yas-insert-snippet)
  (setq yas-snippet-dirs (list (expand-file-name "snippets" dot-emacs-dir)))
  (setq yas-prompt-functions '(yas-completing-prompt))
  (:when-loaded
    (yas-global-mode)))

(elpaca-setup yasnippet-snippets
  (:load-after yasnippet))

;; https://stackoverflow.com/questions/22735895/configuring-a-yasnippet-for-two-scenarios-1-region-is-active-2-region-is

(provide 'dot-development)

;;; dot-org-mode.el ends here