7 files changed, 124 insertions, 16 deletions

@@ -0,0 +1,25 @@
+;;; acdw-apheleia.el --- bespoke apheleia junk -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'apheleia)
+
+(defcustom apheleia-stupid-modes '(makefile-mode
+                                   org-mode)
+  "List of stupid modes to not use `apheleia-global-mode' on."
+  :type '(repeat function)
+  :group 'apheleia)
+
+(defun apheleia-dumb-auto-format ()
+  "Format a buffer dumbly."    
+  ;; If there's no apheleia formatter for the mode, just indent the
+  ;; buffer.
+  (unless (or (apply #'derived-mode-p apheleia-stupid-modes)
+              (and (fboundp 'apheleia--get-formatter-command)
+                   (apheleia--get-formatter-command)))
+    (indent-region (point-min) (point-max))))
+
+(provide 'acdw-apheleia)
+;;; acdw-apheleia ends here
@@ -17,6 +17,21 @@
   (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
     (circe-command-SAY short-url)))
 
+;;; Hooks
+
+(defun circe-chat@set-prompt ()
+  "Set the prompt to the buffer name, shortening it."
+  (interactive) ; set interactive to unfuck the prompt when need be
+  (lui-set-prompt
+   (propertize
+    (concat
+     (acdw-irc/margin-format (buffer-name) "" ">")
+     " ")  
+    'face 'circe-prompt-face
+    'read-only t
+    'intangible t
+    'cursor-intangible t)))
+
 ;;; Advices
 
 (defun circe-part@kill-buffer (&rest _)
@@ -125,6 +125,10 @@ indicator in the mode-line."
                             'mouse-2 #'mode-line-widen))
       'mouse-face 'mode-line-highlight))))
 
+(define-minor-mode file-percentage-mode
+  "Toggle the percentage display in the mode line (File Percentage Mode)."
+  :init-value t :global t :group 'mode-line)
+
 (defun acdw-modeline/position ()
   "Displays the current cursor position in the mode-line.
 
@@ -140,7 +144,10 @@ is, if point < mark."
      ((column-number-mode
        (column-number-indicator-zero-based
         (5 " C%c")
-        (5 " C%C")))))
+        (5 " C%C")))
+      " "))
+    (file-percentage-mode
+     (7 "%p%% "))
     ,(if (region-active-p)
          (propertize (format "%s%-5d"
                              (if (and (mark)
@@ -183,7 +190,7 @@ is, if point < mark."
 (defun acdw-modeline/wc ()
   "Display current `wc-buffer-stats'."
   (when (bound-and-true-p wc-mode)
-    (or wc-buffer-stats "[w]")))
+    (or wc-buffer-stats " [w]")))
 
 (defun acdw-modeline/winum ()
   "Show the `winum' number of the current window in the modeline.
@@ -17,6 +17,10 @@
 ;; Pulled mostly from karthinks:
 ;; https://karthinks.com/software/bridging-islands-in-emacs-1/
 
+;; UPDATED CODE:
+;; https://github.com/karthink/.emacs.d/blob/master/init.el#L981
+;; https://github.com/karthink/.emacs.d/blob/master/lisp/reb-fix.el
+
 ;;; Code:
 
 (defvar acdw/re-builder-positions nil
@@ -87,5 +87,16 @@ package.  This macro is not repeatable."
                (let ((recipe (cadr sexp)))
                  (if (consp recipe) (car recipe) recipe))))
 
+;; https://www.emacswiki.org/emacs/SetupEl
+(setup-define :load-after
+  (lambda (&rest features)
+    (let ((body `(require ',(setup-get 'feature))))
+      (dolist (feature (if (listp features)
+                           (nreverse features)
+                         (list features)))
+        (setq body `(with-eval-after-load ',feature ,body)))
+      body))
+  :documentation "Load the current feature after FEATURES.")
+
 (provide 'acdw-setup)
 ;;; acdw-setup.el ends here
@@ -93,7 +93,7 @@ features."
     (let* ((this (car features))
            (rest (cdr features)))
       `(with-eval-after-load ',this
-         (with-eval-after-all ,rest ,@body)))))
+         (with-eval-after-loads ,rest ,@body)))))
 
 (defmacro with-message (message &rest body)
   "Execute BODY, messaging 'MESSAGE...' before and 'MESSAGE... Done.' after."
@@ -338,26 +338,23 @@ In short, DO NOT USE THIS FUNCTION!!!"
   (save-excursion
     (sort-sexps
      (point-min) (point-max)
-     (lambda (sexp)
-       (format "%S" (cadr sexp)))
+     ;; Key function
+     nil
+     ;; Sort function
      (lambda (s1 s2)                  ; oh god, this is worse.
        (let* ((s1 (cdr s1)) (s2 (cdr s2)) ; for the strings themselves
-              (s1-require (string-match ":require" s1))
-              (s2-require (string-match ":require" s2))
-              (s1-straight (string-match ":straight" s1))
-              (s2-straight (string-match ":straight" s2))
-              (s1-bare (not (or s1-require s1-straight)))
-              (s2-bare (not (or s2-require s2-straight))))
+              (require-regexp (rx bos (* nonl) ":require"))
+              (straight-regexp (rx bos (* nonl) ":straight"))
+              (s1-require (string-match require-regexp s1))
+              (s2-require (string-match require-regexp s2))
+              (s1-straight (string-match straight-regexp s1))
+              (s2-straight (string-match straight-regexp s2)))
          (cond
-          ;; if both are the same, sort regular style
-          ((or (and s1-require s2-require)
-               (and s1-bare s2-bare))
-           (string< s1 s2))
+          ;; Straight forms require some weirdness
           ((and s1-straight s2-straight)
            (let* ((r (rx ":straight" (? "-if") (* space) (? "(")))
                   (s1 (replace-regexp-in-string r "" s1))
                   (s2 (replace-regexp-in-string r "" s2)))
-             (message "'%S' '%S'" s1 s2)
              (string< s1 s2)))
           ;; requires should go first
           ((and s1-require (not s2-require)) t)
@@ -0,0 +1,49 @@
+;;; chd.el --- CHD customizations -*- lexical-binding: t -*-
+
+(require 'acdw-org)
+(require 'org)
+
+(defun chd/narrow-to-task (&optional point)
+  "Narrow the buffer to the task POINT is in."
+  (interactive "d")
+  (when point (goto-char point))
+  (if (called-interactively-p 'interactive)
+      (save-excursion
+        (while (not (org-entry-is-todo-p))
+          (acdw/org-previous-heading-widen 1))
+        (org-narrow-to-subtree))
+    ;; well this is dumb...
+    (while (not (org-entry-is-todo-p))
+      (acdw/org-previous-heading-widen 1))
+    (org-narrow-to-subtree)))
+
+(defun chd/clock-in ()
+  "Clock in to the current task."
+  (save-excursion
+    (chd/narrow-to-task)
+    (org-clock-in)))
+
+(defun chd/do-the-thing ()
+  "Copy the plain version of the current task and open its link."
+  (interactive)
+  (chd/narrow-to-task)
+  (save-excursion
+    ;; Prepare buffer
+    (acdw/flyspell-correct-f7)           ; This is defined... elsewhere.
+    
+    ;; Export the buffer and copy it
+    (pcase (org-entry-get (point-min) "EXPORTAS" t)
+      ("html" (acdw/org-export-copy-html))
+      (_  (acdw/org-export-copy)))
+    
+    ;; Open the link to the doc
+    (org-back-to-heading)
+    (org-open-at-point)))
+
+;;; NOTES
+;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
+;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")
+
+
+(provide 'chd)
+;;; chd.el ends here