;;
;;; Misc
;;

(setq display-line-numbers-type t)

(setq scroll-margin 10
      hscroll-margin 10)

(setq browse-url-generic-program (executable-find "firefox")
      browse-url-browser-function 'browse-url-generic)

;;
;;; Doom-specific
;;

;; Make it more default-ey.
(setq frame-title-format '("Emacs")
      icon-title-format frame-title-format)

(setq doom-theme 'doom-tomorrow-night)

(setq +format-on-save-enabled-modes '(not nix-mode json-mode yaml-mode))

;;
;;; LSP
;;

(setq lsp-enable-suggest-server-download nil)

;;
;;; Org
;;

(setq org-directory "~/doc/org/")
(after! org
  (setq org-todo-keywords '((sequence
                             "PROJ(p)" ; A master task.
                             "TODO(t)" ; A task that needs to be done with statues:
                             "STRT(s@)" ; - In progress.
                             "HOLD(l@/!)" ; - Paused because of me.
                             "WAIT(w@/!)" ; - Paused because of not me.
                             "|"
                             "DONE(d@/!)" ; Complete state.
                             "KILL(k@/!)")) ; Incomplete state.
        org-todo-keyword-faces '(("PROJ" . +org-todo-project)
                                 ("TODO" . +org-todo-active)
                                 ("STRT" . +org-todo-active)
                                 ("HOLD" . +org-todo-onhold)
                                 ("WAIT" . +org-todo-onhold)
                                 ("DONE" . +org-todo-cancel)
                                 ("KILL" . +org-todo-cancel))))

(add-hook! 'org-mode-hook 'auto-fill-mode)

(add-hook! 'org-mode-hook (lambda (&rest _)
                            (setq fill-column 80)))

(setq org-roam-directory "~/doc/roam/"
      org-roam-db-location (concat org-roam-directory ".db"))

(use-package! org-roam-ui
  :requires websocket
  :after org-roam
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
        org-roam-ui-update-on-save t
        org-roam-ui-open-on-start t))

;;
;;; Elisp
;;

(setq-default flycheck-disabled-checkers '(emacs-lisp-checkdoc))

;;
;;; Haskell
;;

(setq lsp-haskell-formatting-provider "ormolu")

;;
;;; Nix
;;

(setq nix-nixfmt-bin "alejandra")

(after! lsp-mode
  (add-to-list 'lsp-language-id-configuration '(nix-mode . "nix"))
  (lsp-register-client
   (make-lsp-client :new-connection (lsp-stdio-connection '("rnix-lsp"))
                    :major-modes '(nix-mode)
                    :server-id 'nix)))

;;
;;; YAML
;;

(add-hook! 'yaml-mode-hook
  (defun +disable-flycheck-for-yaml-helm-templates ()
    (when (and buffer-file-name
              (string-match-p "/templates/" buffer-file-name)
              (or (string-suffix-p ".yaml" buffer-file-name)
                  (string-suffix-p ".yml" buffer-file-name)))
      (remove-hook! 'yaml-mode-local-vars-hook #'lsp!)
      (pushnew! flycheck-disabled-checkers 'yaml-jsyaml 'yaml-ruby 'yaml-yamllint))))

(setq-hook! 'yaml-mode-hook +format-with-lsp nil)

;;
;;; Elfeed
;;

(setq elfeed-db-directory "~/.elfeed"
      elfeed-enclosure-default-dir (concat elfeed-db-directory "/enclosures")
      rmh-elfeed-org-files (list (concat elfeed-db-directory "/index.org"))
      elfeed-goodies/powerline-default-separator nil
      elfeed-goodies/entry-pane-size 0.75
      elfeed-goodies/entry-pane-position 'bottom)

;;
;;; mu4e
;;

(setq mu4e-root-maildir "~/mail"
      mu4e-context-policy 'ask-if-none
      mu4e-compose-context-policy 'always-ask
      mu4e-compose--org-msg-toggle-next nil
      mu4e-update-interval 60
      sendmail-program (executable-find "msmtp")
      send-mail-function #'smtpmail-send-it
      message-sendmail-f-is-evil t
      message-sendmail-extra-arguments '("--read-envelope-from")
      message-send-mail-function #'message-send-mail-with-sendmail
      +mu4e-personal-addresses (list "frodo@gondor.net"
                                     "frodo@rohan.net"
                                     "azahi@shire.me"
                                     "admin@shire.me"
                                     "ceo@shire.me"
                                     "a.gondor@yahoo.com"
                                     "a.gondor@yahoo.com"))

(set-email-account! "shire"
                    '((mu4e-drafts-folder . "/shire/Drafts")
                      (mu4e-refile-folder . "/shire/Archive")
                      (mu4e-sent-folder   . "/shire/Sent")
                      (mu4e-trash-folder  . "/shire/Trash")
                      (smtpmail-smtp-user . "azahi"))
                    t)

(set-email-account! "yahoo"
                    '((mu4e-sent-folder   . "/yahoo/Sent")
                      (mu4e-drafts-folder . "/yahoo/Drafts")
                      (mu4e-trash-folder  . "/yahoo/Trash")
                      (mu4e-refile-folder . "/yahoo/Archive")
                      (smtpmail-smtp-user . "a.gondor"))
                    t)

(setq +mu4e-compose-org-msg-toggle-next nil)

;;
;;; Circe
;;

(defun nixfiles/irc-bouncer-password-f (&rest _)
  (+pass-get-secret "server/soju.manwe.shire.me/azahi"))

(set-irc-server! "libera"
  `(:host "shire.me"
    :port 6667
    :user "azahi/libera"
    :pass nixfiles/irc-bouncer-password-f))

(set-irc-server! "oftc"
  `(:host "shire.me"
    :port 6667
    :user "azahi/oftc"
    :pass nixfiles/irc-bouncer-password-f))

(set-irc-server! "hackint"
  `(:host "shire.me"
    :port 6667
    :user "azahi/hackint"
    :pass nixfiles/irc-bouncer-password-f))

(set-irc-server! "rizon"
  `(:host "shire.me"
    :port 6667
    :user "azahi/rizon"
    :pass nixfiles/irc-bouncer-password-f))

;; (use-package! hledger-mode
;;   :mode ("\\.journal\\'")
;;   :hook ((hledger-view-mode . hl-line-mode)
;;          (hledger-view-mode . center-text-for-reading))
;;   :init
;;   (setq hledger-jfile "~/doc/accounting/current.journal")
;;   :config
;;   (set-company-backend! 'hledger-mode 'hledger-company)
;;   (add-hook! 'hledger-mode-hook
;;     (lambda (&rest _)
;;       (make-local-variable 'company-backends)
;;       (add-to-list 'company-backends 'hledger-company))))

;; (use-package! hledger-input
;;   :hook ((hledger-input-post-commit . hledger-show-new-balances)
;;          (hledger-input-mode . auto-fill-mode)
;;          (hledger-input-mode . (lambda (&rest _)
;;                                  (make-local-variable 'compay-idle-delay)
;;                                  (setq-local company-idle-delay 0.1))))
;;   :init
;;   (setq hledger-input-buffer-height 20))

;; (use-package! kubernetes
;;   :defer t
;;   :commands (kubernetes-overview)
;;   :init (setq kubernetes-poll-frequency 3600
;;               kubernetes-redraw-frequency 3600))

;; (use-package! kubernetes-evil
;;   :after kubernetes-overview)

;; (use-package! kubernetes-tramp
;;   :defer t)