From 58a91b29aa414a24decb8bbe5adac41c3ac4624d Mon Sep 17 00:00:00 2001 From: Lars Tveito Date: Sun, 24 May 2015 02:00:06 +0200 Subject: [PATCH] Split focus-bounds into two functions --- focus.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/focus.el b/focus.el index fa22c87..636d83a 100644 --- a/focus.el +++ b/focus.el @@ -88,12 +88,15 @@ Things that are defined include `symbol', `list', `sexp', (let ((v (funcall f (car lst)))) (if v v (focus-any f (cdr lst)))))) -(defun focus-bounds () - "Return the current bounds, based on `focus-mode-to-thing'." +(defun focus-get-thing () + "Return the current thing, based on `focus-mode-to-thing'." (let* ((modes (mapcar 'car focus-mode-to-thing)) - (mode (focus-any 'derived-mode-p modes)) - (thing (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence))) - (bounds-of-thing-at-point thing))) + (mode (focus-any 'derived-mode-p modes))) + (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence))) + +(defun focus-bounds () + "Return the current bounds, based on `focus-get-thing'." + (bounds-of-thing-at-point (focus-get-thing))) (defun focus-average-colors (color &rest colors) "Takes an average of the colors given by argument.