.config/emacs/elisp/mu4e-fast-folding.el

@@ -1,197 +0,0 @@
-;; mu4e thread fast folding -*- lexical-binding: t; -*-
-
-;; This file is not part of GNU Emacs.
-;;
-;; This program is free software: you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation, either version 3 of the
-;; License, or (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>
-(require 'mu4e)
-
-(defun mu4e-fast-folding-info (msg)
-  (let* ((thread (mu4e-message-field msg :meta))
-         (prefix (mu4e~headers-thread-prefix thread))
-         (unread (memq 'unread (mu4e-message-field msg :flags))))
-    (concat 
-     (if (= (length prefix) 0) " " " ") ;; Normal space vs Non-breaking space
-     (if unread "•" " ")))) ;; Specific character to later detect unread
-
-(add-to-list 'mu4e-header-info-custom
-             '(:fast-folding . (:name "fast-folding"
-                         :shortname ""
-                         :function mu4e-fast-folding-info)))
-
-(setq mu4e-headers-fields '((:fast-folding . 2)
-                            (:human-date . 12)
-                            (:flags . 6)
-                            (:mailing-list . 10)
-                            (:from . 22)
-                            (:subject)))
-
-(defun mu4e-fast-folding-is-unfolded-child ()
-  "Check if the line at point is an unfolded thread child.
-This is detected by the presence of non-breaking space."
-  
-  (interactive)
-  (save-excursion
-    (beginning-of-line)
-    (and (not (mu4e-fast-folding-is-folded-children))
-         (search-forward " " (line-end-position) t))))
-
-(defun mu4e-fast-folding-is-folded-children ()
-  "Check if the line at point is a folded thread. 
-This is detected by the presence of an overlay with value 'overlay."
-  
-  (interactive)
-  (save-excursion
-    (beginning-of-line)
-    (let ((overlays (overlays-at (point)))
-          (found nil))
-      (while overlays
-        (if (overlay-get (car overlays) 'overlay)
-            (setq found t))
-        (setq overlays (cdr overlays)))
-      found)))
-
-(defun mu4e-fast-folding-is-root ()
-  "Check if the line at point is a thread root."
-
-  (interactive)
-  (and (not (mu4e-fast-folding-is-unfolded-child))
-       (not (mu4e-fast-folding-is-folded-children))))
-
-(defun mu4e-fast-folding-is-unread ()
-  "Check if the line at point is an unread message."
-  
-    (save-excursion
-      (beginning-of-line)
-      (search-forward "•" (line-end-position) t)))
-
-(defun mu4e-fast-folding-thread-toggle ()
-  "Toggle thread at point."
-  
-  (interactive)
-  (save-excursion
-    (beginning-of-line)
-    (if (mu4e-fast-folding-is-root)
-        (forward-line))
-    (cond ((mu4e-fast-folding-is-folded-children)
-           (mu4e-fast-folding-thread-unfold))
-          ((mu4e-fast-folding-is-unfolded-child)
-           (mu4e-fast-folding-thread-fold)))))
-
-
-(defun mu4e-fast-folding-thread-unfold ()
-  "Unfold thread at point."
-  
-  (interactive)
-  (if (mu4e-fast-folding-is-root)
-      (forward-line))
-
-  (let ((overlays (overlays-at (point))))
-    (while overlays
-      (let ((overlay (car overlays)))
-        (if (overlay-get overlay 'overlay)
-            (delete-overlay (overlay-get overlay 'overlay))))
-      (setq overlays (cdr overlays)))))
-
-
-(defun mu4e-fast-folding-thread-fold ()
-  "Fold thread at point."
-  
-  (interactive)
-
-  ;; Move to thread start
-  (beginning-of-line)
-  (while (and (> (point) (point-min))
-              (mu4e-fast-folding-is-unfolded-child))
-    (forward-line -1))
-  (forward-line +1)
-
-  ;; Hide all children, count them  and count unread
-  (beginning-of-line)
-  (let ((start (point))
-        (end (+ (point) 1))
-        (unread 0)
-        (count 0))
-    (while (and (< (point) (point-max))
-                (mu4e-fast-folding-is-unfolded-child))
-
-        ;; Count unread
-        (beginning-of-line)
-        (if (mu4e-fast-folding-is-unread)
-            (setq unread (+ unread 1)))
-
-        ;; Count thread
-        (setq count (+ count 1))
-
-        ;; Set new end for the overlay
-        (setq end (+ (line-end-position) 1))
-        (forward-line +1)
-        (beginning-of-line))
-
-      ;; Add overlay
-      (let* ((overlay (make-overlay start (- end 1)))
-             (face (if (> unread 0) 'mu4e-unread-face 'mu4e-system-face))
-             (text (if (> unread 0)
-                       (format "      --- %d hidden messages (%d unread) ---      " count unread)
-                     (format "      --- %d hidden messages ---      " count))))
-
-        ;; No overlay if only 1 child
-        (when (> count 1)
-          (overlay-put overlay 'display (propertize text 'face face))
-          (overlay-put overlay 'overlay overlay)))))
-
-
-(defun mu4e-fast-folding-thread-fold-all ()
-  "Fold all threads independently of their current state."
-  
-  (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (while (not (eobp))
-      (mu4e-fast-folding-thread-fold)
-      (forward-line))))
-
-(defun mu4e-fast-folding-thread-unfold-all ()
-  "Unfold all threads, independently of their current state."
-  
-  (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (while (not (eobp))
-      (mu4e-fast-folding-thread-unfold)
-      (forward-line))))
-
-(defvar mu4e-fast-folding-thread-folding-state nil
-  "Global folding state")
-
-(defun mu4e-fast-folding-thread-toggle-all ()
-  "Toggle global folding state."
-
-  (interactive)
-  (when mu4e-headers-include-related
-    (setq mu4e-fast-folding-thread-folding-state
-          (not mu4e-fast-folding-thread-folding-state))
-    (mu4e-fast-folding-thread-apply-folding)))
-
-
-(defun mu4e-fast-folding-thread-apply-folding ()
-  "Apply folding according to the global folding state."
-
-  (interactive)
-  (if mu4e-fast-folding-thread-folding-state
-      (mu4e-fast-folding-thread-fold-all)
-    (mu4e-fast-folding-thread-unfold-all)))
-
-(add-hook 'mu4e-headers-found-hook
-          #'mu4e-fast-folding-thread-fold-all)
-

.config/emacs/elisp/mu4e-thread-folding.el

@@ -1,382 +0,0 @@
-;;; mu4e-thread-folding.el --- Thread folding support for mu4e -*- lexical-binding: t -*-
-
-;; Copyright (C) 2021 Nicolas P. Rougier
-;;
-;; Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
-;; Homepage: https://github.com/rougier/mu4e-thread-folding
-;; Keywords: mail
-;; Version: 0.2
-;; Package-Requires: ((emacs "26.1"))
-
-;; This file is not part of GNU Emacs.
-;;
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; mu4e-thread-folding.el is a small library to enable threads folding in
-;; mu4e. This works by using overlays with an invisible property and
-;; setting hooks at the right place. It is possible to configure colors
-;; to better highlight a thread and also to have a prefix string
-;; indicating if a thread is folded or not. Note that when a thread is
-;; folded, any unread child remains visible.
-
-;; Usage:
-
-;; The prefix string is displayed over the header line and it is thus
-;; recommended to have an empty field at the start of an header line.
-;; Have a look at ~mu4e-headers-fields~.
-;;
-;; (require 'mu4e-thread-folding)
-;; (add-to-list 'mu4e-header-info-custom
-;;              '(:empty . (:name "Empty"
-;;                          :shortname ""
-;;                          :function (lambda (msg) "  "))))
-;; (setq mu4e-headers-fields '((:empty         .    2)
-;;                             (:human-date    .   12)
-;;                             (:flags         .    6)
-;;                             (:mailing-list  .   10)
-;;                             (:from          .   22)
-;;                             (:subject       .   nil)))
-
-
-;;; Code:
-(require 'mu4e)
-
-(defvar mu4e-thread-folding-mode nil)
-(defvar mu4e-headers--folded-items nil)
-
-(defgroup mu4e-thread-folding '()
-  "Group for mu4e thread folding options"
-  :group 'mu4e)
-
-(defface mu4e-thread-folding-root-unfolded-face
-  `((t :inherit 'default))
-  "Face for the root node thread when it is unfolded."
-  :group 'mu4e-thread-folding)
-
-(defface mu4e-thread-folding-root-folded-face
-  `((t :inherit 'default))
-  "Face for the root node of a thread when it is folded."
-  :group 'mu4e-thread-folding)
-
-(defface mu4e-thread-folding-child-face
-  `((t :inherit 'default))
-  "Face for a thread when it is unfolded (child node)"
-  :group 'mu4e-thread-folding)
-
-(defface mu4e-thread-folding-root-prefix-face
-  `((t :inherit default))
-  "Face for the root node thread when it is unfolded."
-  :group 'mu4e-thread-folding)
-
-(defcustom mu4e-thread-folding-default-view 'folded
-  "Initial folding status ('folded or 'unfolded)."
-  :type 'string
-  :group 'mu4e-thread-folding)
-
-(defcustom mu4e-thread-folding-root-unfolded-prefix-string
-  "[%2d] ▾"
-  "Prefix for the root node thread when it is unfolded."
-  :type 'string
-  :group 'mu4e-thread-folding)
-
-(defcustom mu4e-thread-folding-root-folded-prefix-string
-  "[%2d] ▸"
-  "Prefix for the root node (when folded)"
-  :type 'string
-  :group 'mu4e-thread-folding)
-
-(defcustom mu4e-thread-folding-child-prefix-string
-  " "
-  "Prefix for a child node."
-  :type 'string
-  :group 'mu4e-thread-folding)
-
-(defvar mu4e-thread-folding-all-folded nil
-  "Record whether last fold-all state was folded.")
-
-(defun mu4e-headers-get-thread-id (msg)
-  "Retrieve the thread-id of a msg.
-This uses the mu4e private API and this might break in future releases."
-  (mu4e~headers-get-thread-info msg 'thread-id))
-
-
-(defun mu4e-headers-mark-threads (&optional no-reset)
-  "Mark line in headers view with various information contained in overlays."
-  (when (and (get-buffer "*mu4e-headers*") mu4e-headers-show-threads)
-    (with-current-buffer "*mu4e-headers*"
-      (setq-local line-move-visual t
-                  line-move-ignore-invisible t)
-      ;; turn on minor mode for key bindings
-      (unless mu4e-thread-folding-mode (mu4e-thread-folding-mode 1))
-      ;; Remove all overlays
-      (cl-loop with names = '(thread-child thread-root root-prefix)
-               for ov being the overlays
-               when (cl-loop for name in names
-                             thereis (overlay-get ov name))
-               do (delete-overlay ov))
-      (unless no-reset (setq mu4e-headers--folded-items nil))
-      (setq-local left-margin-width 1)
-      (if (get-buffer-window "*mu4e-headers*")
-          (set-window-margins (get-buffer-window "*mu4e-headers*")
-                              (max (length mu4e-thread-folding-root-folded-prefix-string)
-                                   (length mu4e-thread-folding-root-unfolded-prefix-string))))
-      (let ((overlay-priority     -60)
-            (folded               (string= mu4e-thread-folding-default-view 'folded))
-            (child-face           'mu4e-thread-folding-child-face)
-            (children-number      1)
-            (root-id              nil)
-            (root-overlay         nil)
-            (root-unread-child    nil)
-            docid-overlay
-            (root-folded-face     'mu4e-thread-folding-root-folded-face)
-            (root-unfolded-face   'mu4e-thread-folding-root-unfolded-face)
-            (root-folded-prefix   mu4e-thread-folding-root-folded-prefix-string)
-            (root-unfolded-prefix mu4e-thread-folding-root-unfolded-prefix-string))
-        ;; store initial folded state
-        (setq mu4e-thread-folding-all-folded folded)
-        (setq-local buffer-invisibility-spec '(docid t))
-        ;; Iterate over each header
-        (mu4e-headers-for-each
-         (lambda (msg)
-           (let* ((docid (mu4e-message-field msg :docid))
-                  (docid-pos (cons (mu4e~headers-goto-docid docid)
-                                   (mu4e~headers-goto-docid docid t)))
-                  (id     (mu4e-headers-get-thread-id msg))
-                  (flagged (member 'flagged (mu4e-message-field msg :flags)))
-                  (unread (member 'unread (mu4e-message-field msg :flags)))
-                  (child-overlay (make-overlay
-                                  (line-beginning-position)
-                                  (+ 1 (line-end-position)))))
-;;             (setq folded (or (and (member id mu4e-headers--folded-items) t)
-;;                              mu4e-thread-folding-all-folded))
-             (setq folded (member id mu4e-headers--folded-items))
-             ;; We mark the root thread if and only if there's child
-             (if (string= root-id id)
-                 (progn
-                   (setq children-number (+ children-number 1))
-                   
-                   ;; unread-child indicates that there's at least one unread child
-                   (setq root-unread-child (or root-unread-child unread))
-                   ;; Child
-                   (when (and (not unread) (not flagged))
-                     (overlay-put child-overlay 'face child-face))
-                   (overlay-put child-overlay 'invisible (and folded (not unread)))
-                   (overlay-put child-overlay 'priority overlay-priority)
-                   (overlay-put child-overlay 'unread unread)
-                   (overlay-put child-overlay 'thread-child t)
-                   (overlay-put child-overlay 'thread-id id)
-                   ;; Root
-                   (overlay-put
-                    root-overlay 'face (if (or root-unread-child (not folded))
-                                           root-unfolded-face
-                                         root-folded-face))
-                   (overlay-put root-overlay 'thread-root t)
-                   (overlay-put root-overlay 'thread-id id)
-                   (overlay-put root-overlay 'folded folded)
-                   (overlay-put root-overlay 'priority overlay-priority)
-                   (overlay-put root-overlay 'invisible 'root)
-                   (overlay-put root-overlay 'prefix-docid docid-overlay)
-                   (overlay-put
-                    docid-overlay 'before-string
-                    (propertize
-                     " " 'display
-                     `((margin left-margin)
-                       ,(propertize
-                         (if (or root-unread-child (not folded))
-                             (format root-unfolded-prefix children-number)
-                           (format root-folded-prefix children-number))
-                         'face 'mu4e-thread-folding-root-prefix-face))))
-                   (overlay-put docid-overlay 'invisible 'docid)
-                   (overlay-put docid-overlay 'priority 1)
-                   (overlay-put docid-overlay 'root-prefix t))
-               ;; Else, set the new root (this relies on default message order in header's view)
-               (progn
-                 (if (> children-number 1)
-                     (overlay-put root-overlay 'children-number children-number))
-                 (setq root-id id
-                     root-unread-child nil
-                     children-number 1
-                     root-overlay (make-overlay
-                                   (line-beginning-position)
-                                   (1+ (line-end-position)))
-                     docid-overlay (make-overlay
-                                    (car docid-pos)
-                                    (cdr docid-pos))))))))))))
-
-(defun mu4e-headers-mark-threads-no-reset ()
-  "Same as `mu4e-headers-mark-threads' but don't reset `mu4e-headers--folded-items'."
-  (mu4e-headers-mark-threads 'no-reset))
-
-(defun mu4e-headers-overlay-set-visibility (value &optional thread-id)
-  "Set the invisible property for all thread children or only the ones matching thread-id.
-Unread message are not folded."
-  (when (and (get-buffer "*mu4e-headers*") mu4e-headers-show-threads)
-    (with-current-buffer "*mu4e-headers*"
-      (unless thread-id
-        (setq mu4e-thread-folding-all-folded value))
-      (save-excursion
-        (goto-char (point-min))
-        (let ((root-overlay  nil)
-              (child-overlay nil)
-              (root-folded-face 'mu4e-thread-folding-root-folded-face)
-              (root-unfolded-face 'mu4e-thread-folding-root-unfolded-face)
-              (root-folded-prefix mu4e-thread-folding-root-folded-prefix-string)
-              (root-unfolded-prefix mu4e-thread-folding-root-unfolded-prefix-string))
-          
-          (mu4e-headers-for-each
-           (lambda (_msg)
-             (let (local-child-overlay local-root-overlay)
-               (cl-loop for ov in (overlays-in (point-at-bol) (point-at-eol))
-                        when (overlay-get ov 'thread-child)
-                        do (setq local-child-overlay ov)
-                        when (overlay-get ov 'thread-root)
-                        do (setq local-root-overlay ov))
-               ;; Child
-               (when local-child-overlay
-                 (let ((id     (overlay-get local-child-overlay 'thread-id))
-                       (unread (overlay-get local-child-overlay 'unread)))
-                   (setq child-overlay local-child-overlay)
-                   (when (or (not thread-id) (string= id thread-id))
-                     (if (and root-overlay unread)
-                         (overlay-put root-overlay 'face root-unfolded-face)
-                       (overlay-put child-overlay 'invisible value)))))
-               ;; Root
-               (when local-root-overlay
-                 (let ((children-number (or (overlay-get local-root-overlay 'children-number) 1))
-                       (id (overlay-get local-root-overlay 'thread-id)))
-                   (setq root-overlay local-root-overlay)
-                   (when (or (not thread-id) (string= id thread-id))
-                     (if (and (overlay-get root-overlay 'folded) (null value))
-                         (setq mu4e-headers--folded-items
-                               (delete id mu4e-headers--folded-items))
-                       (push id mu4e-headers--folded-items))
-                     (overlay-put root-overlay 'folded value)
-                     (overlay-put
-                      (overlay-get root-overlay 'prefix-docid) 'before-string
-                      (propertize
-                       " " 'display
-                       `((margin left-margin)
-                         ,(propertize
-                           (if value
-                               (format root-folded-prefix children-number)
-                             (format root-unfolded-prefix children-number))
-                           'face 'mu4e-thread-folding-root-prefix-face))))
-                     (overlay-put
-                      root-overlay 'face (if value
-                                             root-folded-face
-                                           root-unfolded-face)))))
-               ;; Not a root, not a child, we reset the root overlay
-               (when (and (not local-child-overlay) (not local-root-overlay))
-                 (setq root-overlay nil))))))))))
-
-(defun mu4e-headers-get-overlay (prop &optional index)
-  "Get overlay at point having the PROP property"
-  (let* ((index (or index 0))
-         (overlays (overlays-at (+ (point) index)))
-         found)
-    (while (and overlays (not found))
-      (let ((overlay (car overlays)))
-        (if (overlay-get overlay prop)
-            (setq found overlay)))
-      (setq overlays (cdr overlays)))
-    found))
-
-(defun mu4e-headers-toggle-at-point ()
-  "Toggle visibility of the thread at point"
-  (interactive)
-  (when (get-buffer "*mu4e-headers*")
-    (with-current-buffer "*mu4e-headers*"
-      (catch 'break
-        (while (and (not (mu4e-headers--toggle-internal))
-                    (not (bobp)))
-          (forward-line -1))))))
-
-(defun mu4e-headers--toggle-internal ()
-  "Toggle visibility of the thread at point"
-  (let (child-overlay root-overlay)
-    (cl-loop for ov in (overlays-in (point-at-bol) (point-at-eol))
-             when (overlay-get ov 'thread-child)
-             return (setq child-overlay ov)
-             when (overlay-get ov 'thread-root)
-             return (setq root-overlay ov))
-    (cond (root-overlay
-           (let ((id     (overlay-get root-overlay 'thread-id))
-                 (folded (overlay-get root-overlay 'folded)))
-             (mu4e-headers-overlay-set-visibility (not folded) id)
-             (throw 'break t)))
-          ((not child-overlay)
-           (throw 'break t)))))
-
-(defun mu4e-headers-toggle-fold-all ()
-  "Toggle between all threads unfolded and all threads folded."
-  (interactive)
-  (mu4e-headers-overlay-set-visibility
-   (not mu4e-thread-folding-all-folded)))
-
-(defun mu4e-headers-fold-all ()
-  "Fold all threads"
-  (interactive)
-  (mu4e-headers-overlay-set-visibility t))
-
-(defun mu4e-headers-unfold-all ()
-  "Unfold all threads"
-  (interactive)
-  (mu4e-headers-overlay-set-visibility nil))
-
-(defun mu4e-headers-fold-at-point ()
-  "Fold current thread at point"
-  (interactive)
-  (if (get-buffer "*mu4e-headers*")
-      (with-current-buffer "*mu4e-headers*"
-        (let ((overlay (mu4e-headers-get-overlay 'thread-id)))
-          (mu4e-headers-overlay-set-visibility t (overlay-get overlay 'thread-id))))))
-
-(defun mu4e-headers-unfold-at-point ()
-  "Unfold current thread at point"
-  (interactive)
-  (if (get-buffer "*mu4e-headers*")
-      (with-current-buffer "*mu4e-headers*"
-        (let ((overlay (mu4e-headers-get-overlay 'thread-id)))
-          (mu4e-headers-overlay-set-visibility nil (overlay-get overlay 'thread-id))))))
-
-(defvar mu4e-thread-folding-mode-map
-  (let ((map (make-sparse-keymap)))
-    (set-keymap-parent map mu4e-headers-mode-map)
-    (define-key map (kbd "TAB") 'mu4e-headers-toggle-at-point)
-    (define-key map (kbd "<backtab>") 'mu4e-headers-toggle-fold-all)
-    map))
-
-;; Install hooks
-(defun mu4e-thread-folding-load ()
-  "Install hooks."
-  (add-hook 'mu4e-index-updated-hook #'mu4e-headers-mark-threads)
-  (add-hook 'mu4e-headers-found-hook #'mu4e-headers-mark-threads)
-  (add-hook 'mu4e-view-mode-hook 'mu4e-headers-mark-threads-no-reset))
-
-;;;###autoload
-(define-minor-mode mu4e-thread-folding-mode
-  "Minor mode for folding threads in mu4e-headers view."
-  :group 'mu4e-thread-folding
-  :lighter " Threads"
-  (if mu4e-thread-folding-mode
-      (mu4e-thread-folding-load)
-    (remove-hook 'mu4e-index-updated-hook #'mu4e-headers-mark-threads)
-    (remove-hook 'mu4e-headers-found-hook #'mu4e-headers-mark-threads)
-    (remove-hook 'mu4e-view-mode-hook 'mu4e-headers-mark-threads-no-reset)))
-
-
-(provide 'mu4e-thread-folding)
-;;; mu4e-thread-folding.el ends here

.config/emacs/init.org

@@ -267,9 +267,9 @@ Finish up
         '((dotenv :url "https://github.com/pkulev/dotenv.el")
           (gptel :url "https://github.com/karthink/gptel")
           (indent-bars :url "https://github.com/jdtsmith/indent-bars")
-          (pyenv :url "https://github.com/jorgenschaefer/pyvenv")
           (doom-themes :url "https://github.com/JosephFerano/doom-themes")
           (org-timeblock :url "https://github.com/ichernyshovvv/org-timeblock")
+          (org-roam-ui :url "https://github.com/org-roam/org-roam-ui")
           (dape :url "https://github.com/svaante/dape")
           (odin-mode :url "https://github.com/mattt-b/odin-mode")
           (app-launcher :url "https://github.com/SebastienWae/app-launcher")))
@@ -838,8 +838,6 @@ Fill region is great, except when you don't need it...
 (evil-global-set-key 'insert (kbd "C-M-e") #'er/expand-region)
 (evil-global-set-key 'insert (kbd "C-M-p") #'er/mark-inside-pairs)
 (evil-global-set-key 'insert (kbd "C-M-f") #'er/mark-method-call)
-(define-key global-map (kbd "C-=")  #'er/expand-region)
-(define-key global-map (kbd "C-+")  #'er/contract-region)
 #+end_src
 *** Boon
 #+begin_src emacs-lisp :tangle no
@@ -2883,19 +2881,6 @@ instead of =org-files-list=. For each buffer in the list, we switch to it with
 process the clocks in that buffer as before. We find open clocks in the current
 buffer's associated file using =(buffer-file-name buffer)=. It's assumed that all
 Org mode buffers have associated files.
-
-#+begin_src emacs-lisp
-(defun joe/org-clock-project-heading ()
-  "Return the project name (level 2 heading)."
-  (save-excursion
-    ;; Keep going up until we reach level 2 (or can't go up anymore)
-    (while (and (> (org-current-level) 2)
-                (org-up-heading-safe)))
-    (substring-no-properties (org-get-heading t t t t))))
-
-(setq org-clock-heading-function #'joe/org-clock-project-heading)
-
-#+end_src
 #+end_src
 *** Visuals
 #+begin_src emacs-lisp

.config/fish/fish_variables

@@ -7,7 +7,6 @@ SETUVAR EDITOR:hx
 SETUVAR --export LC_COLLATE:C
 SETUVAR --export --path LD_LIBRARY_PATH:/usr/local/lib
 SETUVAR --export NDK_HOME:/home/joe/Android/Sdk/ndk/29\x2e0\x2e13599879/
-SETUVAR --export PYENV_ROOT:/home/joe/\x2epyenv
 SETUVAR --export PYTHONSTARTUP:/etc/python/pythonrc
 SETUVAR --export RUSTUP_HOME:/home/joe/\x2elocal/share/rustup/
 SETUVAR SSH_AUTH_SOCK:/run/user/1000/ssh\x2dagent\x2esocket
@@ -48,4 +47,4 @@ SETUVAR fish_pager_color_description:B3A06D\x1eyellow
 SETUVAR fish_pager_color_prefix:normal\x1e\x2d\x2dbold\x1e\x2d\x2dunderline
 SETUVAR fish_pager_color_progress:brwhite\x1e\x2d\x2dbackground\x3dcyan
 SETUVAR fish_pager_color_selected_background:\x2dr
-SETUVAR --export fish_user_paths:/opt/Defold\x1e/home/joe/\x2edotnet\x1e/home/joe/\x2elocal/share/qlot/bin\x1e/home/joe/\x2elocal/bin/elm\x1e/home/joe/\x2epyenv/bin\x1e/home/joe/Android/Sdk/build\x2dtools\x1e/home/joe/Android/Sdk/emulator\x1e/home/joe/Android/Sdk/cmdline\x2dtools/latest/bin\x1e/home/joe/\x2elocal/android\x2dstudio/bin\x1e/home/joe/\x2edotnet/tools\x1e/home/joe/Repositories/emsdk\x1e/home/joe/Repositories/emsdk/node/18\x2e20\x2e3_64bit/bin\x1e/home/joe/Repositories/emsdk/upstream/emscripten\x1e/home/joe/\x2elocal/bin/odin\x1e/home/joe/\x2elocal/scripts\x1e/home/joe/\x2elocal/opt/JetBrains\x20Rider\x2d2024\x2e1\x2e4/bin\x1e/home/joe/\x2elocal/share/bin/fasm\x1e/home/joe/\x2elocal/share/bin/zig\x1e/home/joe/\x2elocal/share/bin/cargo/bin\x1e/home/joe/\x2elocal/bin\x1e/home/joe/\x2enimble/bin
+SETUVAR --export fish_user_paths:/home/joe/Android/Sdk/build\x2dtools\x1e/home/joe/Android/Sdk/emulator\x1e/home/joe/Android/Sdk/cmdline\x2dtools/latest/bin\x1e/home/joe/\x2elocal/android\x2dstudio/bin\x1e/home/joe/\x2edotnet/tools\x1e/home/joe/Repositories/emsdk\x1e/home/joe/Repositories/emsdk/node/18\x2e20\x2e3_64bit/bin\x1e/home/joe/Repositories/emsdk/upstream/emscripten\x1e/home/joe/\x2elocal/bin/odin\x1e/home/joe/\x2elocal/scripts\x1e/home/joe/\x2elocal/opt/JetBrains\x20Rider\x2d2024\x2e1\x2e4/bin\x1e/home/joe/\x2elocal/share/bin/fasm\x1e/home/joe/\x2elocal/share/bin/zig\x1e/home/joe/\x2elocal/share/bin/cargo/bin\x1e/home/joe/\x2elocal/bin\x1e/home/joe/\x2enimble/bin

.config/qtile/config.py

@@ -131,6 +131,7 @@ keys = [
     Key([mod], "w", lazy.next_layout(), desc="Toggle between layouts"),
     Key([mod, "control"], "w", lazy.function(get_current_window_info), desc="Get window info"),
     Key([mod], "s", lazy.spawn("flameshot gui"), desc="Flameshot screenshot"),
+    Key([mod], "m", lazy.spawn("/home/joe/.local/scripts/trackball.sh", shell=True)),
 
     # TODO: Figure out another binding for this
     # Key([mod], "n", lazy.layout.normalize(), desc="Reset all window sizes"),
@@ -363,14 +364,6 @@ floating_layout = layout.Floating(
         Match(wm_class="maketag"),  # gitk
         Match(wm_class="ssh-askpass"),  # ssh-askpass
         Match(title="SimpleScreenRecorder"),  # ssh-askpass
-        # Defold
-        Match(wm_class="com.defold.editor.Start", func=lambda c: c.is_transient_for()),
-        Match(wm_class="Tinyswords"),
-        Match(func=lambda c:
-              (c.window.get_wm_normal_hints() is not None and
-               c.window.get_wm_normal_hints().get('flags') == {'PWinGravity'}) and
-              (c.window.get_wm_class() is not None and
-               any("defold" in cls.lower() for cls in c.window.get_wm_class()))),
         # Godot
         Match(title="Alert!"),
         Match(title="Please Confirm..."),

.local/scripts/battery-notify.sh

@@ -1,11 +0,0 @@
-#!/bin/bash
-BATTERY_LEVEL=$(upower -i $(upower -e | grep 'BAT') | grep -E "percentage" | awk '{print $2}' | sed 's/%//')
-
-if [ $BATTERY_LEVEL -le 5 ]; then
-    notify-send "Low Battery" "Battery level is ${BATTERY_LEVEL}%" -u critical
-    exit
-fi
-
-if [ $BATTERY_LEVEL -le 10 ]; then
-    notify-send "Low Battery" "Battery level is ${BATTERY_LEVEL}%" -u normal
-fi

.local/scripts/view-md-in-browser.sh

@@ -1,15 +0,0 @@
-#!/bin/sh
-
-set -e
-
-if [ $# -eq 0 ]; then
-    echo "Error: Please provide a path to the markdown file"
-    exit 1
-fi
-
-basename="${1##*/}"
-basename="${basename%.*}"
-echo $basename
-TMPFILE=$(mktemp /tmp/XXXXXXXXXX-${basename}.html)
-pandoc -f markdown -t html -o "$TMPFILE" "$1" --embed-resources --standalone --css="https://cdn.jsdelivr.net/npm/sakura.css/css/sakura.css"
-xdg-open $TMPFILE