Insert character name or alias

[abarocio80]

I have a suggestion to insert a character's name or alias:

(defun orgn--select-character-name-or-alias ()
  "Selects the character name or alias from the character notes."
  (replace-regexp-in-string
   ".* --- " ""
   (completing-read
    "Selecciona un nombre de personaje: "
    (let ((default-directory (expand-file-name (org-novelist--story-root-folder))))
      (flatten-list
       (mapcar
	(lambda (file)
	  (with-current-buffer (find-file-noselect file)
	    (let* ((kw (org-collect-keywords '("title" "aliases")))
		   (full (nth 1 (car kw)))
		   (alias (nth 1 (cadr kw))))
	      (flatten-list
	       (list
		(format "%s" full)
		(when alias
		  (mapcar
		   (lambda (n)
		     (format "%s --- %s" full (string-trim n)))
		   (split-string alias ","))))))))
	(directory-files (expand-file-name "Notes" default-directory) t "character-.*\\.org$"))))
    nil t)))

(defun org-novelist-insert-character-name ()
  "Iserts a character's name or alias from the character notes."
  (interactive)
  (insert (orgn--select-character-name-or-alias)))

I didn't want to make a full PR, so I just drop it here.

I hope it is useful (I know it is for me).

[sympodius]

Sorry, I should have responded to this a while ago. This is a cool idea! I'll try to include this feature in a future update. Thanks for sharing!