Skip to content

Instantly share code, notes, and snippets.

@adelcambre

adelcambre/gist:398029

Created May 11, 2010 23:26
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save adelcambre/398029 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save adelcambre/398029 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. adelcambre revised this gist May 12, 2010. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,4 +1,4 @@
    (defun open (project) (interactive (list (read-directory-name "Peepopen for project (default awsm): " "~/code/")))
    (defun open (project) (interactive (list (read-directory-name "Peepopen for project: " "~/code/")))
    (flet ((textmate-project-root () (file-truename project)))
    (peepopen-goto-file-gui)))

  2. adelcambre revised this gist May 12, 2010. 1 changed file with 3 additions and 3 deletions.
    6 changes: 3 additions & 3 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -1,5 +1,5 @@
    (defun open (project) (interactive (list (read-string "Peepopen for project: " )))
    (flet ((textmate-project-root () (concat "~/code/" project)))
    (defun open (project) (interactive (list (read-directory-name "Peepopen for project (default awsm): " "~/code/")))
    (flet ((textmate-project-root () (file-truename project)))
    (peepopen-goto-file-gui)))

    (global-set-key [(meta ?o)] 'open)
    (global-set-key [(meta ?o)] 'open)
  3. adelcambre created this gist May 11, 2010.
    5 changes: 5 additions & 0 deletions gistfile1.el
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,5 @@
    (defun open (project) (interactive (list (read-string "Peepopen for project: " )))
    (flet ((textmate-project-root () (concat "~/code/" project)))
    (peepopen-goto-file-gui)))

    (global-set-key [(meta ?o)] 'open)