Function: shadow-define-literal-group

shadow-define-literal-group is an autoloaded, interactive and byte-compiled function defined in shadowfile.el.gz.

Signature

(shadow-define-literal-group)

Documentation

Declare a single file to be shared between sites.

It may have different filenames on each site. When this file is edited, the new version will be copied to each of the other locations. Sites can be specific hostnames, or names of clusters (see shadow-define-cluster).

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/shadowfile.el.gz
;;;###autoload
(defun shadow-define-literal-group ()
  "Declare a single file to be shared between sites.
It may have different filenames on each site.  When this file is edited, the
new version will be copied to each of the other locations.  Sites can be
specific hostnames, or names of clusters (see `shadow-define-cluster')."
  (interactive)
  (when-let ((hup (shadow-parse-name
                   (shadow-contract-file-name (buffer-file-name)))))
    (let* ((name (tramp-file-name-localname hup))
	   site group)
      (while (setq site (shadow-read-site))
        (setq name (read-string "Filename: " name)
              hup (shadow-parse-name (shadow-contract-file-name name))
	      group (cons (shadow-make-fullname hup site) group)))
      (when group
        (setq shadow-literal-groups (cons group shadow-literal-groups))))
    (shadow-write-info-file)))