path: root/org/emacs.org

#+TITLE: Emacs Configuration
#+PROPERTY: header-args :tangle ../.emacs.d/init.el
#+auto_tangle: t
#+STARTUP: overview
* System information
Check the ~$HOSTNAME~, if it's one of my devices running GuixSD.
#+begin_src emacs-lisp
  (defvar is-zeus (equal (system-name) "zeus"))
  (defvar is-hermes (equal (system-name) "hermes"))
#+end_src
Setup default browser as ~mullvad-browser~
#+begin_src emacs-lisp
  (setq browse-url-browser-function 'browse-url-generic
	browse-url-generic-program "mullvad-browser")
#+end_src
* Setting up Packages
** Define and install packages
** List of required packages
Request the following packages:
#+begin_src emacs-lisp
    (defconst my-package-list '(org-snooze
				all-the-icons
				all-the-icons-dired
				all-the-icons-ivy-rich
				dap-mode
				toc-org
				emojify
				general
				doom-themes
				gruvbox-theme
				doom-modeline
				counsel
				which-key
				ivy
				ivy-rich
				helpful
				password-store
				org
				org-modern
				visual-fill-column
				rainbow-delimiters
				flycheck
				lsp-mode
				lsp-ui
				json-mode
				rjsx-mode
				typescript-mode
				python-mode
				pyvenv
				company
				company-box
				magit
				elfeed
				elfeed-goodies
				paredit
				corfu
				monkeytype
				sudo-edit
				exwm
				exwm-mff
				;; exwm-firefox-core
				consult
				alsamixer
				simple-httpd
				eshell-syntax-highlighting
				org-superstar
				mastodon
				dashboard
				org-auto-tangle))
#+end_src
** Installation & activation
Set our ~package-archives~, and install our packages
#+begin_src emacs-lisp
  (setq package-archives '(("melpa" . "https://melpa.org/packages/")
			   ("org" . "https://orgmode.org/elpa/")
			   ("elpa" . "https://elpa.gnu.org/packages/")
			   ("jcs-elpa" . "https://jcs-emacs.github.io/jcs-elpa/packages/")))
  (package-initialize)
  (unless package-archive-contents
    (package-refresh-contents))

  (defvar my-missing-packages '()
    "List populated at each startup.
  Contains the list of packages that need to be installed.")

  (dolist (p my-package-list)
    (when (not (package-installed-p p))
      (add-to-list 'my-missing-packages p)))

  (when my-missing-packages
    (message "Emacs is now refreshing its package database...")
    (package-refresh-contents)
    ;; Install the missing packages
    (dolist (p my-missing-packages)
      (message "Installing `%s' .." p)
      (package-install p))
    (setq my-missing-packages '()))

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

  ;; set and load custom.el
  (setq custom-file (concat user-emacs-directory "custom.el"))
  (load custom-file 'noerror)
#+end_src

* UI Settings
** Basic UI
Fonts and basic appearance settings
#+begin_src emacs-lisp
  (setq inhibit-startup-message nil)
  ;; Transparency
  (set-frame-parameter (selected-frame) 'alpha '(90 95))
  (add-to-list 'default-frame-alist '(alpha 90 90))

  (add-hook 'dired-mode-hook 'all-the-icons-dired-mode)


  (if is-zeus
      (display-battery-mode 0)
    (display-battery-mode 1))

  (scroll-bar-mode -1)
  (tool-bar-mode -1)
  (tooltip-mode -1)
  (set-fringe-mode 10)
  (menu-bar-mode -1)
  (which-key-mode 1)
  (blink-cursor-mode -1)
  (menu-bar--visual-line-mode-enable)
  (global-visual-line-mode 1)

  (require 'emojify)
  (global-emojify-mode 1)

  (setq visible-bell t)


  (column-number-mode)
  (global-display-line-numbers-mode 0)
  (menu-bar--display-line-numbers-mode-relative)
  ;;Disable line numbers for some modes
  (dolist (mode '(pdf-view-mode-hook
		  org-mode-hook
		  term-mode-hook
		  shell-mode-hook
		  eshell-mode-hook
		  vterm-mode-hook
		  elfeed))
    (add-hook mode (lambda () (display-line-numbers-mode 0))))

  (defvar apollo/default-font-size 140)
  (when is-hermes 
    (setq apollo/default-font-size 120))

  (set-face-attribute 'default nil
		      :font "JetBrains Mono"
		      :height apollo/default-font-size)

  (set-face-attribute 'fixed-pitch nil
		      :font "JetBrains Mono"
		      :height apollo/default-font-size)

  (set-face-attribute 'variable-pitch nil
		      :font "JetBrains Mono"
		      :height apollo/default-font-size
		      :weight 'regular)

#+end_src
** Dashboard
#+begin_src emacs-lisp
  (require 'dashboard)
  (require 'all-the-icons)

  (dashboard-setup-startup-hook)
  (setq dashboard-items '((recents  . 5)
			  (bookmarks . 5)))
			  
  (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))
	dashboard-item-names '(("Recent Files:" . "Recent Files:")
			       ("Bookmarks:" . "Study:")))
  ;; Set the banner
  (setq dashboard-startup-banner "~/dotfiles/pictures/medicine/plague-doctor-s.png")
  ;; Set the title
  (setq dashboard-banner-logo-title "Is that a flying flower?")
  ;; (setq dashboard-init-info "Bring me your sick and wounded!")

  (setq dashboard-set-init-info t
	dashboard-center-content t
	dashboard-set-navigator t
	dashboard-set-heading-icons t
	dashboard-set-file-icons t
	dashboard-show-shortcuts nil
	dashboard-set-footer t
	dashboard-footer-messages '("Welcome to the Church Of Emacs")
	dashboard-footer-icon (all-the-icons-octicon "broadcast"
						     :height 1.15
						     :v-adjust -0.05
						     :face 'font-lock-keyword-face))
#+end_src
** Theme & modeline
#+begin_src emacs-lisp
  (load-theme 'doom-ayu-dark t)
  (doom-modeline-mode 1)

  (setq doom-modeline-height 35)
#+end_src
** Ivy
#+begin_src emacs-lisp
  (use-package ivy
    :diminish
    :bind (("C-s" . swiper)
	   :map ivy-minibuffer-map
	   ("TAB" . ivy-alt-done)
	   ("C-l" . ivy-alt-done)
	   ("C-j" . ivy-next-line)
	   ("C-k" . ivy-previous-line)
	   :map ivy-switch-buffer-map
	   ("C-k" . ivy-previous-line)
	   ("C-l" . ivy-done)
	   ("C-d" . ivy-switch-buffer-kill)
	   :map ivy-reverse-i-search-map
	   ("C-k" . ivy-previous-line)
	   ("C-d" . ivy-reverse-i-search-kill))
    :config
    (ivy-mode 1)
    (setq ivy-use-selectable-prompt t))

  (ivy-rich-mode 1)
  (all-the-icons-ivy-rich-mode 1)  
#+end_src
** Helpful
#+begin_src emacs-lisp
(use-package helpful
  :custom
  (counsel-describe-function-function #'helpful-callable)
  (counsel-describe-variable-function #'helpful-variable)
  :bind
  ([remap describe-function] . counsel-describe-function)
  ([remap describe-command] . helpful-command)
  ([remap describe-variable] . counsel-describe-variable)
  ([remap describe-key] . helpful-key))
#+end_src
* Dired
** All-the-icons.el
#+begin_src emacs-lisp
;;; all-the-icons-dired.el --- Shows icons for each file in dired mode  -*- lexical-binding: t; -*-

;;; Code:

(require 'cl-lib)
(require 'dired)
(require 'all-the-icons)

(defface all-the-icons-dired-dir-face
  '((((background dark)) :foreground "white")
    (((background light)) :foreground "black"))
  "Face for the directory icon"
  :group 'all-the-icons-faces)

(defcustom all-the-icons-dired-v-adjust 0.01
  "The default vertical adjustment of the icon in the dired buffer."
  :group 'all-the-icons
  :type 'number)

(defvar all-the-icons-dired-mode)

(defun all-the-icons-dired--add-overlay (pos string)
  "Add overlay to display STRING at POS."
  (let ((ov (make-overlay (1- pos) pos)))
    (overlay-put ov 'all-the-icons-dired-overlay t)
    (overlay-put ov 'after-string string)))

(defun all-the-icons-dired--overlays-in (beg end)
  "Get all all-the-icons-dired overlays between BEG to END."
  (cl-remove-if-not
   (lambda (ov)
     (overlay-get ov 'all-the-icons-dired-overlay))
   (overlays-in beg end)))

(defun all-the-icons-dired--overlays-at (pos)
  "Get all-the-icons-dired overlays at POS."
  (apply #'all-the-icons-dired--overlays-in `(,pos ,pos)))

(defun all-the-icons-dired--remove-all-overlays ()
  "Remove all `all-the-icons-dired' overlays."
  (save-restriction
    (widen)
    (mapc #'delete-overlay
          (all-the-icons-dired--overlays-in (point-min) (point-max)))))

(defun all-the-icons-dired--refresh ()
  "Display the icons of files in a dired buffer."
  (all-the-icons-dired--remove-all-overlays)
  (save-excursion
    (goto-char (point-min))
    (while (not (eobp))
      (when (dired-move-to-filename nil)
        (let ((file (dired-get-filename 'relative 'noerror)))
          (when file
            (let ((icon (if (file-directory-p file)
                            (all-the-icons-icon-for-dir file
                                                        :face 'all-the-icons-dired-dir-face
                                                        :v-adjust all-the-icons-dired-v-adjust)
                          (all-the-icons-icon-for-file file :v-adjust all-the-icons-dired-v-adjust))))
              (if (member file '("." ".."))
                  (all-the-icons-dired--add-overlay (point) "  \t")
                (all-the-icons-dired--add-overlay (point) (concat icon "\t")))))))
      (forward-line 1))))

(defun all-the-icons-dired--refresh-advice (fn &rest args)
  "Advice function for FN with ARGS."
  (apply fn args)
  (when all-the-icons-dired-mode
    (all-the-icons-dired--refresh)))

(defun all-the-icons-dired--setup ()
  "Setup `all-the-icons-dired'."
  (when (derived-mode-p 'dired-mode)
    (setq-local tab-width 1)
    (advice-add 'dired-readin :around #'all-the-icons-dired--refresh-advice)
    (advice-add 'dired-revert :around #'all-the-icons-dired--refresh-advice)
    (advice-add 'dired-internal-do-deletions :around #'all-the-icons-dired--refresh-advice)
    (advice-add 'dired-insert-subdir :around #'all-the-icons-dired--refresh-advice)
    (advice-add 'dired-do-kill-lines :around #'all-the-icons-dired--refresh-advice)
    (with-eval-after-load 'dired-narrow
      (advice-add 'dired-narrow--internal :around #'all-the-icons-dired--refresh-advice))
    (all-the-icons-dired--refresh)))

(defun all-the-icons-dired--teardown ()
  "Functions used as advice when redisplaying buffer."
  (advice-remove 'dired-readin #'all-the-icons-dired--refresh-advice)
  (advice-remove 'dired-revert #'all-the-icons-dired--refresh-advice)
  (advice-remove 'dired-internal-do-deletions #'all-the-icons-dired--refresh-advice)
  (advice-remove 'dired-narrow--internal #'all-the-icons-dired--refresh-advice)
  (advice-remove 'dired-insert-subdir #'all-the-icons-dired--refresh-advice)
  (advice-remove 'dired-do-kill-lines #'all-the-icons-dired--refresh-advice)
  (all-the-icons-dired--remove-all-overlays))

;;;###autoload
(define-minor-mode all-the-icons-dired-mode
  "Display all-the-icons icon for each files in a dired buffer."
  :lighter " all-the-icons-dired-mode"
  (when (and (derived-mode-p 'dired-mode) (display-graphic-p))
    (if all-the-icons-dired-mode
        (all-the-icons-dired--setup)
      (all-the-icons-dired--teardown))))
#+end_src

Hook with ~dired-mode~
#+begin_src emacs-lisp
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode)
#+end_src
* Terminals
** Vterm
#+begin_src emacs-lisp
  (use-package vterm
    :ensure nil)

  (use-package multi-vterm
    :ensure nil
    :config
    (setq multi-vterm-dedicated-window-height 25))
#+end_src
** Eshell
#+begin_src emacs-lisp
  (use-package eshell
    :ensure nil
    :bind (("C-c e" . 'eshell))
    :config
    (defvar eshell-path-env (getenv "~/.local/bin")))

  (defun with-face (str &rest face-plist)
    (propertize str 'face face-plist))

  (defun apollo-eshell-prompt ()
    (let ((winter-blue "#3F3B6C")
	  (white-summer "#E5E5CB")
	  (green-night "#03C988")
	  (orange-summer "#FFB100")
	  (green-summer "#A3BB98")
	  (summer-sea "#2192FF")
	  (black "#000000"))
      (concat
       (with-face (concat "[" user-login-name) :foreground orange-summer :background black)
       (with-face "@" :foreground orange-summer :background black)
       (with-face (concat system-name "]\n") :foreground orange-summer :background black)
       (with-face (concat "|" (eshell/pwd) ) :foreground "#F0E9D2" :background winter-blue)
       (with-face (format-time-string " | %H:%M" (current-time)) :background winter-blue :foreground "#888")
       (with-face "\n -> "))))

  ;; (setq eshell-prompt-function 'apollo-eshell-prompt)
  ;; (setq eshell-highlight-prompt t)  
#+end_src
* Org-mode Configuration
** org-make-toc
#+begin_src emacs-lisp
  (add-hook 'org-mode-hook 'org-make-toc-mode)
#+end_src
** Themes
*** Dracula
#+begin_src emacs-lisp
(defun apollo/org-theme-dracula ()
  "Enable Dracula theme for Org headers."
  (interactive)
  (dolist
      (face
       '((org-level-1 1.7 "#8be9fd" extra-bold)
         (org-level-2 1.6 "#bd93f9" extra-bold)
         (org-level-3 1.5 "#50fa7b" bold)
         (org-level-4 1.4 "#ff79c6" semi-bold)
         (org-level-5 1.3 "#9aedfe" normal)
         (org-level-6 1.2 "#caa9fa" normal)
         (org-level-7 1.1 "#5af78e" normal)
         (org-level-8 1.0 "#ff92d0" normal)))
    (set-face-attribute (nth 0 face) nil
			:font "JetBrains Mono"
			:weight (nth 3 face)
			:height (nth 1 face)
			:foreground (nth 2 face)))
  (set-face-attribute 'org-table nil
		      :font "JetBrains Mono"
		      :weight 'normal
		      :height 1.0
		      :foreground "#bfafdf"))
#+end_src
*** Darkone
#+begin_src emacs-lisp
(defun apollo/org-theme-darkone ()
  "Enable Darkone theme for Org headers."
  (interactive)
  (dolist
      (face
       '((org-level-1 1.70 "#51afef" bold)
         (org-level-2 1.55 "#7FBCD2" bold)
         (org-level-3 1.40 "#da8548" bold)
         (org-level-4 1.20 "#da8548" semi-bold)
         (org-level-5 1.20 "#5699af" normal)
         (org-level-6 1.20 "#a9a1e1" normal)
         (org-level-7 1.10 "#46d9ff" normal)
         (org-level-8 1.00 "#ff6c6b" normal)))
    (set-face-attribute (nth 0 face) nil
			:font "Jetbrains Mono"
			:weight (nth 3 face)
			:height (nth 1 face)
			:foreground (nth 2 face)))
  (set-face-attribute 'org-table nil
		      :font "Jetbrains Mono"
		      :weight 'normal
		      :height 1.0
		      :foreground "#A66CFF"))
#+end_src
*** Gruvbox
#+begin_src emacs-lisp
  (defun apollo/org-theme-gruvbox ()
    "Enable Darkone theme for Org headers."
    (interactive)
    (dolist
	(face
	 '((org-level-1 1.70 "#fb4934" bold)
	   (org-level-2 1.55 "#98971a" bold)
	   (org-level-3 1.40 "#458588" bold)
	   (org-level-4 1.20 "#b16286" semi-bold)
	   (org-level-5 1.20 "#689d6a" normal)
	   (org-level-6 1.20 "#d3869b" normal)
	   (org-level-7 1.10 "#8ec07c" normal)
	   (org-level-8 1.00 "#ebdbb2" normal)))
      (set-face-attribute (nth 0 face) nil
			  :font "Jetbrains Mono"
			  :weight (nth 3 face)
			  :height (nth 1 face)
			  :foreground (nth 2 face)))
    (set-face-attribute 'org-table nil
			:font "Jetbrains Mono"
			:weight 'normal
			:height 1.0
			:foreground "#A66CFF"))
#+end_src
*** Org Modern
#+begin_src emacs-lisp
  (modify-all-frames-parameters
   '((right-divider-width . 5)
     (internal-border-width . 5)))
  (dolist (face '(window-divider
                  window-divider-first-pixel
                  window-divider-last-pixel))
    (face-spec-reset-face face)
    (set-face-foreground face (face-attribute 'default :background)))
  (set-face-background 'fringe (face-attribute 'default :background))

  (setq
   ;; Edit settings
   org-auto-align-tags nil
   org-tags-column 0
   org-catch-invisible-edits 'show-and-error
   org-special-ctrl-a/e t
   org-insert-heading-respect-content t

   ;; Org styling, hide markup etc.
   org-hide-emphasis-markers t
   org-pretty-entities t

   ;; Agenda styling
   org-agenda-tags-column 0
   org-agenda-block-separator ?─
   org-agenda-time-grid
   '((daily today require-timed)
     (800 1000 1200 1400 1600 1800 2000)
     " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
   org-agenda-current-time-string
   "⭠ now ─────────────────────────────────────────────────")

  (global-org-modern-mode)
#+end_src
** Settings
#+begin_src emacs-lisp
  (require 'ox-md nil t)

  (setq org-directory "~/org/"
	org-agenda-files '("~/org/agenda.org")
	org-default-notes-file (expand-file-name "notes.org" org-directory)
	org-ellipsis " ▼ "
	org-log-done 'time
	org-hide-emphasis-markers nil ;;change to t to hide emphasis markers
	org-table-convert-region-max-lines 20000
	org-agenda-start-log-mode t
	org-log-done 'time
	org-log-into-drawer t
	org-indent-mode t
	org-todo-keywords        ;; This overwrites the default Doom org-todo-keywords
	'((sequence
	   "TODO(t)"           ;; A task that is ready to be tackled
	   "BLOG(b)"           ;; Blog writing assignments
	   "GYM(g)"            ;; Things to accomplish at the gym
	   "WAIT(w)"           ;; Something is holding up this task
	   "|"                 ;; The pipe necessary to separate "active" states and "inactive" states
	   "DONE(d)"           ;; Task has been completed
	   "CANCELLED(c)" ))
	org-superstar-headline-bullets-list '("◉" "●" "○" "●" "○" "●" "◆")
	org-superstar-itembullet-alist '((?+ . ?➤) (?- . ?✦))) ;; changes +/- symbols in item lists)

  ;; Hooks
  (add-hook 'org-mode-hook 'apollo/org-theme-gruvbox)
  (add-hook 'org-mode-hook 'flyspell-mode)
  (add-hook 'org-mode-hook 'toc-org-mode)
#+end_src
** Babel

#+begin_src emacs-lisp
  (defadvice org-edit-src-code (around set-buffer-file-name activate compile)
    (let ((file-name (buffer-file-name))) ;; (1)
      ad-do-it                            ;; (2)
      (setq buffer-file-name file-name))) ;; (3)

  (org-babel-do-load-languages
   'org-babel-load-languages
   '((emacs-lisp . t)
     (python . t)))

  (add-to-list 'org-structure-template-alist '("ex" . "SRC EXAMPLE"))
  (add-to-list 'org-structure-template-alist '("b" . "src bash"))
  (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
  (add-to-list 'org-structure-template-alist '("py" . "src python"))
  (add-to-list 'org-structure-template-alist '("li" . "src lisp"))

  ;;Auto tangle
  (add-hook 'org-mode-hook 'org-auto-tangle-mode)
#+end_src

* Markdown
** Theme
#+begin_src emacs-lisp
(defun apollo/markdown-theme ()
  (interactive)
  (dolist
      (face
       '(markdown-header-face-1 :height 2.0))))
#+end_src
** Settings
#+begin_src emacs-lisp
(setq markdown-header-scaling t)


(use-package markdown-mode
  :ensure t
  :mode (".md" . gfm-mode)
  :init (setq markdown-command "multimarkdown"))
#+end_src
* Programming
** Essentials
#+begin_src emacs-lisp
(electric-pair-mode 1)
(global-flycheck-mode)

(use-package company
  :after lsp-mode
  :hook (lsp-mode . company-mode)
  :bind (:map company-active-map
         ("<tab>" . company-complete-selection))
        (:map lsp-mode-map
         ("<tab>" . company-indent-or-complete-common))
  :custom
  (company-minimum-prefix-length 1)
  (company-idle-delay 0.0))

(use-package dap-mode
  :custom
  (lsp-enable-dap-auto-configure nil)
  :config
  (dap-ui-mode 1))

(use-package company-box
  :hook (company-mode . company-box-mode))  
#+end_src
*** Magit
#+begin_src emacs-lisp
(use-package magit
  :custom
  (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))
#+end_src
** Emacs lisp
#+begin_src emacs-lisp
(setq tab-always-indent 'complete)
(add-to-list 'completion-styles 'initials t)

(add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode)
(add-hook 'scheme-mode-hook #'rainbow-delimiters-mode)
#+end_src
** Common Lisp
#+begin_src emacs-lisp
  (use-package slime
    :ensure t
    :config
    (setq inferior-lisp-program "sbcl"))
#+end_src
** LSP
#+begin_src emacs-lisp
(defun apollo/lsp-mode-setup ()
  (setq lsp-headerline-breadcrumb-segments '(path-up-to-project file symbols))
  (lsp-headerline-breadcrumb-mode))

(use-package lsp-mode
  :commands (lsp lsp-deferred)
  :hook (lsp-mode . apollo/lsp-mode-setup)
  :init
  (setq lsp-keymap-prefix "C-c l")  ;; Or 'C-l', 's-l'
  :config
  (lsp-enable-which-key-integration t)
  (setq lsp-pyls-server-command "~/.local/bin/pylsp"))

(use-package lsp-ui
  :hook (lsp-mode . lsp-ui-mode)
  :custom
  (lsp-ui-doc-position 'bottom))  
#+end_src
** Python
#+begin_src emacs-lisp
(use-package python-mode
    :ensure t
    :mode ".py"
    :hook (python-mode . lsp-deferred)
    :custom
    (dap-python-debugger 'debugpy)
    :config
    (require 'dap-python))

(use-package pyvenv
  :config
  (pyvenv-mode 1))    
#+end_src
** JSON
#+begin_src emacs-lisp
(use-package json-mode
    :mode ".json"
    :hook (json-mode . lsp-deferred))
#+end_src
** Javascript
#+begin_src emacs-lisp
(use-package rjsx-mode
  :mode ".js"
  :hook (rjsx-mode . lsp-deferred)
  :config
  (defadvice js-jsx-indent-line (after js-jsx-indent-line-after-hack activate)
  "Workaround sgml-mode and follow airbnb component style."
  (save-excursion
    (beginning-of-line)
    (if (looking-at-p "^ +\/?> *$")
        (delete-char sgml-basic-offset)))))
#+end_src
* Elfeed
** Feeds
#+begin_src emacs-lisp
  (require 'elfeed)
  (require 'elfeed-goodies)
  (setq elfeed-feeds (quote
		      (
		       ("https://hackaday.com/blog/feed/"
			hackaday linux)
		       ("https://thanosapollo.com/public/feed.xml"
			me)
		       ("https://protesilaos.com/news.xml"
			protesilaos)
		       ("https://protesilaos.com/codelog.xml"
			proetesilaos)
		       ("https://guix.gnu.org/feeds/blog.atom"
			gnu guix)
		       ("https://thanosapollo.com/posts/index.xml"
			thanos me)
		       ("https://rss.nytimes.com/services/xml/rss/nyt/Science.xml"
			NYT science news)
		       ("https://rss.nytimes.com/services/xml/rss/nyt/Health.xml"
			NYT med news)
		       ("https://rss.nytimes.com/services/xml/rss/nyt/World.xml"
			NYT world news)
		       ("https://rss.nytimes.com/services/xml/rss/nyt/US.xml"
			NYT us news)
		       ("https://www.addtoany.com/add_to/feed?linkurl=http%3A%2F%2Fwww.thelancet.com%2Frssfeed%2Flancet_current.xml&type=feed&linkname=The%20Lancet%20Current%20Issue&linknote="
			lancet med)
		       ("http://nullprogram.com/feed/"
			emacs linux)
		       ("https://drewdevault.com/blog/index.xml"
			sourcehut drewdevault)
		       ("https://spacepub.space/feeds/videos.xml?videoChannelId=2"
			drewdevault youtube)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCVls1GmFKf6WlTraIb_IaJg"
			video dt)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UC7YOGHUfC1Tb6E4pudI9STA"
			video mental)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCAiiOTio8Yu69c3XnR7nQBQ"
			video daviwil)
		       ("https://videos.lukesmith.xyz/feeds/videos.atom?sort=-publishedAt&isLocal=true"
			video luke)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCrc2iv2-G1FZ3VscM3zu2jg"
			video zoogirl)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UC0uTPqBCFIpZxlz_Lv1tk_g"
			video prot)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCq6VFHwMzcMXbuKyG7SQYIg"
			video moist)
		       ("https://www.youtube.com/feeds/videos.xml?channel_id=UC05XpvbHZUQOfA6xk4dlmcw"
			video djware)
		       ("https://archlinux.org/feeds/news/"
			ArchLinux Latest))))

#+end_src
** Settings & Keys
#+begin_src emacs-lisp
  (defun elfeed-v-mpv (url)
    "Watch a video from URL in MPV" 
    (async-shell-command (format "mpv \"%s\"" url)))

  (defun elfeed-view-mpv (&optional use-generic-p)
    "Youtube-feed link"
    (interactive "P")
    (let ((entries (elfeed-search-selected)))
      (cl-loop for entry in entries
	       do (elfeed-untag entry 'unread)
	       when (elfeed-entry-link entry) 
	       do (elfeed-v-mpv it)) 
      (mapc #'elfeed-search-update-entry entries) 
      (unless (use-region-p) (forward-line))))

  (define-key elfeed-search-mode-map (kbd "v") 'elfeed-view-mpv)
  (define-key elfeed-search-mode-map (kbd "U") 'elfeed-update)


  (setq elfeed-goodies/entry-pane-size 0.65)
  (elfeed-goodies/setup)
#+end_src

* PDF
#+begin_src emacs-lisp

;;Add pdf-isearch-minor-mode hook, otherwise isearch will be buggy
;;Darkmode hook, cause I don't want color or light in my life, I'm a vampire.
(add-hook 'pdf-view-mode-hook 'pdf-isearch-minor-mode)
(add-hook 'pdf-view-mode-hook 'pdf-view-midnight-minor-mode)
(add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
#+end_src
* mu4e 

#+begin_src emacs-lisp
  ;; Check if we have mu4e available
  ;; if t load mu4e settings
  (when (require 'mu4e nil 'noerror)
    (setq mu4e-update-interval (* 10 60))
    (setq mu4e-get-mail-command "mbsync -a")
    (setq mu4e-maildir-list "~/Mail/Inbox")

    (defun set-mu4e-context (context-name full-name mail-address signature server)
      "Return a mu4e context named CONTEXT-NAME with :match-func matching
    folder name CONTEXT-NAME in Maildir. The context's `user-mail-address',
    `user-full-name' and `mu4e-compose-signature'`smtpmail-smpt-server' is set to MAIL-ADDRESS
    FULL-NAME SIGNATURE and SERVER respectively.
    Special folders are set to context specific folders."
      (let ((dir-name (concat "/" context-name)))
	(make-mu4e-context
	 :name context-name
	 ;; we match based on the maildir of the message
	 :match-func
	 `(lambda (msg)
	    (when msg
	      (string-match-p
	       ,(concat "^" dir-name)
	       (mu4e-message-field msg :maildir))))
	 :vars
	 `((user-mail-address    . ,mail-address)
	   (user-full-name       . ,full-name)
	   (mu4e-sent-folder     . ,(concat dir-name "/Sent"))
	   (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))
	   (mu4e-trash-folder    . ,(concat dir-name "/Trash"))
	   (mu4e-trash-folder    . ,(concat dir-name "/Starred"))
	   (mu4e-refile-folder   . ,(concat dir-name "/Archive"))
	   (smtpmail-smtp-service . ,465)
	   (smtpmail-smtp-server . ,server)
	   (mu4e-compose-signature . ,signature)))))
    ;;Fixing duplicate UID errors when using mbsync and mu4e
    (setq mu4e-change-filenames-when-moving t)

    (setq mu4e-maildir-shortcuts
	  '(("/Fastmail/Inbox"             . ?i)
	    ("/Fastmail/Sent" . ?s)
	    ))

    (setq mu4e-contexts
	  `(, (set-mu4e-context
	       "Fastmail" "Thanos Apollo"
	       "[email protected]" "Thanos\nhttps://thanosapollo.com"
	       "smtp.fastmail.com")))

    ;; (setq smtpmail-smtp-service 465
    ;;       smtpmail-stream-type  'ssl
    ;;       smtpmail-smtp-server "smtp.fastmail.com")



    (setq message-send-mail-function 'smtpmail-send-it
	  smtpmail-stream-type 'ssl))


#+end_src

* Eshell
#+begin_src emacs-lisp
  ;;;; sudo completion
  (defun pcomplete/sudo ()
    "Completion rules for the `sudo' command."
    (let ((pcomplete-ignore-case t))
      (pcomplete-here (funcall pcomplete-command-completion-function))
      (while (pcomplete-here (pcomplete-entries)))))

  ;;;; systemctl completion
  (defcustom pcomplete-systemctl-commands
    '("disable" "enable" "status" "start" "restart" "stop" "reenable"
      "list-units" "list-unit-files")
    "p-completion candidates for `systemctl' main commands"
    :type '(repeat (string :tag "systemctl command"))
    :group 'pcomplete)

  (defvar pcomplete-systemd-units
    (split-string
     (shell-command-to-string
      "(systemctl list-units --all --full --no-legend;systemctl list-unit-files --full --no-legend)|while read -r a b; do echo \" $a\";done;"))
    "p-completion candidates for all `systemd' units")

  (defvar pcomplete-systemd-user-units
    (split-string
     (shell-command-to-string
      "(systemctl list-units --user --all --full --no-legend;systemctl list-unit-files --user --full --no-legend)|while read -r a b;do echo \" $a\";done;"))
    "p-completion candidates for all `systemd' user units")

  (defun pcomplete/systemctl ()
    "Completion rules for the `systemctl' command."
    (pcomplete-here (append pcomplete-systemctl-commands '("--user")))
    (cond ((pcomplete-test "--user")
	   (pcomplete-here pcomplete-systemctl-commands)
	   (pcomplete-here pcomplete-systemd-user-units))
	  (t (pcomplete-here pcomplete-systemd-units))))

  ;;;; man completion
  (defvar pcomplete-man-user-commands
    (split-string
     (shell-command-to-string
      "apropos -s 1 .|while read -r a b; do echo \" $a\";done;"))
    "p-completion candidates for `man' command")

  (defun pcomplete/man ()
    "Completion rules for the `man' command."
    (pcomplete-here pcomplete-man-user-commands))

  ;; hut completion
  (defcustom pcomplete-hut-commands
    '("builds" "export" "git" "graphql" "lists" "help" "hg"
      "init" "meta" "pages" "paste" "todo")
    "p-completion candidates for `hut' main commands"
    :type '(repeat (string :tag "hut command"))
    :group 'pcomplete)

  (defvar pcomplete-hut-user-commands
    (split-string
     (shell-command-to-string
      "hut |while read -r a b; do echo \" $a\";done;"))
    "p-completion candidates for `hut' command")

  (defun apollo/hut ()
    "Replace."
    (replace-match "Usage:" "Someasdf"))

  (defun pcomplete/hut ()
    "Completion rules for `hut' command"
    (pcomplete-here (append pcomplete-hut-user-commands)))
#+end_src
* Misc
** Random functions
#+begin_src emacs-lisp
  (defun apollo/html-boostrap-boilerplate ()
    "Insert html boilerplate with boostrap link."
    (interactive)
    (insert
  "<!DOCTYPE html>
  <html lang=\"en\">
    <head>
      <meta charset=\"UTF-8\">
      <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">
      <meta http-equiv=\"X-UA-Compatible\" content=\"ie=edge\">
      <title>My Title</title>
      <link rel=\"stylesheet\" href=\"./style.css\">
      <link href=\"https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css\" rel=\"stylesheet\" integrity=\"sha384-Zenh87qX5JnK2Jl0vWa8Ck2rdkQ2Bzep5IDxbcnCeuOxjzrPF/et3URy9Bv1WTRi\" crossorigin=\"anonymous\">
   p </head>
    <body>
      <main>
	  <h1>Starting point</h1>
      </main>
	  <script src=\"index.js\"></script>
    </body>
  </html>" ))


  (defun apollo/center-buffer ()
    "Centers/Uncenters selected buffer"
    (interactive)
    (if visual-fill-column-center-text
	(setq visual-fill-column-center-text nil)
      (setq visual-fill-column-center-text t))
    (visual-fill-column-mode 1)
    (message "General's task completed!"))


  (defun apollo/rofi-switch-window ()
    "Navigate X11 buffers using rofi."
    (interactive)
    (start-process-shell-command
     "rofi" nil "rofi -show window"))

  (defun apollo/run-in-background (command)
    "Run COMMAND in the background."
    (let ((command-parts (split-string command "[ ]+")))
      (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))

  (defun rofi ()
    "Run Rofi."
    (interactive)
    (apollo/run-in-background "rofi -show drun"))

  (defun apollo/volume-increase ()
    "Increase Volume."
    (interactive)
    (start-process-shell-command
     "amixer" nil "amixer sset Master 5%+"))

  (defun apollo/volume-decrease ()
    "Decrease Volume."
    (interactive)
    (start-process-shell-command
     "amixer" nil "amixer sset Master 5%-"))

  (defun apollo/restore-wallpaper ()
    "Set NAME as wallpaper."
    (interactive)
    (start-process-shell-command
     "feh" nil  "feh --bg-scale ~/dotfiles/wallpaper.png"))

  (defun apollo/emacs-keys ()
      "Swap caps with ctrl."
      (interactive)
      (start-process-shell-command
       "setxkbmap" nil "setxkbmap us -option ctrl:swapcaps"))

  (defun apollo/greek-keyboard ()
      "Swap caps with ctrl."
      (interactive)
      (start-process-shell-command
       "setxkbmap" nil "setxkbmap gr"))

  (defun apollo/exwm-update-class ()
    (exwm-workspace-rename-buffer exwm-class-name))

  (defun eshell-new()
    "Open a new instance of eshell."
    (interactive)
    (eshell 'N))

  (defun make-mini-geiser ()
    (interactive)
    (split-window-below 60)
    (geiser nil))

  (defun start-polybar ()
    "Check which system is running, start polybar accordingly."
    (interactive)
    (if (string= (system-name) "fsociety")
	(start-process-shell-command
	 "polybar" nil "polybar main & polybar second")
      (start-process-shell-command
       "polybar" nil "polybar main")))

  (defun create-keimenografos ()
    "create a scratch buffer"
    (interactive)
    (switch-to-buffer (get-buffer-create "*Keimenografos*"))
    (text-mode))

  (defun create-scratch ()
    (interactive)
    (switch-to-buffer (get-buffer-create "*scratch*"))
    (emacs-lisp-mode))
#+end_src
** Keybindings
#+begin_src emacs-lisp
  (define-key dired-mode-map "b" 'dired-up-directory)

  (global-set-key (kbd "<escape>") 'keyboard-escape-quit)

  (global-set-key (kbd "C-c c") 'copy-region-as-kill)

  ;; Pass
  (global-set-key (kbd "C-c p i") 'password-store-insert)
  (global-set-key (kbd "C-c p e") 'password-store-edit)



  (define-prefix-command 'thanos/applications-map)
  (define-key thanos/applications-map (kbd "q") 'chatgpt-query)
  (define-key thanos/applications-map (kbd "m") 'mu4e)
  (define-key thanos/applications-map (kbd "t") 'counsel-load-theme)
  (define-key thanos/applications-map (kbd "f") 'elfeed)
  (global-set-key (kbd "C-c a") 'thanos/applications-map)

  (define-prefix-command 'Morfi)
  (define-key thanos/applications-map (kbd "c") 'Morfi)
  (define-key Morfi (kbd "t") 'create-keimenografos)


  (defvar thanos/vterm-map (make-sparse-keymap))
  (define-prefix-command 'thanos/vterm-map)
  (define-key global-map (kbd "C-c v") 'thanos/vterm-map)
  (define-key thanos/vterm-map (kbd "n") 'multi-vterm-next)
  (define-key thanos/vterm-map (kbd "p") 'multi-vterm-prev)
  (define-key thanos/vterm-map (kbd "d") 'multi-vterm-dedicated-open)
  (define-key thanos/vterm-map (kbd "o") 'multi-vterm)
#+end_src
*** General
#+begin_src emacs-lisp

  ;; my general's leader key!
  (defconst general-key "C-c g")

  (general-create-definer general-does
    :prefix  general-key)

  ;; Basic functions
  (general-define-key
   "C-d" 'kill-region
   "C-k" 'copy-region-as-kill
   "C-x 9" 'make-mini-buffer
   "C-c l e" 'apollo/emacs-keys
   ;;Change keyboard layouts/language
   "C-c l g" 'apollo/greek-keyboard
   "C-κ" 'apollo/emacs-keys
   "C-x C-b" 'ibuffer)



  ;; My Generals does:
  (general-does
    "t" 'counsel-load-theme
    "l" 'display-line-numbers-mode
    "v" 'multi-vterm
    "e" 'eshell
    "c" 'apollo/center-buffer
    "m" 'mu4e
    "f" 'elfeed)

  ;;pdf-tools
  (general-define-key
   :keymaps 'pdf-view-mode-map
   "C-c d" 'pdf-view-midnight-minor-mode
   "C-s" 'isearch-forward
   "C-o" 'pdf-isearch-occur)

  ;;vterm 
  (general-does
    :keymaps 'vterm-mode-map
    "n" 'multi-vterm-next
    "o" 'multi-vterm
    "p" 'multi-vterm-prev)

  (general-does
    :keymaps 'eshell-mode-map
    "n" 'eshell-new)

  (general-does
    :keymaps 'org-mode-map
    "3" 'org-insert-image-size-300)  
#+end_src
** ChatGPT
#+begin_src emacs-lisp
  (setq openai-key (password-store-get "chatgpt/api"))
#+end_src
** Circe
#+begin_src emacs-lisp
  (use-package circe
    :ensure t
    :config
    (setq circe-network-options
	`(("Libera Chat"
	   :host "irc.libera.chat" :port 6697 :tls t
	   :nick "thanosapollo"
	   :sasl-username "thanos_apollo"
	   :channels ("#emacs" "#emacs-circe")
	   :sasl-password ,(password-store-get "liberachat/thanos_apollo")
	   )))
    (define-key thanos/applications-map (kbd "i") 'circe))
#+end_src