Moving things one level deeper

To ease gnu stow usage. Now we can do

stow -t ~ emacs

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