larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2024-11-26 11:38:32 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Made custom search functions that saves excursion

Browse Source
This commit is contained in:
Lars Tveito 2015-05-12 00:57:31 +02:00
parent 02cec3494d
commit 6040c744cc
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
focus-mode.el
View File

@ -1,6 +1,12 @@
(defvar-local focus-pre-overlay nil) (defvar-local focus-pre-overlay nil)
(defvar-local focus-post-overlay nil) (defvar-local focus-post-overlay nil)
(defun focus-search-backward (regex)
(save-excursion (re-search-backward regex nil t)))
(defun focus-search-forward (regex)
(save-excursion (re-search-forward regex nil t)))
(defun focus-hexstr-to-int (str) (defun focus-hexstr-to-int (str)
(read (concat "#x" (substring str 1)))) (read (concat "#x" (substring str 1))))
@ -10,12 +16,10 @@
(format "#%X" avg))) (format "#%X" avg)))
(defun focus-move-focus () (defun focus-move-focus ()
(save-excursion (let* ((pre (or (focus-search-backward "^\n") (point-min)))
(let* ((pre (or (re-search-backward "^\n" nil t) 1)) (post (or (focus-search-forward "^\n") (point-max))))
(post (1- (or (re-search-forward "^\n" nil t 2) (move-overlay focus-pre-overlay (point-min) pre)
(1+ (point-max)))))) (move-overlay focus-post-overlay post (point-max))))
(move-overlay focus-pre-overlay (point-min) pre)
(move-overlay focus-post-overlay post (point-max)))))
;;;###autoload ;;;###autoload
(define-minor-mode focus-mode (define-minor-mode focus-mode