Function: hyrolo-yank

hyrolo-yank is an autoloaded, interactive and byte-compiled function defined in hyrolo.el.

Signature

(hyrolo-yank NAME &optional REGEXP-FLAG)

Documentation

Insert at point the first rolo entry with a headline containing NAME.

If the consult package is installed, interactively select and complete the entry to be inserted.

With optional prefix arg, REGEXP-FLAG, treat NAME as a regular expression instead of a string.

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hyrolo.el
;;;###autoload
(defun hyrolo-yank (name &optional regexp-flag)
  "Insert at point the first rolo entry with a headline containing NAME.
If the `consult' package is installed, interactively select and complete
the entry to be inserted.

With optional prefix arg, REGEXP-FLAG, treat NAME as a regular expression
instead of a string."
  (interactive (list
		(hsys-consult-grep-headlines-read-regexp
		 #'hyrolo-consult-grep "Yank rolo headline matching")
		current-prefix-arg))
  (when (string-empty-p name)
    (setq name nil))
  (when (or (null name) (not (stringp name)))
    (error "(hyrolo-yank): Invalid name: `%s'" name))

  (let ((hyrolo-display-buffer (current-buffer))
	(start (point))
	found)
    (save-excursion
      (setq found
	    (if (and (hsys-consult-active-p)
		     (string-match "\\([^ \t\n\r\"'`]*[^ \t\n\r:\"'`0-9]\\): ?\\([1-9][0-9]*\\)[ :]"
				   name))
		(hyrolo-grep-file (match-string-no-properties 1 name)
				  (regexp-quote (substring name (match-end 0)))
				  -1 nil t)
	      (hyrolo-grep (if regexp-flag name (regexp-quote name)) -1 nil nil t))))
    ;; Let user reformat the region just yanked.
    (when (= found 1)
      (funcall hyrolo-yank-reformat-function start (mark)))
    found))