From 4fe48a4c8dce92c618696eb274bde78499bf2775 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 22 Jun 2024 02:18:01 -0600 Subject: Fix kvasir to include new dwm+pdf modules --- .config/emacs/init.el | 2 +- .config/emacs/modules/bd--browse.el | 28 ++++++++++++++++++++++++++++ .config/emacs/modules/bd--eww.el | 28 ---------------------------- 3 files changed, 29 insertions(+), 29 deletions(-) create mode 100644 .config/emacs/modules/bd--browse.el delete mode 100644 .config/emacs/modules/bd--eww.el (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index ee0c843..9ca311a 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -63,7 +63,7 @@ ;;;; load modules (require 'bd--essentials) (require 'bd--rss) -(require 'bd--eww) +(require 'bd--browse) (require 'bd--tabs) (require 'bd--files) (require 'bd--image) diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el new file mode 100644 index 0000000..0747cab --- /dev/null +++ b/.config/emacs/modules/bd--browse.el @@ -0,0 +1,28 @@ +;;; -*- lexical-binding: t; -*- +;;; Commentary: +;;; Code: + + +;; do not use an external browser +(setopt browse-url-browser-function 'eww-browse-url + shr-use-fonts t + shr-cookie-policy nil + shr-max-width 85 + ;; send only user agent + url-privacy-level '(email os emacs lastloc cookies) + eww-search-prefix "https://searx.be/search?q=" + eww-auto-rename-buffer 'title + eww-use-browse-url (regexp-opt '("mailto:" + "youtube.com" + "youtu.be" + "yewtu.be" + "vid.puffyan.us")) + browse-url-handlers + `((,(regexp-opt'("youtube.com" "youtu.be" "yewtu.be" "vid.puffyan.us" "invidious.protokolla.fi")) . + (lambda (url &rest _) + (message "Ludu %s" url) + (start-process-shell-command "rip-video" nil (concat "rip-video " url)))))) + + +(provide 'bd--browse) +;;; bd-browse ends here diff --git a/.config/emacs/modules/bd--eww.el b/.config/emacs/modules/bd--eww.el deleted file mode 100644 index d304a79..0000000 --- a/.config/emacs/modules/bd--eww.el +++ /dev/null @@ -1,28 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: -;;; Code: - - -;; do not use an external browser -(setopt browse-url-browser-function 'eww-browse-url - shr-use-fonts t - shr-cookie-policy nil - shr-max-width 85 - ;; send only user agent - url-privacy-level '(email os emacs lastloc cookies) - eww-search-prefix "https://searx.be/search?q=" - eww-auto-rename-buffer 'title - eww-use-browse-url (regexp-opt '("mailto:" - "youtube.com" - "youtu.be" - "yewtu.be" - "vid.puffyan.us")) - browse-url-handlers - `((,(regexp-opt'("youtube.com" "youtu.be" "yewtu.be" "vid.puffyan.us" "invidious.protokolla.fi")) . - (lambda (url &rest _) - (message "Ludu %s" url) - (start-process-shell-command "rip-video" nil (concat "rip-video " url)))))) - - -(provide 'bd--eww) -;;; bd-eww ends here -- cgit v1.2.3