marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comment out shr-insert function

Browse source
This commit is contained in:
Marcus Kammer 2023-01-06 12:44:39 +01:00
parent 97748a378f
commit d531d9c5c9
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
bundle/bundle--mk.el
View file

@ -110,3 +110,48 @@
(defun mk/delete-files (lst)
(dolist (file lst)
(delete-file file t)))
;; (defun shr-insert (text)
;; (when (and (not (bolp))
;; (get-text-property (1- (point)) 'image-url))
;; (insert "\n"))
;; (cond
;; ((eq shr-folding-mode 'none)
;; (let ((start (point)))
;; (insert text)
;; (save-restriction
;; (narrow-to-region start (point))
;; (shr--translate-insertion-chars)
;; (goto-char (point-max)))))
;; (t
;; (let ((font-start (point)))
;; (when (and (string-match "\\`[ \t\n\r]" text)
;; (not (bolp))
;; (not (eq (char-after (1- (point))) ? )))
;; (insert " "))
;; (let ((start (point))
;; (bolp (bolp)))
;; (insert text)
;; (save-restriction
;; (narrow-to-region start (point))
;; (goto-char start)
;; (when (looking-at "[\t\n\r]+")
;; (replace-match "" t t))
;; (while (re-search-forward "[\t\n\r]+" nil t)
;; (replace-match " " t t))
;; (goto-char start)
;; (while (re-search-forward " +" nil t)
;; (replace-match " " t t))
;; (shr--translate-insertion-chars)
;; (goto-char (point-max)))
;; ;; We may have removed everything we inserted if it was just
;; ;; spaces.
;; (unless (= font-start (point))
;; ;; Mark all lines that should possibly be folded afterwards.
;; (when bolp
;; (shr-mark-fill start))
;; (when shr-use-fonts
;; (put-text-property font-start (point)
;; 'face
;; (or shr-current-font 'variable-pitch)))))))))