Redo org files under /org

Create a build-docs.el that publishes org configurations under /org to
./ as markdown, making easy to view on sourcehut

1 files changed, 0 insertions, 1359 deletions

diff --git a/emacs.org b/emacs.org
deleted file mode 100755
index 1163aa5..0000000
--- a/emacs.org
+++ /dev/null
@@ -1,1359 +0,0 @@
-#+TITLE: Emacs Configuration
-#+PROPERTY: header-args :tangle .emacs.d/init.el
-#+auto_tangle: t
-#+OPTIONS: num:nil toc:nil
-#+STARTUP: overview
-
-* Table of contents :TOC:
-- [[#system-information][System information]]
-- [[#setting-up-packages][Setting up Packages]]
-  - [[#setup-for-guixsd-machines][Setup for GuixSD machines]]
-  - [[#define-and-install-packages][Define and install packages]]
-- [[#ui-settings][UI Settings]]
-  - [[#basic-ui][Basic UI]]
-  - [[#dashboard][Dashboard]]
-  - [[#theme--modeline][Theme & modeline]]
-  - [[#ivy][Ivy]]
-  - [[#helpful][Helpful]]
-- [[#dired][Dired]]
-  - [[#keys][Keys]]
-  - [[#all-the-iconsel][All-the-icons.el]]
-- [[#terminals][Terminals]]
-  - [[#vterm][Vterm]]
-  - [[#eshell][Eshell]]
-- [[#custom][Custom]]
-  - [[#chatgpt][ChatGPT]]
-  - [[#random-functions][Random functions]]
-  - [[#key-bindings][Key-bindings]]
-- [[#org-mode-configuration][Org-mode Configuration]]
-  - [[#org-make-toc][org-make-toc]]
-  - [[#themes][Themes]]
-  - [[#settings][Settings]]
-  - [[#babel][Babel]]
-- [[#markdown][Markdown]]
-  - [[#theme][Theme]]
-  - [[#settings-1][Settings]]
-- [[#programming][Programming]]
-  - [[#essentials][Essentials]]
-  - [[#emacs-lisp][Emacs lisp]]
-  - [[#lsp-mode][LSP-Mode]]
-  - [[#python][Python]]
-  - [[#json][JSON]]
-  - [[#javascript][Javascript]]
-- [[#elfeed][Elfeed]]
-  - [[#feeds][Feeds]]
-  - [[#settings--keys][Settings & Keys]]
-- [[#pdf][PDF]]
-- [[#telega][Telega]]
-- [[#mu4e--email-configuration][mu4e | Email Configuration]]
-- [[#exwm][EXWM]]
-
-* 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-hephaestus (equal (system-name) "hephaestus"))
-#+end_src
-* Setting up Packages
-** Setup for GuixSD machines
-#+begin_src emacs-lisp
-  ;; When guix t, load emacs packages
-  (when (or is-zeus
-	    is-hephaestus
-    (add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp")
-    (guix-emacs-autoload-packages)))
-
-  (with-eval-after-load 'geiser-guile
-    (add-to-list 'geiser-guile-load-path "~/dotfiles/.config/guix"))
-
-  ;; Personal Information
-  (setq user-full-name "Thanos Apollo"
-	user-mail-address "[email protected]")
-
-  (setq copyright-names-regexp
-	(format "%s <%s>" user-full-name user-mail-address))
-#+end_src
-** 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
-				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
-				circe
-				eshell-syntax-highlighting
-  ;			      pdf-tools
-				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/")))
-  (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)
-  (when is-hephaestus
-    (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)
-
-  (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
-** Keys
-#+begin_src emacs-lisp
-(define-key dired-mode-map "b" 'dired-up-directory)
-#+end_src
-** 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
-*** Keys
-#+begin_src emacs-lisp
-  (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)
-#+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
-* Custom
-** ChatGPT
-#+begin_src emacs-lisp
-  (require 'seq)
-  (eval-when-compile
-    (require 'cl-lib)
-    (require 'subr-x)
-    (require 'env)
-    (require 'json))
-  (defgroup chatgpt nil
-    "ChatGPT frontend."
-    :group 'convenience
-    :prefix "chatgpt-")
-  (defcustom chatgpt-max-tokens 300
-    "Upper limit on the number of tokens the API will return."
-    :type 'integer)
-  (defvar chatgpt-buffer "*ChatGPT*"
-    "Title of the buffer used to store the results of an OpenAI API query.")
-  (define-error 'chatgpt-error "An error related to the ChatGPT emacs package")
-  (define-error 'chatgpt-parsing-error
-    "An error caused by a failure to parse an OpenAI API Response")
-  (defmacro chatgpt-show-results-buffer-if-active ()
-    "Show the results in other window if necessary."
-    `(if (and (not ;; visible
-	       (get-buffer-window chatgpt-buffer))
-	      (called-interactively-p 'interactive))
-	 (lambda (&optional buf) (ignore buf)
-	   (with-current-buffer buf
-	     (view-mode t))
-	   (switch-to-buffer-other-window chatgpt-buffer))
-       #'identity))
-  ;;;###autoload
-  (defun chatgpt-prompt (prompt callback)
-    "Query OpenAI with PROMPT calling the CALLBACK function on the resulting buffer.
-  Returns buffer containing the text from this query"
-    (interactive (list (read-string "Prompt ChatGPT with: ")
-		       (lambda (buf) (with-current-buffer buf
-				  (view-mode t))
-			 (switch-to-buffer-other-window chatgpt-buffer))))
-    (chatgpt--query-open-api prompt
-			     (lambda (results)
-			       (with-current-buffer (get-buffer-create chatgpt-buffer)
-				 ;; Erase contents of buffer after receiving response
-				 (read-only-mode -1)
-				 (erase-buffer)
-				 (insert results)
-				 ;; Return the chatgpt output buffer for non interactive usage
-				 (funcall callback (current-buffer))))))
-  ;;;###autoload
-  (defun chatgpt-fix-region (BEG END)
-    "Takes a region BEG to END asks ChatGPT to explain whats wrong with it.
-  It then displays the answer in the `chatgpt-buffer'."
-    (interactive "r")
-    (let ((current-code (buffer-substring BEG END)))
-      (chatgpt-prompt (chatgpt--append-to-prompt
-		       current-code
-		       "Why doesn't this code work?")
-		      (chatgpt-show-results-buffer-if-active))))
-  ;;;###autoload
-  (defun chatgpt-explain-region (BEG END)
-    "Takes a region BEG to END asks ChatGPT what it does.
-  The answer in the displays in `chatgpt-buffer'."
-    (interactive "r")
-    (let ((current-code (buffer-substring BEG END)))
-      (chatgpt-prompt (chatgpt--append-to-prompt
-		       current-code
-		       "What does this code do?")
-		      (chatgpt-show-results-buffer-if-active))))
-  ;;;###autoload
-  (defun chatgpt-gen-tests-for-region (BEG END)
-    "Takes a region BEG to END asks ChatGPT to write a test for it.
-  It then displays the answer in the `chatgpt-buffer'."
-    (interactive "r")
-    (let ((current-code (buffer-substring BEG END)))
-      (chatgpt-prompt (chatgpt--append-to-prompt
-		       current-code
-		       "Write me a tests for this code")
-		      (chatgpt-show-results-buffer-if-active))))
-  ;; TODO currently just says what changed but doesn't wanna show the code it's self
-  ;; (defun chatgpt-optimize-region (BEG END)
-  ;;   "Takes a region BEG to END asks ChatGPT to optimize it for speed.
-  ;; It then displays the answer in the `chatgpt-buffer'."
-  ;;   (interactive "r")
-  ;;   (let ((current-code         (buffer-substring BEG END)))
-  ;;     (chatgpt-prompt (chatgpt--append-to-prompt
-  ;;                      current-code
-  ;;                      "Refactor this code for speed and tell me what you changed and why it's faster")
-  ;;                     (chatgpt-show-results-buffer-if-active))))
-  ;;;###autoload
-  (defun chatgpt-refactor-region (BEG END)
-    "Takes a region BEG to END asks ChatGPT refactor it.
-  It then displays the answer in the `chatgpt-buffer'."
-    (interactive "r")
-    (let ((current-code         (buffer-substring BEG END)))
-      (chatgpt-prompt (chatgpt--append-to-prompt
-		       current-code
-		       "Refactor this code and tell me what you changed")
-		      (chatgpt-show-results-buffer-if-active))))
-  ;;;###autoload
-  (defun chatgpt-prompt-region (BEG END)
-    "Prompt ChatGPT with the region BEG END.
-  It then displays the results in a separate buffer `chatgpt-buffer'."
-    (interactive "r")
-    (chatgpt-prompt (buffer-substring BEG END)
-		    ;; Show the results if not already being viewed
-		    (chatgpt-show-results-buffer-if-active)))
-  ;;;###autoload
-  (defun chatgpt-prompt-region-and-replace (BEG END)
-    "Replace region from BEG to END with the response from the ChatGPT API.
-  The region is BEG and until END"
-    (interactive "r")
-    (let ((og-buf (current-buffer)))
-      (chatgpt-prompt (buffer-substring BEG END)
-		      (lambda (buf)
-			(save-excursion
-			  (with-current-buffer og-buf
-			    (delete-region BEG END)
-			    (goto-char BEG)
-			    (insert (with-current-buffer buf (buffer-string)))))))))
-  (defun chatgpt--append-to-prompt (prompt comment-str)
-    "Append the string COMMENT-STR extra information to a PROMPT as a comment."
-    (concat prompt
-	    "\n"
-	    comment-start
-	    " "
-	    comment-str))
-  (defun chatgpt--extract-text-from-query (query-result)
-    "Extract the resulting text from a given OpenAI response QUERY-RESULT."
-    (condition-case err
-	(thread-last query-result
-		     (assoc-default 'choices)
-		     seq-first
-		     (assoc-default 'text)
-		     string-trim)
-      (error
-       (signal 'chatgpt-parsing-error err))))
-  (defun chatgpt--parse-response (status callback)
-    "Ignoring STATUS and parse the response executing the CALLBACK function on the resulting string."
-    (ignore status)
-    ;; All this is ran inside the buffer containing the response
-    (goto-char 0)
-    (re-search-forward "^$")
-    (funcall callback (chatgpt--extract-text-from-query (json-read))))
-  (defun chatgpt--query-open-api (prompt callback)
-    "Send a string PROMPT to OpenAI API and pass the resulting buffer to CALLBACK.
-  The environment variable OPENAI_API_KEY is used as your API key
-  You can register an account here
-  https://beta.openai.com/docs/introduction/key-concepts"
-    (let* ((api-key sercret-api)
-	   (url-request-method (encode-coding-string "POST" 'us-ascii))
-	   (url-request-extra-headers `(("Content-Type" . "application/json")
-					("Authorization" . ,(format "Bearer %s" api-key))))
-	   (url-request-data (json-encode
-			      `(("model" . "text-davinci-003")
-				("prompt" . ,prompt)
-				("max_tokens" . ,chatgpt-max-tokens)
-				("temperature" . 0)))))
-      (cl-assert (not (string= "" api-key))
-		 t
-		 "Current contents of the environmental variable OPENAI_API_KEY
-  are '%s' which is not an appropriate OpenAI token please ensure
-  you have the correctly set the OPENAI_API_KEY variable"
-		 api-key)
-      (url-retrieve
-       "https://api.openai.com/v1/completions"
-       'chatgpt--parse-response
-       (list callback))))
-#+end_src
-** 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\">
-    </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-scratch-writter-buffer nil
-    "create a scratch buffer"
-    (interactive)
-    (switch-to-buffer (get-buffer-create "*scratch-writter*")))
-#+end_src
-** Key-bindings
-#+begin_src emacs-lisp
-  (global-set-key (kbd "<escape>") 'keyboard-escape-quit)
-  (global-set-key (kbd "s-=") 'text-scale-increase)
-  (global-set-key (kbd "s--") 'text-scale-decrease)
-  ;; Pass
-  (global-set-key (kbd "C-c p i") 'password-store-insert)
-  (global-set-key (kbd "C-c p e") 'password-store-edit)
-#+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
-    "i" 'circe
-    "c" 'apollo/center-buffer
-    "m" 'mu4e
-    "f" 'elfeed
-    "C-t" 'telega
-    "g" 'guix)
-
-  ;;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
-* 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
-** 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 'org-superstar-mode)
-  (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
-** LSP-Mode
-#+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))))
-
-#+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
-* Telega
-In ~GuixSD~ systems I have telegram installed via guix, and it's loaded via ~guix-emacs-autoload-packages~
-#+begin_src emacs-lisp
-  (use-package telega
-    :ensure nil)
-#+end_src
-
-* mu4e | Email Configuration
-
-#+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
-
-* EXWM
-EXWM configuration is tangled with ~.exwm~
-+ In GuixSD ~emacs-exwm~ package will look for ~~/.exwm~ 
-
-#+begin_src emacs-lisp :tangle .exwm.el
-
-  (defun apollo/exwm-init-hook ()
-    "Do this upon start."
-    (if (string= (system-name) "fsociety") ;; Check if it's my desktop, otherwise display battery
-	(display-battery-mode 0)
-      (display-battery-mode 1))
-
-    (setq display-time-day-and-date t)
-    (display-time-mode 1)
-
-    (exwm-firefox-holyK-mode 1)
-
-    ;;Launch apps that will run in the background
-    ;;  (apollo/run-in-background "blueman-applet")
-    (apollo/run-in-background "picom")
-    ;;  (apollo/run-in-background "nm-applet")
-    (apollo/emacs-keys)
-    (apollo/restore-wallpaper)
-    )
-
-  (defun apollo/exwm-update-class ()
-    (exwm-workspace-rename-buffer exwm-class-name))
-
-
-  (setq exwm-workspace-number 6)
-  ;; When window "class" updates, use it to set the buffer name
-  (add-hook 'exwm-update-class-hook #'apollo/exwm-update-class)
-
-  ;;When EXWM starts up, run this hook
-  (add-hook 'exwm-init-hook #'apollo/exwm-init-hook)
-  (start-process-shell-command
-   "xrandr" nil "xrandr --output DisplayPort-0 --primary --mode 2560x1440 --pos 1930x0 --rotate normal --output DisplayPort-1 --off --output DisplayPort-2 --off --output HDMI-A-0 --mode 1920x1080 --pos 0x0 --rotate normal")
-
-  ;; Set the screen resolution
-
-  (require 'exwm-randr)
-  (setq exwm-randr-workspace-monitor-plist '(0 "DP-1" 2 "HDMI-A-0"))
-  (add-hook 'exwm-randr-screen-change-hook
-	    (lambda ()
-	      (start-process-shell-command
-	       "xrandr" nil "xrandr --output DisplayPort-2 --primary --mode 2560x1440 --pos 1920x0 --rotate normal --output HDMI-A-0 --mode 1920x1080 --pos 0x0 --rotate normal" )))
-  (exwm-randr-enable)
-
-
-  ;; Load the system tray before exwm-init
-  (require 'exwm-systemtray)
-  (exwm-systemtray-enable)
-
-  ;; These keys should always pass through to Emacs
-  (setq exwm-input-prefix-keys
-	'(?\C-x
-	  ?\C-u
-	  ?\C-h
-	  ?\C-w
-	  ?\M-x
-	  ?\M-`
-	  ?\M-&
-	  ?\M-:
-	  ?\s-d
-	  ?\C-\M-j  ;; Buffer list
-	  ?\C-\
-	  ?\C-k
-	  ?\C-y
-	  ?\C-n
-	  ?\C-p
-	  ?\C-f
-	  ?\C-b
-	  ?\C-s
-	  ?\M-f
-	  ?\M-b
-	  ?\M-<
-	  ?\M->))
-
-  ;; Ctrl+Q will enable the next key to be sent directly
-  (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
-
-  ;; Set up global key bindings.  These always work, no matter the input state!
-  ;; Keep in mind that changing this list after EXWM initializes has no effect.
-  (setq exwm-input-global-keys
-	`(
-
-	  ([?\s-r] . exwm-reset)
-
-
-
-	  ;; ;; Launch applications via shell command
-	  ;; ([?\s-&] . (lambda (command)
-	  ;;              (interactive (list (read-shell-command "$ ")))
-	  ;;              (start-process-shell-command command nil command)))
-
-	  ;; Switch workspace
-	  ([?\s-e] . exwm-workspace-switch)
-	  ([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
-	  ([?\s-2] . (lambda () (interactive) (exwm-workspace-switch-create 1)))
-	  ([?\s-3] . (lambda () (interactive) (exwm-workspace-switch-create 2)))
-	  ([?\s-4] . (lambda () (interactive) (exwm-workspace-switch-create 3)))
-	  ([?\s-5] . (lambda () (interactive) (exwm-workspace-switch-create 4)))
-
-	  ,@(mapcar (lambda (i)
-		      `(,(kbd (format "s-%d" i)) .
-			(lambda ()
-			  (interactive)
-			  (exwm-workspace-switch-create ,i))))
-		    (number-sequence 0 9))))
-
-  (defun exwm-enlarge-horizontally-50 ()
-    (interactive)
-    (exwm-layout-enlarge-window-horizontally 50))
-
-  (defun exwm-shrink-horizontally-50 ()
-    "Shrink window horizontally by 10"
-    (interactive)
-    (exwm-layout-shrink-window-horizontally 50))
-
-  (defun exwm-shrink-vertically-50 ()
-    "Shrink window by 50."
-    (interactive)
-    (exwm-layout-shrink-window 50))
-
-  (defun exwm-enlarge-vertically-50 ()
-    "Enlarge window by 50."
-    (interactive)
-    (exwm-layout-enlarge-window 50))
-
-  (exwm-input-set-key (kbd "C-c d") 'dmenu)
-  (exwm-input-set-key (kbd "s-<tab>") 'rofi)
-  (exwm-input-set-key (kbd "s-Q") 'kill-emacs)
-  (exwm-input-set-key (kbd "<XF86AudioRaiseVolume>") 'apollo/volume-increase)
-  (exwm-input-set-key (kbd "<XF86AudioLowerVolume>") 'apollo/volume-decrease)
-  (exwm-input-set-key (kbd "s-0") 'apollo/emacs-keys)
-  (exwm-input-set-key (kbd "s-9") 'apollo/greek-keyboard)
-  (exwm-input-set-key (kbd "C-c C-<left>") 'exwm-shrink-horizontally-50)
-  (exwm-input-set-key (kbd "C-c C-<right>") 'exwm-enlarge-horizontally-50)
-  (exwm-input-set-key (kbd "C-c C-<up>") 'exwm-shrink-vertically-50)
-  (exwm-input-set-key (kbd "C-c C-<down>") 'exwm-enlarge-vertically-50)
-  (exwm-input-set-key (kbd "C-c C-e") 'exwm-layout-toggle-fullscreen)
-
-
-  (exwm-enable)
-#+end_src
-