prettifying emacs a bit

emacs/.config/emacs/Emacs.org

@@ -92,44 +92,23 @@
     :config
     (setq fontaine-presets
           '((regular
-             :default-height 150)
+             :default-height 130)
             (small
-             :default-height 110)
+             :default-height 80)
             (large
              :default-weight semilight
-             :default-height 180
+             :default-height 150
              :bold-weight extrabold)
             (extra-large
              :default-weight semilight
-             :default-height 210
+             :default-height 180
              :bold-weight extrabold)
             (t
-             :default-family "Iosevka Nerd Font"
+             :default-family "AdwaitaMono Nerd Font"
              :default-weight normal
-             :variable-pitch-family "Inter")))
+             :variable-pitch-family "Adwaita Sans")))
     (fontaine-set-preset 'regular))
 #+end_src
-** Ligatures
-#+begin_src emacs-lisp
-  (use-package ligature
-    :config
-    (ligature-set-ligatures 't '("www"))
-    (ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
-    (ligature-set-ligatures 'prog-mode '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
-                                         ":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
-                                         "!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
-                                         "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
-                                         "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
-                                         "..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
-                                         "~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
-                                         "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
-                                         ">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:"
-                                         "<$" "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!"
-                                         "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:"
-                                         "?=" "?." "??" ";;" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
-                                         "\\\\" "://"))
-    (global-ligature-mode t))
-#+end_src
 ** Which key
 #+begin_src emacs-lisp
   (use-package which-key
@@ -140,12 +119,6 @@
     (setq which-key-idle-delay 0.3))
 #+end_src
 ** Theme
-*** Catppuccin
-#+begin_src emacs-lisp
-    (use-package catppuccin-theme
-      :config
-      (load-theme 'catppuccin :no-confirm))
-#+end_src
 *** Modus Themes
 #+begin_src emacs-lisp
   (use-package emacs
@@ -158,6 +131,47 @@
           modus-themes-mode-line '(borderless accented moody)
           modus-themes-org-blocks 'gray-background
           modus-themes-region '(bg-only no-extend)))
+    ;; (load-theme 'modus-vivendi :no-confirm))
+#+end_src
+*** Doom Themes
+#+begin_src emacs-lisp
+  (use-package doom-themes
+    :custom
+    (doom-themes-enable-bold t)
+    (doom-themes-enable-italic t)
+    :config
+    (load-theme 'doom-gruvbox t)
+    (doom-themes-visual-bell-config)
+    (doom-themes-org-config))
+#+end_src
+*** Italic keywords
+#+begin_src emacs-lisp
+  (advice-add #'load-theme :after (lambda (&rest _) (set-face-italic 'font-lock-keyword-face t)))
+#+end_src
+** Line Numbers
+#+begin_src emacs-lisp
+  (add-hook 'prog-mode-hook 'display-line-numbers-mode)
+#+end_src
+** Modeline
+#+begin_src emacs-lisp
+  (use-package doom-modeline
+    :init (doom-modeline-mode 1))
+#+end_src
+** Smooth Scroll
+#+begin_src emacs-lisp
+  (use-package ultra-scroll
+    :init
+    (setq scroll-conservatively 3
+          scroll-margin 0)
+    :config
+    (ultra-scroll-mode 1))
+#+end_src
+* Functionality
+** Navigation
+*** Ace-Window
+#+begin_src emacs-lisp
+  (use-package ace-window
+    :bind (("M-o" . ace-window)))
 #+end_src
 * Completion
 ** Vertico
@@ -284,8 +298,8 @@
 * Languages
 ** Agda
 #+begin_src emacs-lisp
-;  (load-file (let ((coding-system-for-read 'utf-8))
+  (load-file (let ((coding-system-for-read 'utf-8))
-;                  (shell-command-to-string "agda-mode locate")))
+                  (shell-command-to-string "agda-mode locate")))
 #+end_src
 ** PG
 #+begin_src emacs-lisp
@@ -293,24 +307,24 @@
 #+end_src
 ** Idris
 #+begin_src emacs-lisp
-  (use-package idris2-mode
+  (use-package idris-mode
-    :straight (:type git
-  		   :host github
-  		   :repo "idris-community/idris2-mode"))
-#+end_src
-** C
-#+begin_src emacs-lisp
-  (use-package emacs
-    :hook
-    (c-mode . electric-pair-mode)
     :custom
-    (c-default-style '((java-mode . "java") (awk-mode . "awk") (other . "linux"))))
+    (idris-interpreter-path "idris2"))
 #+end_src
-** Prolog
+
+** Haskell
 #+begin_src emacs-lisp
-  (use-package ediprolog
+  (use-package haskell-mode)
-    :bind (("C-c C-e" . ediprolog-dwim)))
 #+end_src
+** Rust
+#+begin_src emacs-lisp
+  (use-package rust-mode
+    :init
+    (setq rust-mode-treesitter-derive t)
+    :hook
+    (rust-mode-hook . eglot-ensure))
+#+end_src
+
 * Latex
 ** Auctex
 #+begin_src emacs-lisp
@@ -407,31 +421,6 @@
 I'm using the fork as described [[https://abode.karthinks.com/org-latex-preview/][here]] in order to have much better LaTeX previews. This is eventually supposed to be merged into emacs proper, which would be nice.
 #+begin_src emacs-lisp
   (use-package org
-    :defer
-    :straight `(org
-                :fork (:host nil
-                       :repo "https://git.tecosaur.net/tec/org-mode.git"
-                       :branch "dev"
-                       :remote "tecosaur")
-                :files (:defaults "etc")
-                :build t
-                :pre-build
-                (with-temp-file "org-version.el"
-                 (require 'lisp-mnt)
-                 (let ((version
-                        (with-temp-buffer
-                          (insert-file-contents "lisp/org.el")
-                          (lm-header "version")))
-                       (git-version
-                        (string-trim
-                         (with-temp-buffer
-                           (call-process "git" nil t nil "rev-parse" "--short" "HEAD")
-                           (buffer-string)))))
-                  (insert
-                   (format "(defun org-release () \"The release version of Org.\" %S)\n" version)
-                   (format "(defun org-git-version () \"The truncate git commit hash of Org mode.\" %S)\n" git-version)
-                   "(provide 'org-version)\n")))
-                :pin nil)
     :init
     (setq org-list-allow-alphabetical t)
     :custom
@@ -440,7 +429,6 @@ I'm using the fork as described [[https://abode.karthinks.com/org-latex-preview/
     (org-startup-with-inline-images t)
     (org-image-actual-width '(300))
     (org-export-with-smart-quotes t)
-    (org-latex-preview-live t)
     (org-directory "~/Nextcloud/org")
     (org-cite-global-bibliography '("~/Nextcloud/library.bib"))
     (org-agenda-files `(,org-directory))
@@ -448,13 +436,31 @@ I'm using the fork as described [[https://abode.karthinks.com/org-latex-preview/
                                     '("/todo.org" "/done.org")))
     :after ox-latex
     :config
-    (setq org-format-latex-options (plist-put org-format-latex-options :scale 0.6))
     (add-to-list 'org-latex-classes '("myreport" "\\documentclass[11pt]{report}"
                                       ("\\chapter{%s}" . "\\chapter*{%s}")
                                       ("\\section{%s}" . "\\section*{%s}")
                                       ("\\subsection{%s}" . "\\subsection*{%s}")
                                       ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
+
     (require 'org-tempo)
+    (add-to-list 'org-src-lang-modes '("latex-macros" . latex))  
+
+    (defvar org-babel-default-header-args:latex-macros
+      '((:results . "raw")
+        (:exports . "results")))
+
+    (defun prefix-all-lines (pre body)
+      (with-temp-buffer
+        (insert body)
+        (string-insert-rectangle (point-min) (point-max) pre)
+        (buffer-string)))
+
+    (defun org-babel-execute:latex-macros (body _params)
+      (concat
+       (prefix-all-lines "#+LATEX_HEADER: " body)
+       "\n#+HTML_HEAD_EXTRA: <div style=\"display: none\"> \\(\n"
+       (prefix-all-lines "#+HTML_HEAD_EXTRA: " body)
+       "\n#+HTML_HEAD_EXTRA: \\)</div>\n"))
     :bind (("C-c c" . org-capture)
            ("C-c l" . org-store-link)
            ("C-c a" . org-agenda))
@@ -476,6 +482,99 @@ I'm using the fork as described [[https://abode.karthinks.com/org-latex-preview/
   (require 'oc-natbib)
   (require 'oc-biblatex)
 #+end_src
+** Org Roam
+#+begin_src emacs-lisp
+  (use-package org-roam
+    :ensure t
+    :custom
+    (org-roam-directory (file-truename "~/Nextcloud/org/roam"))
+    (org-roam-completion-everywhere t)
+    :bind (("C-c n f" . org-roam-node-find)
+           ("C-c n i" . org-roam-node-insert)
+           ("C-c n c" . org-roam-capture))
+    :config
+    (org-roam-setup)
+
+    (setq org-roam-capture-templates
+          '(("d" "Definition"
+             plain "%?"
+             :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
+                                "#+title: ${title}\n#+filetags: :definition:%^{Additional tag (e.g. set_theory, model_theory, computability): }:\n")
+             :unnarrowed t)
+  	  ("c" "Chess"
+             plain "%?"
+             :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
+                                "#+title: ${title}\n#+filetags: :chess:%^{Additional tag (e.g. set_theory, model_theory, computability): }:\n")
+             :unnarrowed t)
+            ("t" "Theorem"
+             plain "%?"
+             :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org"
+                                "#+title: ${title}\n#+filetags: :theorem:%^{Additional tag (e.g. set_theory, model_theory, computability): }:\n")
+             :unnarrowed t))))
+#+end_src
+#+begin_src emacs-lisp
+  (use-package consult-org-roam
+     :ensure t
+     :after org-roam
+     :init
+     (require 'consult-org-roam)
+     (consult-org-roam-mode 1)
+     :custom
+     (consult-org-roam-grep-func #'consult-ripgrep)
+     (consult-org-roam-buffer-narrow-key ?r)
+     (consult-org-roam-buffer-after-buffers t)
+     :config
+     (consult-customize
+      consult-org-roam-forward-links
+      :preview-key "M-.")
+     :bind
+     ("C-c n e" . consult-org-roam-file-find)
+     ("C-c n b" . consult-org-roam-backlinks)
+     ("C-c n B" . consult-org-roam-backlinks-recursive)
+     ("C-c n l" . consult-org-roam-forward-links)
+     ("C-c n r" . consult-org-roam-search))
+#+end_src
+#+begin_src emacs-lisp
+  (use-package org-roam-ui
+    :straight
+      (:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
+      :after org-roam
+      :config
+      (setq org-roam-ui-sync-theme t
+            org-roam-ui-follow t
+            org-roam-ui-update-on-save t
+            org-roam-ui-open-on-start t))
+#+end_src
+** Org Bloggy stuff
+#+begin_src emacs-lisp
+  (defconst my-blog-org-dir "~/Documents/test/blog/org/")
+  (defconst my-blog-public-dir "~/Documents/test/blog/html")
+
+  (setq org-publish-project-alist
+        `(("my-logic-blog"
+           :base-directory ,my-blog-org-dir
+           :publishing-directory ,my-blog-public-dir
+           :base-extension "org"
+           :recursive t
+           :publishing-function org-html-publish-to-html
+           :auto-sitemap t
+           :sitemap-filename "index.org"
+           :sitemap-title "William's Blog"
+           :sitemap-style list
+           :html-head "<link rel=\"stylesheet\" href=\"/style.css\" type=\"text/css\"/>"
+  	 :html-preamble t
+           :html-preamble-format (("en" "<div class=\"blog-header\"><a href=\"index.html\">&larr; Back to Blog Index</a></div>"))
+           )
+
+          ("my-logic-blog-static"
+           :base-directory ,my-blog-org-dir
+           :publishing-directory ,my-blog-public-dir
+           :base-extension "css\\|js\\|png\\|jpg\\|jpeg\\|gif\\|svg\\|ico\\|mp4"
+           :recursive t
+           :publishing-function org-publish-attachment
+           :exclude ".*\\.org$"
+           )))
+#+end_src
 * Pdfs
 ** Pdf tools
 #+begin_src emacs-lisp

nvim/.config/nvim/lua/plugins/colors.lua

@@ -3,28 +3,28 @@ return {
         'norcalli/nvim-colorizer.lua',
         config = true
     },
-    {
-        'catppuccin/nvim',
-        name = 'catppuccin',
-        priority = 1000,
-        config = function()
-            require('catppuccin').setup({
-                transparent_background = true,
-            })
-            vim.cmd.colorscheme([[catppuccin-mocha]])
-        end
-    },
     -- {
-    --     "Mofiqul/adwaita.nvim",
+    --     'catppuccin/nvim',
-    --     lazy = false,
+    --     name = 'catppuccin',
     --     priority = 1000,
-    --
-    --     -- configure and set on startup
     --     config = function()
-    --         -- vim.g.adwaita_darker = true             -- for darker version
+    --         require('catppuccin').setup({
-    --         -- vim.g.adwaita_disable_cursorline = true -- to disable cursorline
+    --             transparent_background = true,
-    --         vim.g.adwaita_transparent = true        -- makes the background transparent
+    --         })
-    --         vim.cmd('colorscheme adwaita')
+    --         vim.cmd.colorscheme([[catppuccin-mocha]])
     --     end
-    -- }
+    -- },
+    {
+        "Mofiqul/adwaita.nvim",
+        lazy = false,
+        priority = 1000,
+
+        -- configure and set on startup
+        config = function()
+            vim.g.adwaita_darker = true             -- for darker version
+            -- vim.g.adwaita_disable_cursorline = true -- to disable cursorline
+            vim.g.adwaita_transparent = true        -- makes the background transparent
+            vim.cmd('colorscheme adwaita')
+        end
+    }
 }

scripts/.local/bin/books.sh

@@ -1,8 +1,10 @@
 #!/bin/sh
 
 prefix=$HOME/Nextcloud/Books/
-dmenu="bemenu -p books --center --list 20 down --width-factor 0.5 --border 2 --bdr #f6c2e7"
+dmenu="pipemenu --title Books"
-pdf=zathura
+# dmenu="bemenu -p books --center --list 20 down --width-factor 0.5 --border 2 --bdr #f6c2e7"
+# pdf=zathura
+pdf="flatpak run org.gnome.Papers"
 
 choice=$(find $prefix -type f | sed "s|$prefix||;s/_/ /g" | $dmenu)
 

scripts/.local/bin/papers.sh

@@ -1,8 +1,10 @@
 #!/bin/sh
 
 prefix=$HOME/Nextcloud/Papers/
-dmenu="bemenu -p papers --center --list 20 down --width-factor 0.5 --border 2 --bdr #f6c2e7"
+dmenu="pipemenu --title Papers"
-pdf=zathura
+# dmenu="bemenu -p papers --center --list 20 down --width-factor 0.5 --border 2 --bdr #f6c2e7"
+# pdf=zathura
+pdf="flatpak run org.gnome.Papers"
 
 choice=$(find $prefix -type f | sed "s|$prefix||;s/_/ /g" | $dmenu)
 

zsh/.config/zsh/.zshrc

@@ -41,8 +41,8 @@ zstyle ':completion:*' list-colors ${(s.:.)LS_COLORS}
 zstyle ':completion:*' matcher-list 'm:{a-zA-Z}={A-Za-z}'
 
 # plugins
-source /usr/share/zsh/plugins/zsh-syntax-highlighting/zsh-syntax-highlighting.zsh
+source /usr/share/zsh-syntax-highlighting/zsh-syntax-highlighting.zsh
-source /usr/share/zsh/plugins/zsh-autosuggestions/zsh-autosuggestions.zsh
+source /usr/share/zsh-autosuggestions/zsh-autosuggestions.zsh
 
 # zoxide
 eval "$(zoxide init zsh)"

zsh/.zshenv

@@ -1,2 +1,6 @@
 export XDG_CONFIG_HOME="$HOME/.config"
 export ZDOTDIR="$XDG_CONFIG_HOME/zsh"
+. "/home/wball/.local/share/cargo/env"
+
+if [ -e /home/wball/.nix-profile/etc/profile.d/nix.sh ]; then . /home/wball/.nix-profile/etc/profile.d/nix.sh; fi # added by Nix installer
+[[ ! -r '/home/wball/.local/share/opam/opam-init/init.zsh' ]] || source '/home/wball/.local/share/opam/opam-init/init.zsh' > /dev/null 2> /dev/null