Function: make-dirvish--cmacro

make-dirvish--cmacro is a function defined in dirvish.el.

Signature

(make-dirvish--cmacro CL-WHOLE &cl-quote &key ID TIMESTAMP TYPE ROOT-WINDOW DEDICATED SIZE-FIXED ROOT-CONF ROOT-WINDOW-FN OPEN-FILE CURR-LAYOUT FF-LAYOUT LS-SWITCHES MODE-LINE HEADER-LINE PREVIEW-DISPATCHERS PREVIEW-HASH PARENT-HASH ATTRIBUTES PREVIEW-BUFFERS SPECIAL-BUFFERS PREVIEW-WINDOW WINCONF INDEX ROOTS)

Documentation

compiler-macro for make-dirvish.

Source Code

;; Defined in /nix/store/1gijwny2yx4fggrsb9l110h1ybs1gdk5-emacs-packages-deps/share/emacs/site-lisp/elpa/dirvish-20260725.1520/dirvish.el
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((id
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':id)
	       '(nil (make-temp-name ""))))))
	(timestamp
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':timestamp)
	       '(nil (dirvish--timestamp))))))
	(type
	 (car
	  (cdr (or (plist-member --cl-rest-- ':type) '(nil 'default)))))
	(root-window
	 (car (cdr (plist-member --cl-rest-- ':root-window))))
	(dedicated (car (cdr (plist-member --cl-rest-- ':dedicated))))
	(size-fixed
	 (car (cdr (plist-member --cl-rest-- ':size-fixed))))
	(root-conf
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':root-conf) '(nil #'ignore)))))
	(root-window-fn
	 (car (cdr (plist-member --cl-rest-- ':root-window-fn))))
	(open-file
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':open-file)
	       '(nil #'dirvish-open-file)))))
	(curr-layout
	 (car (cdr (plist-member --cl-rest-- ':curr-layout))))
	(ff-layout
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':ff-layout)
	       '(nil dirvish-default-layout)))))
	(ls-switches
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':ls-switches)
	       '(nil dired-listing-switches)))))
	(mode-line (car (cdr (plist-member --cl-rest-- ':mode-line))))
	(header-line
	 (car (cdr (plist-member --cl-rest-- ':header-line))))
	(preview-dispatchers
	 (car (cdr (plist-member --cl-rest-- ':preview-dispatchers))))
	(preview-hash
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':preview-hash)
	       '(nil (dirvish--ht))))))
	(parent-hash
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':parent-hash)
	       '(nil (dirvish--ht))))))
	(attributes
	 (car (cdr (plist-member --cl-rest-- ':attributes))))
	(preview-buffers
	 (car (cdr (plist-member --cl-rest-- ':preview-buffers))))
	(special-buffers
	 (car (cdr (plist-member --cl-rest-- ':special-buffers))))
	(preview-window
	 (car (cdr (plist-member --cl-rest-- ':preview-window))))
	(winconf (car (cdr (plist-member --cl-rest-- ':winconf))))
	(index (car (cdr (plist-member --cl-rest-- ':index))))
	(roots (car (cdr (plist-member --cl-rest-- ':roots)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:id :timestamp :type :root-window :dedicated
			 :size-fixed :root-conf :root-window-fn
			 :open-file :curr-layout :ff-layout
			 :ls-switches :mode-line :header-line
			 :preview-dispatchers :preview-hash
			 :parent-hash :attributes :preview-buffers
			 :special-buffers :preview-window :winconf
			 :index :roots :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 (:id :timestamp :type :root-window :dedicated :size-fixed :root-conf :root-window-fn :open-file :curr-layout :ff-layout :ls-switches :mode-line :header-line :preview-dispatchers :preview-hash :parent-hash :attributes :preview-buffers :special-buffers :preview-window :winconf :index :roots)"
	      (car --cl-keys--))))))
       (cl-block make-dirvish--cmacro
	 (cl--defsubst-expand
	  '(id timestamp type root-window dedicated size-fixed
	       root-conf root-window-fn open-file curr-layout
	       ff-layout ls-switches mode-line header-line
	       preview-dispatchers preview-hash parent-hash attributes
	       preview-buffers special-buffers preview-window winconf
	       index roots)
	  '(cl-block make-dirvish
	     (record 'dirvish id timestamp type root-window dedicated
		     size-fixed root-conf root-window-fn open-file
		     curr-layout ff-layout ls-switches mode-line
		     header-line preview-dispatchers preview-hash
		     parent-hash attributes preview-buffers
		     special-buffers preview-window winconf index
		     roots))
	  nil cl-whole nil id timestamp type root-window dedicated
	  size-fixed root-conf root-window-fn open-file curr-layout
	  ff-layout ls-switches mode-line header-line
	  preview-dispatchers preview-hash parent-hash attributes
	  preview-buffers special-buffers preview-window winconf index
	  roots)))))
  (cl-struct-dirvish-tags jotain-doc--kind-helpful jotain-doc--sym-pkg
			  jotain-doc--face-syms jotain-doc--var-syms
			  jotain-doc--fun-syms jotain-doc--skipped
			  jotain-doc--pkg-dirs jotain-doc--quick)
  nil
  "compiler-macro for `make-dirvish'.\n\n(fn CL-WHOLE &cl-quote &key ID TIMESTAMP TYPE ROOT-WINDOW DEDICATED SIZE-FIXED ROOT-CONF ROOT-WINDOW-FN OPEN-FILE CURR-LAYOUT FF-LAYOUT LS-SWITCHES MODE-LINE HEADER-LINE PREVIEW-DISPATCHERS PREVIEW-HASH PARENT-HASH ATTRIBUTES PREVIEW-BUFFERS SPECIAL-BUFFERS PREVIEW-WINDOW WINCONF INDEX ROOTS)"]