Merge branch 'master' into arch-laptop

merging

.gitignore

@@ -1,20 +1,25 @@
-config/.config/dconf/*
-config/.themes/*
+config/.config/kak/al/rc/org.kak
+config/.config/kak/mru_files.txt
+config/.scripts/baraction.sh
+config/.scripts/brave.sh
+config/.scripts/tmux-change-dir.sh
+config/.config/dconf/
+config/.themes/
 config/**/*.uuid
-config/.icons/*
-config/.config/KDE/*
-config/.config/falkon/*
-config/.config/ghostty/iTerm2-Color-Schemes/*
-config/.config/ghostty/themes/*
-config/.config/helix/runtime/*
-config/.config/kak/colors/*
-config/.config/kak/plugins/*
+config/.icons/
+config/.config/KDE/
+config/.config/falkon/
+config/.config/ghostty/iTerm2-Color-Schemes/
+config/.config/ghostty/themes/
+config/.config/helix/runtime/
+config/.config/kak/colors/
+config/.config/kak/plugins/
 config/.config/mutt/chalupmc@rose-hulman
 config/.config/mutt/mikecchalupiak@outlook
 config/.config/mutt/spamreciver1@outlook
-config/.config/qt5ct/colors/*
+config/.config/qt5ct/colors/
 config/.config/qutebrowser/autoconfig.yml
-config/.config/qutebrowser/rosepine/*
+config/.config/qutebrowser/rosepine/
 config/.config/zathura/colors
 config/.doom.d/flycheck_config.el
 config/.scripts/kkse

config/.Xresources

@@ -1,4 +1,5 @@
 ! High DPI Settings for Window Managers
+Xft.dpi: 192
 ! #define background_opacity 80
 #include ".theme.xresources"
 ! .alpha: 0.2

config/.bash_profile

@@ -1,11 +1,16 @@
-export PATH="${PATH}:$HOME/.scripts"
 source ~/.profile
-source ~/.bashrc
-
 
 # Added by Toolbox App
 export PATH="$PATH:/home/mikec/.local/share/JetBrains/Toolbox/scripts"
 
+export PATH="${PATH}:$HOME/.scripts:$HOME/maple2022/bin:$HOME/intelFPGA_lite/18.1/quartus/bin:$HOME/intelFPGA_lite/18.1/modelsim_ase/bin"
+export _JAVA_AWT_WM_NONREPARENTING=1
+# export XDG_CURRENT_DESKTOP=sway
+source ~/.bashrc
+export QSYS_ROOTDIR="/home/mikec/intelFPGA_lite/18.1/quartus/sopc_builder/bin"
+export VERSION_CONTROL="never"
+
+# exec hilbish -S -l
 
 
 # BEGIN opam configuration
@@ -15,14 +20,6 @@ export PATH="$PATH:/home/mikec/.local/share/JetBrains/Toolbox/scripts"
 # This section can be safely removed at any time if needed.
 test -r '/home/mikec/.opam/opam-init/init.sh' && . '/home/mikec/.opam/opam-init/init.sh' > /dev/null 2> /dev/null || true
 # END opam configuration
-if [ -z "$DISPLAY" ] && [ "$(tty)" = "/dev/tty1" ]; then
-  exec river
-fi
-HOMEBREW_PREFIX=/opt/homebrew
-export PATH="/opt/homebrew/opt/llvm/bin:$PATH"
-export CPATH="$HOMEBREW_PREFIX/include:$CPATH"
-export LIBRARY_PATH="$HOMEBREW_PREFIX/lib:$LIBRARY_PATH"
-. "/Users/mikec/.local/share/bob/env/env.sh"
-
-test -e "${HOME}/.iterm2_shell_integration.bash" && source "${HOME}/.iterm2_shell_integration.bash"
-
+# if [ -z "$DISPLAY" ] && [ "$(tty)" = "/dev/tty1" ]; then
+  # exec river
+# fi

config/.config/bspwm/bspwmrc

@@ -21,13 +21,12 @@ picom &
 #nm-applet &
 
 ## Configure Monitors/Workspaces
-bspc monitor DisplayPort-1 -d 1 2 3 4 5 6 7 8 9
-bspc monitor DisplayPort-0 -d 1 2 3 4 5 6 7 8 9
+bspc monitor eDP-1 -d 1 2 3 4 5 6 7 8 9
 
 ## Theming
 bspc config border_width        1
 bspc config window_gap          10
-bspc config top_padding         20
+bspc config top_padding         36
 bspc config left_padding        0
 bspc config right_padding       0
 bspc config bottom_padding      0

config/.config/doom/config.el

@@ -23,7 +23,7 @@
 ;;
 ;; (setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
 ;;      doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
-(setq doom-font (font-spec :family "Iosevka Term SS12" :size 16))
+(setq doom-font (font-spec :family "Iosevka Term SS12" :size 18))
 ;;
 ;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
 ;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
@@ -33,7 +33,7 @@
 ;; There are two ways to load a theme. Both assume the theme is installed and
 ;; available. You can either set `doom-theme' or manually load a theme with the
 ;; `load-theme' function. This is the default:
-(setq doom-theme 'doom-one)
+;; (setq doom-theme 'doom-one)
 
 ;; This determines the style of line numbers in effect. If set to `nil', line
 ;; numbers are disabled. For relative line numbers, set this to `relative'.
@@ -78,7 +78,7 @@
 
 ;; (setq! tab-always-indent nil)
 (after! corfu
-  (setq tab-always-indent nil))
+  (setq! tab-always-indent nil))
 ;; (map! :map corfu-map :i "TAB" nil)
 ;; (map! :map corfu-map "TAB" nil)
 ;; (map! :map corfu-map :i "S-TAB" nil)
@@ -93,7 +93,6 @@
 ;; (map! :map corfu-map :i "C-g" #'corfu-reset)
 ;; (setq +corfu-want-ret-to-confirm nil)
 
-
 (use-package! auto-dark
   :defer t
   :init

config/.config/doom/init.el

@@ -38,7 +38,7 @@
        indent-guides     ; highlighted indent columns
        ;;ligatures         ; ligatures and symbols to make your code pretty again
        ;;minimap           ; show a map of the code on the side
-       modeline          ; snazzy, Atom-inspired modeline, plus API
+       ;; modeline          ; snazzy, Atom-inspired modeline, plus API
        ;;nav-flash         ; blink cursor line after big motions
        ;;neotree           ; a project drawer, like NERDTree for vim
        ophints           ; highlight the region an operation acts on
@@ -46,15 +46,15 @@
        smooth-scroll     ; So smooth you won't believe it's not butter
        ;;tabs              ; a tab bar for Emacs
        ;;treemacs          ; a project drawer, like neotree but cooler
-       ;;unicode           ; extended unicode support for various languages
+       unicode           ; extended unicode support for various languages
        (vc-gutter +pretty) ; vcs diff in the fringe
        vi-tilde-fringe   ; fringe tildes to mark beyond EOB
        ;;window-select     ; visually switch windows
-       workspaces        ; tab emulation, persistence & separate workspaces
-       ;;zen               ; distraction-free coding or writing
+       ;; workspaces        ; tab emulation, persistence & separate workspaces
+       zen               ; distraction-free coding or writing
 
        :editor
-       ;; (evil +everywhere); come to the dark side, we have cookies
+       (evil +everywhere); come to the dark side, we have cookies
        file-templates    ; auto-snippets for empty files
        fold              ; (nigh) universal code folding
        (format +onsave)  ; automated prettiness
@@ -62,7 +62,7 @@
        ;;lispy             ; vim for lisp, for people who don't like vim
        multiple-cursors  ; editing in many places at once
        ;;objed             ; text object editing for the innocent
-       ;;parinfer          ; turn lisp into python, sort of
+       parinfer          ; turn lisp into python, sort of
        ;;rotate-text       ; cycle region at point between text candidates
        snippets          ; my elves. They type so I don't have to
        ;; (whitespace +guess +trim)  ; a butler for your whitespace
@@ -81,11 +81,11 @@
        eshell            ; the elisp shell that works everywhere
        ;;shell             ; simple shell REPL for Emacs
        ;;term              ; basic terminal emulator for Emacs
-       vterm             ; the best terminal emulation in Emacs
+       ;; vterm             ; the best terminal emulation in Emacs
 
        :checkers
        syntax              ; tasing you for every semicolon you forget
-       ;;(spell +flyspell) ; tasing you for misspelling mispelling
+       (spell +flyspell) ; tasing you for misspelling mispelling
        ;;grammar           ; tasing grammar mistake every you make
 
        :tools
@@ -100,8 +100,8 @@
        (eval +overlay)     ; run code, run (also, repls)
        (lookup +dictionary +offline)              ; navigate your code and its documentation
        ;;llm               ; when I said you needed friends, I didn't mean...
-       (lsp +lsp)          ; M-x vscode
-       magit               ; a git porcelain for Emacs
+       (lsp +eglot)          ; M-x vscode
+       (magit +forge)               ; a git porcelain for Emacs
        ;;make              ; run make tasks from Emacs
        ;;pass              ; password manager for nerds
        ;;pdf               ; pdf enhancements
@@ -120,7 +120,7 @@
        ;;beancount         ; mind the GAAP
        (cc +lsp +tree-sitter)         ; C > C++ == 1
        ;;clojure           ; java with a lisp
-       ;;common-lisp       ; if you've seen one lisp, you've seen them all
+       common-lisp       ; if you've seen one lisp, you've seen them all
        ;;coq               ; proofs-as-programs
        ;;crystal           ; ruby at the speed of c
        ;;csharp            ; unity, .NET, and mono shenanigans
@@ -153,7 +153,7 @@
        ;;lean              ; for folks with too much to prove
        ;;ledger            ; be audit you can be
        ;;lua               ; one-based indices? one-based indices
-       markdown          ; writing docs for people to ignore
+       (markdown +grip +tree-sitter)          ; writing docs for people to ignore
        ;;nim               ; python + lisp at the speed of c
        ;;nix               ; I hereby declare "nix geht mehr!"
        ;;ocaml             ; an objective camel
@@ -177,7 +177,7 @@
        ;;solidity          ; do you need a blockchain? No.
        (swift +lsp +tree-sitter); who asked for emoji variables?
        ;;terra             ; Earth and Moon in alignment for performance.
-       ;;web               ; the tubes
+       (web +lsp +tree-sitter)               ; the tubes
        ;;yaml              ; JSON, but readable
        (zig +lsp +tree-sitter)               ; C, but simpler
 

config/.config/kak/kakrc

@@ -111,6 +111,38 @@ add-highlighter global/ wrap -word -indent
 #             format
 #         }
 #     }
+#     hook global -group autofmt BufSetOption filetype=(javascript) %{
+#         set-option buffer formatcmd 'prettier --tab-width 4 --parser typescript'
+#
+#         hook -group autofmt buffer BufOpenFile .* %{
+#             format
+#         }
+#
+#         hook -group autofmt buffer BufWritePre .* %{
+#             format
+#         }
+#     }
+#
+#     hook global -group autofmt BufSetOption filetype=(go) %{
+#         set-option buffer formatcmd 'gofmt'
+#
+#         hook -group autofmt buffer BufOpenFile .* %{
+#             format
+#         }
+#
+#         hook -group autofmt buffer BufWritePre .* %{
+#             format
+#         }
+#     }
+# }
+#
+# define-command disable-autofmt -docstring 'disable autoformatting of buffer' %{
+#     remove-hooks global autofmt
+# }
+#
+# enable-autofmt
+#
+#
 
 ## Indentation ##
 set global tabstop 4

config/.config/kak/plugins/.build/kak-lsp/hooks

@@ -1,4 +0,0 @@
-
-set -e
-
-        cargo install --locked --force --path .

config/.config/kak/plugins/.build/kakoune-discord/config

@@ -1,19 +0,0 @@
-try %{ 
-
-      discord-presence-enable
- } catch %{
-    echo -debug "Error while evaluating 'kakoune-discord' configuration: %val{error}"
-
-    set-option -add current plug_conf_errors "Error while evaluating 'kakoune-discord' configuration:"
-    set-option -add current plug_conf_errors %sh{ printf "\n    " }
-    set-option -add current plug_conf_errors %val{error}
-    set-option -add current plug_conf_errors %sh{ printf "\n\n" }
-
-    hook -once -group plug-conf-err global WinDisplay .* %{
-        info -style modal -title "plug.kak error" "%opt{plug_conf_errors}"
-        on-key %{
-            info -style modal
-            execute-keys -with-maps -with-hooks %val{key}
-        }
-    }
-}

config/.config/kak/plugins/.build/kakoune-discord/hooks

@@ -1,2 +0,0 @@
-
- cargo install --path . --force 

config/.config/kak/plugins/.build/kakoune-rainbow/config

@@ -1,23 +0,0 @@
-try %{ 
-
-        require-module rainbow
-            # suggested mapping
-#     # map global user r ": rainbow<ret>" -docstring "rainbow brackets"
-#         # map global user R ": rmhl window/ranges_rainbow_specs<ret>" \
-#             #     -docstring "remove rainbow highlighter"
- } catch %{
-    echo -debug "Error while evaluating 'kakoune-rainbow' configuration: %val{error}"
-
-    set-option -add current plug_conf_errors "Error while evaluating 'kakoune-rainbow' configuration:"
-    set-option -add current plug_conf_errors %sh{ printf "\n    " }
-    set-option -add current plug_conf_errors %val{error}
-    set-option -add current plug_conf_errors %sh{ printf "\n\n" }
-
-    hook -once -group plug-conf-err global WinDisplay .* %{
-        info -style modal -title "plug.kak error" "%opt{plug_conf_errors}"
-        on-key %{
-            info -style modal
-            execute-keys -with-maps -with-hooks %val{key}
-        }
-    }
-}

config/.config/kak/plugins/.build/kakoune-rainbow/domain

@@ -1 +0,0 @@
-gitlab.com

config/.config/kak/plugins/.build/luar/config

@@ -1,21 +0,0 @@
-try %{ 
-
-    plug "gustavo-hms/peneira" %{
-        require-module peneira
-    }
- } catch %{
-    echo -debug "Error while evaluating 'luar' configuration: %val{error}"
-
-    set-option -add current plug_conf_errors "Error while evaluating 'luar' configuration:"
-    set-option -add current plug_conf_errors %sh{ printf "\n    " }
-    set-option -add current plug_conf_errors %val{error}
-    set-option -add current plug_conf_errors %sh{ printf "\n\n" }
-
-    hook -once -group plug-conf-err global WinDisplay .* %{
-        info -style modal -title "plug.kak error" "%opt{plug_conf_errors}"
-        on-key %{
-            info -style modal
-            execute-keys -with-maps -with-hooks %val{key}
-        }
-    }
-}

config/.config/kak/plugins/.build/pandoc.kak/config

@@ -1,19 +0,0 @@
-try %{ 
-
-        # your config
- } catch %{
-    echo -debug "Error while evaluating 'pandoc.kak' configuration: %val{error}"
-
-    set-option -add current plug_conf_errors "Error while evaluating 'pandoc.kak' configuration:"
-    set-option -add current plug_conf_errors %sh{ printf "\n    " }
-    set-option -add current plug_conf_errors %val{error}
-    set-option -add current plug_conf_errors %sh{ printf "\n\n" }
-
-    hook -once -group plug-conf-err global WinDisplay .* %{
-        info -style modal -title "plug.kak error" "%opt{plug_conf_errors}"
-        on-key %{
-            info -style modal
-            execute-keys -with-maps -with-hooks %val{key}
-        }
-    }
-}

config/.config/kak/plugins/.build/peneira/config

@@ -1,19 +0,0 @@
-try %{ 
-
-        require-module peneira
-     } catch %{
-    echo -debug "Error while evaluating 'peneira' configuration: %val{error}"
-
-    set-option -add current plug_conf_errors "Error while evaluating 'peneira' configuration:"
-    set-option -add current plug_conf_errors %sh{ printf "\n    " }
-    set-option -add current plug_conf_errors %val{error}
-    set-option -add current plug_conf_errors %sh{ printf "\n\n" }
-
-    hook -once -group plug-conf-err global WinDisplay .* %{
-        info -style modal -title "plug.kak error" "%opt{plug_conf_errors}"
-        on-key %{
-            info -style modal
-            execute-keys -with-maps -with-hooks %val{key}
-        }
-    }
-}

config/.config/kak/plugins/.build/tagbar.kak/config

@@ -1,25 +0,0 @@
-try %{ 
-
-    # if you have wrap highlighter enamled in you configuration
-    # files it's better to turn it off for tagbar, using this hook:
-    hook global WinSetOption filetype=tagbar %{
-        remove-highlighter window/wrap
-        # you can also disable rendering whitespaces here, line numbers, and
-        # matching characters
-    }
- } catch %{
-    echo -debug "Error while evaluating 'tagbar.kak' configuration: %val{error}"
-
-    set-option -add current plug_conf_errors "Error while evaluating 'tagbar.kak' configuration:"
-    set-option -add current plug_conf_errors %sh{ printf "\n    " }
-    set-option -add current plug_conf_errors %val{error}
-    set-option -add current plug_conf_errors %sh{ printf "\n\n" }
-
-    hook -once -group plug-conf-err global WinDisplay .* %{
-        info -style modal -title "plug.kak error" "%opt{plug_conf_errors}"
-        on-key %{
-            info -style modal
-            execute-keys -with-maps -with-hooks %val{key}
-        }
-    }
-}

config/.config/nvim/lua/config/set.lua

@@ -44,7 +44,7 @@ vim.g.mapleader = ' '
 
 vim.g.neovide_scale_factor = 1.0
 vim.g.neovide_theme = 'auto'
-vim.g.neovide_transparency = 1.0
+vim.g.neovide_opacity = 1.0
 function ChangeScaleFactor(delta)
     vim.g.neovide_scale_factor = vim.g.neovide_scale_factor * delta
 end
@@ -56,7 +56,7 @@ vim.keymap.set('n', '<C-->', function()
     ChangeScaleFactor(1 / 1.25)
 end)
 
-vim.opt.guifont = { 'Iosevka Term SS12', ':h12' }
+vim.opt.guifont = { 'Iosevka Term SS12', ':h14' }
 vim.opt.termguicolors = true
 
 vim.g.netrw_keepdir = 0

config/.config/nvim/lua/plugins/filetypes.lua

@@ -49,5 +49,16 @@ return {
         version = "*", -- Pin Neorg to the latest stable release
         config = true,
     },
+
+    -- {
+    --     "Olical/conjure"
+    -- },
+
+    {
+        "vlime/vlime",
+        config = function(plugin)
+            vim.opt.rtp:append(plugin.dir .. '/vim/')
+        end
+    },
 }
 

config/.config/picom/picom.conf

@@ -101,7 +101,7 @@ fade-in-step = 0.03;
 fade-out-step = 0.03;
 
 # The time between steps in fade step, in milliseconds. (> 0, defaults to 10)
-fade-delta = 5.0;
+fade-delta = 4.0;
 
 # Specify a list of conditions of windows that should not be faded.
 # fade-exclude = []

config/.config/polybar/config.ini

@@ -39,12 +39,12 @@ background = ${xrdb:background}
 foreground = ${xrdb:foreground}
 override-redirect = true
 wm-restack = bspwm
-font-0 = Olympe Mono Hacked:style=Regular:pixelsize=11;2
-font-1 = CaskaydiaCove Nerd Font:style=Regular:pixelsize=11:2
-font-2 = NotoColorEmoji:pixelsize=16
-font-3 = Font Awesome 6 Brands:style=Regular:size=13;2
-font-4 = Font Awesome 6 Free Solid:style=Regular:size=9;2
-height = 20
+font-0 = Olympe Mono Hacked:style=Regular:pixelsize=20;2
+font-1 = CaskaydiaCove Nerd Font:style=Regular:pixelsize=20:2
+font-2 = NotoColorEmoji:pixelsize=20
+font-3 = Font Awesome 6 Brands:style=Regular:size=20;2
+font-4 = Font Awesome 6 Free Solid:style=Regular:size=20;2
+height = 36
 line-size = 2
 modules-left = bspwm
 modules-right = music memory filesystem xkeyboard network redshift pulseaudio backlight tray battery datetime

config/.config/qt6ct/qt6ct.conf

@@ -28,7 +28,7 @@ wheel_scroll_lines=3
 geometry=@ByteArray(\x1\xd9\xd0\xcb\0\x3\0\0\0\0\x3\xad\0\0\x1\x86\0\0\x6#\0\0\x3\x96\0\0\x3\xad\0\0\x1\x86\0\0\x6#\0\0\x3\x96\0\0\0\0\0\0\0\0\n\0\0\0\x3\xad\0\0\x1\x86\0\0\x6#\0\0\x3\x96)
 
 [SettingsWindow]
-geometry=@ByteArray(\x1\xd9\xd0\xcb\0\x3\0\0\0\0\v\xb0\0\0\0\0\0\0\x15\x93\0\0\x4\xc9\0\0\v\xb0\0\0\0\0\0\0\x15\x93\0\0\x4\xc9\0\0\0\x1\0\0\0\0\n\0\0\0\v\xb0\0\0\0\0\0\0\x15\x93\0\0\x4\xc9)
+geometry=@ByteArray(\x1\xd9\xd0\xcb\0\x3\0\0\0\0\0\0\0\0\0\0\0\0\x5\xc7\0\0\x3\xba\0\0\0\0\0\0\0\0\0\0\x5\xc7\0\0\x3\xba\0\0\0\0\0\0\0\0\x5\xe0\0\0\0\0\0\0\0\0\0\0\x5\xc7\0\0\x3\xba)
 
 [Troubleshooting]
 force_raster_widgets=1

config/.config/ranger/rc.conf

@@ -1,2 +1 @@
 set preview_images true
-set preview_images_method ueberzug

config/.config/river/init

@@ -139,8 +139,8 @@ do
     riverctl map $mode None XF86AudioNext  spawn 'playerctl next'
 
     # Control screen backlight brightness with brightnessctl (https://github.com/Hummer12007/brightnessctl)
-    riverctl map $mode None XF86MonBrightnessUp   spawn 'brightnessctl set +5%'
-    riverctl map $mode None XF86MonBrightnessDown spawn 'brightnessctl set 5%-'
+    riverctl map $mode None XF86MonBrightnessUp   spawn 'brightnessctl set +1%'
+    riverctl map $mode None XF86MonBrightnessDown spawn 'brightnessctl set 1%-'
 done
 
 # Set background and border color
@@ -170,9 +170,17 @@ riverctl focus-follows-cursor normal
 riverctl map normal Super+Control O spawn 'mumble rpc starttalking'
 riverctl map normal Super O spawn 'mumble rpc stoptalking'
 riverctl map normal Super Escape spawn 'swaylock -f -C ~/.config/sway/rose-pine'
+
+riverctl input pointer* tap enabled
+riverctl input pointer* click-method button-areas
+riverctl input pointer* natural-scroll enabled
 swaybg -m fill -i $HOME/Pictures/wallpapers/wallpaper &
 # pgrep creek || ( while $HOME/.config/river/bar.sh; do sleep 1; done ) | creek -fn 'Ubuntu:size=14' -nf 0xb8b8b8 -nb 0x282828 -ff 0x181818 -fb 0x7cafc2
+swayidle -w \
+     timeout 360 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
+     timeout 600 'systemctl suspend-then-hibernate' \
+     before-sleep 'swaylock -f -C ~/.config/sway/rose-pine' &
 pipewire-launch &
 waybar &
-wlr-randr --output DP-2 --adaptive-sync enabled --mode 2560x1440@165Hz
+wlr-randr --output eDP-1 --scale 1.5
 dbus-update-activation-environment --systemd WAYLAND_DISPLAY XDG_CURRENT_DESKTOP='river'

config/.config/sway/bar.sh

@@ -1,10 +1,10 @@
 #!/usr/bin/env bash
 DATE=$(date +'%Y-%m-%d %I:%M:%S %p')
-# BAT=$(cat /sys/class/power_supply/BAT1/capacity)
+BAT=$(cat /sys/class/power_supply/BAT1/capacity)
 VOL=$(pactl get-sink-volume @DEFAULT_SINK@ | tr "," "\n" | grep \% | sed s/Volume\:// | sed 's/\%.*$//' | sed 's/^.*\///' | head -n1 | sed s/\ *//)
 VOL="${VOL}%"
 MUTED=$(pactl get-sink-mute @DEFAULT_SINK@ | cut -d\  -f2)
-# BRIGHT=$(brightnessctl | tr "\n" " " | cut -d\  -f9 | tr -d "()%")
+BRIGHT=$(brightnessctl | tr "\n" " " | cut -d\  -f9 | tr -d "()%")
 MEM=$(free -h | sed 's/[  ]\+/:/g' | cut -d\: -f4 | tr "\n" ":" | cut -d\: -f2)
 USER=$(id -u -n)
 HOST=$(cat /proc/sys/kernel/hostname)
@@ -17,5 +17,4 @@ then
     VOL='muted'
 fi
 
-# echo ${MEM} \| ${USER}\@${HOST} \| KB\: ${LAYOUT} \| ${NETWORK_NAME}\@${IP} \| Vol: ${VOL}  \| ${BRIGHT}% Backlight \| ${BAT}\% Bat \| ${DATE}
-echo ${MEM} \| ${USER}\@${HOST} \| KB\: ${LAYOUT} \| ${NETWORK_NAME}\@${IP} \| Vol: ${VOL}  \| ${DATE}
+echo ${MEM} \| ${USER}\@${HOST} \| KB\: ${LAYOUT} \| ${NETWORK_NAME}\@${IP} \| Vol: ${VOL}  \| ${BRIGHT}% Backlight \| ${BAT}\% Bat \| ${DATE}

config/.config/sway/config

@@ -39,7 +39,7 @@ output * bg $HOME/Pictures/wallpapers/wallpaper fill
 #
 # Example configuration:
 #
-# output eDP-1 scale 1.5
+output eDP-1 scale 1.5
 #
 # You can get the names of your outputs by running: swaymsg -t get_outputs
 output DP-2 mode 2560x1440@165.000Hz
@@ -50,11 +50,10 @@ font "Ubuntu 10"
 #
 # Example configuration:
 #
-# exec swayidle -w \
-#           # timeout 15 'swaylock -f -c 000000' \
-#           timeout 360 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
-#           timeout 600 'systemctl suspend-then-hibernate' \
-#           before-sleep 'swaylock -f -c 000000'
+exec swayidle -w \
+          timeout 360 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
+          timeout 600 'systemctl suspend-then-hibernate' \
+          before-sleep 'swaylock -f -c 000000'
 
 # set $lock 'swaylock -f'
 #
@@ -68,12 +67,12 @@ font "Ubuntu 10"
 #
 # Example configuration:
 #
-# input "type:touchpad" {
-#     dwt enabled
-#     tap enabled
-#     natural_scroll enabled
-#     #middle_emulation enabled
-# }
+input "type:touchpad" {
+    dwt enabled
+    tap enabled
+    natural_scroll enabled
+    #middle_emulation enabled
+}
 #
 # You can get the names of your inputs by running: swaymsg -t get_inputs
 # Read `man 5 sway-input` for more information about this section.
@@ -260,9 +259,9 @@ input "type:keyboard" {
 bindsym Mod1+Shift+space input "type:keyboard" xkb_switch_layout 0
 bindsym Mod1+space input "type:keyboard" xkb_switch_layout 1
 
-# bindsym $mod+u output eDP-1 scale 1
-# bindsym $mod+i output eDP-1 scale 1.5
-# bindsym $mod+o output eDP-1 scale 2
+bindsym $mod+u output eDP-1 scale 1
+bindsym $mod+i output eDP-1 scale 1.5
+bindsym $mod+o output eDP-1 scale 2
 
 # Multimedia
 bindsym XF86AudioRaiseVolume exec pactl set-sink-volume @DEFAULT_SINK@ +2% && pactl get-sink-volume @DEFAULT_SINK@ | head -n 1| awk '{print substr($5, 1, length($5)-1)}' > $WOBSOCK

config/.config/sxhkd/sxhkdrc

@@ -75,11 +75,11 @@ XF86AudioNext
 XF86AudioPrev
     playerctl previous
 # Brightness Up
-XF86_MonBrightnessUp
+XF86MonBrightnessUp
     brightnessctl set 1%+
 # Brightness Down
-XF86_MonBrightnessDown
-    brightnessctl set 1%+
+XF86MonBrightnessDown
+    brightnessctl set 1%-
 
 ## BSPWM Controls ##
  

config/.config/waybar/config.jsonc

@@ -12,9 +12,9 @@
         "river/layout",
         "custom/media"
     ],
-    "modules-center": [
-        "river/window"
-    ],
+//    "modules-center": [
+//        "river/window"
+//    ],
     "modules-right": [
         "idle_inhibitor",
         "pulseaudio",

config/.doom.d/config.el

@@ -155,4 +155,5 @@
 (setq dime-dylan-implementations
       '((opendylan ("/home/mikec/Documents/suckless/dylan/opendylan-2024.1/bin/dswank")
          :env ("OPEN_DYLAN_USER_REGISTRIES=/tmp/dime-test/registry"))))
+(setq doc-view-mupdf-use-svg t)
 (add-to-list 'default-frame-alist '(undecorated . t))

config/.doom.d/init.el

@@ -100,7 +100,7 @@
        magit             ; a git porcelain for Emacs
        ;;make              ; run make tasks from Emacs
        ;;pass              ; password manager for nerds
-       pdf               ; pdf enhancements
+       ;; pdf               ; pdf enhancements
        ;;prodigy           ; FIXME managing external services & code builders
        ;;rgb               ; creating color strings
        ;;taskrunner        ; taskrunner for all your projects

config/.emacs.d/config/custom.el

@@ -1,19 +1 @@
 ;;; -*- lexical-binding: t -*-
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(custom-safe-themes
-   '("720838034f1dd3b3da66f6bd4d053ee67c93a747b219d1c546c41c4e425daf93"
-     "d481904809c509641a1a1f1b1eb80b94c58c210145effc2631c1a7f2e4a2fdf4"
-     "aec7b55f2a13307a55517fdf08438863d694550565dee23181d2ebd973ebd6b8"
-     "3613617b9953c22fe46ef2b593a2e5bc79ef3cc88770602e7e569bbd71de113b"
-     "0325a6b5eea7e5febae709dab35ec8648908af12cf2d2b569bedc8da0a3a81c1"
-     default)))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- )

config/.emacs.d/config/emacs.el

@@ -19,12 +19,25 @@
 ;;
 ;;; Code:
 
+(set-face-attribute 'default nil
+  :width 'normal :weight 'normal
+  :slant 'normal :font (font-spec :family "Iosevka Term SS12" :size 18))
+(set-face-attribute 'fixed-pitch nil
+  :width 'normal :weight 'normal
+  :slant 'normal :font (font-spec :family "Iosevka Term SS12" :size 18))
+(set-face-attribute 'variable-pitch nil
+  :width 'normal :weight 'normal
+  :slant 'normal :font (font-spec :family "Gentium Plus" :size 18))
+(defconst default-mode-line-format (copy-sequence mode-line-format))
 (setq history-length 100
       global-auto-revert-non-file-buffers t
       use-dialog-box nil
       custom-safe-themes t
+      make-backup-files nil
       read-file-name-completion-ignore-case t
-      tab-always-indent nil)
+      tab-always-indent nil
+      display-buffer-alist '(
+                             ("\\*elfeed-.*\\*" (display-buffer-same-window))))
 (setq-default
     indent-tabs-mode nil
     tab-width 4

config/.emacs.d/config/keymap.el

@@ -3,16 +3,18 @@
 (global-set-key (kbd "C-c f") #'consult-fd)
 (global-set-key (kbd "C-c C-f") #'find-file-at-point)
 (global-set-key (kbd "C-c r") #'recentf)
-(global-set-key (kbd "C-c 0") (lambda () (interactive) (other-window 1) (kill-buffer-and-window)))
+(global-set-key (kbd "C-c x") #'kill-current-buffer)
+(global-set-key (kbd "C-c X") (lambda () (interactive) (other-window 1) (kill-buffer-and-window)))
 (global-set-key (kbd "C-c g") #'consult-ripgrep)
+(global-set-key (kbd "C-c L") #'consult-line)
 (global-set-key (kbd "C-c i") #'consult-info)
 (global-set-key (kbd "C-c s") #'ispell-word)
-(global-set-key (kbd "C-c f") #'apheleia-format-buffer)
 (global-set-key (kbd "C-c t") #'load-theme)
 (global-set-key (kbd "C-c C-c") #'compile)
 (global-set-key (kbd "C-c d") #'dictionary-define-word)
 (global-set-key (kbd "C-c D") #'dictionary)
 (global-set-key (kbd "C-c l a") #'eglot-code-actions)
+(global-set-key (kbd "C-c l f") #'apheleia-format-buffer)
 (global-set-key (kbd "C-c l n") #'eglot-rename)
 (global-set-key (kbd "C-c l s") #'consult-eglot-symbols)
 (global-set-key (kbd "C-c l r") #'xref-find-references)
@@ -20,16 +22,18 @@
 (global-set-key (kbd "C-c l D") #'eglot-find-declaration)
 (global-set-key (kbd "C-c l i") #'eglot-find-implementation)
 (global-set-key (kbd "C-c l t") #'eglot-find-typeDefinition)
-;; (global-set-key (kbd "C-x C-;") (lambda () (interactive) (if (region-active-p) (comment-region) (comment-line))))
 
 (global-set-key (kbd "C-c b") #'ibuffer)
-(global-set-key (kbd "C-c x") #'kill-current-buffer)
 
 (global-set-key (kbd "C-c k") #'eldoc)
 (global-set-key (kbd "C-c m") #'man)
 (global-set-key (kbd "C-c o c") (lambda () (interactive) (dired user-init-dir)))
 (global-set-key (kbd "C-c o t") (lambda () (interactive) (eshell 'N)))
-(global-set-key (kbd "C-c o m") #'magit)
+(global-set-key (kbd "C-c o g") #'magit)
+(global-set-key (kbd "C-c o e") #'mu4e)
+(global-set-key (kbd "C-c o r") #'elfeed-summary)
+(global-set-key (kbd "C-c o m") #'mpdel-browser-open)
+(global-set-key (kbd "C-c o p") #'mpdel-playlist-open)
 
 ;; multi-cursor
 (global-set-key (kbd "C-c c w") #'mc/mark-next-like-this-word)

config/.emacs.d/early-init.el

@@ -29,42 +29,7 @@
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
-;; (defconst fonts '("Iosevka Term SS12" "Cascadia Code" "CaskaydiaCove Nerd Font"))
-;; (defconst default-font-size 16)
 
-;; (defun font-size (font)
-;;   (let ((size (plist-get font :size)))
-;;     (if size size default-font-size)))
-;; (defun font-name (font)
-;;   (let ((name (plist-get font :name)))
-;;     (if name name font)))
-
-;; (defun font-string (font)
-;;   (let ((name (font-name font))
-;;         (size (font-size font)))
-;;     (concat name " " (number-to-string size))))
-
-;; (defun set-fonts ()
-;;   (let ((default-font (car fonts))
-;;         (fallback-fonts (cdr fonts)))
-;;     ;; (when (window-system)
-;;     (progn
-;;       (set-face-attribute 'default nil :font (font-string default-font))
-;;       (mapc (lambda (font)
-;;               (let ((face (font-string font))
-;;                     (script (plist-get font :script)))
-;;                 (if script
-;;                     (progn
-;;                       (set-fontset-font t script face)
-;;                       (set-fontset-font t script (font-spec :script script) nil 'prepend))
-;;                   (set-fontset-font t nil face nil 'prepend)))) fallback-fonts))))
-
-;; (set-fonts)
-
-;; (set-face-attribute 'default nil :font "Iosevka Term
-;;(set-frame-font "Iosevka Term SS12-16")
-(add-to-list 'default-frame-alist
-             '(font . "Iosevka Term SS12-14"))
 (defun efs/display-startup-time ()
   (message "Emacs loaded in %s with %d garbage collections."
            (format "%.2f seconds"

config/.emacs.d/init.el

@@ -39,6 +39,7 @@
       (mapc (lambda (file) (load-file file)) config-files))))
 
 (load-user-config)
+
 (setq gc-cons-threshold (* 2 1000 1000))
 
 (provide 'init)

config/.emacs.d/plugins/apps.el

@@ -36,9 +36,369 @@
   :ensure t
   :defer t)
 
+(use-package libmpdel
+  :ensure t
+  :demand t)
+
+(use-package mpdel
+  :ensure t
+  :demand t
+  :after libmpdel
+  :bind (:map mpdel-playlist-mode-map
+              ("h" . mpdel-song-normal-decrement)
+              ("l" . mpdel-song-normal-increment)
+              ("b" . libmpdel-playback-next)
+              ("z" . libmpdel-playback-next)
+              ("c" . libmpdel-playback-play-pause)
+              ("C" . mpdel/connect-with-ip)
+              ("v" . libmpdel-stop)
+              ("x" . (lambda () (interactive) (libmpdel-playback-seek 0)))
+              ("i" . mpdel-song-open)
+              ("s" . (lambda () (interactive) (if (libmpdel-get-state 'random #'identity) (libmpdel-playback-unset-random) (libmpdel-playback-set-random))))
+              ("r" . (lambda () (interactive) (if (libmpdel-get-state 'repeat #'identity) (libmpdel-playback-unset-repeat) (libmpdel-playback-set-repeat))))
+              ("X" . (lambda () (interactive (libmpdel-send-command "clear"))))
+              ("RET" . mpdel-playlist-play)
+              (";" . mpdel/switch-context-i))
+              
+  :init
+  (setq mpdel-prefix-key (kbd "C-c z"))
+  :config
+  (add-to-list 'libmpdel-profiles '("Desktop" "127.0.0.1" 6600 ipv4))
+  (add-to-list 'libmpdel-profiles '("Laptop" "127.0.0.1" 6600 ipv4))
+  (keymap-set global-map "C-c z" mpdel-playlist-mode-map)
+  (defun mpdel/connect-with-ip ()
+    (interactive)
+    (let* ((profile (completing-read "Connect to: " (mapcar #'car libmpdel-profiles) nil t))
+           (ip (completing-read "IP: " nil)))
+      (setf (alist-get profile libmpdel-profiles nil nil #'equal) `(,ip ,6600 ipv4))
+      (libmpdel-connect-profile (assoc-string profile libmpdel-profiles))))
+  (defun mpdel/add-all-to-queue ()
+    (interactive)
+    (libmpdel-send-command "clear")
+    (libmpdel-send-command "add /"))
+  (defun mpdel/start-all-music ()
+    (interactive)
+    (mpdel/add-all-to-queue)
+    (mpdel-playlist-open)
+    (libmpdel-play))
+  (defun mpdel/music-status ()
+    (interactive)
+    (funcall mpdel/music-status))
+  (defvar mpdel/music-status nil)
+  (let ((status nil))
+    (setq mpdel/music-status
+          (lambda ()
+           (require 'libmpdel)
+           (if (libmpdel-connected-p)
+               (let* ((song (libmpdel-current-song))
+                      (volume (libmpdel-get-state 'volume #'identity))
+                      (song-name (if song (libmpdel-entity-name song) nil))
+                      (shuffle (or (libmpdel-get-state 'random (lambda (state) (if state "S" ""))) ""))
+                      (repeat (or (libmpdel-get-state 'repeat (lambda (state) (if state "R" ""))) ""))
+                      (progress ""))
+                 (libmpdel-send-command "status" (lambda (s)
+                                                   (setq status (copy-alist s))))
+                 (when status
+                   (let ((elapsed (libmpdel-time-to-string (cdr (assoc 'elapsed status))))
+                         (duration (libmpdel-time-to-string (cdr (assoc 'duration status)))))
+                     (setq progress (format " - %s/%s" elapsed duration))))
+
+            
+                 (cond
+                  ((libmpdel-playing-p) (format "> %s%s %s%s %s%%%%" song-name progress repeat shuffle volume))
+                  ((libmpdel-paused-p)  (format "| %s%s %s%s %s%%%%" song-name progress repeat shuffle volume))
+                  ((libmpdel-stopped-p) "")))))))
+  (setq-default mode-line-format (append default-mode-line-format '((:eval (mpdel/music-status)))))
+  (defconst mpdel/contexts
+    `((podcasts . ((enter-hooks . ,(lambda (context) (libmpdel-send-commands '("clear"
+                                                                               "load podcasts"
+                                                                               "random 0"
+                                                                               "repeat 0"
+                                                                               "consume 1"
+                                                                               "single 0"))))
+                   (song-change . ,(lambda (context) (libmpdel-send-commands '("rm podcasts"
+                                                                               "save podcasts"))))
+                   (exit-hooks . ,(lambda (context) (libmpdel-send-commands '("rm podcasts"
+                                                                              "save podcasts"
+                                                                              "consume 0"))))))
+      (allmusic . ((enter-hooks . ,(lambda (context)
+                                     (libmpdel-send-commands '("random 1"
+                                                               "repeat 1"
+                                                               "consume 0"
+                                                               "single 0"))
+                                     (mpdel/add-all-to-queue)))))
+      (playlist . ())))
+  (defvar mpdel/current-context (assq 'allmusic mpdel/contexts))
+  (defun mpdel/run-context-hooks (hook-name context)
+    (let ((hook (cdr (assq hook-name (cdr context)))))
+      (when hook
+        (funcall hook context))))
+  (add-to-list 'savehist-additional-variables 'mpdel/current-context)
+  (add-hook 'libmpdel-current-song-changed-hook (lambda ()
+                                                  (let ((context mpdel/current-context))
+                                                    (mpdel/run-context-hooks 'song-change context))))
+  (defun mpdel/is-current-context (context)
+    (eq context (car mpdel/current-context)))
+  (defun mpdel/switch-context-i ()
+    (interactive)
+    (mpdel/switch-context (intern (completing-read "Context: " (mapcar #'car mpdel/contexts) nil t))))
+  (defun mpdel/switch-context (context)
+    (interactive)
+    (libmpdel-ensure-connection)
+    (unless (eq (car mpdel/current-context) context)
+      (libmpdel-send-command "stop")
+      (mpdel/run-context-hooks 'exit-hooks mpdel/current-context)
+      (setq mpdel/current-context (assq context mpdel/contexts))
+      (mpdel/run-context-hooks 'enter-hooks mpdel/current-context))))
+  
 (use-package org
   :ensure t
   :defer t)
 
+(use-package org-msg
+  :ensure t
+  :defer t
+  :hook ((mu4e-main-mode . org-msg-mode)
+         (mu4e-compose-mode . org-msg-mode))
+  :config
+  (setq mail-user-agent 'mu4e-user-agent)
+  (setq org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil \\n:t"
+        org-msg-startup "hidestars indent inlineimages"
+        org-msg-default-alternatives '((new . (text html))
+                                       (reply-to-html . (text html))
+                                       (reply-to-text . (text)))
+        org-msg-convert-citation t))
+  
+
+(use-package mu4e
+  :ensure t
+  :commands (mu4e)
+  :config
+  (setq mu4e-mu-binary (executable-find "mu"))
+
+  (setq mu4e-read-option-use-builtin nil
+        mu4e-completing-read-function 'completing-read)
+  ;; this is the directory we created before:
+  (setq mu4e-maildir "~/.local/share/mail/")
+
+  ;; this command is called to sync imap servers:
+  (setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a"))
+  ;; how often to call it in seconds:
+  (setq mu4e-update-interval 300)
+
+  ;; save attachment to desktop by default
+  ;; or another choice of yours:
+  (setq mu4e-attachment-dir "~/Downloads")
+
+  ;; rename files when moving - needed for mbsync:
+  (setq mu4e-change-filenames-when-moving t)
+
+  ;; list of your email adresses:
+  (setq mu4e-user-mail-address-list '("mikecchalupiak@outlook.com"
+                                      "chalupmc@rose-hulman.edu"
+                                      "mikec@mchalupiak.com"
+                                      "spamreciver1@outlook.com"))
+                                        ; the following is to show shortcuts in the main view.
+  (setq mu4e-bookmarks ())
+  (add-to-list 'mu4e-bookmarks
+               '(:name "spamreciver"
+                 :query "maildir:/spamreciver1@outlook.com/INBOX"
+                 :key ?s))
+  (add-to-list 'mu4e-bookmarks
+               '(:name "mchalupiak.com"
+                 :query "maildir:/mikec@mchalupiak.com/INBOX"
+                 :key ?h))
+  (add-to-list 'mu4e-bookmarks
+               '(:name "rose"
+                 :query "maildir:/chalupmc@rose-hulman.edu/INBOX"
+                 :key ?r))
+  (add-to-list 'mu4e-bookmarks
+               '(:name "outlook"
+                 :query "maildir:/mikecchalupiak@outlook.com/INBOX"
+                 :key ?o))
+
+  
+  (setq mu4e-contexts
+        `(,(make-mu4e-context
+            :name "outlook"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (mu4e-message-contact-field-matches msg
+                                                    :to "mikecchalupiak@outlook.com")))
+            :vars '((user-mail-address . "mikecchalupiak@outlook.com")
+                    (user-full-name . "Michael Chalupiak")
+                    (mu4e-drafts-folder . "/mikecchalupiak@outlook.com/Drafts")
+                    (mu4e-refile-folder . "/mikecchalupiak@outlook.com/Archive")
+                    (mu4e-sent-folder . "/mikecchalupiak@outlook.com/Sent")
+                    (mu4e-trash-folder . "/mikecchalupiak@outlook.com/Trash")))
+
+          ,(make-mu4e-context
+            :name "rose"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (mu4e-message-contact-field-matches msg
+                                                    :to "chalupmc@rose-hulman.edu")))
+            :vars '((user-mail-address . "chalupmc@rose-hulman.edu")
+                    (user-full-name . "Michael Chalupiak")
+                    (mu4e-drafts-folder . "/chalupmc@rose-hulman.edu/Drafts")
+                    (mu4e-refile-folder . "/chalupmc@rose-hulman.edu/Archive")
+                    (mu4e-sent-folder . "/chalupmc@rose-hulman.edu/Sent")
+                    (mu4e-trash-folder . "/chalupmc@rose-hulman.edu/Trash")))
+
+          ,(make-mu4e-context
+            :name "hosted"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (mu4e-message-contact-field-matches msg
+                                                    :to "mikec@mchalupiak.com")))
+            :vars '((user-mail-address . "mikec@mchalupiak.com")
+                    (user-full-name . "Michael Chalupiak")
+                    ;; check your ~/.maildir to see how the subdirectories are called
+                    ;; e.g `ls ~/.maildir/example'
+                    (mu4e-drafts-folder . "/mikec@mchalupiak.com/Drafts")
+                    (mu4e-refile-folder . "/mikec@mchalupiak.com/Archive")
+                    (mu4e-sent-folder . "/mikec@mchalupiak.com/Sent")
+                    (mu4e-trash-folder . "/mikec@mchalupiak.com/Trash")))
+          ,(make-mu4e-context
+            :name "spam"
+            :match-func
+            (lambda (msg)
+              (when msg
+                (mu4e-message-contact-field-matches msg
+                                                    :to "spamreciver1@outlook.com")))
+            :vars '((user-mail-address . "spamreciver1@outlook.com")
+                    (user-full-name . "spamreciver")
+                    ;; check your ~/.maildir to see how the subdirectories are called
+                    ;; e.g `ls ~/.maildir/example'
+                    (mu4e-drafts-folder . "/spamreciver1@outlook.com/Drafts")
+                    (mu4e-refile-folder . "/spamreciver1@outlook.com/Archive")
+                    (mu4e-sent-folder . "/spamreciver1@outlook.com/Sent")
+                    (mu4e-trash-folder . "/spamreciver1@outlook.com/Trash")))))
+
+ (setq mu4e-context-policy 'pick-first) ;; start with the first (default) context;
+ (setq mu4e-compose-context-policy 'ask)
+  ; gpg encryptiom & decryption:
+  ;; this can be left alone
+ (require 'epa-file)
+ (epa-file-enable)
+ (setq epa-pinentry-mode 'loopback)
+ (auth-source-forget-all-cached)
+
+  ;; don't keep message compose buffers around after sending:
+ (setq message-kill-buffer-on-exit t)
+
+  ;; send function:
+ (setq send-mail-function 'message-send-mail-with-sendmail
+       message-send-mail-function 'message-send-mail-with-sendmail)
+
+  ;; send program:
+  ;; this is exeranal. remember we installed it before.
+ (setq sendmail-program (executable-find "msmtp"))
+
+  ;; select the right sender email from the context.
+ (setq message-sendmail-envelope-from 'header)
+
+  ;; chose from account before sending
+  ;; this is a custom function that works for me.
+  ;; well I stole it somewhere long ago.
+  ;; I suggest using it to make matters easy
+  ;; of course adjust the email adresses and account descriptions
+ (defun timu/set-msmtp-account ()
+   (if (message-mail-p)
+       (save-excursion
+         (let*
+             ((from (save-restriction
+                      (message-narrow-to-headers)
+                      (message-fetch-field "from")))
+              (account
+               (cond
+                ((string-match "mikecchalupiak@outlook.com" from) "outlook")
+                ((string-match "chalupmc@rose-hulman.edu" from) "rose")
+                ((string-match "mikec@mchalupiak.com" from) "hosted")
+                ((string-match "spamreciver1@outlook.com" from) "spam"))))
+           (setq message-sendmail-extra-arguments (list '"-a" account)))))
+
+  (add-hook 'message-send-mail-hook 'timu/set-msmtp-account)
+
+  ;; mu4e cc & bcc
+  ;; this is custom as well
+  (add-hook 'mu4e-compose-mode-hook
+            (defun timu/add-cc-and-bcc ()
+              "My Function to automatically add Cc & Bcc: headers.
+    This is in the mu4e compose mode."
+              (save-excursion (message-add-header "Cc:\n"))
+              (save-excursion (message-add-header "Bcc:\n"))))))
+   ;; ask for context if no context matches;)))
+
+(use-package elfeed
+  :ensure t
+  :defer t
+  :commands (elfeed)
+  :bind (:map elfeed-show-mode-map
+              ("a" . elfeed/add-to-playlist)
+              ("A" . (lambda () (interactive)
+                       (elfeed/add-to-playlist)
+                       (mpdel/switch-context 'podcasts)
+                       (libmpdel-play)))
+              ("P" . (lambda () (interactive)
+                       (mpdel/switch-context 'podcasts)
+                       (libmpdel-play))))
+  :bind (:map elfeed-search-mode-map
+              ("a" . elfeed/add-to-playlist)
+              ("A" . (lambda () (interactive)
+                       (elfeed/add-to-playlist)
+                       (mpdel/switch-context 'podcasts)
+                       (libmpdel-play)))
+              ("P" . (lambda () (interactive)
+                       (mpdel/switch-context 'podcasts)
+                       (libmpdel-play))))
+  :config
+  (setq-default elfeed-search-filter " ")
+  (setq elfeed-feeds
+        '( ("https://phaazon.net/blog/feed")
+           ("https://irreal.org/blog/?feed=rss2")
+           ("https://port19.xyz/rss.xml")
+           ("https://lukesmith.xyz/index.xml")
+           ("https://notrelated.xyz/rss")
+           ("https://karl-voit.at/feeds/lazyblorg-all.atom_1.0.links-and-content.xml")
+           ;("https://sizeof.cat/index.xml")
+           ("https://www.youtube.com/feeds/videos.xml?channel_id=UCkKmeTinUEU27syZPKrzWQQ")
+           ("https://www.youtube.com/feeds/videos.xml?playlist_id=PLq1vmb-z7PpQt2PDNUr7XOzBjWAOWf0Rt")
+           ("https://danielde.dev/rss.xml")
+           ("https://pkolaczk.github.io/feed.xml")
+           ("https://joeyh.name/blog/index.rss")
+           ("https://kagifeedback.org/atom/t/release-notes")
+           ("https://api.substack.com/feed/podcast/462466.rss")
+           ("https://www.dailywire.com/feeds/rss.xml")
+           ("https://feeds.simplecast.com/6c2VScgo")
+           ("https://feeds.simplecast.com/pp_b9xO6")))
+  (defun elfeed/add-to-playlist ()
+    (interactive
+      (let* ((entry (if (eq major-mode 'elfeed-show-mode)
+                      elfeed-show-entry
+                      (elfeed-search-selected :ignore-region)))
+             (link (elfeed-entry-link entry))
+             (enclosure (elt (car (elfeed-entry-enclosures entry)) 0)) ; fragile?)))
+             (command (if (mpdel/is-current-context 'podcasts) (format "add \"%s\"" enclosure)
+                                                               (format "playlistadd podcasts \"%s\"" enclosure))))
+        (when enclosure
+          (libmpdel-ensure-connection)
+          (libmpdel-send-command command (lambda (s) (pp s))))))))
+(use-package elfeed-summary
+  :straight t
+  :defer t
+  :commands (elfeed-summary)
+  :bind (:map elfeed-summary-mode-map
+              ("p" . magit-section-backward))
+  :config
+  (setq-default elfeed-summary-default-filter " ")
+  (setq-default elfeed-summary-look-back most-positive-fixnum)
+  (setq elfeed-summary--search-show-read t)
+  (setq elfeed-summary-settings
+        '((query . :all))))
+
 (provide 'apps)
 ;;; apps.el ends here

config/.emacs.d/plugins/lang.el

@@ -45,6 +45,19 @@
   :defer t
   :straight '(:type git :host codeberg :repo "meow_king/zig-ts-mode"))
 
+(use-package haskell-ts-mode
+  :ensure t
+  :custom
+  (haskell-ts-font-lock-level 4)
+  (haskell-ts-use-indent t)
+  (haskell-ts-ghci "ghci")
+  (haskell-ts-use-indent t)
+  :config
+  (add-to-list 'treesit-language-source-alist
+   '(haskell . ("https://github.com/tree-sitter/tree-sitter-haskell" "v0.23.1"))))
+  ;; (unless (treesit-grammar-location 'haskell)
+   ;; (treesit-install-language-grammar 'haskell)))
+
 (use-package eglot-x
   :ensure t
   :defer t
@@ -69,7 +82,9 @@
 
 (with-eval-after-load 'eglot
   (add-to-list 'eglot-server-programs
-               '(zig-ts-mode . ("zls"))))
+               '(zig-ts-mode . ("zls")))
+  (add-to-list 'eglot-server-programs
+               '(haskell-ts-mode . ("haskell-language-server-wrapper" "--lsp"))))
 
 (add-to-list 'auto-mode-alist '("\\.odin\\'" . odin-ts-mode))
 (add-to-list 'auto-mode-alist '("\\.zig\\(?:\\.zon\\)?\\'" . zig-ts-mode))

config/.emacs.d/plugins/themes.el

@@ -49,7 +49,7 @@
   :defer t
   :init
   ;; Configure themes
-  (setq auto-dark-themes '((doom-gruvbox) (doom-gruvbox-light)))
+  (setq auto-dark-themes '((kaolin-dark) (kaolin-light)))
   ;; Disable doom's theme loading mechanism (just to make sure)
   ;; (setq! doom-theme nil)
   ;; Declare that all themes are safe to load.

config/.icons/Chicago95-tux/actions/16/action-unavailable-symbolic.png

@@ -1 +0,0 @@
-stop.png

config/.icons/Chicago95-tux/actions/16/action-unavailable.png

@@ -1 +0,0 @@
-stop.png

config/.icons/Chicago95-tux/actions/16/add.png

@@ -1 +0,0 @@
-list-add.png

config/.icons/Chicago95-tux/actions/16/address-book-new-symbolic.png

@@ -1 +0,0 @@
-./address-book-new.png

config/.icons/Chicago95-tux/actions/16/align-horizontal-center-symbolic.png

@@ -1 +0,0 @@
-./align-horizontal-center.png

config/.icons/Chicago95-tux/actions/16/align-horizontal-left-symbolic.png

@@ -1 +0,0 @@
-./align-horizontal-left.png

config/.icons/Chicago95-tux/actions/16/align-horizontal-right-symbolic.png

@@ -1 +0,0 @@
-./align-horizontal-right.png

config/.icons/Chicago95-tux/actions/16/align-vertical-bottom-symbolic.png

@@ -1 +0,0 @@
-./align-vertical-bottom.png

config/.icons/Chicago95-tux/actions/16/align-vertical-center-symbolic.png

@@ -1 +0,0 @@
-./align-vertical-center.png

config/.icons/Chicago95-tux/actions/16/align-vertical-top-symbolic.png

@@ -1 +0,0 @@
-./align-vertical-top.png

config/.icons/Chicago95-tux/actions/16/application-add-symboliv.png

@@ -1 +0,0 @@
-window-new.png

config/.icons/Chicago95-tux/actions/16/application-add.png

@@ -1 +0,0 @@
-window-new.png

config/.icons/Chicago95-tux/actions/16/application-exit-symbolic.png

@@ -1 +0,0 @@
-./application-exit.png

config/.icons/Chicago95-tux/actions/16/appointment-new-symbolic.png

@@ -1 +0,0 @@
-./appointment-new.png

config/.icons/Chicago95-tux/actions/16/appointment.png

@@ -1 +0,0 @@
-appointment-new.png

config/.icons/Chicago95-tux/actions/16/back.png

@@ -1 +0,0 @@
-go-previous.png

config/.icons/Chicago95-tux/actions/16/blueman-send-file.png

@@ -1 +0,0 @@
-document-send.png

config/.icons/Chicago95-tux/actions/16/bonobo-component-browser.png

@@ -1 +0,0 @@
-document-properties.png

config/.icons/Chicago95-tux/actions/16/bookmark-new-symbolic.png

@@ -1 +0,0 @@
-./bookmark-new.png

config/.icons/Chicago95-tux/actions/16/bookmark_add.png

@@ -1 +0,0 @@
-bookmark-new.png

config/.icons/Chicago95-tux/actions/16/bookmarks_list_add.png

@@ -1 +0,0 @@
-bookmark-new.png

config/.icons/Chicago95-tux/actions/16/bottom.png

@@ -1 +0,0 @@
-go-bottom.png

config/.icons/Chicago95-tux/actions/16/browser-download.png

@@ -1 +0,0 @@
-document-save.png

config/.icons/Chicago95-tux/actions/16/button_cancel.png

@@ -1 +0,0 @@
-stock_no.png

config/.icons/Chicago95-tux/actions/16/call-missed-symbolic.png

@@ -1 +0,0 @@
-call-stop.png

config/.icons/Chicago95-tux/actions/16/call-start-symbolic.png

@@ -1 +0,0 @@
-./call-start.png

config/.icons/Chicago95-tux/actions/16/call-stop-symbolic.png

@@ -1 +0,0 @@
-./call-stop.png

config/.icons/Chicago95-tux/actions/16/cancel.png

@@ -1 +0,0 @@
-stock_no.png

config/.icons/Chicago95-tux/actions/16/centerjust.png

@@ -1 +0,0 @@
-format-justify-center.png

config/.icons/Chicago95-tux/actions/16/centrejust.png

@@ -1 +0,0 @@
-format-justify-center.png

config/.icons/Chicago95-tux/actions/16/color-select-symbolic.png

@@ -1 +0,0 @@
-color-select.png

config/.icons/Chicago95-tux/actions/16/contact-new-symbolic.png

@@ -1 +0,0 @@
-./contact-new.png

config/.icons/Chicago95-tux/actions/16/dialog-apply.png

@@ -1 +0,0 @@
-gtk-ok.png

config/.icons/Chicago95-tux/actions/16/dialog-cancel.png

@@ -1 +0,0 @@
-stock_no.png

config/.icons/Chicago95-tux/actions/16/dialog-close.png

@@ -1 +0,0 @@
-stock_no.png

config/.icons/Chicago95-tux/actions/16/dialog-no.png

@@ -1 +0,0 @@
-stock_no.png

config/.icons/Chicago95-tux/actions/16/dialog-ok-apply.png

@@ -1 +0,0 @@
-gtk-ok.png

config/.icons/Chicago95-tux/actions/16/dialog-ok.png

@@ -1 +0,0 @@
-dialog-apply.png

config/.icons/Chicago95-tux/actions/16/dialog-yes.png

@@ -1 +0,0 @@
-dialog-apply.png

config/.icons/Chicago95-tux/actions/16/distribute-horizontal-left-symbolic.png

@@ -1 +0,0 @@
-./distribute-horizontal-left.png

config/.icons/Chicago95-tux/actions/16/distribute-horizontal-right-symbolic.png

@@ -1 +0,0 @@
-./distribute-horizontal-right.png

config/.icons/Chicago95-tux/actions/16/distribute-vertical-bottom-symbolic.png

@@ -1 +0,0 @@
-./distribute-vertical-bottom.png

config/.icons/Chicago95-tux/actions/16/distribute-vertical-center-symbolic.png

@@ -1 +0,0 @@
-./distribute-vertical-center.png

config/.icons/Chicago95-tux/actions/16/distribute-vertical-top-symbolic.png

@@ -1 +0,0 @@
-./distribute-vertical-top.png