Function: majutsu-row--insert-heading-anchor-line

majutsu-row--insert-heading-anchor-line is a natively compiled function defined in majutsu-row.el.

Signature

(majutsu-row--insert-heading-anchor-line ANCHOR-LEFT TAIL ENTRY-ID PREFIX COMPILED)

Documentation

Insert ANCHOR-LEFT and optional TAIL on one prefixed line.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-row.el
;;; Entry insertion

(defun majutsu-row--insert-heading-anchor-line
    (anchor-left tail entry-id prefix compiled)
  "Insert ANCHOR-LEFT and optional TAIL on one prefixed line."
  (let* ((profile (majutsu-row--profile compiled))
         (tail-align (plist-get profile :tail-align))
         (start (point))
         (spacer-pos nil)
         (window (majutsu-row--tail-owner-window)))
    (insert anchor-left)
    (when (and (stringp tail) (not (string-empty-p tail)))
      (setq spacer-pos (point))
      (insert " ")
      (add-text-properties
       spacer-pos (point)
       (majutsu-row-tail-spacer-properties
        entry-id
        (and tail-align
             (majutsu-row-tail-spacer-display tail window))))
      (insert tail))
    (insert "\n")
    (majutsu-row-apply-line-prefix-span start (point) prefix)
    (when (and spacer-pos tail-align)
      (majutsu-row-refresh-tail-spacers spacer-pos (1+ spacer-pos)
                                        window))))