Moved rip-video / set-bg to elisp

7 files changed, 39 insertions, 14 deletions

diff --git a/.config/emacs/gnus.el b/.config/emacs/gnus.el
index 6a10489..a67b313 100644
--- a/.config/emacs/gnus.el
+++ b/.config/emacs/gnus.el
@@ -3,6 +3,7 @@
 ;;; Code:
 
 
+(require 'pgg)
 (require 'gnus)
 (require 'gnus-util)
 
@@ -46,6 +47,7 @@
 
 (setopt message-from-style 'angles
         mml-secure-openpgp-encrypt-to-self t)
+(add-hook 'gnus-message-setup-hook 'mml-secure-message-sign-pgpmime)
 
 
 ;;; gnus.el ends here
diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el
index 6a5d2ef..531c7b2 100644
--- a/.config/emacs/modules/bd--browse.el
+++ b/.config/emacs/modules/bd--browse.el
@@ -53,11 +53,18 @@ icecat, or eww."
        (list (bd/selector-bookmarks)
              (bd/selector-search)))))
 
+(defun rip (url)
+  "Play URL (or search string) in mpv."
+  (interactive "sURL or search string: ")
+  (message "Ludu %s" url)
+  (start-process "rip" nil
+		 "mpv" (concat (if (string-match "https://.*" url)
+				   "ytdl://"
+				 "ytdl://ytsearch:") url)))
+
 (setopt browse-url-handlers
         `((,(regexp-opt '("youtube.com" "youtu.be")) .
-           (lambda (url &rest _)
-             (message "Ludu %s" url)
-             (start-process-shell-command "rip-video" nil (concat "rip-video " url)))))
+           (lambda (url &rest _) (rip url))))
         url-privacy-level '(email os emacs lastloc cookies))
 
 (use-package shr
@@ -98,8 +105,8 @@ icecat, or eww."
         (t (funcall original url new-window))))
   (advice-add 'eww :around 'bd/elpher)
   :custom
-  (elpher-use-tls t)
   (elpher-default-url-type "gemini")
+  (elpher-connection-timeout 120)
   (elpher-gemini-max-fill-width 85)
   (elpher-use-emacs-bookmark-menu t))
 
diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el
index d112bca..1924d7b 100644
--- a/.config/emacs/modules/bd--devel.el
+++ b/.config/emacs/modules/bd--devel.el
@@ -107,7 +107,8 @@ to.")
   :hook prog-mode)
 
 (use-package paredit
-  :hook (emacs-lisp-mode
+  :hook (ielm-mode
+	 emacs-lisp-mode
          lisp-mode
          scheme-mode
          lisp-interaction-mode))
diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
index 7f52d2a..3b6532b 100644
--- a/.config/emacs/modules/bd--exwm-windowing.el
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -53,6 +53,26 @@
   (interactive)
   (bd/set-brightness "5%+"))
 
+(defun set-bg (&optional arg)
+  "Set the current wallpaper using feh.
+ARG can be one of the following:
+
+- nil: set the most recent wallpaper
+- directory: set a random image from the directory
+- file: set the specified file"
+  (interactive "f")
+  (let ((wall (expand-file-name "~/wf/wall/current")))
+    (and arg
+	 (cond
+	  ((file-regular-p arg) (copy-file arg wall t))
+	  ((file-directory-p arg)
+	   (let* ((images (f-files arg (lambda (f) (string-match-p "\\.jpeg\\'" f))))
+		  (rfile (nth (random (length images)) images)))
+	     (and rfile (copy-file rfile wall t))))))
+    (start-process "set wallpaper" nil "feh" "--bg-fill" wall)
+    (message "Set wallpaper.")))
+(set-bg)
+
 
 (use-package exwm
   :config
diff --git a/.config/emacs/modules/bd--notes.el b/.config/emacs/modules/bd--notes.el
index aa1f4b1..26cf0ca 100644
--- a/.config/emacs/modules/bd--notes.el
+++ b/.config/emacs/modules/bd--notes.el
@@ -41,7 +41,7 @@ then pastes the active region."
   :config
   (require 'denote-journal-extras)
 
-  (defvar bd/denote-skribe-front-matter
+  (defconst bd/denote-skribe-front-matter
     "(post
  :title \"%s\"
  :date %s
diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el
index f2ee0a4..82d0703 100644
--- a/.config/emacs/modules/bd--org.el
+++ b/.config/emacs/modules/bd--org.el
@@ -18,12 +18,6 @@
   (org-hide-emphasis-markers t)
   (org-startup-folded 'show3levels)
   :config
-  (defun bd/org-mode-setup-hook ()
-    "Sets up improved org-mode defaults upon
-each org file open."
-    )
-  (add-hook 'org-mode-hook 'bd/org-mode-setup-hook)
-
   (plist-put org-format-latex-options :scale 1.2)
   (push '("\\.pdf\\'" . "zathura %s") org-file-apps)
   (add-hook 'org-babel-after-execute-hook #'org-redisplay-inline-images)
@@ -42,6 +36,7 @@ each org file open."
   :custom
   (org-latex-toc-command "\\tableofcontents \\clearpage")
   (org-latex-src-block-backend 'listings)
+  (org-latex-image-default-width ".6\\linewidth")
   (org-export-with-toc nil)
   (org-export-preserve-breaks t)
   (org-latex-classes
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index 21b88d0..1753fea 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -7,8 +7,8 @@
 
 (add-to-list 'exec-path "/home/bdunahu/.local/bin")
 
-(use-package em-module
-  :init
+(use-package esh-module
+  :config
   (add-to-list 'eshell-modules-list 'eshell-smart))
 
 (use-package esh-mode