Function: verb--heading-properties

verb--heading-properties is a natively compiled function defined in verb.el.

Signature

(verb--heading-properties PREFIX)

Documentation

Return alist of current heading properties starting with PREFIX.

Respects org-use-property-inheritance. Matching is case-insensitive.

Source Code

;; Defined in /nix/store/8jnfn8w2mxcxbr2crbklcnija9m0zlkq-emacs-packages-deps/share/emacs/site-lisp/elpa/verb-20260818.1921/verb.el
(defun verb--heading-properties (prefix)
  "Return alist of current heading properties starting with PREFIX.
Respects `org-use-property-inheritance'.  Matching is case-insensitive."
  (verb--back-to-heading)
  (thread-last
    ;; 1) Get all doc properties and filter them by prefix. This will push the
    ;; property already `upcase''d, but only if there is no `string=' the
    ;; `upcase''d value.
    (seq-reduce (lambda (properties property)
                  (if (string-prefix-p prefix property t)
                      (cl-pushnew (upcase property) properties :test #'string=)
                    properties))
                (org-buffer-property-keys)
                '())
    ;; 2) Get the value for each of those properties and return an alist
    ;; Note: this will respect the value of `org-use-property-inheritance'.
    (mapcar (lambda (key) (cons key (org-entry-get (point) key 'selective))))
    ;; 3) Discard all (key . nil) elements in the list.
    (seq-filter #'cdr)))