#+title: Config

* General Settings
Honestly I barely remember what some of this stuff is supposed to do, this is the most ancient part of the config
#+BEGIN_SRC emacs-lisp
(setq backup-directory-alist '(("~/.emacs.d/backups"))
      delete-old-versions nil
      version-control t
      vc-make-backup-files nil
      auto-save-file-name-transforms '((".*" "~/.emacs.d/auto-save-list" t))
      savehist-file "~/.emacs.d/savehist"
      require-final-newline t
      global-auto-revert-mode t
      global-auto-revert-non-file-buffers t
      auto-revert-verbose nil
      custom-safe-themes t
      mouse-autoselect-window t
      focus-follows-mouse t)

(fset 'yes-or-no-p 'y-or-n-p)
#+END_SRC

* Appearance
** Font
#+BEGIN_SRC emacs-lisp
(if (string= (system-name) "illya")
    (set-frame-font "Monoflow 12" nil t)
  (set-frame-font "Monoflow 22" nil t))
;;(set-frame-font "Mononoki 12" nil t )
#+END_SRC
** Theme
#+BEGIN_SRC emacs-lisp
(setq doom-theme 'doom-ayu-mirage)
#+END_SRC
** Other
#+BEGIN_SRC emacs-lisp
(display-time-mode 1)
#+END_SRC
* Keybindings
** General
#+BEGIN_SRC emacs-lisp
(define-key evil-normal-state-map (kbd ";") 'evil-ex)
(define-key evil-normal-state-map (kbd "g a") 'paste-above)
(define-key evil-normal-state-map (kbd "g p") 'paste-below)

(global-set-key (kbd "C-x C-f") #'counsel-find-file)
(map! :leader
      "." #'counsel-find-file)

; TODO fix
(map! :after counsel "C-s" #'swiper)

(after! evil-escape
  (setq evil-escape-key-sequence "jj")
  (setq-default evil-escape-delay 0.2))

(which-key-mode 1)
(setq which-key-idle-delay 0.25)

(defun doom/find-file-in-private-config () (interactive) (counsel-find-file doom-user-dir))
#+END_SRC

* Completion
** Ivy
#+BEGIN_SRC emacs-lisp
(setq ivy-height                10
      ivy-count-format          "(%d/%d) "
      ivy-use-virtual-buffers   t
      ivy-re-builders-alist     '((t . ivy--regex-ignore-order))
      ivy-initial-inputs-alist '((org-refile . "")
                                 (org-capture-refile . "")
                                 (counsel-M-x . "")
                                 (counsel-describe-function . "")
                                 (counsel-describe-variable . "")
                                 (man . "")
                                 (woman . ""))
      ivy-read-action-function #'ivy-hydra-read-action)
#+END_SRC
** Yasnippet
#+BEGIN_SRC emacs-lisp
(setq yas-triggers-in-field t)
#+END_SRC


* Navigation
** Avy
#+BEGIN_SRC emacs-lisp
(setq avy-all-windows nil
      avy-timeout-seconds 0.2
      avy-keys '(?a ?s ?d ?f ?k ?l ?; ?g ?h
                 ?q ?w ?e ?r ?t ?y ?i ?p
                 ?A ?S ?D ?F ?J ?K ?L))

(define-key evil-normal-state-map (kbd "C-.") #'avy-goto-char-timer)
(setq aw-keys '(?a ?s ?d ?f ?k ?l ?; ?g ?h
                ?q ?w ?e ?r ?t ?y ?i ?p
                ?A ?S ?D ?F ?J ?K ?L))
#+END_SRC

** Projectile
*** TODO I forgot what this is supposed to do
#+BEGIN_SRC emacs-lisp
(defadvice projectile-project-root (around ignore-remote first activate)
  (unless (file-remote-p default-directory) ad-do-it))
#+END_SRC

* Major modes
** web-mode
#+BEGIN_SRC emacs-lisp
(setq web-mode-script-padding 0
      js-indent-level 2
      js2-strict-missing-semi-warning nil
      web-mode-markup-indent-offset 2
      web-mode-code-indent-offset 2
      web-mode-css-indent-offset 2)
#+END_SRC
** Python
#+BEGIN_SRC emacs-lisp
(setq python-shell-interpreter "ipython"
      python-shell-interpreter-args "-i --simple-prompt")
(setq python-shell-completion-native-disabled-interpreters '("ipython"))
#+END_SRC
** Org
*** General
#+BEGIN_SRC emacs-lisp
(setq org-startup-folded t)
#+END_SRC

*** Roam
#+BEGIN_SRC emacs-lisp
(setq org-roam-directory (file-truename "/mnt/tenma/srv/boymind"))
; this seems to be broken right now
;(use-package! org-roam
;  :config
;  (setq org-roam-database-connector 'sqlite3))
(org-roam-db-autosync-mode)
#+END_SRC
*** Accounting
#+BEGIN_SRC emacs-lisp
(org-babel-do-load-languages
 'org-babel-load-languages
 '((ledger . t)
   ))
#+END_SRC
*** GTD
#+BEGIN_SRC emacs-lisp
(setq akko/org-agenda-path (car (org-roam-id-find "7f9b4c89-d527-43be-8f6b-47658d87cc87"))
      akko/org-tickler-path (car (org-roam-id-find "efe09517-236c-4665-af62-abfd5951a172"))
      akko/org-projects-path (car (org-roam-id-find "36cd8b7e-8853-4986-8b1d-a186aa75a204"))
      akko/org-inbox-path (car (org-roam-id-find "251c9862-a97c-4652-b9ee-6fcfc953cf5c"))
      akko/org-someday-path (car (org-roam-id-find "22caafc8-f319-4d8a-ae64-534b1568e02e")))

(setq org-refile-targets '((akko/org-projects-path :maxlevel . 3)
                           (akko/org-someday-path :level . 1)
                           (akko/org-tickler-path :maxlevel . 2)))

(setq org-refile-use-outline-path 'title)

(setq org-agenda-files (list akko/org-agenda-path
                         akko/org-tickler-path
                         akko/org-projects-path))
(setq org-todo-keywords '((sequence "TODO(t)" "WAITING(w)" "|" "DONE(d)" "CANCELLED(c)")))

(setq org-agenda-custom-commands
      '(("p" "Projects" alltodo ""
         ((org-agenda-overriding-header "Projects")
          (org-agenda-skip-function #'akko/org-agenda-skip-all-siblings-but-first)
          (org-agenda-files (list akko/org-projects-path))
          (org-agenda-prefix-format '((todo . " %i %b")))))))

(defun akko/org-agenda-skip-all-siblings-but-first ()
  "Skip all but the first non-done entry."
  (let (should-skip-entry)
    (unless (org-current-is-todo)
      (setq should-skip-entry t))
    (save-excursion
      (while (and (not should-skip-entry) (org-goto-sibling t))
        (when (org-current-is-todo)
          (setq should-skip-entry t))))
    (when should-skip-entry
      (or (outline-next-heading)
          (goto-char (point-max))))))

(defun org-current-is-todo ()
  (string= "TODO" (org-get-todo-state)))
#+END_SRC
** term-mode
#+BEGIN_SRC emacs-lisp
(add-hook 'term-mode-hook 'toggle-truncate-lines)
#+END_SRC
** typescript-mode
#+BEGIN_SRC emacs-lisp
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . typescript-mode))
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . typescript-tsx-mode))
#+END_SRC

* Minor modes
** treemacs
#+BEGIN_SRC emacs-lisp
(setq treemacs--width-is-locked nil)
#+END_SRC
** lsp
#+BEGIN_SRC emacs-lisp
(setq lsp-enable-links nil)
#+END_SRC
* Blog
#+BEGIN_SRC emacs-lisp
(require 'ox-publish)

(defun blog/get-util (x)
  (with-temp-buffer
    (insert-file-contents (concat "~/Blog/util/"
                                  x))
    (buffer-string)))

(setq org-html-metadata-timestamp-format "%Y-%m-%d")
;; Get project settings
(defun akko/blog-spec ()
  "Return project settings for use with `org-publish-project-alist'."
  (let* ((html-head (blog/get-util "head.html"))
         (html-preamble (blog/get-util "preamble.html"))
         (html-postamble (blog/get-util "postamble.html")))


    `(
      ("pages"
       :base-directory "~/Blog/org"
       :base-extension "org"
       :recursive t
       :publishing-directory "~/Blog/html"
       :publishing-function org-html-publish-to-html

       :html-doctype "html5"
       :html-html5-fancy t

       :html-viewport ((width "100%")
                       (initial-scale "0.7")
                       (minimum-scale "")
                       (maximum-scale "")
                       (user-scalable ""))

       :language "en"
       :section-numbers nil

       :with-toc nil
       :with-date t
       :with-title nil
       :with-author nil

       :auto-sitemap t

       :sitemap-sort-files anti-chronologically
       :sitemap-format-entry
       (lambda (entry style project)
         (cond ((not (directory-name-p entry))
                (format
                 "[[file:%s][%s]]\n"
                 entry
                 (org-publish-find-title entry project)))
               ((eq style 'tree)
                (capitalize (file-name-nondirectory (directory-file-name entry))))
               (t entry)))

       :headline-levels 4
       :html-head ,html-head

       :html-preamble ,html-preamble
       :html-postamble (lambda (p)
                         (let* ((timestamp-format  (plist-get p :html-metadata-timestamp-format))
                                (date (org-export-data (org-export-get-date p timestamp-format)
                                                       p))
                                (file (plist-get p :input-file))
                                (modified (format-time-string
                                           timestamp-format
                                           (and file (file-attribute-modification-time
                                                      (file-attributes file))))))
                           (concat
                            "<div id='footer'>"
                            (when (not (string-blank-p (format "%s" date)))
                              (format "<div id='publish-date'>Published: %s</div>" date))
                            (format "<div id='modified-date'>Last modified: %s</div>" modified)
                            ,html-postamble
                            "</div>"))))

      ("static"
       :base-directory "~/Blog/static"
       :base-extension "css\\|txt\\|jpg\\|gif\\|png\\|ttf\\|js"
       :recursive t
       :publishing-directory  "~/Blog/html/static"
       :publishing-function org-publish-attachment)

      ("blog" :components ("pages" "static")))))

(setq org-publish-project-alist (akko/blog-spec))

(defun akko/publish-blog ()
  (interactive)
  (setq org-publish-project-alist (akko/blog-spec))
  (org-publish-all))

(defun akko/force-publish-blog ()
  (interactive)
  (setq org-publish-project-alist (akko/blog-spec))
  (org-publish-remove-all-timestamps)
  (org-publish-all))

(map! :leader
      (:prefix ("a" . "akko")
       :desc "Publish Blog"
       "b" #'akko/publish-blog
       "f" #'akko/force-publish-blog))

(setq org-html-htmlize-output-type 'css)
(setq org-html-htmlize-font-prefix "org-")

(set-file-template! "/Blog/org/posts/.+\\.org"
  :trigger "__blog")

(defun akko/org-current-time-string ()
  (with-temp-buffer
    (org-mode)
    (org-time-stamp '(16))
    (buffer-substring (point-min) (point-max))))
#+END_SRC