site-modules/core/files/emacs/init.el

@@ -91,20 +91,6 @@ just in in the current buffer."
 (require 'org-id)
 (require 'org-protocol)
 (require 'org-tempo)
-(require 'ob)
-
-(use-package ob-nushell
-  :straight '(ob-nushell :type git :host github :repo "ln-nl/ob-nushell")
-  :config
-  (require 'ob-nushell)
-  (setq org-babel-nushell-command "~/.cargo/bin/nu"
-        ob-nushell-command-options "--error-style p")
-
-  (org-babel-do-load-languages
-    'org-babel-load-languages
-    '((emacs-lisp . t) ; Enable Emacs Lisp
-      (shell . t)
-      (nushell . t))))
 
 (defun aa/org-roam-update-tasklist-tag ()
   "Add or remove the 'tasklist' filetag based on the presence of TODO items in
@@ -193,25 +179,14 @@ just in in the current buffer."
          ((agenda "" ((org-deadline-warning-days 7)))
           (todo "WAITING"
                 ((org-agenda-overriding-header "Waiting on External")))
+          (todo "TODO"
+                ((org-agenda-overriding-header "Scheduled")
+                 (org-agenda-skip-function '(org-agenda-skip-entry-if 'nottimestamp))))
           (todo "TODO"
                 ((org-agenda-overriding-header "Backlog")
                  (org-agenda-todo-list-sublevels nil)
-                 (org-agenda-skip-function '(org-agenda-skip-entry-if 'timestamp))))
+                 (org-agenda-skip-function '(org-agenda-skip-entry-if 'timestamp))))))))
-          (todo "TODO"
-                   ((org-agenda-overriding-header "Scheduled After This Week")
-                    (org-agenda-skip-function
-                (lambda ()
-                   (let* ((scheduled (org-get-scheduled-time (point)))
-                          (end-of-week
-                           (time-add (current-time)
-                                     (days-to-time
-                                      (- 7 (string-to-number (format-time-string "%u")))))))
-                     (if (and scheduled
-                              (time-less-p end-of-week scheduled))
-                         nil
-                       (org-end-of-subtree t)))))))
 
-  ))))
 (setq org-capture-templates
       '(("t" "Todo" entry (file+headline "Todo.org" "Inbox")
          "* TODO %?\n\n  %a")))
@@ -362,13 +337,13 @@ just in in the current buffer."
   :defer t)
 
 (use-package notmuch
-  :straight t
+  ;; Use the notmuch package that is installed
+  :load-path "/usr/share/emacs/site-lisp"
   :config
-  (setq notmuch-command "~/.local/bin/notmuch-remote")
   (setq notmuch-saved-searches '((:name "inbox"
                                   :key "i"
                                   :query "query:inbox"
-                                  :sort-order oldest-first))))
+                                  :sort-order oldest-first)))
 
 (defun aa/notmuch-open-github-link ()
   "Open the first GitHub Pull Request or Issue link in the current notmuch message or thread.
@@ -405,7 +380,7 @@ Works in both `notmuch-show-mode` and `notmuch-search-mode`."
   "b" 'aa/notmuch-open-github-link)
 
 (evil-define-key 'visual notmuch-search-mode-map
-  "d" 'aa/notmuch-search-delete
+  "d" 'aa/notmuch-search-delete)
   "b" 'aa/notmuch-open-github-link)
 
 (evil-define-key 'normal notmuch-show-mode-map

site-modules/core/files/nushell/scripts/prompt.nu

@@ -7,7 +7,7 @@
 # The format of the prompt is: username@hostname:current_path
 def create_left_prompt [] {
     let username = $env.USER
-    let hostname = (sys host | get hostname) | str downcase # $env.HOSTNAME | str downcase
+    let hostname = $env.HOSTNAME | str downcase
 
     let formatted_path = $env.PWD
       | str replace $env.HOME '~'