Hi, Arun Persaud <apers...@lbl.gov> wrote: > Hi > > I just started using a customized agenda with many blocks and some of my > blocks are often empty. However, org-mode still insert the header and > the separator between blocks. Is there a way to skip empty blocks > completely?
Not that I'm aware of. > I had a quick look at org-agenda.el and it seems that it directly > inserts text, e.g. the header, into the buffer, before it even knows how > many items it added. I guess one could remember point at the beginning, > count the items inserted and if that's 0, delete backwards to the saved > point? > My elisp knowledge is probably not good enough to add this though and it > also seems one would have to add it at different location > (org-agenda-list, org-agenda-todo, etc). > > I also checked org-agenda-compact-blocks, but that removes the separator > from all blocks, which is not what I want. > > Any chance to get something like this added? 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 -- Kyle