[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/orgalist 2b53799 3/4: Rename filters
From: |
Nicolas Goaziou |
Subject: |
[elpa] externals/orgalist 2b53799 3/4: Rename filters |
Date: |
Sat, 5 May 2018 08:15:53 -0400 (EDT) |
branch: externals/orgalist
commit 2b537998521278a8f20bc598f84f5192166cfe54
Author: Nicolas Goaziou <address@hidden>
Commit: Nicolas Goaziou <address@hidden>
Rename filters
* orgalist.el (orgalist--when-at-item): Renamed from
`orgalist--while-at-item'.
(orgalist--when-at-empty-item): Renamed from
`orgalist--while-at-empty-item'.
(orgalist--when-in-item): Renamed from `orgalist--while-at-item'.
(orgalist--maybe-previous):
(orgalist--maybe-next):
(orgalist--maybe-insert):
(orgalist--maybe-move-up):
(orgalist--maybe-move-down):
(orgalist--maybe-outdent):
(orgalist--maybe-indent):
(orgalist--maybe-outdent-tree):
(orgalist--maybe-indent-tree):
(orgalist--maybe-cycle-bullet):
(orgalist--maybe-check):
(orgalist--maybe-sort):
(orgalist--maybe-cycle-indentation): Apply renaming.
---
orgalist.el | 32 ++++++++++++++++----------------
1 file changed, 16 insertions(+), 16 deletions(-)
diff --git a/orgalist.el b/orgalist.el
index f3d4c57..6c4d53d 100644
--- a/orgalist.el
+++ b/orgalist.el
@@ -598,11 +598,11 @@ The function assumes point is at an empty item."
((ignore-errors (org-list-indent-item-generic -1 t struct)))
(t (user-error "No other meaningful indentation level"))))))
-(defun orgalist--while-at-item (cmd)
+(defun orgalist--when-at-item (cmd)
"Return CMD when point is at a list item."
(when (orgalist--at-item-p) cmd))
-(defun orgalist--while-at-empty-item (cmd)
+(defun orgalist--when-at-empty-item (cmd)
"Return CMD when point is at an empty list item."
(when (and (orgalist--at-item-p)
(org-match-line orgalist--item-re)
@@ -617,7 +617,7 @@ The function assumes point is at an empty item."
(>= reference-ind (current-indentation)))))))
cmd))
-(defun orgalist--while-in-item (cmd)
+(defun orgalist--when-in-item (cmd)
"Return CMD when point is in a list item."
(when (orgalist--in-item-p) cmd))
@@ -625,45 +625,45 @@ The function assumes point is at an empty item."
;;; Bindings and menu
(defconst orgalist--maybe-previous
- '(menu-item "" orgalist-previous-item :filter orgalist--while-in-item))
+ '(menu-item "" orgalist-previous-item :filter orgalist--when-in-item))
(defconst orgalist--maybe-next
- '(menu-item "" orgalist-next-item :filter orgalist--while-in-item))
+ '(menu-item "" orgalist-next-item :filter orgalist--when-in-item))
(defconst orgalist--maybe-insert
- '(menu-item "" orgalist-insert-item :filter orgalist--while-in-item))
+ '(menu-item "" orgalist-insert-item :filter orgalist--when-in-item))
(defconst orgalist--maybe-move-up
- '(menu-item "" orgalist-move-item-up :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-move-item-up :filter orgalist--when-at-item))
(defconst orgalist--maybe-move-down
- '(menu-item "" orgalist-move-item-down :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-move-item-down :filter orgalist--when-at-item))
(defconst orgalist--maybe-outdent
- '(menu-item "" orgalist-outdent-item :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-outdent-item :filter orgalist--when-at-item))
(defconst orgalist--maybe-indent
- '(menu-item "" orgalist-indent-item :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-indent-item :filter orgalist--when-at-item))
(defconst orgalist--maybe-outdent-tree
- '(menu-item "" orgalist-outdent-item-tree :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-outdent-item-tree :filter orgalist--when-at-item))
(defconst orgalist--maybe-indent-tree
- '(menu-item "" orgalist-indent-item-tree :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-indent-item-tree :filter orgalist--when-at-item))
(defconst orgalist--maybe-cycle-bullet
- '(menu-item "" orgalist-cycle-bullet :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-cycle-bullet :filter orgalist--when-at-item))
(defconst orgalist--maybe-check
- '(menu-item "" orgalist-check-item :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-check-item :filter orgalist--when-at-item))
(defconst orgalist--maybe-sort
- '(menu-item "" orgalist-sort-items :filter orgalist--while-at-item))
+ '(menu-item "" orgalist-sort-items :filter orgalist--when-at-item))
(defconst orgalist--maybe-cycle-indentation
'(menu-item ""
orgalist--cycle-indentation
- :filter orgalist--while-at-empty-item))
+ :filter orgalist--when-at-empty-item))
(defconst orgalist-mode-map
(let ((map (make-sparse-keymap)))