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

;; 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 "KJ Orbekk"
      user-mail-address "kj@orbekk.com")

(defmacro system-specific-config (system-regex &rest code)
  "Run CODE on systems that match SYSTEM-REGEX."
  `(when (string-match ,system-regex (system-name))
     ,@code))

(setq kj/font-size 16)
(setq doom-theme 'doom-dark+)
(after! modus-themes
  (modus-themes-load-themes))

;; Completion gets in the way more often than being useful.
(setq company-idle-delay nil)
(setq lsp-ui-doc-enable nil)

(setq display-line-numbers-type nil)

;; Scratch buffers are often for lisp stuff.
(setq doom-scratch-initial-major-mode 'lisp-interaction-mode)

(setq math-additional-units
      '((ZiB "1024 * EiB" "Zebibyte")
        (EiB "1024 * PiB" "Exbibyte")
        (PiB "1024 * TiB" "Pebibyte")
        (TiB "1024 * GiB" "Tebibyte")
        (GiB "1024 * MiB" "Gibibyte")
        (MiB "1024 * KiB" "Mebibyte")
        (KiB "1024 * B" "Kibibyte")
        (B nil "Byte")
        (Zib "1024 * ZiB" "Zebibit")
        (Eib "1024 * PiB" "Exbibit")
        (Pib "1024 * TiB" "Pebibit")
        (Tib "1024 * GiB" "Tebibit")
        (Gib "1024 * Mib" "Gibibit")
        (Mib "1024 * Kib" "Mebibit")
        (Kib "1024 * b" "Kibibit")
        (b "B / 8" "Bit")))

(system-specific-config
 "pincer"
 (setq kj/font-size 18)
 (setq doom-theme 'doom-one))

(system-specific-config
 "orbekk"
 (setq doom-theme 'doom-solarized-light))

(system-specific-config
 "^siofra\."
 (setq kj/font-size 20)
 (setq doom-theme 'doom-one-light))

(setq doom-font (font-spec :family "iosevka" :size kj/font-size))
(setq doom-variable-pitch-font (font-spec :family "Noto Serif" :size kj/font-size))

;; If you use `org' and don't want your org files in the default location below,
;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/")
(setq org-todo-keywords
      '((sequence
         "TODO(t)" "ACTIVE(a!)" "WAIT(w@/!)" "|" "DONE(d!)" "CANCELED(c@)")))
(setq org-refile-use-outline-path nil)
(setq org-refile-targets '((nil . (:maxlevel . 2))))
(setq org-log-into-drawer t)
(setq org-agenda-log-mode-items '(closed clock state))
(setq org-agenda-start-day nil)
(setq org-agenda-block-separator nil)
(setq org-agenda-compact-blocks t)
(setq org-agenda-start-with-log-mode nil)
(setq org-habit-show-all-today t)
(setq org-agenda-time-grid '((daily today require-timed) (800 1600) "......" "----------------------"))
(setq org-roam-directory (concat org-directory "roam/"))
(setq-default org-agenda-files '())
(dolist (file '("tasks.org"
                "running-2022.org"))
  (add-to-list 'org-agenda-files (concat org-roam-directory file)))
(setq org-roam-db-location (concat org-roam-directory "/org-roam.db"))
(setq org-export-with-toc nil)
(setq deft-directory org-directory)
(setq deft-recursive t)
;; Org html export
(setq org-html-htmlize-output-type 'css)
;; Website publish settings.
(defvar kj/publish-tag "publish")
(defvar kj/publish-directory "/ssh:orbekk@dragon.orbekk.com:/storage/srv/kj.orbekk.com")
(add-to-list 'org-modules 'org-habit)

(setq org-appear-autolinks t)
(use-package! org-appear
  :hook (org-mode . org-appear-mode))

(setq org-log-done 'time)
(setq org-todo-keywords
      '((sequence
         "TODO(t)"  ; A task that needs doing & is ready to do
         "PROJ(p)"  ; A project, which usually contains other tasks
         "LOOP(r)"  ; A recurring task
         "STRT(s)"  ; A task that is in progress
         "WAIT(w)"  ; Something external is holding up this task
         "HOLD(h)"  ; This task is paused/on hold because of me
         "IDEA(i)"  ; An unconfirmed and unapproved task or notion
         "|"
         "DONE(d!)"  ; Task successfully completed
         "KILL(k)") ; Task was cancelled, aborted or is no longer applicable
        (sequence
         "[ ](T)"   ; A task that needs doing
         "[-](S)"   ; Task is in progress
         "[?](W)"   ; Task is being held up or paused
         "|"
         "[X](D)")  ; Task was completed
        (sequence
         "|"
         "OKAY(o)"
         "YES(y)"
         "NO(n)")))

(use-package! org-super-agenda
  :after org-agenda
  :init

  (setq org-agenda-custom-commands
        '(("d" "Daily KJ agenda"
           ((agenda "" ((org-agenda-span 'day)
                        (org-agenda-start-day nil)
                        (org-super-agenda-groups
                         '((:name "Habits"
                            :habit t
                            :order 2)
                           (:name "Past & Overdue"
                            :scheduled past
                            :deadline past)
                           (:name "Today"
                            :time-grid t
                            :date today)
                           (:name "Due Soon"
                            :scheduled future
                            :deadline future)))))
            (alltodo "" ((org-agenda-overriding-header "")
                         (org-super-agenda-groups
                          '((:name "Important"
                             :priority "A"
                             :priority "B")
                            (:discard (:habit t))))))))))

  :config
  (org-super-agenda-mode 1))

(setq org-journal-file-type 'weekly)
(setq org-journal-dir org-roam-directory)
(setq org-journal-file-format "journal-%Y-%m-%d.org")
(setq org-journal-enable-agenda-integration t)
(defun kj/org-journal-init ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (org-id-get-create)
    (org-set-property "category" "journal")))

(defun kj/org-journal-file-header (time)
  (format-time-string "#+title: Week of %F (%W)\n"
                      (org-journal--convert-time-to-file-type-time time)))
(setq org-journal-file-header #'kj/org-journal-file-header)
(add-hook 'org-journal-after-header-create-hook 'kj/org-journal-init)

;; Allow more keys when navigating with avy.
(setq avy-keys '(?a ?o ?e ?u ?d ?h ?n ?s ?l ?, ?. ?p ?r))
(setq avy-timeout-seconds 0.4)

;; Low menu delay.
(setq which-key-idle-delay .5)

;; Allow longer output in compilation buffer.
(setq comint-buffer-maximum-size 10000)

;; Replace values in an alist from a list of replacements.
;;
;; Example:
;;   (kj/assq-replace '((:a . 1)) '((:a . 2)))
(defun kj/assq-replace (replacements alist)
  (let ((replace1 (lambda (aelem alist)
                    (cons aelem (assq-delete-all (car aelem) alist)))))
    (if replacements
        (kj/assq-replace (cdr replacements)
                      (funcall replace1 (car replacements) alist))
      alist)))

(server-start)
(remove-hook 'doom-first-buffer-hook #'smartparens-global-mode)
(add-to-list 'auto-mode-alist '("\\.journal\\'" . ledger-mode))

;; Make ace window more visible
(custom-set-faces!
  '(aw-leading-char-face
    :foreground "white" :background "red"
    :weight bold :height 2.5 :box (:line-width 10 :color "red")))

(after! racket-mode
  (remove-hook! 'racket-mode #'racket-smart-open-bracket-mode))

(after! org
  (add-hook 'org-mode-hook 'mixed-pitch-mode)
  (setq org-roam-mode-section-functions
        (list #'org-roam-backlinks-section
              #'org-roam-reflinks-section
              #'org-roam-unlinked-references-section))

  (add-to-list 'org-structure-template-alist
               '("se" . "src emacs-lisp"))

  (setq org-babel-default-header-args
        (kj/assq-replace '((:exports . "both")
                           (:eval . "never-export")
                           (:output-dir . "static/data/"))
                          org-babel-default-header-args))

  (defun kj/org-journal-find-location ()
    ;; Open today's journal, but specify a non-nil prefix argument in order to
    ;; inhibit inserting the heading; org-capture will insert the heading.
    (org-journal-new-entry t))
    ;; (unless (eq org-journal-file-type 'daily)
    ;;   (org-narrow-to-subtree))
    ;; (goto-char (point-max)))

  (defun kj/org-journal-narrowed-location ()
    ;; Open today's journal, but specify a non-nil prefix argument in order to
    ;; inhibit inserting the heading; org-capture will insert the heading.
    (org-journal-new-entry t)
    (unless (eq org-journal-file-type 'daily)
      (org-narrow-to-subtree))
    (goto-char (point-max)))

  (setq org-capture-templates
        `(("g" "Go to current journal entry" plain (function kj/org-journal-find-location)
           "%i%?" :jump-to-captured t :immediate-finish t)
          ("t" "Create a TODO in current journal entry" plain (function kj/org-journal-narrowed-location)
           "** TODO %?\n%i\n%a")
          ("w" "Log bodyweight" table-line
           (file+headline ,(concat org-roam-directory "bodyweight.org")
                          "Body weight log")
           "| %t | %^{Weight} | |"
           :prepend t :immediate-finish t)))

  (defun kj/find-agenda-files-containing-tag (tag)
    (setq org-agenda-archives-mode nil)
    (let* ((org-agenda-archives-mode nil)
           (candidates (org-agenda-files nil 'ifmode))
           (matcher (cdr (org-make-tags-matcher tag)))
           (files))
      ;; (message "Results:")
      (dolist (file candidates files)
        (org-check-agenda-file file)
        (with-current-buffer (org-get-agenda-file-buffer file)
          ;; (message "%S" (org-scan-tags 'agenda matcher nil))
          (when (org-scan-tags 'agenda matcher nil)
            (push file files))))))

  (setq kj/inbox-path "/ssh:dragon.orbekk.com:/storage/srv/kj.orbekk.com/dav/Inbox.org")

  (defun kj/fetch-inbox ()
    (interactive)
    (let ((content (with-current-buffer (find-file-noselect kj/inbox-path)
                     (buffer-string))))
      (kj/org-journal-find-location)
      (when (not (string-empty-p content))
        (org-paste-subtree nil content)))
    (with-current-buffer (find-file-noselect kj/inbox-path)
      (erase-buffer)
      (save-buffer)
      (kill-buffer)))

  (defvar org-publish-project-alist)
  (defun kj/org-publish (&optional project force)
    (interactive)
    (setq project (or project "all"))
    (setq force (or force current-prefix-arg))
    (setq org-agenda-files (list org-roam-directory))
    (let* ((static-files-re (string-join '("css" "txt" "jpg" "png" "gif" "svg") "\\|"))
           (files-to-include (kj/find-agenda-files-containing-tag kj/publish-tag))
           ;; Disable org babel exports during publish entirely to speed up publish.
           ;; This messes up babel output handling.
           ;; (org-export-use-babel nil)
           (org-babel-default-header-args
            (kj/assq-replace '((:exports . "both")
                               (:eval . "never-export"))
                             org-babel-default-header-args))
           (org-publish-project-alist
            `(
              ("static"
               :base-directory ,(concat org-roam-directory "/static")
               :base-extension ,static-files-re
               :recursive t
               :publishing-directory ,(concat kj/publish-directory "/static")
               :publishing-function org-publish-attachment)
              ("source"
               :base-directory ,org-roam-directory
               :base-extension "org"
               :exclude ".*"
               :include ,files-to-include
               :recursive t
               :publishing-directory ,kj/publish-directory
               :publishing-function org-publish-attachment)
              ("html"
               :base-directory ,org-roam-directory
               :base-extension "org"
               :recursive t
               :exclude ".*"
               :include ,files-to-include
               :publishing-directory ,kj/publish-directory
               :publishing-function org-html-publish-to-html

               :with-broken-links t
               :with-toc nil
               :with-latex t
               :with-drawers t
               :with-title t
               :section-numbers nil

              ;; HTML options
               :html-toplevel-hlevel 2
               :html-preamble ""
               :html-postamble ""
               :html-html5-fancy t
               :html-doctype "html5"
               :html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"static/org.css\"/>"
               :html-head-include-scripts nil
               :html-head-include-default-style nil
               :html-container article)
              
              ("all" :components ("static" "source" "html")))))
             
      (org-publish project force))))

(setq aw-dispatch-always t)

;;; Keybindings
(map! (:after evil-org
       :leader "n P" #'kj/org-publish)

      (:leader
       :desc "window" "e" evil-window-map)

      (:map evil-window-map
       "e" #'ace-window))

(add-hook 'eshell-mode-hook
          (lambda ()
           (setenv "PAGER" "cat"))
           (setenv "EDITOR" "emacsclient"))

(let ((local-config "~/.doom.d/config.local.el"))
  (when (file-exists-p local-config)
    (load-file local-config)))