[emacs] Incorporate mariadb kb functions into wiki

1 files changed, 15 insertions, 0 deletions

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.