From 72139ef3250f7cad9dad3ccbdc7a829befcb5c5f Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Sat, 4 Jan 2025 12:22:33 +1100
Subject: [emacs] Incorporate mariadb kb functions into wiki

---
 emacs/.emacs.d/init/ycp-web.el       |  2 --
 emacs/.emacs.d/lisp/my/my-mariadb.el | 15 +++++++++++++++
 emacs/.emacs.d/lisp/wiki.el          |  2 +-
 3 files changed, 16 insertions(+), 3 deletions(-)

(limited to 'emacs')

diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index ffdb83d..c50cc46 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -254,8 +254,6 @@
            . ,(lambda (url &rest _) (exitter-open-post url)))
           (my-hacker-news-url-p
            . ,(lambda (url &rest _) (hnreader-comment url)))
-          (my-mariadb-kb-url-p
-           . ,(lambda (url &rest _) (my-mariadb-fetch-kb-source url)))
           (my-mastodon-url-p
            . ,(lambda (url &rest _) (mastorg-open url)))
           (my-newscorp-au-url-p
diff --git a/emacs/.emacs.d/lisp/my/my-mariadb.el b/emacs/.emacs.d/lisp/my/my-mariadb.el
index 01bc063..bdb1c60 100644
--- a/emacs/.emacs.d/lisp/my/my-mariadb.el
+++ b/emacs/.emacs.d/lisp/my/my-mariadb.el
@@ -254,6 +254,21 @@ enum spider_malloc_id {
 (defun my-mariadb-kb-url-p (url)
   (string-match-p "https://mariadb.com/kb/en/\\([^/]+\\)/" url))
 
+(defun my-wiki-mariadb-extract-kb-source ()
+  "Extract the kb source from the current buffer.
+
+Used for wiki mode as a post-processor."
+  (let ((source
+         (dom-text
+          (dom-by-id
+           (libxml-parse-html-region (point-min) (point-max))
+           "answer_source"))))
+    (erase-buffer)
+    (insert source))
+  (goto-char (point-min))
+  (save-buffer)
+  )
+
 (defun my-mariadb-fetch-kb-source (url)
   "Fetches the source to an maridb kb entry at URL.
 
diff --git a/emacs/.emacs.d/lisp/wiki.el b/emacs/.emacs.d/lisp/wiki.el
index 7c90e1c..3bb836e 160000
--- a/emacs/.emacs.d/lisp/wiki.el
+++ b/emacs/.emacs.d/lisp/wiki.el
@@ -1 +1 @@
-Subproject commit 7c90e1c35abb0a8eb25bcb5f3b5d8676dc13fc54
+Subproject commit 3bb836e703480e23b3eee8fdb369dacb294dc46a
-- 
cgit v1.2.3