mypasshide.el
changeset 1666 06937ff1ec5f
parent 1665 3685e2321a9b
child 1667 7f70095fbf32
--- a/mypasshide.el	Sat Jan 02 00:27:54 2021 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-
-(defvar mypasshide-prefix-re "^pass: *")
-
-(defun mypasshide--toggle-display (overlay hide)
-  "Hide or reveal region. Signature follows convention for
-`reveal-toggle-invisible' from `reveal' mode."
-  (if hide
-      (overlay-put overlay 'display (propertize "****" 'face 'warning))
-    (overlay-put overlay 'display nil)))
-
-(defun mypasshide--hide ()
-  (save-excursion
-    (goto-char (point-min))
-    (while (re-search-forward mypasshide-prefix-re nil t)
-      (let* ((beg (match-end 0))
-             (end (line-end-position))
-             (overlay (make-overlay beg end)))
-        (mypasshide--toggle-display overlay t)
-        (overlay-put overlay 'reveal-toggle-invisible #'mypasshide--toggle-display)
-        ))))
-
-;;;###autoload
-(define-minor-mode mypasshide-mode
-  "Hide passwords after `mypasshide-prefix-re' and activate
-`reveal-mode'. Disabling is not implemented."
-  :group 'reveal
-  (if mypasshide-mode
-      (progn
-        (mypasshide--hide)
-        (reveal-mode))))
-
-(provide 'mypasshide)
-