Emacs でグローバル IP を取得してクリップボードにコピーする

(leaf request :ensure t :leaf-defer t)

(defun globalip-me ()
  (interactive)
  (request "https://globalip.me"
  :parser 'buffer-string
  :success (cl-function
             (lambda (&key data &allow-other-keys)
               (let ((globalip (substring data 0 (- (length data) 1))))
                 (kill-new globalip)
                 (message globalip))))))