aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/lisp/my/my-markup.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/lisp/my/my-markup.el')
-rw-r--r--.emacs.d/lisp/my/my-markup.el68
1 files changed, 0 insertions, 68 deletions
diff --git a/.emacs.d/lisp/my/my-markup.el b/.emacs.d/lisp/my/my-markup.el
deleted file mode 100644
index 2b1c7f6..0000000
--- a/.emacs.d/lisp/my/my-markup.el
+++ /dev/null
@@ -1,68 +0,0 @@
-;;; my-markup.el -- Markup related extensions for emacs core -*- lexical-binding: t -*-
-
-;; Copyright (C) 2023 Free Software Foundation.
-
-;; Author: Yuchen Pei <id@ypei.org>
-;; Package-Requires: ((emacs "28.2"))
-
-;; This file is part of dotfiles.
-
-;; dotfiles is free software: you can redistribute it and/or modify it under
-;; the terms of the GNU Affero General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; dotfiles is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General
-;; Public License for more details.
-
-;; You should have received a copy of the GNU Affero General Public
-;; License along with dotfiles. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Markup related extensions for emacs core.
-
-;;; Code:
-
-
-;;; shr
-(defun my-shr-add-id (dom start end)
- (let ((id (dom-attr dom 'id)))
- (when id
- (put-text-property start end 'shr-frag-id id))))
-
-(defun my-shr-add-id-advice (orig-fun &rest args)
- (let ((start (point)))
- (apply orig-fun args)
- (my-shr-add-id (car args) start (point))))
-
-;;; dom
-(defun my-dom-remove-style (node)
- (dolist (to-remove (dom-by-tag node 'style))
- (dom-remove-node node to-remove))
- node)
-(defun my-dom-next-p-sibling (dom node)
- "Return the next para sibling of NODE in DOM."
- (when-let* ((parent (dom-parent dom node)))
- (let ((siblings (dom-children parent))
- (next))
- (while (and siblings (not next))
- (when (eq (pop siblings) node)
- (setq next (car siblings))))
- (while (and siblings (not (and (listp next) (eq (dom-tag next) 'p))))
- (setq next (pop siblings)))
- next)))
-(defun my-dom-first-tag-text (dom tag)
- (car (dom-by-tag dom tag)))
-
-;; xml
-(defun my-xml-get-first-child (node tag)
- (car (xml-get-children node tag)))
-(defun my-xml-get-first-child-text (node tag)
- (when-let ((text (dom-text (my-xml-get-first-child node tag))))
- (replace-regexp-in-string "\n" " " (string-trim text))))
-
-(provide 'my-markup)
-;;; my-markup.el ends here