do a bunch of stuff idk

lisp/mitch-orgstuff.el

@@ -72,24 +72,6 @@
 ;; (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 good start, but we need more
+;; (use-package no-littering) ;a bad start, and 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 nil)
+  (eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
   (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
+;; (use-package gitstatus
-  :elpaca (:host github
+;;   :elpaca (:host github
-		 :repo "igorepst/gitstatus-el")
+;; 		 :repo "igorepst/gitstatus-el")
-  :after eshell
+;;   :after eshell
-  :init
+;;   :init
-  (setq system-architecture (car (split-string system-configuration "-")))
+;;   (setq system-architecture (car (split-string system-configuration "-")))
-  (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
+;;   (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
-			  system-architecture))
+;; 			  system-architecture))
-  (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
+;;   (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
 (use-package p11k
   :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/p11k-el")
   :after eshell
@@ -534,7 +534,9 @@ 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
@@ -612,6 +614,24 @@ 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)
@@ -1084,10 +1104,10 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
   :custom
   (power-mode-streak-shake-threshold nil))
 
-(use-package hypop
+;; (use-package hypop
-  :if (display-graphic-p)
+;;   :if (display-graphic-p)
-  :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/hypop.el")
+;;   :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/hypop.el")
-  :demand t)
+;;   :demand t)
 ;; (use-package vertico-posframe
 ;;   :after vertico
 ;;   :if (display-graphic-p)
@@ -1106,20 +1126,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
+;; (use-package hl-column ; disabled because visual yuck
-  :if (display-graphic-p)
+;;   :if (display-graphic-p)
-  :config
+;;   :config
-  (defun hl-col-line-init ()
+;;   (defun hl-col-line-init ()
-    "Toggle both `hl-column-mode' and `hl-line-mode' in sync."
+;;     "Toggle both `hl-column-mode' and `hl-line-mode' in sync."
-    (interactive)
+;;     (interactive)
-    (hl-line-mode 'toggle)
+;;     (hl-line-mode 'toggle)
-    (hl-column-mode 'toggle))
+;;     (hl-column-mode 'toggle))
-  :custom-face
+;;   :custom-face
-  (hl-line
+;;   (hl-line
-   ((t (:background "#101010"))))
+;;    ((t (:background "#101010"))))
-  (hl-column
+;;   (hl-column
-   ((t (:inherit hl-line))))
+;;    ((t (:inherit hl-line))))
-  :hook (prog-mode . hl-col-line-init))
+;;   :hook (prog-mode . hl-col-line-init))
 
 (use-package vidframe
   :if (display-graphic-p)		;we won't yet bother with
@@ -1183,5 +1203,54 @@ 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