#xyzzy

gistfile1.cl

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

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

(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 *local-xyzzy-src*)) file))
      (shell-execute (format nil "~A/~A#L~D"
                             *github-xyzzy-src*
                             (subseq file (match-end 0))
                             lineno)
                     t))))