lisp/mitch-orgstuff.el

@@ -72,6 +72,24 @@
 ;; (add-to-list 'auto-mode-alist `(,org-wiki-regex . org-vw-mode))
 (add-hook 'org-mode-hook #'org-vw-mode)
 
+(defun mitch-insert-current-datetime ()
+  "Insert the current date and time in my preffered format, with a newline at
+the end."
+  (interactive)
+  (let ((calendar-date-display-form calendar-iso-date-display-form))
+    (insert
+     (downcase
+      (format "%s %s\n" (calendar-date-string (calendar-current-date))
+	      (format-time-string "%-l:%M %p"))))))
+(defun mitch-1st-heading-now ()
+  "Insert a brand new 2nd level Org heading containing the current date/time.
+Start insert mode."
+  (interactive)
+  (goto-char (point-max))
+  (insert "* ")
+  (mitch-insert-current-datetime)
+  (evil-insert 1))
+
 ;; ------------------ ABANDON ALL SANITY, YE WHO ENTER HERE --------------------
 
 (defvar mitch/org-dwim-char-chars '("_" "/" "*" "+" "~" "="))

lisp/mitch-packages.el

@@ -20,7 +20,7 @@
   (global-prettify-symbols-mode 1)
   (auto-insert-mode))
 
-;; (use-package no-littering) ;a bad start, and we need more
+(use-package no-littering) ;a good start, but we need more
 
 (use-package epg
   :elpaca nil
@@ -185,7 +185,7 @@
   :custom
   (eshell-scroll-to-bottom-on-input t)
   (eshell-hist-ignoredups t)
-  (eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
+  (eshell-history-file-name nil)
   (eshell-history-size nil)
   (eshell-banner-message "")
   (eshell-expand-input-functions '(eshell-expand-history-references))
@@ -303,15 +303,15 @@ If the current window occupies the whole frame, split it."
   :elpaca (:host gitlab
 		 :repo "xgqt/emacs-ansilove")
   :commands ansilove)
-;; (use-package gitstatus
-;;   :elpaca (:host github
-;; 		 :repo "igorepst/gitstatus-el")
-;;   :after eshell
-;;   :init
-;;   (setq system-architecture (car (split-string system-configuration "-")))
-;;   (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
-;; 			  system-architecture))
-;;   (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
+(use-package gitstatus
+  :elpaca (:host github
+		 :repo "igorepst/gitstatus-el")
+  :after eshell
+  :init
+  (setq system-architecture (car (split-string system-configuration "-")))
+  (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
+			  system-architecture))
+  (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
 (use-package p11k
   :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/p11k-el")
   :after eshell
@@ -534,9 +534,7 @@ targets."
   (airline-shortened-directory-length 20)
   :custom-face
   (mode-line
-   ((t (:box (:style released-button
-		     ;; :line-width (0.5 . 0.5)
-		     )))))
+   ((t (:box (:style released-button :line-width (0.5 . 0.5))))))
   ;; :config (load-theme 'airline-kolor t)
   )
 ;; see https://github.com/dbordak/telephone-line/issues/126
@@ -614,24 +612,6 @@ targets."
 	font-lock-doc-markup-face))))
   (add-hook 'org-mode-hook
 	    #'mitch/org-grayify-stars 90)
-  (defun mitch-insert-current-datetime ()
-    "Insert the current date and time in my preffered format, with a newline at
-the end."
-    (interactive)
-    (let ((calendar-date-display-form calendar-iso-date-display-form))
-      (insert
-       (downcase
-	(format "%s %s\n" (calendar-date-string (calendar-current-date))
-		(format-time-string "%-l:%M %p"))))))
-  (defun mitch-1st-heading-now ()
-    "Insert a brand new 2nd level Org heading containing the current date/time.
-Start insert mode."
-    (interactive)
-    (goto-char (point-max))
-    (insert "* ")
-    (mitch-insert-current-datetime)
-    (evil-insert 1))
-
   :hook
   (org-mode . turn-off-line-numbers)
   ;; (org-mode . org-vw-mode)
@@ -1104,10 +1084,10 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
   :custom
   (power-mode-streak-shake-threshold nil))
 
-;; (use-package hypop
-;;   :if (display-graphic-p)
-;;   :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/hypop.el")
-;;   :demand t)
+(use-package hypop
+  :if (display-graphic-p)
+  :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/hypop.el")
+  :demand t)
 ;; (use-package vertico-posframe
 ;;   :after vertico
 ;;   :if (display-graphic-p)
@@ -1126,20 +1106,20 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
   (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
   )
 
-;; (use-package hl-column ; disabled because visual yuck
-;;   :if (display-graphic-p)
-;;   :config
-;;   (defun hl-col-line-init ()
-;;     "Toggle both `hl-column-mode' and `hl-line-mode' in sync."
-;;     (interactive)
-;;     (hl-line-mode 'toggle)
-;;     (hl-column-mode 'toggle))
-;;   :custom-face
-;;   (hl-line
-;;    ((t (:background "#101010"))))
-;;   (hl-column
-;;    ((t (:inherit hl-line))))
-;;   :hook (prog-mode . hl-col-line-init))
+(use-package hl-column
+  :if (display-graphic-p)
+  :config
+  (defun hl-col-line-init ()
+    "Toggle both `hl-column-mode' and `hl-line-mode' in sync."
+    (interactive)
+    (hl-line-mode 'toggle)
+    (hl-column-mode 'toggle))
+  :custom-face
+  (hl-line
+   ((t (:background "#101010"))))
+  (hl-column
+   ((t (:inherit hl-line))))
+  :hook (prog-mode . hl-col-line-init))
 
 (use-package vidframe
   :if (display-graphic-p)		;we won't yet bother with
@@ -1203,54 +1183,5 @@ This is redefined for use with `hypop' library because multiple Emacs frames may
     (eaf-browser-continue-where-left-off t)
     (eaf-browser-enable-adblocker t)))
 
-(use-package dtache
-  :elpaca (:url "https://gitlab.com/niklaseklund/dtache")
-  :hook (after-init . dtache-setup))
-
-(if (display-graphic-p)
-    (unless (string= (getenv "XDG_SESSION_DESKTOP") "hyprland")
-      (progn
-	(add-to-list 'load-path "~/.local/src/holo-layer")
-	(require 'holo-layer)
-	(setq holo-layer-enable-cursor-animation t)
-	(setq holo-layer-cursor-color (face-attribute 'cursor :background))
-	(setq holo-layer-cursor-animation-duration 100)
-	(holo-layer-enable))))
-
-(use-package oauth
-  :elpaca (:fetcher codeberg
-	   :repo "https://codeberg.org/martianh/emacs-oauth"
-		 :url  "https://codeberg.org/martianh/emacs-oauth")
-  :custom (oauth-nonce-function 'oauth-internal-make-nonce))
-;; (elpaca-wait)
-(use-package tumblesocks
-  :elpaca (:fetcher codeberg
-	   :repo "https://codeberg.org/gargle/tumblesocks"
-		 :url  "https://codeberg.org/gargle/tumblesocks")
-  :custom (tumblesocks-blog "mirqmarq428.tumblr.com")
-  )
-
-(use-package org-modern-indent
-  :elpaca (:type git :host github :repo "jdtsmith/org-modern-indent")
-  :hook (org-mode . org-modern-indent-mode))
-
-(use-package indent-bars
-  :elpaca (:type git :host github :repo "jdtsmith/indent-bars")
-  :custom
-  (indent-bars-prefer-character t)
-  (indent-bars-color '(highlight :face-bg t :blend 0.75))
-  (indent-bars-color-by-depth '(:palette ("lime" "yellow" "pink" "cyan") :blend 1))
-  (indent-bars-unspecified-fg-color "white")
-  (indent-bars-unspecified-bg-color "black")
-  (indent-bars-highlight-current-depth '(:face error :blend 0.7))
-  :hook (python-mode . indent-bars-mode))
-
-;;; disabled because i cant make it look good
-;; (use-package prism
-;;   :elpaca (:host github :repo "alphapapa/prism.el")
-;;   :custom (prism-colors '()))
-
-(use-package lua-mode)
-
 (provide 'mitch-packages)
 ;;; mitch-packages.el ends here