;;; init-general.el -*- lexical-binding: t -*-
(require 'init-const)
(require 'init-funcs)

;; Make ESC quit prompts
(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
;; this annoying binding.
(global-unset-key (kbd "C-j"))
(global-unset-key (kbd "C-k"))
(global-unset-key (kbd "S-SPC"))    ;; input method / use only S-\

;; When you begin a keybind, whichkey will show you all keybinds you can follow the first one with in order to form a full keywords.
(use-package which-key
  :defer t
  :init (which-key-mode)
  :diminish which-key-mode
  :config
  (setq which-key-idle-delay 0.5))

(use-package general
  :init
  (general-auto-unbind-keys)
  :config
  (general-evil-setup t)
  (general-create-definer
    ju/leader-key-def
    :keymaps '(normal insert visual emacs)
    :prefix "SPC"
    :global-prefix "C-SPC"))
(ju/leader-key-def
  "." 'find-file
  ;; Buffer
  "b" '(:ignore t :which-key "buffer handling")
  "b i" '(ibuffer :which-key "IBuffer")
  "b r" '(revert-buffer :which-key "Revert Buffer")
  "b k" '(kill-current-buffer :which-key "Kill current buffer")
  "b n" '(next-buffer :which-key "Next buffer")
  "b p" '(previous-buffer :which-key "Previous buffer")
  "b B" '(ibuffer-list-buffers :which-key "IBuffer List Buffers")
  "b K" '(kill-buffer :which-key "IBuffer Kill Buffers")
  ;; Eshell
  "e" '(:ignore t :which-key "eshell")
  "e h" '(counsel-esh-history :which-key "Kill history")
  "e s" '(eshell :which-key "run eshell")
  "e e" '(elfeed :which-key "elfeed")
  ;; Counsel
  "f" '(:ignore t :which-key "file op.")
  "f r" '(consult-recent-file :which-key "Recent files")
  ;; Magit
  "g" '(:ignore t :which-key "magit")
  "g g" '(magit :which-key "magit")
  ;; Hydra
  "h" '(:ignore t :which-key "hydra")
  "h t" '(hydra-text-scale/body :which-key "scale text")
  "h w" '(hydra-writeroom-scale/body :which-key "scale whiteroom")
  "h a" '(hydra-modify-alpha/body :which-key "modify alpha background")
  ;; Insert something
  "i" '(:ignore t :which-key "insert something.")
  "i s" '(yas-insert-snippet :which-key "snippet")
  "i e" '(emojify-insert-emoji :which-key "emoji")
  ;; Org Journal / Org Roam
  "j" '(:ignore t :which-key "Journal / Roam")
  "n j" '(:ignore t :which-key "Org Journal")
  "n j j" '(org-journal-new-entry :which-key "new Entry")
  "n j J" '(org-journal-new-scheduled-entry :which-key "New Scheduled entry")
  "n j s" '(org-journal-search :which-key "Journal Search")
  "n r" '(:ignore t :which-key "Org Roam")
  "n r c" '(org-roam-capture :which-key "capture")
  "n r u" '(org-roam-ui-open :which-key "UI")
  "n r l" '(org-roam-buffer-toggle :which-key "buffer toggle")
  "n r f" '(org-roam-node-find :which-key "node find")
  "n r i" '(org-roam-node-insert :which-key "node insert")
  "n r I" '(org-id-get-create :which-key "create id")
  "n r g" '(my/org-roam-rg-search :which-key "roam ripgrep")
  "n r t" '(:ignore t :which-key "Org Roam Tags")
  "n r t t" '(org-roam-tag-add :which-key "new tag")
  "n r t d" '(org-roam-tag-remove :which-key "delete tag")
  ;; Org mode
  "o" '(:ignore t :which-key "Org mode")
  "o a" '(:ignore t :which-key "Org Agenda")
  "o a a" '(org-agenda :which-key "open org agenda")
  "o a r" '(my/org-roam-refresh-agenda-list :which-key "Org agenda refresh list")
  "o a c" '((lambda () (interactive) (find-file (expand-file-name "agenda/agenda.org" org-directory))) :which-key "org agenda file")
  "o c" '(cfw:open-org-calendar :which-key "org calendar")
  ;; Project-el
  "p" '(:ignore t :which-key "project")
  "p ." '(project-switch-project :which-key "switch project")
  "p p" '(project-switch-project :which-key "switch project")
  "p c" '(project-compile :which-key "compile")
  "p f" '(project-find-file :which-key "find-file")
  "p k" '(project-kill-buffers :which-key "kill buffers")
  "p s" '(project-shell :which-key "shell")
  "p e" '(project-eshell :which-key "eshell")
  "p d" '(project-dired :which-key "dired")
  ;;"p g" '(project-find-regexp :which-key "find-regexp")
  "p g" '(consult-ripgrep :which-key "ripgrep")
  ;; register
  "r" '(:ignore t :which-key "register")
  "r y" '(consult-register-save :which-key "yank to register")
  "r p" '(consult-register-load :which-key "paste to buffer")
  ;; Extra
  "t" '(:ignore t :which-key "extra")
  "t a" '(toggle-transparency :which-key "Toggle Transparency")
  "t t" '(toggle-truncate-lines :which-key "Toggle truncate lines")
  ;; Avy
  "v" '(:ignore t :which-key "Avy")
  "vc" '(avy-goto-char :which-key "Avy Goto Char")
  "vw" '(avy-goto-word-0 :which-key "Avy Goto Word")
  "vl" '(avy-goto-line :which-key "Avy Goto Line"))

(provide 'init-general)
;;; init-general.el ends here.