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

;; Load extra configuration of Nix-computed paths deifned in programs.emacs.extraConfig
;; (load "default")

;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file!

;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets.
(setq user-full-name "Max Schlueter"
      user-mail-address "me@maxschlueter.com")

;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
;; are the three important ones:
;;
;; + `doom-font'
;; + `doom-variable-pitch-font'
;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for
;;   presentations or streaming.
;;
;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd
;; font string. You generally only need these two:
(setq doom-font (font-spec :family "FiraCode Nerd Font" :size 14.0)
      doom-variable-pitch-font (font-spec :family "Liberation Serif" :size 16.0))

;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default:
(setq doom-theme 'doom-solarized-light)

;; https://github.com/hlissner/doom-emacs/issues/4832
;; (after! org
;;   (defun +org--restart-mode-h ()
;;     "Restart `org-mode', but only once."
;;     (quiet! (org-mode-restart))
;;     (delq! (current-buffer) org-agenda-new-buffers)
;;     (remove-hook 'doom-switch-buffer-hook #'+org--restart-mode-h
;;                  'local)))

;; (defun max/org-gtd--incubate ()
;;   "Process GTD inbox item by incubating it.
;; Allow the user apply user-defined tags from
;; `org-tag-persistent-alist', `org-tag-alist' or file-local tags in
;; the inbox.  Refile to any org-gtd incubate target (see manual)."
;;   (interactive)
;;   (org-gtd--decorate-item)
;;   (org-gtd--refile org-gtd-incubated)
;;   (org-gtd-process-inbox))

;; (defun max/org-gtd--quick-action ()
;;   "Process GTD inbox item by doing it now.
;; Allow the user apply user-defined tags from
;; `org-tag-persistent-alist', `org-tag-alist' or file-local tags in
;; the inbox.  Mark it as done and archive."
;;   (interactive)
;;   (org-back-to-heading)
;;   (org-gtd--decorate-item)
;;   (org-clock-in)
;;   (org-gtd--refile org-gtd-actions)
;;   (org-gtd-process-inbox))

;; (use-package! org-gtd
;;   :after org
;;   :config
;;   (setq org-gtd-directory (concat org-directory "newgtd/")
;;         org-edna-use-inheritance t
;;         org-gtd-update-ack "2.1.0"
;;         org-gtd-refile-to-any-target t)
;;   (advice-add #'org-gtd--incubate :override #'max/org-gtd--incubate)
;;   (advice-add #'org-gtd--quick-action :override #'max/org-gtd--quick-action)
;;   (map! :leader
;;         (:prefix ("d" . "org-gtd")
;;          :desc "Capture"        "c"  #'org-gtd-capture
;;          :desc "Engage"         "e"  #'org-gtd-engage
;;          :desc "Process inbox"  "p"  #'org-gtd-process-inbox
;;          :desc "Show all next"  "n"  #'org-gtd-show-all-next
;;          :desc "Stuck projects" "s"  #'org-gtd-show-stuck-projects))
;;   (set-popup-rule! "^\\*ivy-occur" :size 0.35 :ttl 0 :quit nil)
;;   (map! :map org-gtd-process-map
;;         :desc "Choose" "C-c c" #'org-gtd-choose))

;; (set-popup-rule! "^\\*helpful" :ignore t)


;;; Autoload this function for the org-pomodoro polybar module
;; (autoload #'org-pomodoro-active-p "org-pomodoro" nil t)


  ;; (map! :map evil-org-agenda-mode-map
  ;;       :m "c p" #'org-agenda-set-property)

  ;; (defun max/skip-habits ()
  ;;   "Skip trees that are habits."
  ;;   (save-restriction
  ;;     (widen)
  ;;     (let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))))
  ;;       (cond
  ;;        ((org-is-habit-p)
  ;;         next-headline)
  ;;        (t
  ;;         nil)))))

  ;; (setq org-columns-default-format "%40ITEM(Task) %Effort(EE){:} %CLOCKSUM(Time Spent) %SCHEDULED(Scheduled) %DEADLINE(Deadline)")
  ;; (setq org-agenda-custom-commands `((" " "Agenda"
  ;;                                     ((alltodo ""
  ;;                                               ((org-agenda-overriding-header "Inbox")
  ;;                                                (org-agenda-files '(,(expand-file-name "gtd/inbox.org" org-directory)))))
  ;;                                      (agenda ""
  ;;                                              ((org-agenda-span 'week)
  ;;                                               (org-deadline-warning-days 365)))
  ;;                                      (todo "NEXT"
  ;;                                            ((org-agenda-overriding-header "In Progress")
  ;;                                             (org-agenda-files '(,(expand-file-name "gtd/projects.org" org-directory)))))
  ;;                                      (todo "TODO"
  ;;                                            ((org-agenda-overriding-header "Active Projects")
  ;;                                             (org-agenda-files '(,(expand-file-name "gtd/projects.org" org-directory)))
  ;;                                             (org-agenda-skip-function #'max/skip-habits)))))
  ;;                                    ("W" "Weekly Review"
  ;;                                      ((agenda ""
  ;;                                              ((org-agenda-span 'week)
  ;;                                               (org-agenda-start-day "-6d")))
  ;;                                      (todo "NEXT"
  ;;                                            ((org-agenda-overriding-header "In Progress")
  ;;                                             (org-agenda-files '(,(expand-file-name "gtd/projects.org" org-directory)))))
  ;;                                      (todo "TODO"
  ;;                                            ((org-agenda-overriding-header "Active Projects")
  ;;                                             (org-agenda-files '(,(expand-file-name "gtd/projects.org" org-directory)))
  ;;                                             (org-agenda-skip-function #'max/skip-habits))))))))

(defun max/org-agenda-bulk-mark-inbox-items ()
  "Bulk mark all inbox items in the org-agenda."
  (let ((entries-marked 0))
    (save-excursion
      (goto-char (point-min))
      (while (not (eobp))
        (if (and (org-get-at-bol 'org-hd-marker)
                 (string= "inbox" (funcall 'org-agenda-get-category)))
            (progn
              (setq entries-marked (1+ entries-marked))
              (call-interactively 'org-agenda-bulk-mark))
          (beginning-of-line 2))))
    (unless entries-marked
      (message "No inbox items found."))))

(defun max/org-agenda-process-inbox-item ()
  "Process a single item in the org-agenda."
  (interactive)
  (org-with-wide-buffer
   (org-agenda-set-tags)
   (org-agenda-priority)
   (org-agenda-set-effort)
   (org-agenda-refile nil nil t)))

(defun max/org-agenda-bulk-process-entries ()
  "Bulk process all marked entries in the org-agenda using `max/org-agenda-process-inbox-item'."
  (if (not (null org-agenda-bulk-marked-entries))
      (let ((entries (reverse org-agenda-bulk-marked-entries))
            (processed 0)
            (skipped 0))
        (dolist (e entries)
          (let ((pos (text-property-any (point-min) (point-max) 'org-hd-marker e)))
            (if (not pos)
                (progn (message "Skipping removed entry at %s" e)
                       (cl-incf skipped))
              (goto-char pos)
              (let (org-loop-over-headlines-in-active-region) (funcall 'max/org-agenda-process-inbox-item))
              ;; `post-command-hook' is not run yet.  We make sure any
              ;; pending log note is processed.
	      (when org-log-setup (org-add-log-note))
              ;; (when (or (memq 'org-add-log-note (default-value 'post-command-hook))
              ;;           (memq 'org-add-log-note post-command-hook))
              ;;   (org-add-log-note))
              (cl-incf processed))))
        (org-agenda-redo)
        (unless org-agenda-persistent-marks (org-agenda-bulk-unmark-all))
        (message "Acted on %d entries%s%s"
                 processed
                 (if (= skipped 0)
                     ""
                   (format ", skipped %d (disappeared before their turn)"
                           skipped))
                 (if (not org-agenda-persistent-marks) "" " (kept marked)")))))

(defun max/org-agenda-process-inbox ()
  "Processes all inbox items in the org-agenda."
  (interactive)
  (max/org-agenda-bulk-mark-inbox-items)
  (max/org-agenda-bulk-process-entries))

(map! :after evil-org-agenda
      :map evil-org-agenda-mode-map
      :m "P" #'max/org-agenda-process-inbox)

;; org-agenda-custom-commands
;; '((" " "Agenda"
;;    ((agenda ""
;;             (
;;              (org-agenda-start-day nil)
;;              (org-agenda-span 'day)
;;              (org-deadline-warning-days 365)))
;;     (alltodo ""
;;              ((org-agenda-overriding-header "")
;;               (org-super-agenda-groups
;;                '((:name "To Refile"
;;                   :category "inbox")
;;                  (:name "Emails"
;;                   :category "emails")
;;                  (:name "In Progress"
;;                   :todo "NEXT")
;;                  (:name "Projects"
;;                   :file-path "projects.org$")
;;                  (:name "One-off Tasks"
;;                   :category "next"))
;;                  ))))))))

(use-package! indium
  :hook ((js-mode typescript-mode) . indium-interaction-mode)
  :init
  (setq indium-chrome-data-dir (concat doom-cache-dir "indium-chrome-profile"))
  :config
  (map! :localleader
        :map indium-interaction-mode-map
        "I" #'indium-launch))

(after! info
  (map! :map Info-mode-map
        :n "g n" #'Info-goto-node))


(after! biblio
  (map! :map biblio-selection-mode-map
        "C-j" #'biblio--selection-next
        "C-k" #'biblio--selection-previous)
  (setq biblio-crossref-user-email-address user-mail-address))

(after! bibtex-completion
  ;; (require 'ivy-bibtex)
  ;; (setq! bibtex-completion-library-path '("~/Nextcloud/Papers/")
  ;;        bibtex-completion-notes-path org-roam-directory
  ;;        bibtex-completion-bibliography '("~/Nextcloud/Papers/library.bib"))
  ;; TODO: make it a citar action
  (defun max/bibtex-completion-org-capture (keys)
    (let ((titles (bibtex-completion-format-citation-org-title-link-to-PDF keys)))
      (with-current-buffer (find-file-noselect (expand-file-name "gtd/inbox.org" org-directory))
        (save-excursion
          (goto-char (point-max))
          (insert (concat "* TODO Read: " titles
                          "\n"))))))
  (ivy-bibtex-ivify-action max/bibtex-completion-org-capture max/ivy-bibtex-org-capture)
  (ivy-add-actions
   'ivy-bibtex
   '(("x" max/ivy-bibtex-org-capture "Capture PDF to read"))))

;; Taken from: https://github.com/hlissner/doom-emacs/pull/6077
;; (use-package! org-roam-bibtex
;;   ;; :when (featurep! :lang org +roam2)
;;   :after org-roam
;;   :preface
;;   ;; if the user has not set a template mechanism set a reasonable one of them
;;   ;; The package already tests for nil itself so we define a dummy tester
;;   (defvar orb-preformat-keywords
;;     '("title" "url" "file" "author-or-editor" "keywords" "citekey" "pdf"))
;;   :hook (org-roam-mode . org-roam-bibtex-mode)
;;   :custom
;;   (orb-note-actions-interface (cond ((featurep! :completion ivy)  'ivy)
;;                                     ((featurep! :completion helm) 'helm)
;;                                     ((t                           'default))))
;;   :config
;;   (setq orb-insert-interface (cond ((featurep! :completion ivy)  'ivy-bibtex)
;;                                    ((featurep! :completion helm) 'helm-bibtex)
;;                                    ((t                           'generic))))
;;   (setq orb-process-file-keyword t
;;         orb-file-field-extensions '("pdf"))

;;   (add-to-list 'org-roam-capture-templates
;;                '("b" "Bibliography note" plain
;;                  "%?
;; - keywords :: %^{keywords}
;; - related ::
;; * %^{title}
;; :PROPERTIES:
;; :Custom_ID: %^{citekey}
;; :URL: %^{url}
;; :AUTHOR: %^{author-or-editor}
;; :NOTER_DOCUMENT: %^{file}
;; :NOTER_PAGE:
;; :END:\n\n"
;;                  :if-new (file+head "${citekey}.org" ":PROPERTIES:
;; :ROAM_REFS: cite:${citekey}
;; :END:
;; #+TITLE: ${title}\n")
;;                  :unnarrowed t)))

(after! projectile
  (setq projectile-project-search-path '(("~/Code" . 2))))

;; (setq ns-auto-hide-menu-bar t)


;; (defun my/toggle-org-agenda ()
;;  "Toggle my custom org agenda view"
;;  (interactive)
;;  (if (get-buffer-window org-agenda-buffer-name)
;;    (org-agenda-quit)
;;    (org-agenda nil " ")))

(after! auth-source
  (when IS-MAC
    (setq auth-sources '(macos-keychain-internet macos-keychain-generic))))

;; (setq mac-right-option-modifier nil)

;; (set-irc-server! "chat.freenode.net"
;;  `(:tls t
;;    :port 6697
;;    :nick "maxsc"
;;    :sasl-username ,(+pass-get-user "irc/freenode.net")
;;    :sasl-password (lambda (&rest _) (+pass-get-secret "irc/freenode.net"))
;;    :channels ("#home-manager")))
;; (map! "<f4>" #'=irc)

;;; https://github.com/alphapapa/org-ql/issues/67
;(after! (org-super-agenda evil-org-agenda)
;  (setq org-super-agenda-header-map (copy-keymap evil-org-agenda-mode-map)))

;;; (after! woman
;;;   (set-popup-rule! "^\\*WoMan" :side 'left :size 30 :ttl 0)
;;;   )

;;; (after! org (set-popup-rule! "^CAPTURE-.*\\.org$" :side 'right :size .50 :select t :vslot 2 :ttl 3))

;;; (after! org-roam
;;;   (advice-add #'display-buffer-pop-up-frame :before #'org-roam-protocol-open-ref))


(setq +latex-viewers '(pdf-tools))

(after! eww
  (setq eww-auto-rename-buffer 'title))


;; (setq! +biblio-pdf-library-dir "~/Nextcloud/Papers/"
;;        +biblio-default-bibliography-files '("~/Nextcloud/Papers/library.bib")
;;        +biblio-notes-path org-roam-directory)

;; https://tecosaur.github.io/emacs-config/config.html#getting-notified
;; http://cachestocaches.com/2017/3/complete-guide-email-emacs-using-mu-and-/
;; (use-package! mu4e-alert
;;  :after mu4e
;;  :init
;;  (setq mu4e-alert-interesting-mail-query
;;    (concat
;;     "flag:unread maildir:/mailbox.org/Inbox"
;;     " OR "
;;     "flag:unread maildir:/uni-potsdam.de/Inbox"
;;     ))
;;  (setq doom-modeline-mu4e t)
;;  :config
;;  (mu4e-alert-enable-mode-line-display)
;;  (mu4e-alert-set-default-style 'libnotify)
;;  (mu4e-alert-enable-notifications))
;;
;;
(after! forge
  (setq forge-owned-accounts '(("MaxSchlueter"))))

(setq +workspaces-on-switch-project-behavior t)

(map! :leader
      (:prefix "TAB"
      :desc "Move workspace left" ">" #'+workspace/swap-right
      :desc "Move workspace left" "<" #'+workspace/swap-left))

;; Don't create a new workspace on a new emacsclient session
;; https://github.com/doomemacs/doomemacs/issues/1949
(after! persp-mode
  (setq persp-emacsclient-init-frame-behaviour-override "main"))


(after! evil-snipe
  (setq evil-snipe-spillover-scope 'visible))

(map! "<f12>" #'redraw-display)

(after! restart-emacs
  (defun max/restart-emacs--get-emacs-binary ()
    (let ((invocation-directory (file-truename "~/.nix-profile/Applications/Emacs.app/Contents/MacOS")))
      (expand-file-name invocation-name invocation-directory)))

  (advice-add #'restart-emacs--get-emacs-binary :override #'max/restart-emacs--get-emacs-binary))

(after! yasnippet
  (setq yas-triggers-in-field t))

(use-package! centered-cursor-mode
  :config
  (setq ccm-recenter-at-end-of-file t)
  (map! :leader :desc "Centered cursor mode" "t -" #'centered-cursor-mode))

(with-eval-after-load 'doom-themes
  (doom-themes-neotree-config)
  (setq doom-themes-neotree-enable-variable-pitch nil))

(use-package! emacs-codeql
  :init
  (setq codeql-transient-binding "C-c q")
  (setq codeql-configure-eglot-lsp t))

(defadvice! +default--dont-prompt-for-save-file-a (&rest _)
  :before #'server-edit
  (save-buffer))

;; load personal modules
(load! "org")
(load! "gtd")
(load! "email")