kixi-emacs.el

;;; kixi-emacs.el --- Base config for the Mastodon C emacs environment -*- lexical-binding: t -*-
;;
;; Filename: kixi-emacs.el

;; Package-Requires: ((straight) (magit) (evil) (which-key) (doom-themes) (modus-themes) (doom-modeline) (rainbow-delimiters) (general) (evil-collection) (vertico) (orderless) (marginalia) (embark) (consult) (embark-consult) (corfu) (corfu-doc) (cape) (cider) (lsp-mode) (lsp-ui) (consult-lsp) (evil-cleverparens) (flycheck) (consult-flycheck) (flycheck-clj-kondo) (highlight-indent-guides) (orgit) (evil-org) (deadgrep) (command-log-mode) (csv-mode) (rainbow-mode) (commify) (aggressive-indent) (evil-commentary) (markdown-mode) (separedit))
;;
;; heavily inspired by
;; - https://gitlab.com/magus/mes
;; - https://github.com/corgi-emacs/corgi
;; - https://github.com/otfrom/otfrom-org-emacs
;; - https://github.com/mpenet/emax/blob/master/init.el
;; - https://github.com/benjamin-asdf/dotfiles/blob/master/mememacs/.emacs-mememacs.d/init.el

;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:

(require 'use-package)
(require 'straight)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (require 'kixi-basics)
(setq inhibit-startup-message t)

;; Disable unnecessary stuff
(scroll-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
(menu-bar-mode -1)
(set-fringe-mode 10)
(setq visible-bell t)

(column-number-mode)
;; (use-package display-line-numbers
;;   :hook ((prog-mode conf-mode) . display-line-numbers-mode)
;;   :custom (display-line-numbers-width 3))
(require 'display-line-numbers)
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
(customize-set-variable 'display-line-numbers-width 3)

;; Disable line numbers for some modes
(dolist (mode '(org-mode-hook
                term-mode-hook
                shell-mode-hook
                treemacs-mode-hook
                eshell-mode-hook))
  (add-hook mode (lambda () (display-line-numbers-mode 0))))

(setq-default indent-tabs-mode nil)
(customize-set-variable 'global-auto-revert-non-file-buffers t)
(global-auto-revert-mode 1)

(add-hook 'after-init-hook #'recentf-mode)
(customize-set-variable 'recentf-save-file
                        (expand-file-name ".cache/recentf" user-emacs-directory))

;; Make scrolling less stuttered
(setq auto-window-vscroll nil)
(customize-set-variable 'fast-but-imprecise-scrolling t)
(customize-set-variable 'scroll-conservatively 101)
(customize-set-variable 'scroll-margin 0)
(customize-set-variable 'scroll-preserve-screen-position t)

;; Better support for files with long lines
(setq-default bidi-paragraph-direction 'left-to-right)
(setq-default bidi-inhibit-bpa t)
(global-so-long-mode 1)

;; Make shebang (#!) file executable when saved
(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)

;; Enable savehist-mode for an command history
(savehist-mode 1)
(customize-set-variable 'savehist-file
                        (expand-file-name ".cache/history" user-emacs-directory))

(setq
 backup-by-copying t      ; don't clobber symlinks
 backup-directory-alist
 '(("." . "~/.saves"))    ; don't litter my fs tree
 delete-old-versions t
 kept-new-versions 6
 kept-old-versions 2
 version-control t)       ; use versioned backups


;; (provide 'kixi-basics)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; evil
(setq evil-want-integration t
      evil-want-keybinding nil
      evil-want-C-u-scroll t)
(require 'evil)


(evil-mode 1)
(define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)

;; Use visual line motions even outside of visual-line-mode buffers
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)

(evil-set-initial-state 'messages-buffer-mode 'normal)
(evil-set-initial-state 'dashboard-mode 'normal)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; which-key
(require 'which-key)
(setq which-key-idle-delay 0.7)
(which-key-mode)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; modeline
(require 'doom-modeline)
(doom-modeline-mode 1)
(customize-set-variable 'doom-modeline-height 15)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Evil General
(require 'general)
(general-evil-setup)

(general-create-definer kixi-leader-def
  :keymaps 'override
  :states '(normal insert motion visual emacs)
  :prefix "SPC"
  :global-prefix "C-SPC")

(general-create-definer kixi-mode-leader-def
  :states '(normal visual)
  :keymaps 'override
  :prefix ","
  :global-prefix "SPC m")

(kixi-leader-def
  "SPC" '(execute-extended-command :wk "M-x")
  "TAB" '(mode-line-other-buffer :wk "last buffer")
  "!" 'shell-command
  "u" 'universal-argument)

(kixi-leader-def
  :infix "b"
  "" '(:ignore t :wk "buffers")
  "b" '(consult-buffer :wk "switch")
  "d" '(kill-this-buffer :wk "kill")
  "e" '(erase-buffer :wk "erase")
  "r" '(revert-buffer :wk "revert")
  "l" 'ibuffer)

(kixi-leader-def
 :infix "E"
 "" '(:ignore t :wk "Emacs")
 "u" '(package-update-all :wk "update packages"))

(kixi-leader-def
 :infix "f"
 "" '(:ignore t :wk "files")
 "f" 'find-file
 "r" '(recentf-open :wk "recent")
 "s" 'save-buffer
 "S" 'save-some-buffers)

(kixi-leader-def
 :infix "h"
 "" '(:ignore t :wk "help/desc")
 "f" 'describe-function
 "i" 'info-display-manual
 "k" 'describe-key
 "m" 'describe-mode
 "v" 'describe-variable
 "w" 'woman)

(kixi-leader-def
 :infix "q"
 "" '(:ignore t :wk "quit")
 "r" 'restart-emacs
 "q" 'kill-emacs)

(kixi-leader-def
  :infix "t"
  "" '(:ignore t :wk "toggle")
  "m" 'modus-themes-toggle
  "l" 'display-line-numbers-mode)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Yet more evil
(require 'evil-collection)
(evil-collection-init)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; window movement
(kixi-leader-def
  :infix "w"
  "" '(:ignore t :wk "window")
  "h" 'windmove-left
  "j" 'windmove-down
  "k" 'windmove-up
  "l" 'windmove-right
  "H" 'windmove-swap-states-left
  "J" 'windmove-swap-states-down
  "K" 'windmove-swap-states-up
  "L" 'windmove-swap-states-right
  "-" 'split-window-below
  "/" 'split-window-right
  "=" 'balance-windows
  "d" 'delete-window
  "D" 'delete-other-windows)

(kixi-leader-def
  :infix "w"
  "x" '(:ignore t :wk "delete windows")
  "xk" 'windmove-delete-up
  "xj" 'windmove-delete-down
  "xh" 'windmove-delete-left
  "xl" 'windmove-delete-right)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; winner mode
(require 'winner)
(winner-mode 1)
(kixi-leader-def
  :infix "w"
  "u" 'winner-undo
  "r" 'winner-redo)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; magit
(require 'magit)
(kixi-leader-def
   :infix "g"
   "" '(:ignore t :wk "git")
   "c" 'magit-clone
   "i" 'magit-init
   "s" 'magit-status)

;; vertico
(setq vertico-cycle t)
;; (require '( vertico :files (:defaults "extensions/*")
;;                          :includes (vertico-buffer
;;                                     vertico-directory
;;                                     vertico-flat
;;                                     vertico-indexed
;;                                     vertico-mouse
;;                                     vertico-quick
;;                                     vertico-repeat
;;                                     vertico-reverse)))
(require 'vertico)
(vertico-mode)
(with-eval-after-load 'evil
  (define-key vertico-map (kbd "C-j") 'vertico-next)
  (define-key vertico-map (kbd "C-k") 'vertico-previous))

(setq completion-styles '(orderless basic)
        completion-category-defaults nil
        completion-category-overrides '((file (styles partial-completion))))
(require 'orderless)

(require 'marginalia)
(marginalia-mode)

(require 'consult)

(require 'embark)

(require 'embark-consult)
(add-hook 'embark-collect-mode-hook #'consult-preview-at-point)

(require 'corfu)
(global-corfu-mode)
(customize-set-variable 'corfu-cycle t)
(customize-set-variable 'corfu-auto t)
(customize-set-variable 'corfu-auto-delay 0.5)
(customize-set-variable 'corfu-auto-prefix 2)
(customize-set-variable 'corfu-echo-documentation 0.75)

;; FIXME: Migrate to corfu-popupinfo in a way that works in the terminal
;; (require 'corfu-doc)
;; (add-hook 'corfu-mode-hook #'corfu-doc-mode)

(straight-use-package
 '(popon :type git :repo "https://codeberg.org/akib/emacs-popon.git"))
(require 'popon)

(straight-use-package
 '(corfu-terminal :type git :repo "https://codeberg.org/akib/emacs-corfu-terminal.git"))
(require 'corfu-terminal)
(unless (display-graphic-p)
    (corfu-terminal-mode +1))

(straight-use-package
 '(corfu-doc-terminal :type git :repo "https://codeberg.org/akib/emacs-corfu-doc-terminal.git"))
(require 'corfu-doc-terminal)
(unless (display-graphic-p)
    (corfu-doc-terminal-mode +1))

(require 'cape)
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)

;; cider and clojure
(setq nrepl-log-messages t
        cider-font-lock-dynamically nil ; use lsp semantic tokens
        cider-eldoc-display-for-symbol-at-point nil ; use lsp
        cider-prompt-for-symbol nil)
(require 'cider)
(add-hook 'cider-mode-hook (lambda () (remove-hook 'completion-at-point-functions #'cider-complete-at-point)))

(customize-set-variable 'lsp-completion-provider :none)
(setq cljr-add-ns-to-blank-clj-files nil
      lsp-enable-indentation nil
      lsp-headerline-breadcrumb-enable nil
      lsp-signature-auto-activate nil
      lsp-semantic-tokens-enable t
      ;; after last buffer closed, kill workspace
      lsp-keep-workspace-alive nil)

(require 'lsp-mode)
(defun mpenet/lsp-mode-setup-completion ()
  (setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
        '(flex)))
(add-hook 'clojure-mode-hook 'lsp)
(add-hook 'lsp-completion-mode-hook #'mpenet/lsp-mode-setup-completion)

(dolist (m '(clojure-mode
             clojurec-mode
             clojurescript-mode
             clojurex-mode))
  (add-to-list 'lsp-language-id-configuration `(,m . "clojure")))


(setq lsp-ui-peek-list-width 60
        lsp-ui-doc-max-width 60
        lsp-ui-doc-enable nil
        lsp-ui-peek-fontify 'always
        lsp-ui-sideline-show-code-actions nil)
(require 'lsp-ui)

(require 'consult-lsp)

(kixi-mode-leader-def 
  :definer 'minor-mode
  :keymaps 'lsp-mode
  :infix "l"
  "" '(:ignore t :wk "lsp")
  "w" '(:ignore t :wk "workspace")
  "ws" 'lsp
  "wr" 'lsp-workspace-restart
  "wq" 'lsp-workspace-shutdown
  "wd" 'lsp-describe-session
  "wD" 'lsp-disconnect
  "=" '(:ignore t :wk "format")
  "==" 'lsp-format-buffer
  "=r" 'lsp-format-region
  "g" '(:ignore t :wk "goto")
  "gg" 'lsp-find-definition
  "gi" 'lsp-find-implementation
  "gr" 'lsp-find-references
  "gh" 'lsp-treemacs-call-hierarchy
  "r" '(:ignore t :wk "refactor")
  "rr" 'lsp-rename
  "ro" 'lsp-organize-imports
  "rc" 'lsp-clojure-clean-ns
  "a" '(:ignore t :wk "actions")
  "aa" 'lsp-execute-code-action
  "ai" 'lsp-clojure-add-import-to-namespace
  "am" 'lsp-clojure-add-missing-libspec)


;; smartparens
(require 'smartparens)
(require 'smartparens-config)
(smartparens-global-mode t)
(show-smartparens-global-mode t)
(setq sp-show-pair-from-inside t)

(add-hook 'lisp-mode-hook #'smartparens)

;; evil cleverparens
;; see https://github.com/luxbock/evil-cleverparens/issues/58
(customize-set-variable 'evil-cleverparens-use-additional-bindings nil)
(require 'evil-cleverparens)
(add-hook 'lisp-mode-hook #'evil-cleverparens-mode)
(add-hook 'clojure-mode-hook #'evil-cleverparens-mode)
(add-hook 'emacs-lisp-mode-hook #'evil-cleverparens-mode)
;; (general-create-definer kixi-sp-leader-def
;;   :states 'normal-mode
;;   :keymaps 'evil-cleverparens-mode-map
;;   :prefix ",")

(setq evil-move-beyond-eol t)

(kixi-mode-leader-def
  :definer 'minor-mode
  :keymaps 'evil-cleverparens-mode
  :infix "s" ;; s for sexp
  "" '(:ignore t :wk "sexp")
  "(" 'evil-cp-wrap-next-round
  "[" 'evil-cp-wrap-next-square
  "{" 'evil-cp-wrap-next-curly
  "r" 'sp-splice-sexp
  ">" 'sp-forward-slurp-sexp
  "<" 'sp-backward-barf-sexp
  "t" 'sp-transpose-sexp
  "j" 'evil-cp-drag-foward
  "k" 'evil-cp-drag-backward
  "w" 'evil-cp-copy-paste-form
  "q" 'sp-indent-defun)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; aggressive indent
(require 'aggressive-indent)
(global-aggressive-indent-mode 1)

;; flycheck
(require 'flycheck)

(require 'consult-flycheck)

(require 'flycheck-clj-kondo)

(add-hook 'sh-mode-hook #'flycheck-mode)
(add-hook 'clojure-mode-hook #'flycheck-mode)

(require 'highlight-indent-guides)
(add-hook 'prog-mode-hook #'highlight-indent-guides-mode)

(kixi-mode-leader-def
  :keymaps 'emacs-lisp-mode-map
  :infix "e"
  "" '(:ignore t :wk "eval")
  "e" 'eval-last-sexp
  "r" 'eval-region
  "b" 'eval-buffer)

(kixi-mode-leader-def
  :keymaps 'clojure-mode-map
  :infix "e"
  "" '(:ignore t :wk "eval")
  "e" 'cider-eval-last-sexp
  "r" 'cider-eval-region
  "b" 'cider-eval-buffer
  "p" 'cider-pprint-eval-last-sexp)

(kixi-mode-leader-def
  :keymaps 'clojure-mode-map
  :infix "j"
  "" '(:ignore t :wk "jack in")
  "j" 'cider-jack-in-clj)

(kixi-mode-leader-def
  :keymaps 'clojure-mode-map
  :infix "s"
  "l" 'clojure-align)

(kixi-mode-leader-def
  :keymaps 'clojure-mode-map
  :infix "r"
  "" '(:ignore t :wk "refactor")
  "#" 'clojure-convert-collection-to-set
  "'" 'clojure-convert-collection-to-quoted-list
  "(" 'clojure-convert-collection-to-list
  "-" 'clojure-toggle-ignore
  "P" 'clojure-promote-fn-literal
  "[" 'clojure-convert-collection-to-vector
  "_" 'clojure-toggle-ignore-surrounding-form
  "a" 'clojure-add-arity
  "f" 'clojure-thread-first-all
  "i" 'clojure-cycle-if
  "l" 'clojure-thread-last-all
  "o" 'clojure-cycle-not
  "p" 'clojure-cycle-privacy
  "t" 'clojure-thread
  "u" 'clojure-unwind
  "w" 'clojure-cycle-when
  "{" 'clojure-convert-collection-to-map)

(kixi-mode-leader-def
  :keymaps 'prog-mode-map
  :infix "g"
  "" '(:ignore t :wk "go")
  "g" 'xref-find-definitions
  "b" 'xref-go-back)


;; org-mode
(require 'orgit)

(require 'evil-org)
(add-hook 'org-mode-hook #'evil-org-mode)
(add-hook 'evil-org-mode-hook
          (lambda ()
            (evil-org-set-key-theme '(textobjects insert navigation additional shift todo heading))))

;; commenting
(setq markdown-command "multimarkdown")
(append auto-mode-alist '("README\\.md" . gfm-mode))
(require 'markdown-mode)

(setq separedit-default-mode 'markdown-mode)
(require 'separedit)

(kixi-mode-leader-def
  :keymaps 'prog-mode-map
  :infix ";"
  "" '(:ignore t :wk "comment")
  ";" 'comment-dwim
  "e" 'separedit)

(require 'deadgrep)

(require 'ediff)
(setq ediff-window-setup-function 'ediff-setup-windows-plain)

(require 'command-log-mode)
(global-command-log-mode 1)
(kixi-leader-def
  :infix "t"
  "c" '(clm/toggle-command-log-buffer :wk "command log"))

(require 'csv-mode)

(kixi-mode-leader-def
  :keymaps 'csv-mode-map
  "a" 'csv-align-fields
  "u" 'csv-unalign-fields)

(require 'rainbow-mode)

(require 'evil-commentary)
(evil-commentary-mode)

(defun clerk-show ()
  (interactive)
  (save-buffer)
  (let
      ((filename
        (buffer-file-name)))
    (when filename
      (cider-interactive-eval
       (concat "(nextjournal.clerk/show! \"" filename "\")")))))

(require 'commify)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; copy those images from pdfs
(defun x11-yank-image-at-point-as-image ()
  "Yank the image at point to the X11 clipboard as image/png."
  (interactive)
  (let ((image (get-text-property (point) 'display)))
    (if (eq (car image) 'image)
        (let ((data (plist-get (cdr image) ':data))
              (file (plist-get (cdr image) ':file)))
          (cond (data
                 (with-temp-buffer
                   (insert data)
                   (call-shell-region
                    (point-min) (point-max)
                    "xclip -i -selection clipboard -t image/png")))
                (file
                 (if (file-exists-p file)
                     (start-process
                      "xclip-proc" nil "xclip"
                      "-i" "-selection" "clipboard" "-t" "image/png"
                      "-quiet" (file-truename file))))
                (t
                 (message "The image seems to be malformed."))))
      (message "Point is not at an image."))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; project-mode
(kixi-leader-def
  :infix "p"
  "" '(:ignore t :wk "project")
  "f" 'project-find-file
  "p" 'project-switch-project
  "k" 'project-kill-buffers
  "b" 'consult-project-buffer)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; vterm - removed due to nixos issues
;; When it works again put (vterm) back in Package-Requires above
;; (require 'vterm)
;; does it even need the require?

(provide 'kixi-emacs)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; kixi-emacs.el ends here