diff options
Diffstat (limited to 'emacs/.emacs.d/init')
-rw-r--r-- | emacs/.emacs.d/init/ycp-gnus.el | 11 | ||||
-rw-r--r-- | emacs/.emacs.d/init/ycp-web.el | 94 |
2 files changed, 103 insertions, 2 deletions
diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index f344cfc..b15dac9 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -183,8 +183,9 @@ (setq gnus-inhibit-images t) (setq gnus-treat-display-smileys nil) (setq gnus-article-x-face-too-ugly ".*") - (my-keybind gnus-article-mode-map - "M-w" #'my-gnus-article-copy-region) + ;; shows a radio button in a multipart article to choose which part + ;; to display + (setq gnus-buttonized-mime-types '("multipart/alternative")) (setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^In-Reply-To")) ;;; gnus-desktop-notify @@ -233,4 +234,10 @@ (bbdb-vcard-default-keybindings) (my-setq-from-local bbdb-vcard-default-dir)) +(my-package traclicker + (:delay 60) + (my-setq-from-local tracli-senders tracli-maildirs) + (my-server-timer my-tracli-timer nil 3600 #'tracli-scan) + (setq tracli-url-rewriter 'my-url-strip-drw-tracking-params)) + (provide 'ycp-gnus) diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el index a81c2b0..f6da859 100644 --- a/emacs/.emacs.d/init/ycp-web.el +++ b/emacs/.emacs.d/init/ycp-web.el @@ -61,6 +61,100 @@ (require 'osm-ol) ) +(my-package url-rewrite + (setq my-nitter-hosts + '("nitter.net" + "nitter.nixnet.services" + "nitter.unixfox.eu" + "nitter.mint.lgbt" + "nitter.esmailelbob.xyz" + "nitter.poast.org" + "nitter.cz" + "nitter.privacydev.net" + "nitter.projectsegfau.lt" + "nitter.eu.projectsegfau.lt" + "nitter.in.projectsegfau.lt" + "nitter.us.projectsegfau.lt" + "nitter.soopy.moe" + "nitter.rawbit.ninja" + "nitter.d420.de" + "bird.habedieeh.re" + "nitter.x86-64-unknown-linux-gnu.zip" + "nitter.woodland.cafe" + "nitter.dafriser.be" + "nitter.catsarch.com" + "nitter.perennialte.ch" + "nitter.salastil.com" + "n.populas.no" + "nt.ggtyler.dev" + "nitter.uni-sonia.com" + "n.opnxng.com" + "nitter.ktachibana.party" + "nitter.tinfoil-hat.net")) + (setq my-invidious-hosts + '("yewtu.be" + "invidious.io.lol" + "invidious.slipfox.xyz" + "invidious.drgns.space" + "invidious.protokolla.fi" + "invidious.flokinet.to" + "iv.ggtyler.dev" + "yt.drgnz.club" + "invidious.lunar.icu" + "invidious.private.coffee" + "invidious.fdn.fr" + "vid.puffyan.us" + "invidious.asir.dev" + "onion.tube" + "iv.melmac.space" + "invidious.projectsegfau.lt" + "inv.in.projectsegfau.lt" + "invidious.privacydev.net" + "iv.datura.network" + "inv.tux.pizza" + "iv.nboeck.de" + "invidious.perennialte.ch" + "yt.oelrichsgarcia.de" + "inv.citw.lgbt" + "inv.zzls.xyz" + "invidious.einfachzocken.eu" + "yt.cdaut.de" + "yt.artemislena.eu" + "vid.priv.au" + "anontube.lvkaszus.pl" + "invidious.no-logs.com")) + (setq url-rw-rules + '((:name ddg-result + :description "duckduckgo result transform." + :match (concat url-rw-www-re (rx "duckduckgo.com/l/?uddg=")) + :actions ((replace-by-redirect "uddg"))) + (:name google-to-ddg + :description "Google search to duckduckgo html." + :match (concat url-rw-www-re (rx "google.com/search?q=")) + :actions ((replace-host "html.duckduckgo.com") + (replace-path "/html"))) + (:name reddit-to-old + :description "Reddit to old Reddit" + :match (concat url-rw-www-re (rx "reddit.com")) + :actions ((replace-host "old.reddit.com"))) + (:name strip-utm + :description "Strip utm_* queries." + :match "\\<utm_[a-z_]+=" + :actions ((remove-query "utm_.*"))) + (:name twitter-to-nitter + :description "Twitter to a random nitter instance." + :match (concat url-rw-www-re (rx "twitter.com")) + :actions ((replace-random-host my-nitter-hosts))) + (:name youtube-to-invidious + :description "YouTube to a random invidious instance." + :match (concat url-rw-www-re (rx (or "youtube.com" + "youtu.be" + "m.youtube.com"))) + :actions ((replace-random-host my-invidious-hosts))))) + (setq url-rw-extra-rewriters '(url-rewrite-example-zoom-to-dial)) + (url-rw-refresh) + ) + (my-package hnreader (:delay 30) (require 'my-hnreader) |