Skip to content

Instantly share code, notes, and snippets.

@southly

southly/gist:559544

Forked from miyamuko/gist:472442
Created August 31, 2010 19:09
Download ZIP

Revisions

  1. southly revised this gist Aug 31, 2010. 1 changed file with 3 additions and 1 deletion.
    4 changes: 3 additions & 1 deletion gistfile1.cl
    View file
    Original file line number Diff line number Diff line change
    @@ -3,12 +3,14 @@
    ;; 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 (si:system-root))) file))
    (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))
  2. @miyamuko miyamuko revised this gist Jul 14, 2010. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion gistfile1.cl
    View file
    Original file line number Diff line number Diff line change
    @@ -2,7 +2,7 @@

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

    (defun show-current-source-on-github ()
    (interactive)
  3. @miyamuko miyamuko created this gist Jul 12, 2010.
    16 changes: 16 additions & 0 deletions gistfile1.cl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,16 @@
    ;; 今開いているソースを GitHub で開く

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

    (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))))