クリップボードに貼り付ける系関数(xyzzy lisp 的な意味で)。

gistfile1.cl

(defun clipboard-to-datetime()
  "現在時刻をクリップボードに貼り付けます。"
  (interactive)
  (copy-to-clipboard (format-date-string "%Y-%m-%dT%H:%M:%S%Z")))


(defun get-basename-from-fullpath (fullpath)
  "フルパスから最後のスラッシュまで削除した部分を返します。"
  (let ((parts (split-string fullpath "/")))
    (car (last parts))))


(defun clipboard-to-selection-buffer-name ()
  "現在選択しているバッファのファイル名または、バッファ名をクリップボードに貼り付けます。"
  (interactive)
  (copy-to-clipboard (let ((file-name (get-buffer-file-name)))
                       (if file-name
                           (get-basename-from-fullpath file-name)
                         ;; else
                         (buffer-name (selected-buffer))))))