emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/tablist 3fc27c7 59/60: Split tablist-filter.el into sectio


From: Philip Kaludercic
Subject: [nongnu] elpa/tablist 3fc27c7 59/60: Split tablist-filter.el into sections
Date: Sun, 1 Aug 2021 18:19:35 -0400 (EDT)

branch: elpa/tablist
commit 3fc27c7c2999040a59420388cdd6aaada12d92c7
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Split tablist-filter.el into sections
---
 tablist-filter.el | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index c6b49bb..c5d56b8 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -32,6 +32,10 @@
 (defvar wisent-eoi-term)
 (declare-function wisent-parse "semantic/wisent/wisent.el")
 
+;;
+;; *Variables
+;;
+
 (defvar tablist-filter-binary-operator
   '((== . tablist-filter-op-equal)
     (=~ . tablist-filter-op-regexp)
@@ -74,6 +78,10 @@
      ((filter or filter) `(or ,$1 ,$3))
      ((?\( filter ?\)) $2))))
 
+;;
+;; *Filter Parsing
+;;
+
 (defun tablist-filter-parser-init (&optional reinitialize interactive)
   (interactive (list t t))
   (unless (and tablist-filter-lexer-regexps
@@ -255,6 +263,10 @@
          (_ (error "Invalid filter: %s" filter)))))
     (feval filter)))
 
+;;
+;; *Filter Operators
+;;
+
 (defun tablist-filter-get-item-by-name (entry col-name)
   (let* ((col (cl-position col-name tabulated-list-format
                            :key 'car
@@ -343,7 +355,7 @@ and \(...\) to group expressions.")
        (help-mode)))))
 
 ;;
-;; **Filter Functions
+;; *Filter Functions
 ;;
 
 ;; filter ::= nil | named | fn | (OP OP1 [OP2])
@@ -392,7 +404,7 @@ else return nil."
     (_ (funcall fn filter))))
 
 ;;
-;; Reading filter
+;; *Reading Filter
 ;;
 
 (defvar tablist-filter-edit-history nil)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]