¿Manera idiomática de contar los subárboles del modo org?

¿Hay alguna forma idiomática de contar los subárboles del modo org?

Busqué aquí en emacs.sx y otros motores de búsqueda, pero no pude encontrar una respuesta.

Sé que uno podría contar fácilmente los subárboles con una expresión regular, pero me preguntaba si la API de la organización tiene medios para satisfacer necesidades de conteo más sofisticadas, como,

• ¿Cuántos titulares de segundo nivel bajo el árbol actual?
• ¿Cuántos titulares de tercer nivel en total hay en el búfer actual?

org-map-entries es una forma típica de hacer esto:

(org-map-entry FUNC y opcional MATCH SCOPE y rest SKIP)

Llame a FUNC en cada título seleccionado por MATCH en SCOPE.

Devuelve los resultados de FUNC, por lo que puede contarlos para obtener el número de titulares que coinciden MATCH(que es una org-agendacadena de búsqueda de estilo). SCOPEse puede configurar para treeverificar que solo el punto del árbol esté activado , nilpara buscar en todo el búfer, regionpara buscar en la región actual y algunas otras más especializadas.

Si solo le importa la cantidad de resultados, la función no tiene que hacer nada. Tus ejemplos se convierten en:

• (length (org-map-entries t "LEVEL=2" 'tree))
• (length (org-map-entries t "LEVEL=3" nil))

La MATCHcadena puede buscar etiquetas, propiedades o cualquier otra cosa que pueda hacer una búsqueda de agenda.

Estos no han sido probados pero deberían estar cerca:

(length (org-map-entries t "LEVEL=2" 'tree))

(length (org-map-entries t "LEVEL=3" 'file))

org-map-entrieses muy poderoso y puede hacer mucho más que contar cosas: vea el documento para más detalles (que incluye un ejemplo muy cercano a esto).

Y aquí está la forma no / menos idiomática:

(defun count-subtrees ()
  (interactive)
  (let (lvs)
    (save-excursion
      (goto-char (point-max))
      (while (outline-previous-heading)
        (let* ((hl (org-element-at-point))
               (lv (org-element-property :level hl)))
          (push lv lvs))))
    (let* ((depth (cl-sort lvs #'<))
           (min-lv (car depth))
           (max-lv (car (last depth))))
      (cl-loop for lv from min-lv to max-lv
               for count = (cl-count-if (lambda (elt)
                                          (= elt lv))
                                        lvs)
               collect (print (cons lv count))))))