クリップボードエンコーディングを自動判別 #xyzzy

gistfile1.cl

;; クリップボードエンコーディングを自動判別 #xyzzy
;; get-clipboard-data を上書きしているのでちょっとキケン

(defvar *get-clipboard-data* #'get-clipboard-data)

(defun get-clipboard-data ()
  (let ((*clipboard-char-encoding* *encoding-sjis*))
    (declare (special *clipboard-char-encoding*))
    (let* ((str (funcall *get-clipboard-data*))
           (enc (detect-char-encoding str)))
      (message "Clipboard encoding: ~A: ~A" (if enc
                                                (char-encoding-display-name enc)
                                              "Unknown")
               str)
      (if (and enc str)
          (identity (substitute-string
                     (convert-encoding-to-internal enc str)
                     "\r" ""))
        str))))