summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
Diffstat (limited to 'emacs')
-rw-r--r--emacs897
1 files changed, 897 insertions, 0 deletions
diff --git a/emacs b/emacs
new file mode 100644
index 0000000..331c58c
--- /dev/null
+++ b/emacs
@@ -0,0 +1,897 @@
+(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
+ :init
+ (setq treesit-extra-load-path '("~/.guix-home/profile/lib/tree-sitter")))
+
+;; 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)
+
+(add-to-list 'auto-mode-alist '("\\.ts\\'" . typescript-ts-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-ts-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-ts-mode-hook 'prettier-js-mode)
+(add-hook 'tsx-ts-mode 'prettier-js-mode)
+(add-hook 'typescript-ts-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)
+
+
+
+;; Auto dim buffers
+(unless (package-installed-p 'auto-dim-other-buffers)
+ (package-install 'auto-dim-other-buffers))
+
+(auto-dim-other-buffers-mode)
+
+;; 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)))))
+
+
+