emacs/lisp/icejam-transient.el

;;; pkg/transient -- summary -*- lexical-binding: t; -*-
;;; Commentary:
;;; Global Transient definitions.
;;; Code:

(require 'icejam-avy)
(require 'icejam-keys-mode)
(use-package transient :straight t)

(defun icejam-mark-and-indent-whole-buffer ()
  "Mark and indent whole buffer."
  (interactive)
  (indent-region (point-min) (point-max)))

(transient-define-prefix icejam/project-menu ()
  "Project Commands."
  [""
   ["Projectile"
    ("s" "Switch project"       counsel-projectile-switch-project)
    ("f" "Find file in project" counsel-projectile-find-file)
    ("g" "Grep in project"      counsel-projectile-rg)
    ("c" "invalidate cache"     projectile-invalidate-cache)
    ("n" "New project"          projectile-add-known-project)]
   ["Ivy"
    ("a" "Grep in buffer"       counsel-rg)
    ("b" "Buffer list"          ibuffer)
    ("t" "Find file"            counsel-find-file)]
   ["Magit"
    ("m" "Git status"           magit-status)
    ("C" "Git checkout"         magit-checkout)
    ("M" "Git blame"            magit-blame)]]
  [""
   ["LISP"
    ("i" "IELM"                 ielm)
    ("e" "eval-region"          eval-region)]
   ["Other"
    ("d" "deft"                 deft)
    ("T" "Speed Type"           speed-type-text)]])

(transient-define-prefix icejam/code-menu ()
  "Code Commands."
  [""
   ["Manipulate"
    ("c" "Toggle Comment" comment-line)
    ("r" "Replace"        vr/replace)
    ("i" "Indent"         indent-region)
    ("a" "Align"          align-regexp)]
   ["Complete"
    ("y" "Snippet"        company-yasnippet)
    ("m" "Any (Company)"  company-complete)
    ("g" "Ask GPT"        gptel-menu)]
   ["Find"
    ("s" "Swiper"         swiper)
    ("u" "Vundo"          vundo)
    ("d" "Dash"           dash-at-point)]])

(transient-define-prefix icejam/window-menu ()
  "Windows Commands."
  [""
   ["Move"
    ("<left>" " Left"   windmove-left)
    ("<right>" "Right"  windmove-right)
    ("<up>" "   Up"     windmove-up)
    ("<down>" " Down"   windmove-down)]
   ["Split"
    ("h" "Horizontally" split-window-below)
    ("v" "Vertically"   split-window-right)]
   ["Kill"
    ""
    ""
    ""
    ("k" "Kill Buffer"  kill-buffer-and-window)]])

(transient-define-prefix icejam/language-menu ()
  "Language (Buffer) Commands."
  [""
   ["Buffer"
    ("r" "Reload"      icejam-revert-buffer-no-confirm)
    ("f" "Format"      lsp-format-buffer)
    ("i" "Indent"      icejam-mark-and-indent-whole-buffer)]
   ["Other"
    ("m" "iMenu"       lsp-ui-imenu)
    ("e" "Show Errors" flycheck-list-errors)]])

(transient-define-prefix icejam/history-menu ()
  "Buffer History Commands."
  ["History"
   ("[" "Previous" previous-buffer)
   ("]" "Next" previous-buffer)])

(transient-define-prefix icejam/move-menu ()
  "Move Commands."
  [""
   ["Move this buffer"
    ("{" "Up"    buf-move-left)
    ("[" "Left"  buf-move-right)
    ("}" "Right" buf-move-up)
    ("]" "Down"  buf-move-down)]
   ["Jump to"
    ("w" "Word" avy-goto-word-1)
    ("l" "Character" avy-goto-line)
    ("c" "Line" avy-goto-char-2)]])

(transient-define-prefix icejam/font-menu ()
  "Font Commands."
  [""
   ["Everywhere"
    ("R" "Reset to default" set-font-to-screen)
    ("s" "Set size" set-font-size)]
   ["In this buffer"
    ("i" "Bigger"           (lambda () (interactive) (text-scale-increase 1)))
    ("d" "Smaller"          (lambda () (interactive) (text-scale-decrease 1)))
    ("r" "Reset"            (lambda () (interactive) (text-scale-adjust 0)))]])

(defcustom icejam-language-transient-alist
  '()
  "List of functions to call for language transient."
  :group 'icejam
  :type '(repeat (cons (symbol :tag "Major mode name")
                       (symbol :tag "Function to call"))))

;; Use different thing for different language
(defun icejam-language-transient-for-mode (&optional maybe-mode)
  "Get transient for major mode.
You can pass MAYBE-MODE to find mode explicitly."
  (let* ((mode (if maybe-mode maybe-mode major-mode)))
    (alist-get mode icejam-language-transient-alist 'icejam/language-menu)))

(defun icejam-transient-for-lang ()
  "Call transient for current major mode."
  (interactive)
  (funcall (icejam-language-transient-for-mode)))

(define-key icejam-keys-mode-map (kbd "C-c p") 'icejam/project-menu)
(define-key icejam-keys-mode-map (kbd "C-c c") 'icejam/code-menu)
(define-key icejam-keys-mode-map (kbd "C-c w") 'icejam/window-menu)
(define-key icejam-keys-mode-map (kbd "C-c s") 'icejam/history-menu)
(define-key icejam-keys-mode-map (kbd "C-c f") 'icejam/font-menu)
(define-key icejam-keys-mode-map (kbd "C-c m") 'icejam/move-menu)
(define-key icejam-keys-mode-map (kbd "C-c l") 'icejam-transient-for-lang)

(provide 'icejam-transient)
;;; icejam-transient.el ends here