branch: elpa/tablist
commit faab7a035ef2258cc4ea2182f67e3aedab7e2af9
Merge: 778eee5 3fc27c7
Author: politza <poli...@fh-trier.de>
Commit: GitHub <nore...@github.com>
Merge pull request #20 from tarsiiformes/sections
Add and improve sections
---
tablist-filter.el | 20 ++++++++++++++++++--
tablist.el | 4 ++++
2 files changed, 22 insertions(+), 2 deletions(-)
diff --git a/tablist-filter.el b/tablist-filter.el
index 00c8a1d..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)
@@ -445,4 +457,8 @@ else return nil."
filter)))
(provide 'tablist-filter)
+;; Local Variables:
+;; outline-regexp: ";;\\(\\(?:[;*]+ \\| \\*+\\)[^\s\t\n]\\|###autoload\\)\\|("
+;; indent-tabs-mode: nil
+;; End:
;;; tablist-filter.el ends here
diff --git a/tablist.el b/tablist.el
index 59fe7a7..df8778b 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1938,4 +1938,8 @@ the 0-th column as numbers by the less-than relation."
(aref (cadr e2) column)))))
(provide 'tablist)
+;; Local Variables:
+;; outline-regexp: ";;\\(\\(?:[;*]+ \\| \\*+\\)[^\s\t\n]\\|###autoload\\)\\|("
+;; indent-tabs-mode: nil
+;; End:
;;; tablist.el ends here
