(setq inhibit-startup-message t)
(setq initial-scratch-message nil)

(setq load-path (seq-filter (lambda (x) (not (string-match-p "org-202109" x)))
                            load-path))

(require 'package)
(package-initialize)

(eval-when-compile
  (require 'use-package))

(setq backup-directory-alist `((".*" . "~/.emacs.d/backup")))

(setq custom-file "~/.emacs.d/custom.el")
(if (file-exists-p custom-file)
    (load custom-file))

(prefer-coding-system       'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-language-environment   'utf-8)

(setq user-full-name "Adrian Kummerlaender"
      user-mail-address "adrian@kummerlaender.eu")

(defun startup (frame)
  (select-frame frame)
  (set-frame-font "Iosevka 11" nil t)
  (set-fontset-font "fontset-default" 'unicode "Iosevka")
  (set-face-font 'default "Iosevka 11")
  (set-fontset-font t 'unicode (font-spec :name "Symbola") nil 'append)
  (menu-bar-mode -1)
  (toggle-scroll-bar -1)
  (tool-bar-mode -1))

(if (daemonp)
    (add-hook 'after-make-frame-functions #'startup)
  (startup (selected-frame)))

(savehist-mode 1)
(global-eldoc-mode -1)
(global-visual-line-mode 1)

(setq warning-minimum-level :error)

(setq mouse-wheel-scroll-amount '(5))
(setq mouse-wheel-progressive-speed nil)
(setq fast-but-imprecise-scrolling t)
(fset 'yes-or-no-p 'y-or-n-p)

(setq-default indent-tabs-mode nil)
(setq-default tab-width 2)
(setq-default c-basic-offset 2)
(c-set-offset 'cpp-macro 0)
(setq-default python-indent-offset 4)

(put 'narrow-to-defun  'disabled nil)
(put 'narrow-to-page   'disabled nil)
(put 'narrow-to-region 'disabled nil)

(setq whitespace-style '(face trailing tabs))

(setq dabbrev-case-fold-search nil)

(setq password-cache t)
(setq password-cache-expiry 3600)

(add-hook 'prog-mode-hook 'display-line-numbers-mode)
(add-hook 'prog-mode-hook 'whitespace-mode)

(set-face-attribute 'default        nil :family "Iosevka")
(set-face-attribute 'fixed-pitch    nil :family "Iosevka")
(set-face-attribute 'variable-pitch nil :family "Iosevka Aile" :weight 'light)

(global-set-key (kbd "<M-tab>")         'next-buffer)
(global-set-key (kbd "<M-iso-lefttab>") 'previous-buffer)
(global-set-key (kbd "<C-tab>")         'other-window)

(load-library "custom-runtime-env")

(setq auto-mode-alist
      (append '(("\\.tikz\\'" . latex-mode))
              auto-mode-alist))

(use-package akr-theme
  :config
  (enable-theme 'akr))

(use-package gcmh ; noticeably reduces unwanted GC pauses when editing e.g. large fancy org files
  :ensure t
  :config
  (gcmh-mode 1))

(use-package editorconfig
  :ensure t
  :config
  (editorconfig-mode 1))

(use-package evil-leader
  :ensure t
  :init
  (setq evil-want-keybinding nil)
  :config
  (evil-leader/set-leader "SPC")
  (global-evil-leader-mode))

(use-package evil
  :ensure t
  :init
  (setq evil-search-module 'evil-search)
  :config
  (evil-mode 1)
  (evil-set-undo-system 'undo-tree)
  (evil-set-initial-state 'calendar-mode 'emacs)
  (define-key evil-motion-state-map (kbd "C-b") nil))

(use-package evil-collection
  :after evil
  :ensure t
  :config
  (setq evil-collection-mode-list '(dired eshell eww pdf magit ediff pdf))
  (evil-collection-init))

(use-package which-key
  :ensure t
  :config
  (which-key-setup-minibuffer)
  (which-key-mode))

(use-package hydra
  :ensure t)

(use-package undo-tree
  :ensure t
  :custom
  (undo-tree-visualizer-diff t)
  (undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo")))
  :config
  (global-undo-tree-mode)
  (evil-leader/set-key "hu" 'undo-tree-undo)
  (evil-leader/set-key "hr" 'undo-tree-redo)
  (evil-leader/set-key "hv" 'undo-tree-visualize)
  (defun undo-tree-suppress-buffer-modified-message
      (undo-tree-load-history &rest args)
    (let ((inhibit-message t))
      (apply undo-tree-load-history args)))
  (advice-add #'undo-tree-load-history :around
              #'undo-tree-suppress-buffer-modified-message))

(use-package minions
  :ensure t
  :config
  (minions-mode))

(use-package doom-modeline
  :ensure t
  :init
  (doom-modeline-mode 1)
  :custom
  (doom-modeline-icon t)
  (doom-modeline-vcs-max-length 24)
  (doom-modeline-minor-modes t))

(setq dired-listing-switches "-Bahl --group-directories-first")

(use-package nerd-icons
  :ensure t)

(use-package dired-subtree
  :ensure t
  :config
  (evil-define-key 'normal dired-mode-map
    (kbd "TAB") 'dired-subtree-toggle))

(use-package htmlize
  :ensure t)

(use-package org
  :custom
  (org-adapt-indentation nil)
  (org-startup-indented t)
  (org-startup-folded t)
  (org-hide-emphasis-markers t)
  (org-src-preserve-indentation t)
  (org-src-tab-acts-natively t)
  (org-default-notes-file "~/org/inbox.org")
  (org-agenda-files '("~/org"))
  (org-refile-targets '((nil :maxlevel . 1)
                        (org-agenda-files :maxlevel . 1)))
  (org-refile-use-outline-path 'file)
  (org-reverse-note-order t)
  (org-link-frame-setup '((file . find-file))) ; open links in same frame
  (org-goto-interface 'outline-path-completion)
  (org-outline-path-complete-in-steps nil)
  (org-src-window-setup 'current-window)
  (org-html-htmlize-output-type 'inline-css)
  (org-latex-preview-ltxpng-directory "~/.emacs.d/ltxpng/")
  (org-image-actual-width nil)
  (org-fontify-done-headline nil)
  (org-ellipsis "…")
  (org-icalendar-combined-agenda-file "~/org/calendar.ics")
  (org-icalendar-timezone "Europe/Berlin")
  (org-icalendar-use-deadline  '(event-if-not-todo event-if-todo))
  (org-icalendar-use-scheduled '(event-if-not-todo event-if-todo))
  :init
  (require 'org-protocol)
  (require 'ox-bibtex)
  :config
  (evil-leader/set-key-for-mode 'org-mode
    "c"  'org-edit-src-code
    "g"  'org-goto
    "e"  'org-ctrl-c-ctrl-c
    "lp" 'org-insert-link)
  (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
  (add-hook 'org-mode-hook (lambda () (variable-pitch-mode 1))))

(setq org-todo-keywords
  '((sequence "TODO(t)" "|" "DONE(d)")
    (sequence "TALK(k)" "|" "DONE(d)")
    (sequence "MEET(e)" "|" "DONE(d)")
    (sequence "MAIL(m)" "|" "DONE(d)")
    (sequence "IDEA(i)" "TODO(t)" "|" "DONE(d)")))

(setq org-capture-templates
  '(("t" "Todo item" entry
     (file org-default-notes-file)
     "* TODO %?\n%a"
     :prepend t)
    ("c" "Calendar entry" entry
     (file org-default-notes-file)
     "* TODO %?\nSCHEDULED: %t"
     :prepend t)
    ("j" "Journal entry" entry
     (file org-default-notes-file)
     "* %U %^{Title}\n%?"
     :prepend t)
    ("s" "Quote selection" entry
     (file org-default-notes-file)
     "* %^{Description}\n%U\n#+BEGIN_QUOTE\n%i#+END_QUOTE"
     :prepend t)
    ("wq" "Website (Quote)" entry
     (file org-default-notes-file)
     "* %:description\n%:link %U\n#+BEGIN_QUOTE\n%:initial\n#+END_QUOTE")
    ("w" "Website" entry
     (file org-default-notes-file)
     "* %:description\n%:link %U"
     :immediate-finish t)))

(use-package org-fragtog
  :ensure t
  :config
  (add-hook 'org-mode-hook 'org-fragtog-mode))

(use-package ob-async
  :ensure t)

(use-package org-ql
  :ensure t)

(custom-theme-set-faces
 'user
 '(org-level-1 ((t (:family "Iosevka Aile" :weight light))))
 '(org-level-2 ((t (:family "Iosevka Aile" :weight light))))
 '(org-level-3 ((t (:family "Iosevka Aile" :weight light))))
 '(org-level-4 ((t (:family "Iosevka Aile" :weight light))))
 '(org-document-title ((t (:family "Iosevka Etoile"))))
 '(font-latex-sectioning-5-face ((t (:family "Iosevka Etoile" :height 1.1)))))

(use-package org-bullets
  :ensure t
  :config
  (setq org-bullets-bullet-list '("◉" "◉" "⤷" "⤷"))
  (add-hook 'org-mode-hook #'org-bullets-mode))

;(use-package org-re-reveal
;  :ensure t
;  :custom
;  (org-re-reveal-revealjs-version "4"))

(use-package org-present
  :ensure t
  :config
  (evil-make-overriding-map org-present-mode-keymap 'normal)
  (add-hook 'org-present-mode-hook
            (lambda ()
              (org-present-big)
              (evil-normalize-keymaps)))
  (add-hook 'org-present-mode-quit-hook
            (lambda ()
              (org-present-small)))
  :bind
  (:map org-present-mode-keymap
        ("<right>" . org-present-next)
        ("<left>"  . org-present-prev)
        ("q"       . org-present-quit)))

(use-package evil-org
  :ensure t
  :init
  (fset 'evil-indirect-digit-argument 'ignore)
  (fset 'evil-redirect-digit-argument 'ignore)
  :config
  (add-hook 'org-mode-hook 'evil-org-mode)
  (evil-org-set-key-theme '(navigation insert textobjects additional todo))
  (require 'evil-org-agenda)
  (evil-org-agenda-set-keys))

(defhydra hydra-org-mode-local ()
  "Org mode"
  ("e" org-babel-execute-buffer   "Execute buffer"   :column "Babel")
  ("t" org-babel-tangle           "Tangle"           :column "Babel")
  ("p" org-babel-expand-src-block "Tangle (preview)" :column "Babel")

  ("i" org-toggle-inline-images     "Toggle images"  :column "View")
  ("L" org-latex-preview            "Toggle LaTeX"   :column "View")
  ("n" org-toggle-narrow-to-subtree "Toggle narrow"  :column "View")
  ("l" org-toggle-link-display      "Toggle links"   :column "View")

  ("s" org-time-stamp-inactive  "Timestamp (inactive)" :column "Fragments")
  ("S" org-time-stamp           "Timestamp (active)"   :column "Fragments")

  ("h" org-html-export-to-html  "HTML export" :column "Export")

  ("q" nil "Exit menu" :column "Other"))

(evil-define-key 'normal org-mode-map
  "J" 'org-next-visible-heading
  "K" 'org-previous-visible-heading
  "m" 'hydra-org-mode-local/body
  (kbd "<return>") 'org-open-at-point)

(use-package helm
  :ensure t
  :config
  (global-set-key (kbd "M-x") 'helm-M-x)
  (global-set-key (kbd "C-b") 'helm-mini)
  (evil-leader/set-key "x" 'helm-M-x)
  (setq helm-split-window-in-side-p       t
        helm-move-to-line-cycle-in-source t
        helm-buffer-max-length            60)
  (evil-leader/set-key "d" 'helm-etags-select)
  :init
  (helm-mode 1))

(use-package helm-ls-git
  :ensure t
  :config
  (evil-leader/set-key "pf" 'helm-browse-project))

(use-package helm-swoop
  :ensure t
  :config
  (evil-leader/set-key "s" 'helm-swoop-without-pre-input))

(use-package org-ref
  :ensure t
  :custom
  (reftex-default-bibliography '("~/university/bib/lit.bib"))
  (org-ref-bibliography-notes "~/org/literature.org")
  (org-ref-default-bibliography '("~/university/bib/lit.bib"))
  (org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename-helm-bibtex))

(use-package helm-bibtex
  :ensure t
  :config
  (setq bibtex-completion-bibliography '("~/university/bib/lit.bib"))
  (setq bibtex-completion-pdf-field "file"))

(use-package zotxt
  :ensure t
  :config
  (add-hook 'org-mode-hook 'org-zotxt-mode))

(evil-define-key 'normal 'global
  "J" 'evil-forward-paragraph
  "K" 'evil-backward-paragraph)

(defun switch-to-last-buffer ()
  (interactive)
  (switch-to-buffer nil))

(define-key evil-normal-state-map (kbd "<backspace>") 'switch-to-last-buffer)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((python  . t)
   (shell   . t)
   (latex   . t)
   (org     . t)
   (dot     . t)
   (C       . t)))

(setq org-confirm-babel-evaluate nil)

(use-package org-roam
  :ensure t
  :custom
  (org-roam-directory "~/org")
  (org-roam-node-display-template (concat "${title:80} " (propertize "${tags:20}" 'face 'org-tag)))
  :init
  (setq org-roam-v2-ack t)
  :config
  (org-roam-setup)
  (evil-leader/set-key "r" 'org-roam-node-find)
  (add-to-list 'helm-completing-read-handlers-alist
               '(org-roam-node-find . helm-completing-read-sync-default-handler)))


(setq org-roam-capture-templates
  '(("d" "default" plain "%?"
     :if-new (file+head "${slug}.org"
                        "#+title: ${title}\n")
     :unnarrowed t)))

(use-package helm-org-rifle
  :ensure t)

(use-package helm-org-ql
  :ensure t)

(defhydra hydra-org-mode (:exit t)
  "Org mode"
  ("y" org-store-link   "Store link"   :column "Links")
  ("p" org-insert-link  "Insert link"  :column "Links")

  ("n" org-capture   "Capture"  :column "Capture")

  ("a" org-agenda                                            "Agenda"    :column "Agenda")
  ("c" (progn (org-agenda-list) (org-agenda-fortnight-view)) "Calendar"  :column "Agenda")

  ("r" helm-org-rifle-org-directory  "Rifle (all)"   :column "Search")
  ("l" helm-org-rifle-current-buffer "Rifle (local)" :column "Search")

  ("q" nil "Exit menu" :column "Other"))

(evil-leader/set-key "o" 'hydra-org-mode/body)

(use-package magit
  :ensure t
  :config
  (evil-leader/set-key "pg" 'magit))

(use-package projectile
  :ensure t
  :config
  (setq projectile-project-search-path '("~/projects"))
  (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
  (evil-leader/set-key "pt" 'projectile-regenerate-tags)
  (evil-leader/set-key "pk" 'projectile-kill-buffers)
  :init
  (projectile-mode))

(use-package helm-ag
  :ensure t)

(use-package helm-projectile
  :ensure t
  :config
  (evil-leader/set-key "ph" 'helm-projectile)
  (evil-leader/set-key "pp" 'helm-projectile-switch-project)
  (evil-leader/set-key "pb" 'helm-projectile-switch-to-buffer)
  (evil-leader/set-key "pa" 'helm-projectile-ag)
  :init
  (helm-projectile-on))

(defun get-related-files ()
  (let ((common-basename-files (seq-filter (lambda (file) (string= (file-name-sans-extension file) (file-name-base)))
                                           (directory-files "."))))
    (sort (seq-remove (lambda (file) (string= file (buffer-name)))
                      common-basename-files)
          #'string-greaterp)))

(defun jump-to-related ()
  (interactive)
  (find-file (helm :sources
                   (helm-build-sync-source "Related files"
                     :candidates (get-related-files)
                     :fuzzy-match t))))

(defun jump-to-first-related ()
  (interactive)
  (find-file (car (get-related-files))))

(evil-define-key 'normal prog-mode-map
  (kbd "<tab>") 'jump-to-first-related
  (evil-leader/set-key "fr" 'jump-to-related))

(add-hook 'c-mode-common-hook 'hs-minor-mode t)
(add-hook 'c-mode-common-hook 'hs-hide-initial-comment-block t)
(defun disable-electric-indent-mode ()
  (electric-indent-local-mode -1))
(add-hook 'c-mode-common-hook 'disable-electric-indent-mode t)

(use-package ace-jump-mode
  :ensure t
  :config
  (evil-leader/set-key "SPC" 'ace-jump-mode))

(use-package auctex
  :defer t)

(use-package expand-region
  :ensure t
  :config
  (evil-leader/set-key "v" 'er/expand-region))

(use-package nix-mode
  :ensure t)

(use-package cuda-mode
  :ensure t)

(use-package glsl-mode
  :ensure t)

(use-package haskell-mode
  :ensure t)

(use-package cmake-mode
  :ensure t)

(use-package csv-mode
  :ensure t)

(use-package rainbow-mode
  :ensure t)

(use-package gnuplot
  :ensure t)

(use-package darkroom
  :ensure t
  :custom
  (darkroom-text-scale-increase 0)
  :bind
  ("<f12>" . darkroom-mode))

(use-package pdf-tools
  :defer t
  :mode "\\.pdf$"
  :config
  (pdf-tools-install)
  :init
  (evil-collection-pdf-setup))

(use-package edit-server
  :ensure t
  :init
  (edit-server-start))

(setq browse-url-browser-function 'eww-browse-url)

(add-hook 'eshell-mode-hook
  (lambda ()
    (define-key eshell-mode-map (kbd "<tab>")
      (lambda () (interactive) (completion-at-point)))))

(defadvice org-babel-tangle-single-block (around inhibit-redisplay activate protect compile)
  (let ((inhibit-redisplay t)
        (inhibit-message t))
    ad-do-it))

(defadvice org-babel-tangle (around time-it activate compile)
  (let ((time (current-time)))
    ad-do-it
    (message "org-tangle took %f sec" (float-time (time-subtract (current-time) time)))))

(use-package gptel
  :ensure t
  :config
  (defvar gptel--atlas
    (gptel-make-openai "atlas"
                       :stream t
                       :protocol "http"
                       :host "10.100.0.3:8081")
    "GPTel remote backend on atlas")
  (setq-default gptel-backend gptel--atlas)
  (setq-default gptel-max-tokens 4096)
  (defvar gptel-quick--history nil)
  (defun gptel-quick (&optional prompt)
    (interactive)
    (unless prompt
      (if (use-region-p)
          (setq prompt (buffer-substring-no-properties (region-beginning) (region-end)))
        (setq prompt (read-string "AI: "))))
    (when (string= prompt "") (user-error "Text selection or prompt is required."))
    (gptel-request
     prompt
     :callback
     (lambda (response info)
       (if (not response)
           (message "gptel-quick failed with message: %s" (plist-get info :status))
         (with-current-buffer (get-buffer-create "*gptel-quick*")
           (let ((inhibit-read-only t))
             (erase-buffer)
             (insert response))
           (special-mode)
           (switch-to-buffer "*gptel-quick*"))))))
  (evil-leader/set-key "g" 'gptel-quick))

(let ((mu4e-config "~/.emacs.d/email.el"))
 (when (file-exists-p mu4e-config)
   (load-file mu4e-config)))

(let ((patches "~/.emacs.d/patches.el"))
  (when (file-exists-p patches)
    (load-file patches)))

(use-package envrc
  :ensure t)

(envrc-global-mode)