aboutsummaryrefslogtreecommitdiff
path: root/emacs/.emacs.d/init/ycp-web.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/.emacs.d/init/ycp-web.el')
-rw-r--r--emacs/.emacs.d/init/ycp-web.el91
1 files changed, 62 insertions, 29 deletions
diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index 7df2857..67c5e5a 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -34,6 +34,8 @@
(ignore-errors (cancel-timer url-cookie-timer))
(setq shr-cookie-policy nil)
+(setq browse-url-handlers
+ '((stringp . browse-url-firefox)))
(my-package luwak
(:delay 10)
@@ -184,7 +186,12 @@
(my-override hnreader--print-frontpage)
(my-override hnreader--print-frontpage-item)
(my-override hnreader--print-comments)
- (my-override hnreader--get-title))
+ (my-override hnreader--get-title)
+ (require 'my-web)
+ (add-to-list 'browse-url-handlers
+ `(my-hacker-news-url-p
+ . ,(lambda (url &rest _) (hnreader-comment url))))
+ )
(add-to-list 'load-path (locate-user-emacs-file "lisp/lem.el/lisp"))
(my-package lem-org
@@ -216,6 +223,9 @@
'turn-off-auto-fill)
(add-hook 'org-jira-mode-hook
'turn-off-flyspell)
+ (add-to-list 'browse-url-handlers
+ `(my-org-jira-url-p
+ . ,(lambda (url &rest _) (my-org-jira-open-url url))))
)
(my-package dnd
@@ -242,6 +252,7 @@
(my-package my-web
(:delay 60)
+ (my-setq-from-local my-webpage-download-dir)
(my-keybind eww-mode-map
"N" #'my-eww-next-path
"P" #'my-eww-prev-path
@@ -250,32 +261,35 @@
"b" #'my-eww-switch-by-title)
(my-keybind global-map "\C-c\C-o" #'my-browse-url-at-point)
(my-setq-from-local my-newscorp-au-amp-nk)
- (setq browse-url-handlers
- `((exitter-post-url-p
- . ,(lambda (url &rest _) (exitter-open-post url)))
- (my-hacker-news-url-p
- . ,(lambda (url &rest _) (hnreader-comment url)))
- (my-gitlab-project-url-p
- . ,(lambda (url &rest _) (my-gitlab-project-infobox url)))
- (my-ytdl-video-url-p
- . ,(lambda (url &rest _) (my-ytdl-video-infobox url)))
- (my-mastodon-url-p
- . ,(lambda (url &rest _) (mastorg-open url)))
- (my-newscorp-au-url-p
- . ,(lambda (url &rest _) (my-open-newscorp-au url)))
- (my-org-jira-url-p
- . ,(lambda (url &rest _) (my-org-jira-open-url url)))
- (reddio-reddit-url-p
- . ,(lambda (url &rest _) (reddio-open-url url)))
- ("^https?://www.spectator.com.au\\>" .
- ,(lambda (url &rest args) (my-open-spectator-au url)))
- (my-stack-overflow-url-p
- . ,(lambda (url &rest _) (sx-open-link url)))
- (wiki-engine-entry-url-p
- . ,(lambda (url &rest _) (wiki-open-url url)))
- (stringp . browse-url-firefox)))
+ (add-to-list 'browse-url-handlers
+ `(my-newscorp-au-url-p
+ . ,(lambda (url &rest _) (my-open-newscorp-au url))))
+ (add-to-list 'browse-url-handlers
+ `("^https?://www.spectator.com.au\\>" .
+ ,(lambda (url &rest _) (my-fetch-browse-as-googlebot url))))
+ (my-setq-from-local my-firefox-profile-dir))
+
+(my-package my-gitlab
+ (:delay 60)
+ (add-to-list 'browse-url-handlers
+ `(my-gitlab-project-url-p
+ . ,(lambda (url &rest _) (my-gitlab-project-infobox url))))
+ )
+
+(my-package my-github
+ (:delay 60)
+ (add-to-list 'browse-url-handlers
+ `(my-github-project-url-p
+ . ,(lambda (url &rest _) (my-github-project-infobox url))))
)
+(my-package my-ytdl
+ (:delay 60)
+ (add-to-list 'browse-url-handlers
+ `(my-ytdl-video-url-p
+ . ,(lambda (url &rest _) (my-ytdl-video-infobox url)))))
+
+
(my-package my-semantic-scholar
(:delay 60))
@@ -308,7 +322,12 @@
;; sx: a stack exchange client
(my-package sx
(:delay 60)
- (require 'sx-load))
+ (require 'sx-load)
+ (require 'my-web)
+ (add-to-list 'browse-url-handlers
+ `(my-stack-overflow-url-p
+ . ,(lambda (url &rest _) (sx-open-link url))))
+ )
;; mastodon.el
(add-to-list 'load-path (locate-user-emacs-file "lisp/mastodon.el/lisp"))
@@ -318,8 +337,13 @@
(add-hook 'mastodon-toot-mode-hook (lambda () (turn-off-auto-fill)))
(mastodon))
-(my-package mastorg
- (:delay 60))
+(my-package fediorg
+ (:delay 60)
+ (require 'my-web)
+ (add-to-list 'browse-url-handlers
+ `(fediorg-post-url-p
+ . ,(lambda (url &rest _) (fediorg-open url))))
+ )
(add-to-list 'load-path (locate-user-emacs-file "lisp/servall/lisp"))
(my-package servall-wikipedia
@@ -335,6 +359,7 @@
(require 'my-utils)
(my-setq-from-local my-libgen-hosts my-libgen-alt-hosts
my-libgen-library-hosts my-libgen-onion-host
+ my-libgen-plus-host
)
(setq my-libgen-download-dir my-document-incoming-dir
my-libfic-download-dir my-document-incoming-dir)
@@ -364,9 +389,17 @@
exitter-access-token exitter-username exitter-password exitter-email
exitter-oauth-token exitter-oauth-token-secret exitter-oauth-token-ctime)
(setq exitter-debug nil)
+ (add-to-list 'browse-url-handlers
+ `(exitter-post-url-p
+ . ,(lambda (url &rest _) (exitter-open-post url))))
+
)
(my-package reddio
- (:delay 60))
+ (:delay 60)
+ (add-to-list 'browse-url-handlers
+ `(reddio-reddit-url-p
+ . ,(lambda (url &rest _) (reddio-open-url url))))
+ )
(provide 'ycp-web)