From 070351c70fd022ffa2aa52dba1d3a0729eaa2961 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Thu, 11 Dec 2025 21:09:18 +0100 Subject: emacs: Rename marker to highlighter (and make changes) --- .config/emacs/site-lisp/marker.el | 47 --------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 .config/emacs/site-lisp/marker.el (limited to '.config/emacs/site-lisp/marker.el') diff --git a/.config/emacs/site-lisp/marker.el b/.config/emacs/site-lisp/marker.el deleted file mode 100644 index f39cad4..0000000 --- a/.config/emacs/site-lisp/marker.el +++ /dev/null @@ -1,47 +0,0 @@ -(require 'hi-lock) -(require 'seq) - -(defun marker-mark () - (interactive) - (marker-mark-region (if (use-region-p) - (region-bounds) - `((,(pos-bol) . ,(pos-eol))))) - (when (region-active-p) - (deactivate-mark))) - -(defun marker-mark-region (bounds) - (dolist (x bounds) (marker--mark-region (car x) (cdr x)))) - -(defun marker--mark-region (beg end) - (let ((ov (make-overlay beg end nil :front-advance))) - (overlay-put ov 'priority 1) - (overlay-put ov 'face 'hi-yellow) - (overlay-put ov 'evaporate t) - (overlay-put ov 'marker--mark-p t))) - -(defun marker-unmark () - (interactive) - (if (use-region-p) - (marker-unmark-region (region-bounds)) - (marker-clear)) - (when (region-active-p) - (deactivate-mark))) - -(defun marker-unmark-region (bounds) - (dolist (x bounds) (marker--unmark-region (car x) (cdr x)))) - -(defun marker--unmark-region (beg end) - (dolist (ov (seq-filter (lambda (ov) (overlay-get ov 'marker--mark-p)) - (overlays-in beg end))) - (cond ((< (overlay-start ov) beg) - (move-overlay ov (overlay-start ov) beg)) - ((> (overlay-end ov) end) - (move-overlay ov end (overlay-end ov))) - (:else - (delete-overlay ov))))) - -(defun marker-clear () - (interactive) - (remove-overlays nil nil 'marker--mark-p t)) - -(provide 'marker) -- cgit v1.2.3