blob: d9a8e2692664602885cd022c980a871861892284 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
;;; IRC
(use-package circe
:ensure t
:config
(setq auth-sources '("~/.authinfo.gpg"))
(defun my-fetch-password (&rest params)
(require 'auth-source)
(let ((match (car (apply 'auth-source-search params))))
(if match
(let ((secret (plist-get match :secret)))
(if (functionp secret)
(funcall secret)
secret))
(error "Password not found for %S" params))))
(defun my-nickserv-password (server)
(my-fetch-password :user "bardman" :machine "irc.libera.chat"))
(setq circe-network-options
'(("Libera Chat"
:nick "bardman"
:channels ("#emacs" "##anime" "#gentoo")
:nickserv-password my-nickserv-password))))
;;; RSS Feeds
(use-package elfeed
:ensure t
:config
(global-set-key (kbd "C-c r") 'elfeed)
(setq elfeed-search-filter "+unread -academia"))
(use-package elfeed-org
:ensure t
:init
(elfeed-org)
:config
(setq rmh-elfeed-org-files (list "~/.emacs.d/feeds.org"
"~/.emacs.d/youtube.org")))
;; (use-package elfeed-goodies
;; :ensure t
;; :init
;; (elfeed-goodies/setup)
;; :config
;; (setq elfeed-goodies/powerline-default-separator 'box))
;;; Web Browsing (EWW and Firefox/Librewolf)
(use-package eww
:defer t
:config
(setq browse-url-handlers
'(("wikipedia\\.org" . eww-browse-url)
;; ("github" . browse-url-chromium)
("github" . browse-url-default-browser)
("youtube.com" . browse-url-default-browser)
("reddit.com" . browse-url-default-browser)))
;; shr optimizations
(setq shr-use-colors nil)
(setq shr-use-fonts nil)
(setq shr-max-image-proportion 0.6)
(setq shr-image-animate nil)
(setq shr-width fill-column)
(setq shr-max-width fill-column)
(setq shr-discard-aria-hidden t)
(setq shr-cookie-policy nil)
;; eww
(setq eww-search-prefix "https://duckduckgo.com/html/?q=")
(setq eww-history-limit 150)
(setq eww-use-external-browser-for-content-type
"\\`\\(video/\\|audio\\)")
:bind
("C-c w" . eww))
;; librewolf open browser
;; TODO fix this to work with librewolf-bin on Gentoo
(defun browse-url-librewolf (url &optional new-window)
"Ask the Librewolf WWW browser to load URL.
Defaults to the URL around or before point. Passes the strings
in the variable `browse-url-librewolf-arguments' to Librewolf.
Interactively, if the variable `browse-url-new-window-flag' is non-nil,
loads the document in a new Librewolf window. A non-nil prefix argument
reverses the effect of `browse-url-new-window-flag'.
If `browse-url-librewolf-new-window-is-tab' is non-nil, then
whenever a document would otherwise be loaded in a new window, it
is loaded in a new tab in an existing window instead.
Non-interactively, this uses the optional second argument NEW-WINDOW
instead of `browse-url-new-window-flag'."
(interactive (browse-url-interactive-arg "URL: "))
(setq url (browse-url-encode-url url))
(let* ((process-environment (browse-url-process-environment)))
(apply #'start-process
(concat "librewolf-bin " url) nil
"librewolf-bin"
(list url))))
(provide 'bard-emacs-web)
;;; bard-emacs-web.el ends here
|
