;;; $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
 "^zot\."
 (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-roam-directory (concat org-directory "/roam"))
(setq org-agenda-files (list org-roam-directory))
(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")

;; 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.3)

;; 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))

  (setq org-agenda-archives-mode nil)
  (defun kj/find-agenda-files-containing-tag (tag)
    (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))))))

  (defun kj/org-publish (&optional project force)
    (interactive)
    (setq project (or project "all"))
    (setq force (or force current-prefix-arg))
    (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))

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