Thorsten Jolitz writes:
> #+begin_src emacs-lisp
> (with-current-buffer "my.org"
> (eval (append (list '+)
> (org-map-entries
>(lambda () (if (eq (org-outline-level) 1) 1 0))
> #+end_src
Or, slightly more simply:
#+begin_src emacs-lisp
(with-curre
Dear Thorsten
> Here is a generalised form:
>
> #+begin_src emacs-lisp
> (defun count-org-items (&optional level operator match scope skip)
> "Print a counting of outline items."
> (interactive)
> (let ((headline-level (or level 1)) ; 1-8
> (op (or operator '=))) ; '>= '<=
Martin Gross writes:
> Dear helpers,
>
> I would like to get a counting of the first level items in a buffer
> (or even better in a region). Since I‘m not a programmer I tried
> this, which doesn‘t work:
>
> (defun org-items-counting ()
> "Print a message with the counting of the first level o
