Function: majutsu-jjdescription--remember-server-visit-roots

majutsu-jjdescription--remember-server-visit-roots is a natively compiled function defined in majutsu-jjdescription.el.

Signature

(majutsu-jjdescription--remember-server-visit-roots FILES PROC &optional NOWAIT)

Documentation

Remember repository roots for JJ description FILES opened by PROC.

This runs before server-visit-files visits files. At that point Emacsclient has already recorded its working directory on PROC, but the visited buffer does not exist yet. Remembering the root here makes it available to majutsu-jjdescription-setup in find-file-hook.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-jjdescription.el
(defun majutsu-jjdescription--remember-server-visit-roots (files proc &optional _nowait)
  "Remember repository roots for JJ description FILES opened by PROC.

This runs before `server-visit-files' visits files.  At that point
Emacsclient has already recorded its working directory on PROC, but the
visited buffer does not exist yet.  Remembering the root here makes it
available to `majutsu-jjdescription-setup' in `find-file-hook'."
  (when-let* ((dir (process-get proc 'server-client-directory))
              (root (let ((default-directory (file-name-as-directory dir)))
                      (ignore-errors (majutsu-toplevel default-directory)))))
    (pcase-dolist (`(,file . ,_) files)
      (when (and file (string-match-p majutsu-jjdescription-regexp file))
        (majutsu-process-remember-with-editor-file-root file root)))))