今開いている xyzzy のソースを GitHub で開く

gistfile1.cl

;; 今開いているソースを GitHub で開く

;; xyzzy 0.2.2.235 のソース
(defvar *github-xyzzy-src*
  "http://github.com/southly/xyzzy.src/blob/0.2.2.235")

(defun show-current-source-on-github ()
  (interactive)
  (let ((file (get-buffer-file-name))
        (lineno (current-line-number)))
    (when (and file (string-matchp (format nil "^~A" (regexp-quote (si:system-root))) file))
      (shell-execute (format nil "~A/~A#L~D"
                             *github-xyzzy-src*
                             (subseq file (match-end 0))
                             lineno)
                     t))))