Function: org-ascii--current-justification

org-ascii--current-justification is a byte-compiled function defined in ox-ascii.el.gz.

Signature

(org-ascii--current-justification ELEMENT)

Documentation

Return expected justification for ELEMENT's contents.

Return value is a symbol among left, center, right and full.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ox-ascii.el.gz
(defun org-ascii--current-justification (element)
  "Return expected justification for ELEMENT's contents.
Return value is a symbol among `left', `center', `right' and
`full'."
  (or (org-element-lineage-map
          element
          (lambda (el)
            (pcase (org-element-type el)
              (`center-block 'center)
              (`special-block
	       (let ((name (org-element-property :type el)))
                 (cond ((string= name "JUSTIFYRIGHT") 'right)
		       ((string= name "JUSTIFYLEFT") 'left))))))
        '(center-block special-block)
        nil 'first-match)
      ;; default
      'left))