4 files changed, 20 insertions, 5 deletions
diff --git a/emacs/.emacs.d/lisp/magit-annex b/emacs/.emacs.d/lisp/magit-annex
-Subproject 018e8eebd2b1e56e9e8c152c6fb249f4de52e2d
+Subproject 9db0bc61461f222106c7ae3d8cd6d3de1f1b143
diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el
index 331f309..e77089d 100644
--- a/emacs/.emacs.d/lisp/my/my-emms.el
+++ b/emacs/.emacs.d/lisp/my/my-emms.el
@@ -467,10 +467,23 @@ under /zzz-seren/."
 (defun my-emms-playlist-random-group ()
   (interactive)
   (with-current-emms-playlist
-   (goto-line (1+ (random (count-lines (point-min) (point-max)))))
-   (pcase-let ((`(,group-start . ,group-end) (my-emms-playlist-group-bounds)))
-     (goto-line group-start)
-     (emms-playlist-mode-play-current-track))))
+    (remove-overlays)
+    (goto-line (1+ (random (count-lines (point-min) (point-max)))))
+    (pcase-let ((`(,group-start . ,group-end) (my-emms-playlist-group-bounds)))
+      (goto-line group-start)
+      (overlay-put
+       (make-overlay (point) (point))
+       'before-string (propertize
+                       "x" 'display
+                       `(left-fringe down-arrow emms-playlist-selected-face)))
+      (save-excursion
+        (goto-line (1- group-end))
+        (overlay-put
+         (make-overlay (point) (point))
+         'before-string (propertize
+                         "x" 'display
+                         `(left-fringe up-arrow emms-playlist-selected-face))))
+      (emms-playlist-mode-play-current-track))))
 
 (defun my-emms-next-track-or-random-group ()
   (interactive)
diff --git a/emacs/.emacs.d/lisp/my/my-libgen.el b/emacs/.emacs.d/lisp/my/my-libgen.el
index 84d9728..c1f430f 100644
--- a/emacs/.emacs.d/lisp/my/my-libgen.el
+++ b/emacs/.emacs.d/lisp/my/my-libgen.el
@@ -136,7 +136,7 @@
                          (alist-get 'coverurl info)))))
 
 (defun my-libgen-format-filename (info)
-  (replace-regexp-in-string "[:;?]" "_"
+  (replace-regexp-in-string "[:;?/]" "_"
                             (format
                              "%s - %s (%s) [%s].%s"
                              (alist-get 'author info)
@@ -200,6 +200,7 @@
          (md5 (alist-get 'md5 info)))
     (my-wget-async
      (my-libgen-make-download-link-library info)
+     filename
      nil
      (lambda () (my-libgen-check-md5 filename md5)))))
 
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el
index 7d08936..d1eacb6 100644
--- a/emacs/.emacs.d/lisp/my/my-web.el
+++ b/emacs/.emacs.d/lisp/my/my-web.el
@@ -163,6 +163,7 @@ Useful for bypassing some paywalls."
 
 (require 'hmm)
 (defvar my-url-context-function 'hmm-url "Context function for urls.")
+(defvar my-file-context-function 'hmm-file "Context function for files.")
 
 (defun my-hacker-news-url-p (url)
   "Check if a url is a hacker news post.