+(defun riece-install-icons (icons dest just-print)
+ (unless (or just-print (file-exists-p dest))
+ (make-directory dest t))
+ (while icons
+ (when (file-exists-p (expand-file-name (car icons)))
+ (princ (format "%s -> %s\n" (car icons) dest))
+ (unless just-print
+ (copy-file (expand-file-name (car icons))
+ (expand-file-name (car icons) dest)
+ t t)))
+ (setq icons (cdr icons))))
+
+(defun riece-install-scripts (scripts dest just-print)
+ (unless (or just-print (file-exists-p dest))
+ (make-directory dest t))
+ (while scripts
+ (when (file-exists-p (expand-file-name (car scripts)))
+ (princ (format "%s -> %s\n" (car scripts) dest))
+ (unless just-print
+ (copy-file (expand-file-name (car scripts))
+ (expand-file-name (car scripts) dest)
+ t t)))
+ (setq scripts (cdr scripts))))
+