(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(pixel-scroll-mode)

(require 'package)
(setq frame-title-format
      `((buffer-file-name "%f" "%b")
        ,(format " - Emacs" )))

(with-eval-after-load 'package
  (add-to-list 'package-archives '("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(with-eval-after-load 'package
  (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")))
(package-initialize t)
(setq url-http-attempt-keepalives nil)
(when (not package-archive-contents)
  (package-refresh-contents))

(setq kill-whole-line t)

;; wl-copy
(setq wl-copy-process nil)
(defun wl-copy (text)
  (setq wl-copy-process (make-process :name "wl-copy"
                                      :buffer nil
                                      :command '("wl-copy")
                                      :connection-type 'pipe
                                      :noquery t))
  (process-send-string wl-copy-process text)
  (process-send-eof wl-copy-process))

(defun wl-paste ()
  (if (and wl-copy-process (process-live-p wl-copy-process))
      nil
    (shell-command-to-string "wl-paste -n | tr -d \r")))

(setq interprogram-cut-function 'wl-copy
      interprogram-paste-function 'wl-paste)

;; God mode
(unless (package-installed-p 'god-mode)
  (package-install 'god-mode))

(require 'god-mode)
(god-mode-all)
(global-set-key (kbd "<escape>") #'god-local-mode)
(define-key god-local-mode-map (kbd "i") #'god-local-mode)
(define-key god-local-mode-map (kbd ".") #'repeat)
(global-set-key (kbd "C-x C-1") #'delete-other-windows)
(define-key god-local-mode-map (kbd "[") #'next-buffer)
(define-key god-local-mode-map (kbd "]") #'previous-buffer)

;; Expand-region
(unless (package-installed-p 'expand-region)
  (package-install 'expand-region))
(require 'expand-region)

(global-set-key (kbd "C-,") 'er/expand-region)
;; Keybindings
(global-set-key (kbd "C-c C-k") #'eldoc)
(define-key god-local-mode-map (kbd "C-c d [") #'flymake-goto-prev-error)
(define-key god-local-mode-map (kbd "C-c d ]") #'flymake-goto-next-error)
(define-key god-local-mode-map (kbd "C-c v ]") #'diff-hl-next-hunk)
(define-key god-local-mode-map (kbd "C-c v [") #'diff-hl-prev-hunk)


(defun m/newline-insert-above ()
  "Create line above, exit god mode"
  (interactive)
  (beginning-of-line)
  (newline-and-indent)
  (previous-line)
  (god-local-mode -1))

(define-key god-local-mode-map (kbd "C-S-O") #'m/newline-insert-above)

(defun m/newline-insert-below ()
  "Create line below, exit god mode"
  (interactive)
  (end-of-line)
  (newline-and-indent)
  (god-local-mode -1))

(define-key god-local-mode-map (kbd "C-o") #'m/newline-insert-below)

(add-hook 'god-local-mode-hook
          (lambda () (if (bound-and-true-p god-local-mode)
                         (setq cursor-type 'box)
                       (setq cursor-type 'bar))))

(defun m/update-cursor-type ()
  (setq cursor-type (if (or god-local-mode buffer-read-only) 'box 'bar)))
(add-hook 'post-command-hook #'m/update-cursor-type)

(defun m/quit ()
  "Quit current window or buffer. Taken from meow-quit"
  (interactive)
  (if (> (seq-length (window-list (selected-frame))) 1)
      (quit-window)
    (previous-buffer)))

(define-key god-local-mode-map (kbd "C-q") #'m/quit)

(require 'god-mode-isearch)
(define-key isearch-mode-map (kbd "<escape>") #'god-mode-isearch-activate)
(define-key god-mode-isearch-map (kbd "<escape>") #'god-mode-isearch-disable)

(delete-selection-mode 1)

(unless (package-installed-p 'avy)
  (package-install 'avy))

(keymap-global-set "C-'" 'avy-goto-char)

;; Setup custom keys for avy
(custom-set-variables '(avy-keys '(97 114 115 116 100 104 110 101 105 111)))


(unless (package-installed-p 'hyperbole)
  (package-install 'hyperbole))
(require 'hyperbole)
(hyperb:init)


;; Direnv
(unless (package-installed-p 'direnv)
  (package-install 'direnv))

(use-package direnv
  :config
  (direnv-mode))

(setq direnv-show-paths-in-summary nil)
(setq direnv-always-show-summary nil)

;; Prompt
(add-hook 'eshell-mode-hook
          (defun my-eshell-mode-hook ()
            (require 'eshell-z)))

(defun marcc/eshell-prompt ()
  (setq eshell-prompt-regexp "^-- ")
  (format "%s\n-- " (abbreviate-file-name (eshell/pwd))))
(setq eshell-prompt-function #'marcc/eshell-prompt)

;; Print git branch in dired et.c.
(unless (package-installed-p 'git-ps1-mode)
  (package-install 'git-ps1-mode))

(require 'git-ps1-mode)


;;Theme
(unless (package-installed-p 'almost-mono-themes)
  (package-install 'almost-mono-themes))
(use-package almost-mono-themes
  :config
  (load-theme 'almost-mono-white t))

(set-face-attribute 'default nil :font "Iosevka Term Curly" :height 100)
(set-face-attribute 'variable-pitch nil :font "Iosevka Etoile" :height 90)
(setq-default line-spacing 0.5) 
(setq display-time-format "%a, %d/%m, %H:%M")
(display-time-mode)
(display-battery-mode)
(tab-bar-mode)

(add-hook 'Info-mode-hook 'variable-pitch-mode)
(add-hook 'woman-mode-hook 'variable-pitch-mode)



(setq
 flymake-fringe-indicator-position 'left-fringe
 diff-hl-side 'right)

(custom-set-variables '(fringe-mode '(5 . 5) nil (fringe)))
(set-face-attribute 'fringe nil :background "#FFF")
(add-to-list 'default-frame-alist '(internal-border-width . 4))


;; Disable splash screen
(setq inhibit-startup-screen t)

;; Ripgrep
(unless (package-installed-p 'rg)
  (package-install 'rg))
(require 'rg)

;; Slime
(unless (package-installed-p 'slime)
  (package-install 'slime))


;; Hyperbole
(unless (package-installed-p 'hyperbole)
  (package-install 'hyperbole))

(hyperbole-mode 1)

;;; Git client
(unless (package-installed-p 'magit)
  (package-install 'magit))

;; Tempel
(unless (package-installed-p 'tempel)
  (package-install 'tempel))

(use-package tempel
  ;; Require trigger prefix before template name when completing.
  ;; :custom
  ;; (tempel-trigger-prefix "<")
  :bind (("M-+" . tempel-complete) ;; Alternative tempel-expand
         ("M-*" . tempel-insert))
  
  :init

  ;; Setup completion at point
  (defun tempel-setup-capf ()
    ;; Add the Tempel Capf to `completion-at-point-functions'.
    ;; `tempel-expand' only triggers on exact matches. Alternatively use
    ;; `tempel-complete' if you want to see all matches, but then you
    ;; should also configure `tempel-trigger-prefix', such that Tempel
    ;; does not trigger too often when you don't expect it. NOTE: We add
    ;; `tempel-expand' *before* the main programming mode Capf, such
    ;; that it will be tried first.
    (setq-local completion-at-point-functions
                (cons #'tempel-expand
                      completion-at-point-functions)))

  (add-hook 'conf-mode-hook 'tempel-setup-capf)
  (add-hook 'prog-mode-hook 'tempel-setup-capf)
  (add-hook 'text-mode-hook 'tempel-setup-capf)

  ;; Optionally make the Tempel templates available to Abbrev,
  ;; either locally or globally. `expand-abbrev' is bound to C-x '.
  ;; (add-hook 'prog-mode-hook #'tempel-abbrev-mode)
  ;; (global-tempel-abbrev-mode)
  )

;; Eat - terminal emulator
(unless (package-installed-p 'eat)
  (package-install 'eat))


;; Vundo
(unless (package-installed-p 'vundo)
  (package-install 'vundo))

;; Backups

(setq backup-directory-alist
      `((".*" . ,temporary-file-directory))
      auto-save-file-name-transforms
      `((".*" ,temporary-file-directory t)))

;; Indication of local VCS changes
(unless (package-installed-p 'diff-hl)
  (package-install 'diff-hl))

;; Enable `diff-hl' support by default in programming buffers
(add-hook 'prog-mode-hook #'diff-hl-mode)

;; Devdocs
(unless (package-installed-p 'devdocs)
  (package-install 'devdocs))

(global-set-key (kbd "C-h D") 'devdocs-lookup)
(add-hook 'terraform-mode-hook
          (lambda () (setq-local devdocs-current-docs '("terraform"))))

;; LSP
(unless (package-installed-p 'tuareg)
  (package-install 'tuareg))
(use-package tree-sitter-langs
  :ensure t
  :defer t)

(use-package treesit)

(setq treesit-language-source-alist
   '((bash "https://github.com/tree-sitter/tree-sitter-bash")
     (cmake "https://github.com/uyha/tree-sitter-cmake")
     (css "https://github.com/tree-sitter/tree-sitter-css")
     (elisp "https://github.com/Wilfred/tree-sitter-elisp")
     (go "https://github.com/tree-sitter/tree-sitter-go")
     (html "https://github.com/tree-sitter/tree-sitter-html")
     (javascript "https://github.com/tree-sitter/tree-sitter-javascript" "master" "src")
     (json "https://github.com/tree-sitter/tree-sitter-json")
     (make "https://github.com/alemuller/tree-sitter-make")
     (markdown "https://github.com/ikatyang/tree-sitter-markdown")
     (python "https://github.com/tree-sitter/tree-sitter-python")
     (toml "https://github.com/tree-sitter/tree-sitter-toml")
     (tsx "https://github.com/tree-sitter/tree-sitter-typescript" "master" "tsx/src")
     (typescript "https://github.com/tree-sitter/tree-sitter-typescript" "master" "typescript/src")
     (yaml "https://github.com/ikatyang/tree-sitter-yaml")))


;; Project
(bind-key "C-x p s" 'eat-project)

(use-package eglot
  :ensure t)

;; Allegedly speeds up eglot
(fset #'jsonrpc--log-event #'ignore)

(add-hook 'tuareg-mode-hook 'eglot-ensure)

;; When tuareg is loaded, autoformat on save
(add-hook 'tuareg-mode-hook
          (lambda ()
            (add-hook 'before-save-hook 'eglot-format nil t)))

(add-hook 'typescript-ts-mode-hook 'eglot-ensure)
(setq-default indent-tabs-mode nil
              tab-stop-list    ()
              tab-width        2)

(cl-defmethod project-root ((project (head eglot-project)))
  (cdr project))

(defun my-project-try-tsconfig-json (dir)
  (when-let* ((found (locate-dominating-file dir "tsconfig.json")))
    (cons 'eglot-project found)))

(add-hook 'project-find-functions
          'my-project-try-tsconfig-json nil nil)

(unless (package-installed-p 'terraform-mode)
  (package-install 'terraform-mode))

(use-package terraform-mode
  ;; if using straight
  ;; :straight t

  ;; if using package.el
  ;; :ensure t
  :custom (terraform-indent-level 2)
  :config
  (defun my-terraform-mode-init ()
    ;; if you want to use outline-minor-mode
    ;; (outline-minor-mode 1)
    )

  (add-hook 'terraform-mode-hook 'my-terraform-mode-init))

(add-hook 'terraform-mode-hook 'eglot-ensure)
(unless (package-installed-p 'typescript-mode)
  (package-install 'typescript-mode))

(add-to-list 'auto-mode-alist '("\\.ts\\'" . typescript-mode))
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . tsx-ts-mode))
(add-to-list 'auto-mode-alist '("\\.tf\\'" . terraform-mode))
(add-to-list 'auto-mode-alist '("\\.json\\'" . json-mode))
(add-to-list 'auto-mode-alist '("\\.ml\\'" . tuareg-mode))
(add-to-list 'auto-mode-alist '("\\.mli\\'" . tuareg-mode))

'(eglot-extend-to-xref t)
'(eglot-autoreconnect t)
(add-hook 'eglot-managed-mode-hook
          (lambda ()
            "Make sure Eldoc will show us all of the feedback at point."
            (setq-local eldoc-documentation-strategy
                        #'eldoc-documentation-compose)))

;; Commands

(defun ocaml-print-rapper-type ()
  (interactive)
  (insert (shell-command-to-string "ocaml-rapper-helper")))

;; HTML + Liquid
(add-to-list 'auto-mode-alist '("\\.liquid\\'" . html-mode))
(with-eval-after-load 'eglot
  (add-to-list 'eglot-server-programs
               '(html-mode . ("vscode-html-language-server" "--stdio"))
               '(css-mode . ("vscode-css-language-server" "--stdio"))))


(unless (package-installed-p 'prettier-js)
  (package-install 'prettier-js))
(unless (package-installed-p 'add-node-modules-path)
  (package-install 'add-node-modules-path))
(unless (package-installed-p 'smartparens)
  (package-install 'smartparens))

(add-hook 'typescript-mode-hook 'prettier-js-mode)
(add-hook 'tsx-ts-mode 'prettier-js-mode)
(add-hook 'typescript-mode-hook #'smartparens-mode)
(add-hook 'json-ts-mode-hook #'smartparens-mode)
(add-hook 'tuareg-mode-hook #'smartparens-mode)
(add-hook 'terraform-mode-hook #'smartparens-mode)

(setq eglot-prefer-plaintext 1
      eldoc-echo-area-use-multiline-p t
      eldoc-echo-area-prefer-doc-buffer t
      eglot-events-buffer-size 0
      eglot-autoshutdown t)


(add-hook 'eglot-managed-mode-hook (lambda () (eglot-inlay-hints-mode 0)))
(add-hook 'eglot-managed-mode-hook (lambda () (global-eldoc-mode -1)))
(add-hook 'eglot-managed-mode-hook (lambda () (keymap-local-set "C-c C-x C-a" 'eglot-code-actions)))
(add-hook 'eglot-managed-mode-hook (lambda () (keymap-local-set "C-c C-x C-r" 'eglot-rename)))

(global-eldoc-mode -1)

;; Disable copilot warning logs
(setq warning-minimum-level :error)

;; Markdown mode to correctly show markdown
(unless (package-installed-p 'markdown-mode)
  (package-install 'markdown-mode))
(use-package markdown-mode)

(setq markdown-enable-highlighting-syntax t)
(setq markdown-hide-urls t)
(setq markdown-hide-markup t)


(unless (package-installed-p 'consult)
  (package-install 'consult))
(global-set-key [rebind switch-to-buffer] #'consult-buffer)
(global-set-key (kbd "C-x C-r") #'consult-ripgrep)
(global-set-key (kbd "C-x C-f") #'consult-fd)

(setq consult-async-refresh-delay 0.0)
(setq consult-async-input-throttle 0.0)
(setq consult-async-input-debounce 0.02)

;; Vertico + Marginalia + Orderless auto complete
(unless (package-installed-p 'vertico)
  (package-install 'vertico))
(use-package vertico
  :init
  (vertico-mode)
  (use-package savehist
    :init
    (savehist-mode))
  )
(vertico-reverse-mode)
(setq vertico-resize nil)
;; Completion
(setq completion-in-region-function
      (lambda (&rest args)
        (apply (if vertico-mode
                   #'consult-completion-in-region
                 #'completion--in-region)
               args)))
(unless (package-installed-p 'orderless)
  (package-install 'orderless))

(unless (package-installed-p 'marginalia)
  (package-install 'marginalia))

(use-package marginalia
  :init
  (marginalia-mode))

(use-package orderless
  :ensure t
  :custom
  (completion-styles '(orderless basic))
  (completion-category-overrides '((file (styles basic partial-completion)))))

;; Miscellaneous options
(setq-default major-mode
              (lambda () ; guess major mode from file name
                (unless buffer-file-name
                  (let ((buffer-file-name (buffer-name)))
                    (set-auto-mode)))))
(setq confirm-kill-emacs #'yes-or-no-p)
(setq window-resize-pixelwise t
      frame-resize-pixelwise t)
(save-place-mode t)
(savehist-mode t)
(recentf-mode t)
(defalias 'yes-or-no #'y-or-n-p)

;; Store automatic customisation options elsewhere
(setq custom-file (locate-user-emacs-file "custom.el"))
(when (file-exists-p custom-file)
  (load custom-file))

;; Pairs
(bind-key "M-{" 'insert-pair)
(bind-key "M-}" 'insert-pair)
(bind-key "M-]" 'insert-pair)
(bind-key "M-[" 'insert-pair)
(bind-key "M-]" 'insert-pair)
(bind-key "M-`" 'insert-pair)
(bind-key "M-\"" 'insert-pair)
(bind-key "M-'" 'insert-pair)
(bind-key "M-<" 'insert-pair)

;; Guix integration
(unless (package-installed-p 'geiser-mit)
  (package-install 'geiser-mit))
(unless (package-installed-p 'geiser-guile)
  (package-install 'geiser-guile))
(unless (package-installed-p 'ac-geiser)
  (package-install 'ac-geiser))
(unless (package-installed-p 'macrostep-geiser)
  (package-install 'macrostep-geiser))
(unless (package-installed-p 'guix)
  (package-install 'guix))

;; Utils 
(defun marc/close-all-buffers-except-current ()
  (interactive)
  (mapc 'kill-buffer (delete (current-buffer) (buffer-list))))

;; which-key
(unless (package-installed-p 'which-key)
  (package-install 'which-key))
(require 'which-key)
(which-key-mode)
(which-key-enable-god-mode-support)

;; Fossil
(unless (package-installed-p 'vc-fossil)
  (package-install 'vc-fossil))

;; Dired
(add-hook 'dired-after-readin-hook 'dired-hide-details-mode 'append)
(eval-after-load "dired" '(define-key dired-mode-map (kbd "b") 'dired-up-directory))
(eval-after-load "dired" '(define-key dired-mode-map (kbd "N") 'dired-create-empty-file))
(eval-after-load "dired" '(define-key dired-mode-map (kbd "+") 'dired-create-directory))
(put 'dired-find-alternate-file 'disabled nil)


;; Copilot
(unless (package-installed-p 'quelpa)
  (package-install 'quelpa))
(unless (package-installed-p 'quelpa-use-package)
  (package-install 'quelpa-use-package))

(require 'quelpa)
(require 'quelpa-use-package)

(use-package copilot
  :quelpa (copilot :fetcher github
                   :repo "zerolfx/copilot.el"
                   :branch "main"
                   :files ("dist" "*.el")))


(define-key copilot-completion-map (kbd "<tab>") 'copilot-accept-completion)
(define-key copilot-completion-map (kbd "TAB") 'copilot-accept-completion)

;; Org
(require 'org)
(transient-mark-mode 1)
(add-hook 'org-mode-hook 'variable-pitch-mode)
(add-hook 'org-mode-hook 'flyspell-mode)
(add-hook 'org-mode-hook 'visual-line-mode)


(setq org-directory "~/marcvault")

(defun marcc/get-journal-file-today ()
  "Get journal path"
  (let ((fpath (concat org-directory "/Journal/" (format-time-string "%Y-%m-%d.org"))))
    (expand-file-name fpath)))

(defun journal-file-today ()
  "Create and load a journal file based on today's date."
  (interactive)
  (find-file (marcc/get-journal-file-today)))

(defun marcc/search-notes ()
  "Get journal path"
  (let ((fpath (concat org-directory "/Journal/" (format-time-string "%Y-%m-%d.org"))))
    (expand-file-name fpath)))

(setq org-capture-templates
      `(("t" "Todo" entry (file+headline "~/marcvault/todo.org" "Tasks")
         "* TODO %?\n  %i\n  %a")
        ("u" "Usage" entry (file "~/marcvault/usage-tips.org")
         "* %?\n"
         :empty-lines 1)
        ("j" "Journal"
         entry (file ,(concat org-directory "/Journal/" (format-time-string "%Y-%m-%d.org")))
         "* %?\n[%(format-time-string \"%Y-%m-%d %H:%M\")]\n%i\n%a"
         :empty-lines 1)))

(add-hook 'marc-minor-mode-hook 'smartparens-mode)
(add-hook 'flyspell-mode-hook (lambda () (define-key flyspell-mode-map (kbd "C-,") nil)))
(setq org-adapt-indentation t
      org-hide-leading-stars t
      org-startup-indented t
      org-startup-truncated nil
      org-hide-emphasis-markers t
      org-agenda-files (directory-files-recursively "~/marcvault/" "\\.org$")
      org-log-done 'time
      org-todo-keywords '((sequence "TODO" "IDEA" "|" "DONE"))
      org-todo-keyword-faces '(("TODO" . org-todo)
                               ("IDEA" . "blue")
                               ("DONE" . "green"))   
      org-odd-levels-only t)



;; Keybindings
(defvar marc-minor-mode-map (make-keymap) "marc-minor-mode keymap.")
(define-key marc-minor-mode-map (kbd "C-c C-k") 'eldoc)
(define-key marc-minor-mode-map (kbd "C-c , .") 'journal-file-today)
(define-key marc-minor-mode-map (kbd "C-c , c") 'org-capture)
(define-key marc-minor-mode-map (kbd "C-c , a") 'org-agenda)
(define-key marc-minor-mode-map (kbd "C-c , s") 'consult-org-agenda)
(define-key marc-minor-mode-map (kbd "C-c , /") 'consult-org-heading)
(define-key marc-minor-mode-map (kbd "C-,") 'er/expand-region)
(define-key marc-minor-mode-map (kbd "C-'") 'avy-goto-char)
(define-minor-mode marc-minor-mode
  "A minor mode so that my key settings aren't shadowed by other major/minor modes"
  t " marc" marc-minor-mode-map)

;; Isearch
;; Case insensitive
(setq case-fold-search t)

;; Ligatures
(unless (package-installed-p 'ligature)
  (package-install 'ligature))

(use-package ligature
  :config
  ;; Enable the "www" ligature in every possible major mode
  (ligature-set-ligatures 't '("www"))
  ;; Enable traditional ligature support in eww-mode, if the
  ;; `variable-pitch' face supports it
  (ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
  ;; Enable all Pragmata Pro in programming modes
  (ligature-set-ligatures 'prog-mode '( "<|||" "<==>" "<!--"  "~~>" "||=" "||>"
                                       "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
                                       ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
                                       "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
                                       "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "#_(" 
                                       "+++" "/==" "_|_" "&&" "^="  "~="
                                       "~>" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-"  "[[" "]]"
                                       "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "|==>" "|>-" 
                                       ">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|"  "~>>" "\\=>"
                                       "<$" "<="
                                       "##" "#(" "#?" "#_" ".."  "+>" "++" 
                                       "?="  "/="
                                       "|<<" "\\==" "^>>" "^>>" "|+|" "|->" "|-->" "\\-:" "[FIXME]"
                                       "[TODO]" "[WARN]" "!=" "&&&"))
  ;; Enables ligature checks globally in all buffers. You can also do it
  ;; per mode with `ligature-mode'.
  (global-ligature-mode t))

;; RSS - Elfeed
(unless (package-installed-p 'elfeed)
  (package-install 'elfeed))
(unless (package-installed-p 'elfeed-protocol)
  (package-install 'elfeed-protocol))
(unless (package-installed-p 'password-store)
  (package-install 'password-store))

(elfeed-protocol-enable)
;;(setq elfeed-use-curl t)
(setq elfeed-set-timeout 36000
      elfeed-curl-extra-arguments '("--insecure") ;necessary for https without a trust certificate
      elfeed-protocol-fever-fetch-category-as-tag t
      elfeed-protocol-feeds '(("fever+https://freshrss@rss.mccd.space"
                               :api-url "https://rss.mccd.space/api/fever.php"
                               :password (password-store-get "mccd/freshrss")
                               )))
      
(defun marc/elfeed-refresh ()
  (interactive)
  (mark-whole-buffer)
  (cl-loop for entry in (elfeed-search-selected)
	         do (elfeed-untag-1 entry 'unread))
  (elfeed-search-update--force)
  (elfeed-protocol-fever-reinit "fever+https://freshrss@rss.mccd.spaceD"))

(let* ((proto-id "fever+https://freshrss@rss.mccd.space")
       (last-id (elfeed-protocol-fever-get-update-mark proto-id 'update)))
  (elfeed-protocol-fever-set-update-mark  proto-id 'update (- last-id 1000)))

;; Elfeed
(setq elfeed-sort-order 'ascending
      elfeed-protocol-enabled-protocols '(fever)
      elfeed-protocol-fever-update-unread-only t)

;; Web browser
(unless (package-installed-p 'w3m)
  (package-install 'w3m))

(setq w3m-search-default-engine "duckduckgo")

;; Gemini and Gopher
(unless (package-installed-p 'elpher)
  (package-install 'elpher))


(setq message-kill-buffer-on-exit t)
(setq message-sendmail-envelope-from 'header)

;; pinentry
(setq epa-pinentry-mode 'loopback)
(defun pinentry-emacs (desc prompt ok error)
  (let ((str (read-passwd (concat (replace-regexp-in-string "%22" "\"" (replace-regexp-in-string "%0A" "\n" desc)) prompt ": "))))
    str))


;; ERC
(require 'erc-join)
(erc-autojoin-mode 1)
(setq erc-autojoin-channels-alist
      '(("irc.libera.chat" "#emacs" "#guix" "#nyxt")))
(setq erc-nick "mccd")


(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(avy-keys '(97 114 115 116 100 104 110 101 105 111))
 '(blink-cursor-mode nil)
 '(compile-command " ")
 '(confirm-nonexistent-file-or-buffer nil)
 '(consult-fd-args
   '((if
         (executable-find "fdfind" 'remote)
         "fdfind" "fd")
     "--full-path --color=never --hidden"))
 '(diff-hl-side 'right)
 '(display-line-numbers-major-tick 0)
 '(display-line-numbers-minor-tick 0)
 '(display-line-numbers-width nil)
 '(eglot-extend-to-xref t)
 '(eldoc-echo-area-use-multiline-p t)
 '(erc-autojoin-mode t)
 '(erc-button-mode t)
 '(erc-fill-mode t)
 '(erc-hide-timestamps nil)
 '(erc-irccontrols-mode t)
 '(erc-list-mode t)
 '(erc-match-mode t)
 '(erc-menu-mode t)
 '(erc-move-to-prompt-mode t)
 '(erc-netsplit-mode t)
 '(erc-networks-mode t)
 '(erc-nick "mccd")
 '(erc-noncommands-mode t)
 '(erc-pcomplete-mode t)
 '(erc-readonly-mode t)
 '(erc-ring-mode t)
 '(erc-stamp-mode t)
 '(erc-timestamp-format-left "%a %H:%M\12")
 '(erc-timestamp-format-right " ")
 '(erc-track-minor-mode t)
 '(erc-track-mode t)
 '(flymake-fringe-indicator-position 'left-fringe)
 '(flymake-mode-line-format '(" " flymake-mode-line-counters))
 '(fringe-mode '(5 . 5) nil (fringe))
 '(god-mode-lighter-string "God")
 '(grep-command "ugrep")
 '(markdown-code-block-braces t)
 '(markdown-enable-highlighting-syntax t)
 '(markdown-enable-wiki-links t)
 '(markdown-fontify-code-block-default-mode nil)
 '(markdown-fontify-code-blocks-natively t)
 '(markdown-hide-urls t)
 '(markdown-link-space-sub-char "-")
 '(markdown-max-image-size '(300 . 300))
 '(markdown-wiki-link-search-type '(sub-directories parent-directories project))
 '(meow-esc-mode t)
 '(meow-global-mode t)
 '(mode-line-compact 'long)
 '(mode-line-percent-position nil)
 '(mode-line-position-line-format '(" "))
 '(mu4e-modeline-mode nil)
 '(org-babel-load-languages '((emacs-lisp . t) (lisp . t) (shell . t)))
 '(org-fold-core-style 'overlays)
 '(package-selected-packages
   '(slime eat avy monotropic-theme tempel vundo add-node-modules-path prettier password-store vc-fossil eldoc-box mu4e direnv elpher w3m elfeed-protocol elfeed ligature copilot f editorconfig s quelpa-use-package quelpa org-mime org-journal which-key consult orderless vertico markdown-mode smartparens tree-sitter-langs diff-hl magit corfu rg almost-mono-themes git-ps1-mode meow))
 '(project-switch-commands
   '((project-find-file "Find file" nil)
     (project-find-regexp "Find regexp" nil)
     (project-find-dir "Find directory" nil)
     (project-vc-dir "VC-Dir" nil)
     (consult-project-buffer "Find buffer" "b")
     (eat-project "Eat terminal" 101)))
 '(resize-mini-frames nil)
 '(resize-mini-windows t)
 '(rg-align-line-number-field-length 2)
 '(safe-local-variable-values
   '((eval progn
           (require 'lisp-mode)
           (defun emacs27-lisp-fill-paragraph
               (&optional justify)
             (interactive "P")
             (or
              (fill-comment-paragraph justify)
              (let
                  ((paragraph-start
                    (concat paragraph-start "\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
                   (paragraph-separate
                    (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
                   (fill-column
                    (if
                        (and
                         (integerp emacs-lisp-docstring-fill-column)
                         (derived-mode-p 'emacs-lisp-mode))
                        emacs-lisp-docstring-fill-column fill-column)))
                (fill-paragraph justify))
              t))
           (setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph))
     (eval modify-syntax-entry 43 "'")
     (eval modify-syntax-entry 36 "'")
     (eval modify-syntax-entry 126 "'")
     (geiser-repl-per-project-p . t)
     (eval with-eval-after-load 'yasnippet
           (let
               ((guix-yasnippets
                 (expand-file-name "etc/snippets/yas"
                                   (locate-dominating-file default-directory ".dir-locals.el"))))
             (unless
                 (member guix-yasnippets yas-snippet-dirs)
               (add-to-list 'yas-snippet-dirs guix-yasnippets)
               (yas-reload-all))))
     (eval setq-local guix-directory
           (locate-dominating-file default-directory ".dir-locals.el"))
     (eval add-to-list 'completion-ignored-extensions ".go")))
 '(tab-bar-format '(tab-bar-format-align-right tab-bar-format-global))
 '(tab-bar-show t)
 '(vc-handled-backends '(Git Fossil))
 '(vertico-flat-annotate t)
 '(vertico-flat-format
   '(:multiple
     #("{%s}" 0 1
       (face minibuffer-prompt)
       3 4
       (face minibuffer-prompt))
     :single
     #("[%s]" 0 1
       (face minibuffer-prompt)
       1 3
       (face success)
       3 4
       (face minibuffer-prompt))
     :prompt
     #("(%s)" 0 1
       (face minibuffer-prompt)
       3 4
       (face minibuffer-prompt))
     :separator
     #(" | " 0 3
       (face minibuffer-prompt))
     :ellipsis
     #("…" 0 1
       (face minibuffer-prompt))
     :no-match "[No match]"))
 '(vertico-flat-mode nil)
 '(vertico-resize nil)
 '(window-resize-pixelwise t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(diff-hl-insert ((t (:background "green" :foreground "green"))))
 '(dired-directory ((t (:inherit font-lock-function-name-face :weight bold))))
 '(elfeed-search-feed-face ((t (:foreground "dim gray"))))
 '(elfeed-search-tag-face ((t (:slant italic))))
 '(elpher-gemini-heading1 ((t (:inherit bold :height 1.2 :family "Iosevka Etoile"))))
 '(elpher-gemini-preformatted ((t (:inherit variable-pitch))))
 '(erc-action-face ((t (:inherit erc-default-face :weight bold))))
 '(erc-default-face ((t (:family "Iosevka Etoile"))))
 '(erc-input-face ((t (:foreground "green"))))
 '(erc-my-nick-face ((t (:foreground "green" :weight bold))))
 '(erc-nick-default-face ((t (:inherit erc-default-face :weight bold))))
 '(erc-nick-msg-face ((t (:foreground "medium blue" :weight bold))))
 '(erc-notice-face ((t (:inherit erc-default-face :foreground "SlateBlue" :weight bold))))
 '(erc-prompt-face ((t (:foreground "Black" :weight bold))))
 '(erc-timestamp-face ((t (:inherit erc-default-face :foreground "gray" :weight bold))))
 '(eww-form-file ((t (:background "#808080" :foreground "white" :box (:line-width (2 . 2) :style released-button)))))
 '(eww-form-submit ((t (:background "#808080" :foreground "white" :box (:line-width (2 . 2) :style released-button)))))
 '(eww-valid-certificate ((t (:foreground "black" :weight bold))))
 '(font-lock-function-name-face ((t (:weight normal))))
 '(font-lock-preprocessor-face ((t (:slant normal))))
 '(font-lock-string-face ((t (:foreground "#5A5DA5"))))
 '(font-lock-type-face ((t (:slant normal :weight normal))))
 '(gnus-header-content ((t (:inherit gnus-header :slant italic))))
 '(gnus-header-from ((t (:inherit gnus-header))))
 '(gnus-header-name ((t (:inherit gnus-header))))
 '(gnus-header-subject ((t (:inherit gnus-header))))
 '(god-mode-lighter ((t (:inherit error))))
 '(highlight ((t (:background "azure2"))))
 '(line-number ((t (:foreground "#999999"))))
 '(markdown-code-face ((t nil)))
 '(markdown-fontify-code-block-natively t)
 '(markdown-pre-face ((t (:inherit markdown-code-face))))
 '(meow-position-highlight-number ((t (:inherit default :background "grey80" :foreground "white"))))
 '(show-paren-match ((t (:background "gainsboro" :foreground "green" :slant oblique :weight bold))))
 '(tab-bar ((t (:family "Iosevka Aile" :background "#FFF" :foreground "black" :box (:line-width (4 . 4) :color "#FFF") :height 0.90))))
 '(tab-bar-tab ((t (:inherit tab-bar :box nil))))
 '(tuareg-font-lock-operator-face ((t nil)))
 '(variable-pitch ((t (:family "Iosevka Etoile"))))
 '(variable-pitch-text ((t (:inherit variable-pitch :height 1.0)))))