;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-


;;;; Misc settings

(setq user-full-name "Jeffrey Serio"
      user-mail-address "hyperreal@fedoraproject.org")

;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example:
(when (string= (system-name) "moonshadow")
  (setq doom-font (font-spec :family "JetBrainsMono Nerd Font Mono" :size 16)
        doom-variable-pitch-font (font-spec :family "Rubik")
        doom-unicode-font (font-spec :family "JetBrainsMono Nerd Font Mono" :size 16)
        doom-big-font (font-spec :family "JetBrainsMono Nerd Font Mono" :size 16)))

(when (string= (system-name) "evergloam")
  (setq doom-font (font-spec :family "JetBrainsMono Nerd Font Mono" :size 18)
        doom-variable-pitch-font (font-spec :family "Rubik")
        doom-unicode-font (font-spec :family "JetBrainsMono Nerd Font Mono" :size 18)
        doom-big-font (font-spec :family "JetBrainsMono Nerd Font Mono" :size 18)))

;; Use catppuccin-mocha theme
(setq doom-theme 'catppuccin)
(setq catppuccin-flavor 'mocha)

;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type 'relative)

;; Make vterm open in another window
(setq vterm-other-window 1)

;; Keybinding to kill-whole-line
(global-set-key (kbd "M-9") 'kill-whole-line)

;; Copy all or text selection
(defun xah-copy-all-or-region ()
    "Put the whole buffer content to `kill-ring', or text selection if there's one.
Respects `narrow-to-region'.
URL `https://ergomacs.org/emacs/emacs_copy_cut_all_or_region.html'
Version 2015-08-22"
    (interactive)
    (if (use-region-p)
        (progn
            (kill-new (buffer-substring (region-beginning) (region-end)))
            (message "Text selection copied."))
        (progn
            (kill-new (buffer-string))
            (message "Buffer content copied."))))

;; Cut all or text selection
(defun xah-cut-all-or-region ()
    "Cut the whole buffer content to `kill-ring', or text selection if there's one.
Respects `narrow-to-region'.
URL `https://ergomacs.org/emacs/emacs_copy_cut_all_or_region.html'
Version 2015-08-22"
    (interactive)
    (if (use-region-p)
        (progn
            (kill-new (buffer-substring (region-beginning) (region-end)))
            (delete-region (region-beginning) (region-end)))
        (progn
            (kill-new (buffer-string))
            (delete-region (point-min) (point-max)))))

;; open URL in Firefox
(defun browse-host-firefox (url &rest ignored)
    "Browse URL with the host's Firefox using distrobox-exec."
    (interactive "sURL: ")
    (shell-command (concat "firefox " url)))

(setq browse-url-browser-function 'browse-host-firefox)

;; after copy Ctrl+c in Linux X11, you can paste by `yank' in emacs
(setq select-enable-clipboard t)

;; after mouse selection copy in X11, you can paste by `yank' in emacs
(setq select-enable-primary t)

;; set keybinding for paste
(global-set-key (kbd "C-S-V") #'clipboard-yank)

;; Smart home key
(defun smart-beginning-of-line ()
    "Move point to first non-whitespace character or beginning-of-line.

Move point to the first non-whitespace character on this line.
If point was already at that position, move point to beginning of line."
    (interactive "^")
    (let ((oldpos (point)))
        (back-to-indentation)
        (and (= oldpos (point))
            (beginning-of-line))))

(global-set-key (kbd "<home>") 'smart-beginning-of-line)
(global-set-key (kbd "<end>") 'end-of-line)

;; Autoformat on save
(setq +format-on-save-enabled-modes
    '(emacs-lisp-mode
      python-mode))

;; open Emacs in a maxmimized window
;; (add-to-list 'default-frame-alist '(fullscreen . maximized))


;;;; Package: evil-nerd-commenter

(global-set-key (kbd "M-;") 'evilnc-comment-or-uncomment-lines)
(global-set-key (kbd "C-c l") 'evilnc-quick-comment-or-uncomment-to-the-line)
(global-set-key (kbd "C-c c") 'evilnc-copy-and-comment-lines)
(global-set-key (kbd "C-c p") 'evilnc-comment-or-uncomment-paragraphs)


;;;; Package: org

(setq org-modules '(org-protocol
                    org-agenda
                    org-annotate-file
                    org-collector
                    ))
(eval-after-load 'org
  '(org-load-modules-maybe t))

(setq org-directory "~/sync/org/")
(setq org-default-notes-file "~/sync/org/notes.org")
(setq my-org-inbox-file "~/sync/org/inbox.org")

;; support selecting lines by using shift
(setq org-support-shift-select t)

;; org-mode tags
(setq org-tag-alist (quote (("@errand" . ?e)
                            ("@homemaking" . ?c)
                            ("@homelab" . ?h)
                            ("@desktop" . ?d)
                            ("@selfcare" . ?s)
                            ("@fedora" . ?f)
                            ("@refile" . ?r))))

;; org-mode keybindings
(with-eval-after-load 'org
  (bind-key "C-M-w" 'append-next-kill org-mode-map)
  (bind-key "C-TAB" 'org-cycle org-mode-map)
  (bind-key "C-c v" 'org-show-todo-tree org-mode-map)
  (bind-key "C-c C-r" 'org-refile org-mode-map)
  (bind-key "C-c o" 'my-org-follow-entry-link org-mode-map)
  (bind-key "C-c d" 'my-org-move-line-to-destination org-mode-map)
  (bind-key "C-c t s" 'my-split-sentence-and-capitalize org-mode-map)
  (bind-key "C-c t -" 'my-split-sentence-delete-word-and-capitalize org-mode-map)
  (bind-key "C-c t d" 'my-delete-word-and-capitalize org-mode-map)
  (bind-key "C-c C-p C-p" 'my-org-publish-maybe org-mode-map)
  (bind-key "C-c C-r" 'my-org-refile-and-jump org-mode-map)
  (bind-key "C-c r" 'org-capture)
  (bind-key "C-c R" 'org-roam-capture)
  (bind-key "C-c a" 'org-agenda)
  (bind-key "C-c l" 'org-store-link)
  (bind-key "C-c L" 'org-insert-link-global)
  (bind-key "C-c O" 'org-open-at-point-global))

(with-eval-after-load 'org-agenda
  (bind-key "i" 'org-agenda-clock-in org-agenda-mode-map))

(setq org-use-effective-time t)

;; link org subtrees and navigate between them
(defun my-org-follow-entry-link ()
  "Follow the defined link for this entry."
  (interactive)
  (if (org-entry-get (point) "LINK")
      (org-link-open-from-string (org-entry-get (point) "LINK"))
    (org-open-at-point)))

(defun my-org-link-projects (location)
  "Add link properties between the current subtree and the one specified by
LOCATION."
  (interactive
   (list (let ((org-refile-use-cache nil))
           (org-refile-get-location "Location"))))
  (let ((link1 (org-store-link nil)) link2)
    (save-window-excursion
      (org-refile 4 nil location)
      (setq link2 (org-store-link nil))
      (org-set-property "LINK" link1))
    (org-set-property "LINK" link2)))

;; org-refile
(setq org-reverse-note-order t) ; new notes prepended
(setq org-refile-use-outline-path 'file)
(setq org-outline-path-complete-in-steps nil)
(setq org-refile-allow-creating-parent-nodes 'confirm)
(setq org-refile-use-cache nil)
(setq org-blank-before-new-entry '((heading . t) (plain-list-item . t)))

(setq org-refile-targets
      `((("~/sync/org/inbox.org"
          "~/sync/org/calendar.org"
          "~/sync/org/computing.org"
          "~/sync/org/general.org"
          "~/sync/org/orders.org"
          "~/sync/org/notes.org"
          "~/sync/org/reading.org"
          "~/sync/org/grocery.org")
         . (:maxlevel .5))))

;; makes it easier to cut something and paste it elsewhere in the hierarchy
(with-eval-after-load 'org
  (bind-key "C-c k" 'org-cut-subtree org-mode-map)
  (setq org-yank-adjusted-subtrees t))

;; org-todo-keywords
(with-eval-after-load 'org
  (setq org-todo-keywords
        '((sequence
           "STARTED(s)"
           "TODO(t)"
           "WAITING(w@/!)"
           "IDEA(i)"
           "SOMEDAY(.)" "BLOCKED(k@/!)" "|" "DONE(x!)" "CANCELLED(c)")
          (sequence "PROJECT" "|" "DONE(x)")
          (sequence "LEARN" "TRY" "|" "COMPLETE(x)")))

  ;; catppuccin mocha palette
  (setq org-todo-keyword-faces
        '(("TODO" . (:foreground "#a6e3a1" :weight bold))
          ("IDEA" . (:foreground "#74c7ec" :weight bold))
          ("DONE" . (:foreground "#f38ba8" :weight bold))
          ("WAITING" . (:foreground "#f9e2af" :weight bold))
          ("SOMEDAY" . (:foreground "#f2cdcd" :weight bold)))))

(setq org-log-done 'time)


;; ;; Package: org-roam

(setq org-roam-directory "~/sync/org-roam")
(org-roam-db-autosync-mode)

;; org-roam-capture-template
(setq org-roam-capture-templates
      '(("m" "main" plain
         "%?"
         :if-new (file+head "main/${slug}.org"
                            "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("r" "reference" plain
         "%?"
         :if-new (file+head "reference/${title}.org"
                    "#+title: ${title}\n")
         :immediate-finish t
         :unnarrowed t)
        ("s" "self" plain
         "%?"
         :if-new (file+head "self/${slug}.org"
                            "#+title: ${title}\n#+filetags: :self:\n")
         :unnarrowed t)
        ("S" "self-entry" entry
         "* %U\n%?"
         :target (file "self/${slug}.org")
         :empty-lines 1
         :unnarrowed t)
        ("c" "recipe" plain
         "%?"
         :if-new (file+head "recipes/${title}.org"
                            "#+title: ${title}\n#+filetags: :recipe:\n")
         :immediate-finish t
         :unnarrowed t)))

;; create the property "type" on my nodes
(cl-defmethod org-roam-node-type ((node org-roam-node))
  "Return the TYPE of NODE."
  (condition-case nil
      (file-name-nondirectory
       (directory-file-name
        (file-name-directory
         (file-relative-name (org-roam-node-file node) org-roam-directory))))
    (error "")))

;; modify the display template to show the node "type"
(setq org-roam-node-display-template
      (concat "${type:15} ${title:*} " (propertize "${tags:10}" 'face 'org-tag)))

;; org-capture templates
(setq org-capture-templates
      '(("t" "Todo" entry (file "~/sync/org/inbox.org")
         "* TODO %?"
         :empty-lines-before 1
         :unnarrowed t
         :immediate-finish t)
        ("c" "Calendar" entry (file "~/sync/org/calendar.org")
         "* TODO %?"
         :empty-lines-before 1
         :unnarrowed t)
        ("j" "Journal" entry (file+olp+datetree "~/sync/org/journal.org")
         "* %U\n%?"
         :empty-lines-before 1
         :unnarrowed t)
        ("r" "Reading" entry (file "~/sync/org/reading.org")
         "* %a\n%U\n%^{PROMPT}"
         :empty-lines-before 1
         :unnarrowed t
         :immediate-finish t)
        ("s" "Slipbox" entry (file "~/sync/org-roam/inbox.org")
         "* %?\n")))

(defun hyperreal/org-capture-slipbox ()
  (interactive)
  (org-capture nil "s"))


;;;; Package: python-mode

;; Set bpython as Python shell interpreter
(add-hook! python-mode-hook
    (setq python-shell-interpreter "bpython"))

;; Set black as Python formatter
(setq-hook! 'python-mode-hook +format-with 'black)


;;;; Package: go-mode

;; completion for GoLang
(add-hook 'completion-at-point-functions 'go-complete-at-point)

;; Go - lsp-mode
(defun lsp-go-install-save-hooks ()
  (add-hook 'before-save-hook #'lsp-format-buffer t t)
  (add-hook 'before-save-hook #'lsp-organize-imports t t))
(add-hook 'go-mode-hook #'lsp-go-install-save-hooks)

;; Start LSP Mode
(add-hook 'go-mode-hook #'lsp-deferred)


;;;; Package: yasnippet

;; Popup rule for yasnippet
(defun yas-popup-isearch-prompt (prompt choices &optional display-fn)
    (when (featurep 'popup)
        (popup-menu*
            (mapcar
                (lambda (choice)
                    (popup-make-item
                        (or (and display-fn (funcall display-fn choice))
                            choice)
                        :value choice))
                choices)
            :prompt prompt
            ;; start isearch mode immediately
            :isearch t
            )))
(setq yas-prompt-functions '(yas-popup-isearch-prompt yas-maybe-ido-prompt yas-completing-prompt yas-no-prompt))


;;;; Package: nov.el, nov-xwidget

(setq nov-variable-pitch nil)


;;;; Package: dired

(after! dired
  (setq dired-listing-switches "-laGh1v --group-directories-first")
  (setq dired-confirm-shell-command nil
        dired-no-confirm t
        dired-deletion-confirmer '(lambda (x) t)
        dired-recursive-deletes 'always))


;;;; Package: elfeed

(elfeed-protocol-enable)
(run-with-idle-timer (* 15 60) t #'elfeed-update)
(setq elfeed-protocol-ttrss-maxsize 200)
(setq elfeed-feeds (list
                    (list "ttrss+https://hyperreal@rss.envs.net"
                          :password (shell-command-to-string "echo -n `pass show envs.net/ttrss`"))))


;;;; Package: dictionary
(global-set-key (kbd "C-c l") #'dictionary-lookup-definition)
(setq dictionary-server "dict.org")


;;;; Package: undo-tree

(use-package undo-tree
  :diminish undo-tree-mode
  :config
  (progn
    (global-undo-tree-mode)
    (setq undo-tree-visualizer-timestamps t)
    (setq undo-tree-visualizer-diff t)
    (setq undo-tree-history-directory-alist '(("." . "~/sync/emacs/backups/undo-tree")))))