From 15eeea3f5ed8452b491dcfe1e2ba4e612c7219f8 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Thu, 2 Nov 2023 23:12:07 +1100
Subject: [emacs] Adding bom.el
Also strip fbclid from urls
---
.gitmodules | 3 +++
emacs/.emacs.d/init/ycp-web.el | 7 +++++++
emacs/.emacs.d/lisp/bom.el | 1 +
3 files changed, 11 insertions(+)
create mode 160000 emacs/.emacs.d/lisp/bom.el
diff --git a/.gitmodules b/.gitmodules
index 561814f..26a3a93 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -118,3 +118,6 @@
[submodule "emacs/.emacs.d/lisp/url-rewrite"]
path = emacs/.emacs.d/lisp/url-rewrite
url = https://g.ypei.me/url-rewrite.git
+[submodule "emacs/.emacs.d/lisp/bom.el"]
+ path = emacs/.emacs.d/lisp/bom.el
+ url = https://g.ypei.me/bom.el.git
diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index d672c3a..31d0528 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -61,6 +61,9 @@
(require 'osm-ol)
)
+(my-package bom
+ (:delay 30))
+
(my-package url-rewrite
(setq my-nitter-hosts
'("nitter.net"
@@ -147,6 +150,10 @@
:description "Strip utm_* queries."
:match "\\<utm_[a-z_]+="
:actions ((remove-query "utm_.*")))
+ (:name strip-fbclid
+ :description "Strip utm_* queries."
+ :match "\\<fbclid="
+ :actions ((remove-query "fbclid")))
(:name twitter-to-nitter
:description "Twitter to a random nitter instance."
:match (concat url-rw-www-re (rx "twitter.com"))
diff --git a/emacs/.emacs.d/lisp/bom.el b/emacs/.emacs.d/lisp/bom.el
new file mode 160000
index 0000000..f6e2215
--- /dev/null
+++ b/emacs/.emacs.d/lisp/bom.el
@@ -0,0 +1 @@
+Subproject commit f6e2215acee2126f75d611fda56242c4b7437c92
--
cgit v1.2.3