Function: org-element--get-category

org-element--get-category is a byte-compiled function defined in org-element.el.gz.

Signature

(org-element--get-category)

Documentation

Return category in current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-element.el.gz
;;;; org-data

(defun org-element--get-category ()
  "Return category in current buffer."
  (let ((default-category
         (cond ((null org-category)
                (when (org-with-base-buffer nil
                        buffer-file-name)
                  (file-name-sans-extension
                   (file-name-nondirectory
                    (org-with-base-buffer nil
                      buffer-file-name)))))
	       ((symbolp org-category) (symbol-name org-category))
	       (t org-category)))
        category)
    ;; Search for #+CATEGORY keywords.
    (org-with-point-at (point-max)
      (while (and (not category)
                  (re-search-backward "^[ \t]*#\\+CATEGORY:" (point-min) t))
	(let ((element (org-element-at-point-no-context)))
	  (when (org-element-type-p element 'keyword)
            (setq category (org-element-property :value element))))))
    ;; Return.
    (or category default-category)))