(defun scpaste-make-name-combined (&optional suffix) "Make a name combining buffer name and timestamp. If non-nil, SUFFIX is inserted between name and extension." (concat (file-name-sans-extension (buffer-name)) "-" (format-time-string "%s") suffix (file-name-extension (buffer-name) t))) (setq scpaste-http-destination "https://dflund.se/~getz/pastes" scpaste-scp-destination "brutus.df.lth.se:~/public_html/pastes/" scpaste-make-name-function 'scpaste-make-name-combined )