- (insert (let ((name (plist-get properties :name)))
- (if name
- (concat (format apt-sources-list-name-format name) "\n")
- ""))
- (or (plist-get properties :type) "deb")
- (let ((options (plist-get properties :options)))
- (if options (format " [%s] " options) " "))
- uri
- " "
- (or (plist-get properties :suite)
- (car apt-sources-list-suites))
- (if (string-suffix-p "/" (or (plist-get properties :suite)
- (car apt-sources-list-suites)))
- ""
- (format " %s" (or (plist-get properties :components)
- (car apt-sources-list-components))))))
+ (when name
+ (insert (format apt-sources-list-name-format name) "\n"))
+ (insert type (if options (format " [%s] " options) " ") uri " "
+ suite (if (string-suffix-p "/" suite) ""
+ (format " %s" components))))