Function: org-roam-node-create--cmacro

org-roam-node-create--cmacro is a function defined in org-roam-node.el.

Signature

(org-roam-node-create--cmacro CL-WHOLE &cl-quote &key FILE FILE-TITLE FILE-HASH FILE-ATIME FILE-MTIME ID LEVEL POINT TODO PRIORITY SCHEDULED DEADLINE TITLE PROPERTIES OLP TAGS ALIASES REFS)

Documentation

compiler-macro for inlining org-roam-node-create.

Source Code

;; Defined in ~/.emacs.d/elpa/org-roam-20260224.1637/org-roam-node.el
;; Closure converted to defun by helpful.
(defun org-roam-node-create--cmacro
    (cl-whole &rest --cl-rest--)
  "compiler-macro for inlining `org-roam-node-create'.\n\n\\(fn CL-WHOLE &cl-quote &key FILE FILE-TITLE FILE-HASH FILE-ATIME FILE-MTIME ID LEVEL POINT TODO PRIORITY SCHEDULED DEADLINE TITLE PROPERTIES OLP TAGS ALIASES REFS)"
  (let*
      ((file
	(car
	 (cdr
	  (plist-member --cl-rest-- ':file))))
       (file-title
	(car
	 (cdr
	  (plist-member --cl-rest-- ':file-title))))
       (file-hash
	(car
	 (cdr
	  (plist-member --cl-rest-- ':file-hash))))
       (file-atime
	(car
	 (cdr
	  (plist-member --cl-rest-- ':file-atime))))
       (file-mtime
	(car
	 (cdr
	  (plist-member --cl-rest-- ':file-mtime))))
       (id
	(car
	 (cdr
	  (plist-member --cl-rest-- ':id))))
       (level
	(car
	 (cdr
	  (plist-member --cl-rest-- ':level))))
       (point
	(car
	 (cdr
	  (plist-member --cl-rest-- ':point))))
       (todo
	(car
	 (cdr
	  (plist-member --cl-rest-- ':todo))))
       (priority
	(car
	 (cdr
	  (plist-member --cl-rest-- ':priority))))
       (scheduled
	(car
	 (cdr
	  (plist-member --cl-rest-- ':scheduled))))
       (deadline
	(car
	 (cdr
	  (plist-member --cl-rest-- ':deadline))))
       (title
	(car
	 (cdr
	  (plist-member --cl-rest-- ':title))))
       (properties
	(car
	 (cdr
	  (plist-member --cl-rest-- ':properties))))
       (olp
	(car
	 (cdr
	  (plist-member --cl-rest-- ':olp))))
       (tags
	(car
	 (cdr
	  (plist-member --cl-rest-- ':tags))))
       (aliases
	(car
	 (cdr
	  (plist-member --cl-rest-- ':aliases))))
       (refs
	(car
	 (cdr
	  (plist-member --cl-rest-- ':refs)))))
    (progn
      (let
	  ((--cl-keys-- --cl-rest--))
	(while --cl-keys--
	  (cond
	   ((memq
	     (car --cl-keys--)
	     '(:file :file-title :file-hash :file-atime :file-mtime :id :level :point :todo :priority :scheduled :deadline :title :properties :olp :tags :aliases :refs :allow-other-keys))
	    (unless
		(cdr --cl-keys--)
	      (error "Missing argument for %s"
		     (car --cl-keys--)))
	    (setq --cl-keys--
		  (cdr
		   (cdr --cl-keys--))))
	   ((car
	     (cdr
	      (memq ':allow-other-keys --cl-rest--)))
	    (setq --cl-keys-- nil))
	   (t
	    (error "Keyword argument %s not one of (:file :file-title :file-hash :file-atime :file-mtime :id :level :point :todo :priority :scheduled :deadline :title :properties :olp :tags :aliases :refs)"
		   (car --cl-keys--))))))
      (cl-block org-roam-node-create--cmacro
	(cl--defsubst-expand
	 '(file file-title file-hash file-atime file-mtime id level point todo priority scheduled deadline title properties olp tags aliases refs)
	 '(cl-block org-roam-node-create
	    (record 'org-roam-node file file-title file-hash file-atime file-mtime id level point todo priority scheduled deadline title properties olp tags aliases refs))
	 nil cl-whole nil file file-title file-hash file-atime file-mtime id level point todo priority scheduled deadline title properties olp tags aliases refs)))))