[O] [PATCH 2/2] org-colview.el: Add property :exclude-tags to column view

[Benjamin Motz]

Hello,

This addition allows to specify a list of tags to exclude from column
view tables.

>From 4ac32c4b24f33b841ad73c4b10158ec7a18087a9 Mon Sep 17 00:00:00 2001
From: Benjamin Motz <address@hidden>
Date: Wed, 4 Jul 2018 14:27:24 +0200
Subject: [PATCH 2/2] org-colview.el: Add property :exclude-tags to column view
 table

This addition allows to specify a list of tags to exclude from column
view tables.

TINYCHANGE
---
 lisp/org-colview.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 70710aa..b769c5f 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1327,7 +1327,7 @@ and variances (respectively) of the individual estimates."
 
 ;;; Dynamic block for Column view
 
-(defun org-columns--capture-view (maxlevel match skip-empty format local)
+(defun org-columns--capture-view (maxlevel match skip-empty exclude-tags 
format local)
   "Get the column view of the current buffer.
 
 MAXLEVEL sets the level limit.  SKIP-EMPTY tells whether to skip
@@ -1357,9 +1357,13 @@ other rows.  Each row is a list of fields, as strings, or
                                             'org-columns-value
                                           'org-columns-value-modified)))
                     row)))
-          (unless (and skip-empty
-                       (let ((r (delete-dups (remove "" row))))
-                         (or (null r) (and has-item (= (length r) 1)))))
+          (unless (or
+                   (and skip-empty
+                        (let ((r (delete-dups (remove "" row))))
+                          (or (null r) (and has-item (= (length r) 1)))))
+                   (and exclude-tags
+                        (cl-some (lambda (tag) (member tag exclude-tags))
+                                 (org-get-tags))))
             (push (cons (org-reduced-level (org-current-level)) (nreverse row))
                   table)))))
      (or (and maxlevel (format "LEVEL<=%d" maxlevel))
@@ -1404,6 +1408,8 @@ PARAMS is a property list of parameters:
 :match    When set to a string, use this as a tags/property match filter.
 :skip-empty-rows
          When t, skip rows where all specifiers other than ITEM are empty.
+:exclude-tags
+          List of tags to exclude from column view table.
 :format   When non-nil, specify the column view format to use."
   (let ((table
         (let ((id (plist-get params :id))
@@ -1429,6 +1435,7 @@ PARAMS is a property list of parameters:
              (org-columns--capture-view (plist-get params :maxlevel)
                                         (plist-get params :match)
                                         (plist-get params :skip-empty-rows)
+                                        (plist-get params :exclude-tags)
                                         (plist-get params :format)
                                         view-pos))))))
     (when table
-- 
2.7.4

Best regards,
Benjamin Motz