Hi
> I'm not sure if someone will find this feature useful enough to
> incorporate. However, even if it doesn't get added, I think you can get
> the behavior you want using org-agenda-finalize-hook. Hopefully the
> snippet below can be a useful starting point.
>
> #+begin_src elisp
> (defun org-agenda-delete-empty-blocks ()
> "Remove empty agenda blocks.
> A block is identified as empty if there are fewer than 2
> non-empty lines in the block (excluding the line with
> `org-agenda-block-separator' characters)."
> (when org-agenda-compact-blocks
> (user-error "Cannot delete empty compact blocks"))
> (setq buffer-read-only nil)
> (save-excursion
> (goto-char (point-min))
> (let* ((blank-line-re "^\\s-*$")
> (content-line-count (if (looking-at-p blank-line-re) 0 1))
> (start-pos (point))
> (block-re (format "%c\\{10,\\}" org-agenda-block-separator)))
> (while (and (not (eobp)) (forward-line))
> (cond
> ((looking-at-p block-re)
> (when (< content-line-count 2)
> (delete-region start-pos (1+ (point-at-bol))))
> (setq start-pos (point))
> (forward-line)
> (setq content-line-count (if (looking-at-p blank-line-re) 0 1)))
> ((not (looking-at-p blank-line-re))
> (setq content-line-count (1+ content-line-count)))))
> (when (< content-line-count 2)
> (delete-region start-pos (point-max)))
> (goto-char (point-min))
> ;; The above strategy can leave a separator line at the beginning
> ;; of the buffer.
> (when (looking-at-p block-re)
> (delete-region (point) (1+ (point-at-eol))))))
> (setq buffer-read-only t))
>
> (add-hook 'org-agenda-finalize-hook #'org-agenda-delete-empty-blocks)
> #+end_src
a starting point seems to be an understatement ;) this seems to work
exactly as intended. Thanks!
Completely blanked out the use of any hooks, although it seems the
obvious thing to do ;)
Thanks again
Arun
