[emacs][i3] Add fringe indicators for emms play groups

And various other changes

7 files changed, 25 insertions, 5 deletions

diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el
index 2caca0a..2f2117d 100644
--- a/emacs/.emacs.d/init/ycp-complete.el
+++ b/emacs/.emacs.d/init/ycp-complete.el
@@ -291,6 +291,9 @@
 (my-package consult-recoll
   (:delay 30)
   (:install t)
+  (add-to-list 'consult-recoll-open-fns
+               '("application/pdf" . my-consult-recoll-open-in-pdf-tools))
+  (setq consult-recoll-inline-snippets t)
   )
 
 (my-package hmm
diff --git a/emacs/.emacs.d/init/ycp-grep.el b/emacs/.emacs.d/init/ycp-grep.el
index 85f15cd..f0ef8ce 100644
--- a/emacs/.emacs.d/init/ycp-grep.el
+++ b/emacs/.emacs.d/init/ycp-grep.el
@@ -107,6 +107,7 @@
 ;;; org-recoll
 (my-package org-recoll
   (:delay 60)
+  (my-override org-recoll-format-results)
   (my-keybind org-recoll-mode-map
     "n" #'org-next-visible-heading
     "p" #'org-previous-visible-heading
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.
diff --git a/misc/.config/i3/config b/misc/.config/i3/config
index 31b74ad..803dcd1 100644
--- a/misc/.config/i3/config
+++ b/misc/.config/i3/config
@@ -211,3 +211,4 @@ bindsym $mod+minus exec dunstctl close
 exec ibus-daemon
 exec redshift-gtk
 exec --no-startup-id i3-msg 'workspace $ws1; exec urxvt'
+exec xscreensaver -no-splash &