Function: sesman--format-session-objects

sesman--format-session-objects is a byte-compiled function defined in sesman.el.

Signature

(sesman--format-session-objects SYSTEM SESSION &optional SEP)

Source Code

;; Defined in ~/.emacs.d/elpa/sesman-20240417.1723/sesman.el
(defun sesman--format-session-objects (system session &optional sep)
  (let ((info (sesman-session-info system session)))
    (if (and (listp info)
             (keywordp (car info)))
        (let ((ses-name (car session))
              (sep (or sep " "))
              (strings (or (plist-get info :strings)
                           (mapcar (lambda (x) (format "%s" x))
                                   (plist-get info :objects)))))
          (mapconcat (lambda (str)
                       (replace-regexp-in-string ses-name "..." str nil t))
                     strings sep))
      (format "%s" info))))