3 files changed, 72 insertions, 4 deletions

diff --git a/emacs/.emacs.d/lisp/mastodon.el b/emacs/.emacs.d/lisp/mastodon.el
new file mode 160000
+Subproject d8ef4fff34862ff3cef76ea704b8c4c6c7d7508
diff --git a/emacs/.emacs.d/lisp/my/my-libgen.el b/emacs/.emacs.d/lisp/my/my-libgen.el
index 92a6b61..6b65eb1 100644
--- a/emacs/.emacs.d/lisp/my/my-libgen.el
+++ b/emacs/.emacs.d/lisp/my/my-libgen.el
@@ -144,14 +144,27 @@
                              (alist-get 'extension info))))
 
 (defvar my-libgen-download-dir "~/Downloads")
+
+(defvar my-libgen-onion-host nil)
+(defun my-libgen-make-download-link-library (info)
+  (car (link-gopher-get-all-links
+        (format "%s/main/%s" my-libgen-library-host
+                (alist-get 'md5 info))
+        (format "\\.%s$" (alist-get 'extension info)))))
+
+(defun my-libgen-make-download-link-onion (info)
+  (let ((id-head (substring (alist-get 'id info) 0 -3)))
+    (format "%s/LG/%s%s/%s"
+            my-libgen-onion-host
+            (make-string (- 4 (length id-head)) ?0)
+            id-head
+            (downcase (alist-get 'md5 info)))))
+
 (defun my-libgen-download-action ()
   (interactive)
   (let ((info (get-text-property (point) 'button-data)))
     (my-wget-async
-     (car (link-gopher-get-all-links
-           (format "%s/main/%s" my-libgen-library-host
-                   (alist-get 'md5 info))
-           (format "\\.%s$" (alist-get 'extension info))))
+     (my-libgen-make-download-link-onion info)
      (format "%s/%s" (expand-file-name my-libgen-download-dir)
              (my-libgen-format-filename info)))))
 
diff --git a/emacs/.emacs.d/lisp/my/my-prog.el b/emacs/.emacs.d/lisp/my/my-prog.el
index ffb0d26..396d919 100644
--- a/emacs/.emacs.d/lisp/my/my-prog.el
+++ b/emacs/.emacs.d/lisp/my/my-prog.el
@@ -367,6 +367,61 @@ left and the source buffer on the right.
 (defun my-gud-comint-set-prompt-regexp ()
   (setq comint-prompt-regexp "\\((rr)|(gdb)\\) "))
 
+
+;;; used to override `gdb-frame-handler': do not re-display frame on
+;;; completion.
+(defun my-gdb-frame-handler ()
+  "Set `gdb-selected-frame' and `gdb-selected-file' to show
+overlay arrow in source buffer."
+  (let ((frame (gdb-mi--field (gdb-mi--partial-output) 'frame)))
+    (when frame
+      (setq gdb-selected-frame (gdb-mi--field frame 'func))
+      (setq gdb-selected-file
+            (when-let ((full (gdb-mi--field frame 'fullname)))
+              (file-local-name full)))
+      (setq gdb-frame-number (gdb-mi--field frame 'level))
+      (setq gdb-frame-address (gdb-mi--field frame 'addr))
+      (let ((line (gdb-mi--field frame 'line)))
+        (setq gdb-selected-line (and line (string-to-number line)))
+        (when (and gdb-selected-file gdb-selected-line
+                   (not (and (boundp 'gud-gdb-fetch-lines-break)
+                             gud-gdb-fetch-lines-break)))
+          (setq gud-last-frame (cons gdb-selected-file gdb-selected-line))
+          (gud-display-frame)))
+      (if gud-overlay-arrow-position
+          (let ((buffer (marker-buffer gud-overlay-arrow-position))
+                (position (marker-position gud-overlay-arrow-position)))
+            (when buffer
+              (with-current-buffer buffer
+                (setq fringe-indicator-alist
+                      (if (string-equal gdb-frame-number "0")
+                          nil
+                        '((overlay-arrow . hollow-right-triangle))))
+                (setq gud-overlay-arrow-position (make-marker))
+                (set-marker gud-overlay-arrow-position position))))))))
+
+
+;;; Can't override gud-gdbmi-completions - would get:
+;;; error in process filter: gud-marker-filter: Symbol’s value as variable is void: gud-gdb-fetch-lines-string
+;;; error in process filter: Symbol’s value as variable is void: gud-gdb-fetch-lines-string
+
+;; (defun gud-gdbmi-completions (context command)
+;;   "Completion table for GDB/MI commands.
+;; COMMAND is the prefix for which we seek completion.
+;; CONTEXT is the text before COMMAND on the line."
+;;   (let ((gud-gdb-fetch-lines-in-progress t)
+;; 	      (gud-gdb-fetch-lines-string nil)
+;; 	      (gud-gdb-fetch-lines-break (length context))
+;; 	      (gud-gdb-fetched-lines nil)
+;; 	      ;; This filter dumps output lines to `gud-gdb-fetched-lines'.
+;; 	      (gud-marker-filter #'gud-gdbmi-fetch-lines-filter))
+;;     (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
+;;       (gdb-input (concat "complete " context command)
+;; 		             (lambda () (setq gud-gdb-fetch-lines-in-progress nil)))
+;;       (while gud-gdb-fetch-lines-in-progress
+;; 	      (accept-process-output (get-buffer-process gud-comint-buffer) 1)))
+;;     (gud-gdb-completions-1 gud-gdb-fetched-lines)))
+
 ;;; which-func
 (defun my-copy-which-func ()
   (interactive)