diff options
| -rw-r--r-- | config/doom/config.org | 72 | ||||
| -rw-r--r-- | config/shepherd/init.d/bitcoin.scm | 4 |
2 files changed, 40 insertions, 36 deletions
diff --git a/config/doom/config.org b/config/doom/config.org index ad09a93..7ef66e4 100644 --- a/config/doom/config.org +++ b/config/doom/config.org @@ -139,32 +139,33 @@ Because I always need help and it should come up quickly ** Fixes #+begin_src emacs-lisp ;; this imports fixes of emacs 30 -(defun vtable-beginning-of-table () - "Go to the start of the current table." - (if (or (text-property-search-backward 'vtable (vtable-current-table) #'eq) - (get-text-property (point) 'vtable)) - (point) - (goto-char (point-min)))) - -(defun vtable-end-of-table () - "Go to the end of the current table." - (if (text-property-search-forward 'vtable (vtable-current-table) #'eq) - (point) - (goto-char (point-max)))) - -;; This is my own fix -(defun vtable-header-line-sort (e) - "Sort a vtable from the header line." - (interactive "e") - (let* ((pos (event-start e)) - (obj (posn-object pos))) - (with-current-buffer (window-buffer (posn-window pos)) - (vtable-beginning-of-table) ;; This line is the fix - (vtable-goto-column - (get-text-property (if obj (cdr obj) (posn-point pos)) - 'vtable-column - (car obj))) - (vtable-sort-by-current-column)))) +(after! vtable + (defun vtable-beginning-of-table () + "Go to the start of the current table." + (if (or (text-property-search-backward 'vtable (vtable-current-table) #'eq) + (get-text-property (point) 'vtable)) + (point) + (goto-char (point-min)))) + + (defun vtable-end-of-table () + "Go to the end of the current table." + (if (text-property-search-forward 'vtable (vtable-current-table) #'eq) + (point) + (goto-char (point-max)))) + + ;; This is my own fix + (defun vtable-header-line-sort (e) + "Sort a vtable from the header line." + (interactive "e") + (let* ((pos (event-start e)) + (obj (posn-object pos))) + (with-current-buffer (window-buffer (posn-window pos)) + (vtable-beginning-of-table) ;; This line is the fix + (vtable-goto-column + (get-text-property (if obj (cdr obj) (posn-point pos)) + 'vtable-column + (car obj))) + (vtable-sort-by-current-column))))) #+end_src * Dictionary #+begin_src emacs-lisp :tangle "packages.el" @@ -190,15 +191,14 @@ Shamelessly copied from https://tecosaur.github.io/emacs-config/#dictionary (defun on/shavian-transliterate (start end) "Convert text from START to END to Shavian in new buffer." (interactive "r") - (let ((buffer (get-buffer-create "*shavian translit*")) - (url-request-method "POST") - (url-request-extra-headers - '(("Content-Type" . "application/x-www-form-urlencoded"))) - (url-request-data - (thread-last - (buffer-substring-no-properties start end) - (url-hexify-string ) - (format "text=%s")))) + (let ((url-request-method "POST") + (url-request-extra-headers + '(("Content-Type" . "application/x-www-form-urlencoded"))) + (url-request-data + (thread-last + (buffer-substring-no-properties start end) + (url-hexify-string) + (format "text=%s")))) (url-retrieve "http://localhost:4242/shaw" @@ -414,7 +414,7 @@ this new window. (:name "Isar-Speak" :query "(tag:Isar-Speak or tag:lists/isar-speak-officers) and tag:unread" :key "t") (:name "flagged" :query "tag:flagged" :key "f") (:name "sent" :query "tag:sent" :key "s") - (:name "unread" :query "tag:unread and not tag:fail2ban and not tag:Checkm-Alerts" :key "u") + (:name "unread" :query "tag:unread and not tag:fail2ban and not tag:CheckMK-Alerts" :key "u") (:name "drafts" :query "tag:draft" :key "d"))) (setq notmuch-show-all-tags-list t diff --git a/config/shepherd/init.d/bitcoin.scm b/config/shepherd/init.d/bitcoin.scm index 2fb834d..9eb7d48 100644 --- a/config/shepherd/init.d/bitcoin.scm +++ b/config/shepherd/init.d/bitcoin.scm @@ -36,6 +36,7 @@ (list "/home/titan/.local/bin/lnd" (format #f "--lnddir=/scratch/titan/lnd/reg-~a/" name))) #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C + #:requirement '(nina-ssh) #:respawn? #t)) nodes))) @@ -56,6 +57,9 @@ "-L" "15005:localhost:15005" ;; regbtczmq "-L" "15006:localhost:15006" ;; regbtczmq "-L" "50004:localhost:50004" ;; regelectrs + "-L" "8004:localhost:8004" ;; lnd-reg-dave-rest + "-L" "10004:localhost:10004" ;; lnd-reg-dave-rpc + "-L" "10014:localhost:10014" ;; lnd-reg-dave-daemon ;; "-L" "/tmp/nina-mn.socket:/run/cardano-node-mainnet/socket" ;; "-L" "/tmp/nina-pr.socket:/run/cardano-node-preview/socket" ;; "-L" "54320:localhost:5432" |