Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

* Added textmate mode

* Added monokai theme
* Added peepopen config
* Added rinari
* Added rvm mode
* Formatting of the visual bell
* Some other configs
  • Loading branch information...
commit 163964301afd41d5c4c42f35bb5ec78e3365daf0 1 parent dca3c5d
Lucas Húngaro authored
Showing with 10,533 additions and 4 deletions.
  1. +43 −0 custom.el
  2. BIN  dominating-file.elc
  3. BIN  elpa-to-submit/blackboard.elc
  4. BIN  elpa-to-submit/cheat.elc
  5. +59 −0 elpa-to-submit/color-theme-almost-monokai.el
  6. BIN  elpa-to-submit/color-theme-almost-monokai.elc
  7. BIN  elpa-to-submit/color-theme.elc
  8. BIN  elpa-to-submit/cperl-mode.elc
  9. BIN  elpa-to-submit/erc-highlight-nicknames.elc
  10. BIN  elpa-to-submit/eshell-vc.elc
  11. BIN  elpa-to-submit/espresso.elc
  12. BIN  elpa-to-submit/htmlize.elc
  13. BIN  elpa-to-submit/javadoc-help.elc
  14. BIN  elpa-to-submit/markdown-mode.elc
  15. BIN  elpa-to-submit/moz.elc
  16. BIN  elpa-to-submit/notify.elc
  17. BIN  elpa-to-submit/oddmuse.elc
  18. BIN  elpa-to-submit/paredit.elc
  19. BIN  elpa-to-submit/pcmpl-rake.elc
  20. BIN  elpa-to-submit/perl-find-library.elc
  21. BIN  elpa-to-submit/pod-mode.elc
  22. BIN  elpa-to-submit/ri.elc
  23. BIN  elpa-to-submit/ruby-electric.elc
  24. BIN  elpa-to-submit/scpaste.elc
  25. BIN  elpa-to-submit/textile-mode.elc
  26. BIN  elpa-to-submit/tt-mode.elc
  27. BIN  elpa-to-submit/twilight.elc
  28. BIN  elpa-to-submit/zenburn.elc
  29. +447 −0 elpa/archives/elpa/archive-contents
  30. +20 −0 elpa/archives/gnu/archive-contents
  31. +43 −0 elpa/archives/technomancy/archive-contents
  32. +38 −0 elpa/find-file-in-project-2.0/find-file-in-project-autoloads.el
  33. +1 −0  elpa/find-file-in-project-2.0/find-file-in-project-pkg.el
  34. BIN  elpa/find-file-in-project-2.0/find-file-in-project-pkg.elc
  35. +132 −0 elpa/find-file-in-project-2.0/find-file-in-project.el
  36. BIN  elpa/find-file-in-project-2.0/find-file-in-project.elc
  37. +18 −0 elpa/findr-0.7/findr-autoloads.el
  38. +1 −0  elpa/findr-0.7/findr-pkg.el
  39. BIN  elpa/findr-0.7/findr-pkg.elc
  40. +258 −0 elpa/findr-0.7/findr.el
  41. BIN  elpa/findr-0.7/findr.elc
  42. +77 −0 elpa/gist-0.5/gist-autoloads.el
  43. +1 −0  elpa/gist-0.5/gist-pkg.el
  44. BIN  elpa/gist-0.5/gist-pkg.elc
  45. +346 −0 elpa/gist-0.5/gist.el
  46. BIN  elpa/gist-0.5/gist.elc
  47. +29 −0 elpa/idle-highlight-1.0/idle-highlight-autoloads.el
  48. +1 −0  elpa/idle-highlight-1.0/idle-highlight-pkg.el
  49. BIN  elpa/idle-highlight-1.0/idle-highlight-pkg.elc
  50. +102 −0 elpa/idle-highlight-1.0/idle-highlight.el
  51. BIN  elpa/idle-highlight-1.0/idle-highlight.elc
  52. +49 −0 elpa/inf-ruby-2.1/inf-ruby-autoloads.el
  53. +1 −0  elpa/inf-ruby-2.1/inf-ruby-pkg.el
  54. BIN  elpa/inf-ruby-2.1/inf-ruby-pkg.elc
  55. +350 −0 elpa/inf-ruby-2.1/inf-ruby.el
  56. BIN  elpa/inf-ruby-2.1/inf-ruby.elc
  57. +33 −0 elpa/inflections-1.0/inflections-autoloads.el
  58. +1 −0  elpa/inflections-1.0/inflections-pkg.el
  59. BIN  elpa/inflections-1.0/inflections-pkg.elc
  60. +151 −0 elpa/inflections-1.0/inflections.el
  61. BIN  elpa/inflections-1.0/inflections.elc
  62. +51 −0 elpa/jump-2.0/jump-autoloads.el
  63. +1 −0  elpa/jump-2.0/jump-pkg.el
  64. BIN  elpa/jump-2.0/jump-pkg.elc
  65. +299 −0 elpa/jump-2.0/jump.el
  66. BIN  elpa/jump-2.0/jump.elc
  67. +27 −0 elpa/magit-0.8.1/magit-autoloads.el
  68. +1 −0  elpa/magit-0.8.1/magit-pkg.el
  69. BIN  elpa/magit-0.8.1/magit-pkg.elc
  70. +4,207 −0 elpa/magit-0.8.1/magit.el
  71. BIN  elpa/magit-0.8.1/magit.elc
  72. +31 −0 elpa/project-local-variables-0.2/project-local-variables-autoloads.el
  73. +1 −0  elpa/project-local-variables-0.2/project-local-variables-pkg.el
  74. BIN  elpa/project-local-variables-0.2/project-local-variables-pkg.elc
  75. +76 −0 elpa/project-local-variables-0.2/project-local-variables.el
  76. BIN  elpa/project-local-variables-0.2/project-local-variables.elc
  77. +40 −0 elpa/rinari-2.1/rinari-autoloads.el
  78. +1 −0  elpa/rinari-2.1/rinari-pkg.el
  79. BIN  elpa/rinari-2.1/rinari-pkg.elc
  80. +615 −0 elpa/rinari-2.1/rinari.el
  81. BIN  elpa/rinari-2.1/rinari.elc
  82. +56 −0 elpa/ruby-compilation-0.7/ruby-compilation-autoloads.el
  83. +1 −0  elpa/ruby-compilation-0.7/ruby-compilation-pkg.el
  84. BIN  elpa/ruby-compilation-0.7/ruby-compilation-pkg.elc
  85. +290 −0 elpa/ruby-compilation-0.7/ruby-compilation.el
  86. BIN  elpa/ruby-compilation-0.7/ruby-compilation.elc
  87. +45 −0 elpa/ruby-mode-1.1/ruby-mode-autoloads.el
  88. +1 −0  elpa/ruby-mode-1.1/ruby-mode-pkg.el
  89. BIN  elpa/ruby-mode-1.1/ruby-mode-pkg.elc
  90. +1,422 −0 elpa/ruby-mode-1.1/ruby-mode.el
  91. BIN  elpa/ruby-mode-1.1/ruby-mode.elc
  92. +18 −0 elpa/yaml-mode-0.0.5/yaml-mode-autoloads.el
  93. +1 −0  elpa/yaml-mode-0.0.5/yaml-mode-pkg.el
  94. BIN  elpa/yaml-mode-0.0.5/yaml-mode-pkg.elc
  95. +408 −0 elpa/yaml-mode-0.0.5/yaml-mode.el
  96. BIN  elpa/yaml-mode-0.0.5/yaml-mode.elc
  97. +0 −1  init.el
  98. BIN  init.elc
  99. +603 −0 loaddefs.el
  100. BIN  package.elc
  101. +3 −0  places
  102. BIN  starter-kit-bindings.elc
  103. BIN  starter-kit-defuns.elc
  104. +2 −1  starter-kit-elpa.el
  105. BIN  starter-kit-elpa.elc
  106. BIN  starter-kit-eshell.elc
  107. BIN  starter-kit-js.elc
  108. BIN  starter-kit-lisp.elc
  109. +2 −2 starter-kit-misc.el
  110. BIN  starter-kit-misc.elc
  111. BIN  starter-kit-perl.elc
  112. BIN  starter-kit-registers.elc
  113. BIN  starter-kit-ruby.elc
  114. +95 −0 vendor/peepopen.el
  115. BIN  vendor/peepopen.elc
  116. +1 −0  vendor/rvm.el
  117. +1 −0  vendor/textmate.el
  118. +33 −0 visual-bell.el
43 custom.el
View
@@ -0,0 +1,43 @@
+(server-start)
+
+(load-file "~/.emacs.d/elpa-to-submit/color-theme-almost-monokai.el")
+(color-theme-almost-monokai)
+
+(load-file "~/.emacs.d/visual-bell.el")
+
+(add-to-list 'load-path "~/.emacs.d/vendor/textmate.el")
+(add-to-list 'load-path "~/.emacs.d/vendor/")
+(require 'peepopen)
+(require 'textmate)
+(textmate-mode)
+;; always open in the same window
+(setq ns-pop-up-frames nil)
+
+(add-to-list 'load-path "~/.emacs.d/vendor/rvm.el")
+(require 'rvm)
+;; use rvm’s default ruby for the current Emacs session
+(rvm-use-default)
+
+(require 'rinari)
+
+(set-face-attribute 'default nil :height 140)
+(set-default-font "-apple-Monaco-medium-normal-normal-*-*-*-*-*-m-0-iso10646-1")
+
+(defun set-frame-size-according-to-resolution ()
+ (interactive)
+ (if window-system
+ (progn
+ ;; use 120 char wide window for largeish displays
+ ;; and smaller 80 column windows for smaller displays
+ ;; pick whatever numbers make sense for you
+ (if (> (x-display-pixel-width) 1280)
+ (add-to-list 'default-frame-alist (cons 'width 160))
+ (add-to-list 'default-frame-alist (cons 'width 80)))
+ ;; for the height, subtract a couple hundred pixels
+ ;; from the screen height (for panels, menubars and
+ ;; whatnot), then divide by the height of a char to
+ ;; get the height we want
+ (add-to-list 'default-frame-alist
+ (cons 'height (/ (- (x-display-pixel-height) 200) (frame-char-height)))))))
+
+(set-frame-size-according-to-resolution)
BIN  dominating-file.elc
View
Binary file not shown
BIN  elpa-to-submit/blackboard.elc
View
Binary file not shown
BIN  elpa-to-submit/cheat.elc
View
Binary file not shown
59 elpa-to-submit/color-theme-almost-monokai.el
View
@@ -0,0 +1,59 @@
+;;; Almost Monokai: color-theme-almost-monokai.el
+;;; A beautiful, fruity and calm emacs color theme.
+
+;; Author: Prateek Saxena <prtksxna@gmail.com>
+;; Author: Pratul Kalia <pratul@pratul.in>
+;;
+;; Based on the Monokai TextMate theme
+;; Author: Wimer Hazenberg <http://www.monokai.nl>
+
+;; Depends: color-theme
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+; Color theme support is required.
+(require 'color-theme)
+
+; Code start.
+(defun color-theme-almost-monokai ()
+ (interactive)
+ (color-theme-install
+ '(color-theme-almost-monokai
+ ((background-color . "#272821")
+ (foreground-color . "#F8F8F2")
+ (cursor-color . "#DAD085"))
+ (default ((t (nil))))
+ (modeline ((t (:background "white" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (font-lock-builtin-face ((t (:foreground "#A6E22A"))))
+ (font-lock-comment-face ((t (:italic t :foreground "#75715D"))))
+ (font-lock-constant-face ((t (:foreground "#A6E22A"))))
+ (font-lock-doc-string-face ((t (:foreground "#65B042"))))
+ (font-lock-string-face ((t (:foreground "#DFD874"))))
+ (font-lock-function-name-face ((t (:foreground "#F1266F" :italic t))))
+ (font-lock-keyword-face ((t (:foreground "#66D9EF"))))
+ (font-lock-type-face ((t (:underline t :foreground "#89BDFF"))))
+ (font-lock-variable-name-face ((t (:foreground "#A6E22A"))))
+ (font-lock-warning-face ((t (:bold t :foreground "#FD5FF1"))))
+ (highlight-80+ ((t (:background "#D62E00"))))
+ (hl-line ((t (:background "#1A1A1A"))))
+ (region ((t (:background "#6DC5F1"))))
+ (ido-subdir ((t (:foreground "#F1266F"))))
+ )
+ )
+)
+(provide 'color-theme-almost-monokai)
+;---------------
+; Code end.
BIN  elpa-to-submit/color-theme-almost-monokai.elc
View
Binary file not shown
BIN  elpa-to-submit/color-theme.elc
View
Binary file not shown
BIN  elpa-to-submit/cperl-mode.elc
View
Binary file not shown
BIN  elpa-to-submit/erc-highlight-nicknames.elc
View
Binary file not shown
BIN  elpa-to-submit/eshell-vc.elc
View
Binary file not shown
BIN  elpa-to-submit/espresso.elc
View
Binary file not shown
BIN  elpa-to-submit/htmlize.elc
View
Binary file not shown
BIN  elpa-to-submit/javadoc-help.elc
View
Binary file not shown
BIN  elpa-to-submit/markdown-mode.elc
View
Binary file not shown
BIN  elpa-to-submit/moz.elc
View
Binary file not shown
BIN  elpa-to-submit/notify.elc
View
Binary file not shown
BIN  elpa-to-submit/oddmuse.elc
View
Binary file not shown
BIN  elpa-to-submit/paredit.elc
View
Binary file not shown
BIN  elpa-to-submit/pcmpl-rake.elc
View
Binary file not shown
BIN  elpa-to-submit/perl-find-library.elc
View
Binary file not shown
BIN  elpa-to-submit/pod-mode.elc
View
Binary file not shown
BIN  elpa-to-submit/ri.elc
View
Binary file not shown
BIN  elpa-to-submit/ruby-electric.elc
View
Binary file not shown
BIN  elpa-to-submit/scpaste.elc
View
Binary file not shown
BIN  elpa-to-submit/textile-mode.elc
View
Binary file not shown
BIN  elpa-to-submit/tt-mode.elc
View
Binary file not shown
BIN  elpa-to-submit/twilight.elc
View
Binary file not shown
BIN  elpa-to-submit/zenburn.elc
View
Binary file not shown
447 elpa/archives/elpa/archive-contents
View
@@ -0,0 +1,447 @@
+(1
+ (load-relative .
+ [(0 1)
+ nil "relative file load (within a multi-file Emacs package)" single])
+ (test-unit .
+ [(0 1)
+ nil "Unit Test Framework for Emacs Lisp " single])
+ (zenburn .
+ [(1 8)
+ nil "just some alien fruit salad to keep you in the zone" single])
+ (multi-project .
+ [(0 0 1)
+ nil "Work with multiple projects" single])
+ (hungry-delete .
+ [(1 0)
+ nil "hungry delete minor mode" single])
+ (Save-visited-files .
+ [(1 2)
+ nil "save opened files across sessions" single])
+ (c-eldoc .
+ [(0 6)
+ nil "helpful description of the arguments to C functions" single])
+ (mv-shell .
+ [(1 0)
+ nil "keep buffers in sync with filename throughout 'mv'commands in shell-mode." single])
+ (diff-git .
+ [(0 1 1)
+ nil "Git integration with diff-mode" single])
+ (html-script-src .
+ [(0 0 2)
+ nil "Insert <script src=\"..\"> for popular JavaScript libraries" single])
+ (rvm .
+ [(1 1)
+ nil "Emacs integration for rvm" single])
+ (elisp-depend .
+ [(0 4 1)
+ nil "Parse depend libraries of elisp file." single])
+ (perspective .
+ [(1 3)
+ nil "switch between named \"perspectives\" of the editor" single])
+ (ruby-electric .
+ [(1 1)
+ nil "electric editing commands for ruby files" single])
+ (yari .
+ [(0 3)
+ nil "Yet Another RI interface for Emacs" single])
+ (smex .
+ [(1 1 1)
+ nil "M-x interface with Ido-style fuzzy matching." single])
+ (drag-stuff .
+ [(0 0 3)
+ nil "Drag stuff (lines, words, region, etc...) around" single])
+ (ruby-test-mode .
+ [(1 0)
+ nil "Minor mode for Behaviour and Test Driven" single])
+ (applescript-mode .
+ [(20090321)
+ nil "major mode for editing AppleScript source" single])
+ (mediawiki .
+ [(1 1)
+ nil "mediawiki frontend" single])
+ (wrap-region .
+ [(0 1 3)
+ nil "Wrap text with punctation or tag" single])
+ (twitter .
+ [(20090422)
+ nil "Simple Emacs-based client for Twitter" single])
+ (pastie .
+ [(20091230)
+ nil "Emacs integration for pastie.org" single])
+ (textmate .
+ [(1)
+ nil "TextMate minor mode for Emacs" single])
+ (yaml-mode .
+ [(0 0 5)
+ nil "Major mode for editing YAML files" single])
+ (rspec-mode .
+ [(0 2)
+ ((ruby-mode
+ (1 1)))
+ "Enhance ruby-mode for RSpec" single])
+ (htmlize .
+ [(1 37)
+ nil "Convert buffer text and decorations to HTML." single])
+ (swank-clojure .
+ [(1 1 0)
+ ((slime-repl
+ (20091016))
+ (clojure-mode
+ (1 6)))
+ "slime adapter for clojure" single])
+ (slime-repl .
+ [(20100404)
+ ((slime
+ (20100404)))
+ "Read-Eval-Print Loop written in Emacs Lisp" single])
+ (slime .
+ [(20100404)
+ nil "Superior Lisp Interaction Mode for Emacs" single])
+ (nterm .
+ [(0 1)
+ nil "New TERMinal emulator" single])
+ (sass-mode .
+ [(3 0 14)
+ ((haml-mode
+ (3 0 14)))
+ "Major mode for editing Sass files" single])
+ (haml-mode .
+ [(3 0 14)
+ nil "Major mode for editing Haml files" single])
+ (smart-tab .
+ [(0 3)
+ nil "Intelligent tab completion and indentation." single])
+ (cssh .
+ [(0 7)
+ nil "clusterssh implementation for emacs" single])
+ (relax .
+ [(0 2)
+ ((json
+ (1 2))
+ (javascript
+ (1 99 8)))
+ "For browsing and interacting with CouchDB" single])
+ (shellfm .
+ [(0 1)
+ nil "Emacs Shell.FM interface" single])
+ (texdrive .
+ [(0 3 1)
+ nil "minor mode for creating png images from TeX formulae " single])
+ (paredit .
+ [(20)
+ nil "Parenthesis-Editing Minor Mode" single])
+ (rotate-text .
+ [(0 1)
+ nil "cycle through words, symbols and patterns" single])
+ (full-ack .
+ [(0 2 1)
+ nil "a front-end for ack" single])
+ (recent-addresses .
+ [(0 1)
+ nil "store and recall recently used email addresses" single])
+ (test-case-mode .
+ [(0 1)
+ ((fringe-helper
+ (0 1 1)))
+ "unit test front-end" single])
+ (nav .
+ [(35)
+ nil "Emacs mode for IDE-like navigation of directories" single])
+ (company .
+ [(0 5)
+ nil "extensible inline text completion mechanism" tar])
+ (guess-style .
+ [(0 1)
+ nil "automatic setting of code style variables" single])
+ (clojure-test-mode .
+ [(1 4)
+ ((slime
+ (20091016))
+ (clojure-mode
+ (1 7)))
+ "Minor mode for Clojure tests" single])
+ (clojure-mode .
+ [(1 7 1)
+ nil "Major mode for Clojure code" single])
+ (magit .
+ [(0 8 1)
+ nil "control Git from Emacs." single])
+ (w3 .
+ [(4 0 46)
+ nil "A web browser written entirely in Emacs Lisp" tar])
+ (yasnippet-bundle .
+ [(0 6 1)
+ nil "Yet another snippet extension (Auto compiled bundle)" single])
+ (rinari .
+ [(2 1)
+ ((ruby-mode
+ (1 1))
+ (inf-ruby
+ (2 1))
+ (ruby-compilation
+ (0 7))
+ (jump
+ (2 0)))
+ "Rinari Is Not A Rails IDE" single])
+ (jump .
+ [(2 0)
+ ((findr
+ (0 7))
+ (inflections
+ (1 0)))
+ "build functions which contextually jump between files" single])
+ (inflections .
+ [(1 0)
+ nil "convert english words between singular and plural" single])
+ (tumble .
+ [(1 1)
+ ((http-post-simple
+ (1 0)))
+ "an Emacs mode for Tumblr" single])
+ (http-post-simple .
+ [(1 0)
+ nil "HTTP POST requests using the url library" single])
+ (findr .
+ [(0 7)
+ nil "Breadth-first file-finding facility for (X)Emacs" single])
+ (ruby-compilation .
+ [(0 7)
+ ((ruby-mode
+ (1 1))
+ (inf-ruby
+ (2 1)))
+ "run a ruby process in a compilation buffer" single])
+ (gist .
+ [(0 5)
+ nil "Emacs integration for gist.github.com" single])
+ (confluence .
+ [(1 4)
+ ((xml-rpc
+ (1 6 4)))
+ "Emacs mode for interacting with confluence wikis" single])
+ (epresent .
+ [(0 1)
+ nil "Simple presentation mode for Emacs" single])
+ (inf-ruby .
+ [(2 1)
+ ((ruby-mode
+ (1 1)))
+ "Run a ruby process in a buffer" single])
+ (ruby-mode .
+ [(1 1)
+ nil "Major mode for editing Ruby files" single])
+ (idle-highlight .
+ [(1 0)
+ nil "highlight the word the point is on" single])
+ (find-file-in-project .
+ [(2 0)
+ ((project-local-variables
+ (0 2)))
+ "Find files in a project quickly." single])
+ (project-local-variables .
+ [(0 2)
+ nil "set project-local variables from a file" single])
+ (lusty-explorer .
+ [(2 4)
+ nil "Dynamic filesystem explorer and buffer switcher" single])
+ (tempo-snippets .
+ [(0 1 5)
+ nil "visual insertion of tempo templates" single])
+ (highlight-80+ .
+ [(1 0)
+ nil "highlight characters beyond column 80" single])
+ (echo-pick .
+ [(0 1)
+ nil "filter for echo area status messages" single])
+ (fringe-helper .
+ [(0 1 1)
+ nil "helper functions for fringe bitmaps" single])
+ (elk-test .
+ [(0 3 2)
+ ((fringe-helper
+ (0 1 1)))
+ "Emacs Lisp testing framework" single])
+ (compile-bookmarks .
+ [(0 2)
+ nil "bookmarks for compilation commands" single])
+ (pov-mode .
+ [(3 2)
+ nil "Major mode for editing POV-Ray scene files." tar])
+ (js2-mode .
+ [(20090723)
+ nil "an improved JavaScript editing mode" single])
+ (ert .
+ [(0 1)
+ nil "Emacs Lisp Regression Testing" single])
+ (jtags .
+ [(0 96)
+ nil "enhanced tags functionality for Java development" single])
+ (eproject .
+ [(0 4)
+ nil "project workspaces for emacs" tar])
+ (log4j-mode .
+ [(1 3)
+ nil "major mode for viewing log files" single])
+ (nxml-mode .
+ [(20041004)
+ nil "Major mode for editing XML documents." tar])
+ (columnify .
+ [(1 0)
+ nil "arrange lines into columns" single])
+ (gdb-mi .
+ [(0 6 1 0)
+ nil "User Interface for running GDB" single])
+ (asciidoc .
+ [(0 1)
+ nil "asciidoc text file development support" single])
+ (shell-current-directory .
+ [(0 1)
+ nil "create new shell based on buffer directory" single])
+ (facebook .
+ [(0 0 1)
+ ((json
+ (0)))
+ "Access the Facebook API from emacs" single])
+ (json .
+ [(1 2)
+ nil "JavaScript Object Notation parser / generator" single])
+ (pick-backup .
+ [(0 8)
+ nil "easy access to versioned backup files" single])
+ (idle-require .
+ [(1 0)
+ nil "load elisp libraries while Emacs is idle" single])
+ (highlight-symbol .
+ [(1 1)
+ nil "automatic and manual symbol highlighting" single])
+ (auto-dictionary .
+ [(1 0 1)
+ nil "automatic dictionary switcher for flyspell" single])
+ (dictionary .
+ [(1 8 7)
+ nil "an interface to an RFC 2229 dictionary server" tar])
+ (muse .
+ [(3 20)
+ nil "Authoring and publishing tool" tar])
+ (jimb-patch .
+ [(1 5)
+ nil "clean a patch for submission via email" single])
+ (lisppaste .
+ [(1 8)
+ ((xml-rpc
+ (1 6 7)))
+ "Interact with the lisppaste pastebot via XML-RPC." single])
+ (weblogger .
+ [(1 4 3)
+ ((xml-rpc
+ (1 6 5)))
+ "Weblog maintenance via XML-RPC APIs" single])
+ (xml-rpc .
+ [(1 6 7)
+ nil "An elisp implementation of clientside XML-RPC" single])
+ (iresize .
+ [(0 2)
+ nil "Interactively resize a window" single])
+ (sgftree .
+ [(0 1)
+ nil "Read an sgf file and represent it as a tree" single])
+ (chess .
+ [(1 96)
+ nil "Play chess in Emacs" tar])
+ (etags-select .
+ [(1 11)
+ nil "Select from multiple tags" single])
+ (less .
+ [(0 2)
+ nil "less style view mode" single])
+ (smart-operator .
+ [(0 9)
+ nil "Insert operators packed with whitespaces smartly" single])
+ (dired-isearch .
+ [(0 3)
+ nil "isearch in Dired" single])
+ (cal-china-x .
+ [(0 6)
+ nil "Chinese calendar extras" single])
+ (wajig .
+ [(0 53)
+ nil "an interface for wajig" single])
+ (erc .
+ [(5 3)
+ nil "An Emacs Internet Relay Chat client" tar])
+ (emms .
+ [(3 0)
+ nil "The Emacs Multimedia System" tar])
+ (archive-downloader .
+ [(1 1)
+ nil "Download files from archive.org" single])
+ (package .
+ [(0 9)
+ nil "Simple package system for Emacs" single])
+ (highlight-parentheses .
+ [(1 0 1)
+ nil "highlight surrounding parentheses" single])
+ (kill-ring-search .
+ [(1 1)
+ nil "incremental search for the kill ring" single])
+ (tex-math-preview .
+ [(8)
+ nil "preview TeX math expressions." single])
+ (gtk-look .
+ [(19)
+ nil "lookup Gtk and Gnome documentation." single])
+ (xtide .
+ [(16)
+ nil "XTide display in Emacs" single])
+ (compilation-recenter-end .
+ [(4)
+ nil "compilation-mode window recentre" single])
+ (gdb-shell .
+ [(0 4)
+ nil "minor mode to add gdb features to shell" single])
+ (highline .
+ [(4 2)
+ nil "minor mode to highlight current line in buffer" single])
+ (lua-mode .
+ [(20100617)
+ nil "a major-mode for editing Lua scripts" single])
+ (css-mode .
+ [(1 0)
+ nil "Major mode for editing Cascading Style Sheets" single])
+ (javascript .
+ [(2 2 1)
+ nil "Major mode for editing JavaScript source text" single])
+ (light-symbol .
+ [(0 1)
+ nil "Minor mode to highlight symbol under point" single])
+ (worklog .
+ [(2 4 2)
+ nil "time tracking mode" single])
+ (abacus .
+ [(1 0 2)
+ nil "Abacus Calculator" single])
+ (sudoku .
+ [(0 3)
+ nil "Simple sudoku game, can download puzzles from the web." single])
+ (caps-mode .
+ [(1 0)
+ nil "(minor mode) letters are inserted capitalized" single])
+ (lambdacalc .
+ [(1 0)
+ nil "Interpret lambda calculus expressions" single])
+ (wtf .
+ [(2 0)
+ nil "Look up conversational and computing acronyms" single])
+ (blank-mode .
+ [(6 6)
+ nil "Minor mode to visualize blanks" single])
+ (bubbles .
+ [(0 5)
+ nil "Puzzle game for Emacs." single])
+ (newsticker .
+ [(1 10)
+ nil "Headline news ticker" tar])
+ (changelog-url .
+ [(0 1)
+ nil "ChangeLog bugzilla buttonizer" tar]))
+
20 elpa/archives/gnu/archive-contents
View
@@ -0,0 +1,20 @@
+(1
+ (auctex .
+ [(11 86)
+ nil "integrated environment for *TeX*" tar])
+ (company .
+ [(0 5)
+ nil "Flexible inline text and code completion" tar])
+ (muse .
+ [(3 20)
+ nil "Authoring and publishing tool" tar])
+ (org .
+ [(20101120)
+ nil "Outline-based notes management and organizer" tar])
+ (js2-mode .
+ [(20090814)
+ nil "Improved JavaScript editing mode" single])
+ (rainbow-mode .
+ [(0 1)
+ nil "Colorize color names in buffers." single]))
+
43 elpa/archives/technomancy/archive-contents
View
@@ -0,0 +1,43 @@
+;; -*- emacs-lisp -*-
+(1
+ (clojure-mode .
+ [(1 8 0)
+ nil "Major mode for Clojure code" single])
+ (clojure-test-mode .
+ [(1 5 1)
+ ((slime
+ (20100404 1))
+ (clojure-mode
+ (1 7)))
+ "Minor mode for Clojure tests" single])
+ (color-theme . [(6 5 2) nil "install color themes" single])
+ (durendal . [(0 1) ((slime
+ (20100404 1))
+ (clojure-mode
+ (1 8)))
+ "Bucket of Clojure tricks" single])
+ (erc-highlight-nicknames . [(1 0) nil "Highlights nicknames" single])
+ (htmlize . [(1 37) nil "Convert buffer text and decorations to HTML." single])
+ (idle-highlight . [(1 0) nil "Convert buffer text and decorations to HTML." single])
+ (magit . [(0 8 1) nil "control Git from Emacs" single])
+ (markdown-mode . [(1 7) nil "Major mode to edit Markdown files in Emacs" single])
+ (paredit . [(22) nil "minor mode for editing parentheses" single])
+ (scpaste . [(0 3) ((htmlize (1 37))) "Paste to the web via scp." single])
+ (slime-repl . [(20100404)
+ ((slime (20100404 1)))
+ "Read-Eval-Print Loop written in Emacs Lisp" single])
+
+ (slime . [(20100404 1)
+ nil "Superior Lisp Interaction Mode for Emacs" single])
+ (starter-kit . [(2 0) ((paredit (22))
+ (idle-highlight (1 0))
+ (magit (0 8 1))
+ (scpaste (0 3))) "Saner defaults and goodies." tar])
+ (starter-kit-lisp . [(2 0) ((starter-kit (2 0)))
+ "Saner defaults for lisps." single])
+ (starter-kit-js . [(2 0) ((starter-kit (2 0)))
+ "Saner defaults for javascript." single])
+ (starter-kit-ruby . [(2 0) ((starter-kit (2 0)))
+ "Saner defaults for ruby." single])
+ (zenburn . [(1 0) ((color-theme (6 5 2)))
+ "just some alien fruit salad to keep you in the zone" single]))
38 elpa/find-file-in-project-2.0/find-file-in-project-autoloads.el
View
@@ -0,0 +1,38 @@
+;;; find-file-in-project-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (ffip-project-root find-file-in-project) "find-file-in-project"
+;;;;;; "find-file-in-project.el" (19750 35248))
+;;; Generated autoloads from find-file-in-project.el
+
+(autoload 'find-file-in-project "find-file-in-project" "\
+Prompt with a completing list of all files in the project to find one.
+
+The project's scope is defined as the first directory containing
+an `.emacs-project' file. You can override this by locally
+setting the `ffip-project-root' variable.
+
+\(fn)" t nil)
+
+(autoload 'ffip-project-root "find-file-in-project" "\
+Find the root of the project defined by presence of `.emacs-project'.
+
+\(fn &optional DIR)" nil nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("find-file-in-project-pkg.el") (19750
+;;;;;; 35248 708566))
+
+;;;***
+
+(provide 'find-file-in-project-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; find-file-in-project-autoloads.el ends here
1  elpa/find-file-in-project-2.0/find-file-in-project-pkg.el
View
@@ -0,0 +1 @@
+(define-package "find-file-in-project" "2.0" "Find files in a project quickly." (quote ((project-local-variables "0.2"))))
BIN  elpa/find-file-in-project-2.0/find-file-in-project-pkg.elc
View
Binary file not shown
132 elpa/find-file-in-project-2.0/find-file-in-project.el
View
@@ -0,0 +1,132 @@
+;;; find-file-in-project.el --- Find files in a project quickly.
+
+;; Copyright (C) 2006, 2007, 2008 Phil Hagelberg and Doug Alcorn
+
+;; Author: Phil Hagelberg and Doug Alcorn
+;; URL: http://www.emacswiki.org/cgi-bin/wiki/FindFileInProject
+;; Version: 2.0
+;; Created: 2008-03-18
+;; Keywords: project, convenience
+;; EmacsWiki: FindFileInProject
+;; Package-Requires: ((project-local-variables "0.2"))
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This library depends on GNU find.
+
+;; This file provides a method for quickly finding any file in a given
+;; project. Projects are defined as per the `project-local-variables'
+;; library, by the presence of a `.emacs-project' file in a directory.
+
+;; By default, it looks only for files whose names match
+;; `ffip-regexp', but it's understood that that variable will be
+;; overridden locally. This can be done either with a mode hook:
+
+;; (add-hook 'emacs-lisp-mode-hook (lambda (setl ffip-regexp ".*\\.el")))
+
+;; or by setting it in your .emacs-project file, in which case it will
+;; get set locally by the project-local-variables library.
+
+;; You can also be a bit more specific about what files you want to
+;; find. For instance, in a Ruby on Rails project, you may be
+;; interested in all .rb files that don't exist in the "vendor"
+;; directory. In that case you could locally set `ffip-find-options'
+;; to "" from within a hook or your .emacs-project file. The options
+;; accepted in that variable are passed directly to the Unix `find'
+;; command, so any valid arguments for that program are acceptable.
+
+;; If `ido-mode' is enabled, the menu will use `ido-completing-read'
+;; instead of `completing-read'.
+
+;; Recommended binding:
+;; (global-set-key (kbd "C-x C-M-f") 'find-file-in-project)
+
+;;; TODO:
+
+;; Performance testing with large projects
+;; Switch to using a hash table if it's too slow
+
+;;; Code:
+
+(require 'project-local-variables)
+
+(defvar ffip-regexp
+ (concat ".*\\.\\(" (mapconcat (lambda (x) x) '("rb" "rhtml" "el") "\\|") "\\)")
+ "Regexp of things to look for when using find-file-in-project.")
+
+(defvar ffip-find-options
+ ""
+ "Extra options to pass to `find' when using find-file-in-project.
+
+Use this to exclude portions of your project: \"-not -regex \\\".*vendor.*\\\"\"")
+
+(defvar ffip-project-root nil
+ "If non-nil, overrides the project root directory location.")
+
+(defun ffip-project-files ()
+ "Return an alist of all filenames in the project and their path.
+
+Files with duplicate filenames are suffixed with the name of the
+directory they are found in so that they are unique."
+ (let ((file-alist nil))
+ (mapcar (lambda (file)
+ (let ((file-cons (cons (file-name-nondirectory file)
+ (expand-file-name file))))
+ (when (assoc (car file-cons) file-alist)
+ (ffip-uniqueify (assoc (car file-cons) file-alist))
+ (ffip-uniqueify file-cons))
+ (add-to-list 'file-alist file-cons)
+ file-cons))
+ (split-string (shell-command-to-string (concat "find " (or ffip-project-root
+ (ffip-project-root))
+ " -type f -regex \""
+ ffip-regexp
+ "\" " ffip-find-options))))))
+
+(defun ffip-uniqueify (file-cons)
+ "Set the car of the argument to include the directory name plus the file name."
+ (setcar file-cons
+ (concat (car file-cons) ": "
+ (cadr (reverse (split-string (cdr file-cons) "/"))))))
+;;;###autoload
+(defun find-file-in-project ()
+ "Prompt with a completing list of all files in the project to find one.
+
+The project's scope is defined as the first directory containing
+an `.emacs-project' file. You can override this by locally
+setting the `ffip-project-root' variable."
+ (interactive)
+ (let* ((project-files (ffip-project-files))
+ (file (if (and (boundp 'ido-mode) ido-mode)
+ (ido-completing-read "Find file in project: "
+ (mapcar 'car project-files))
+ (completing-read "Find file in project: "
+ (mapcar 'car project-files)))))
+ (find-file (cdr (assoc file project-files)))))
+
+;;;###autoload
+(defun ffip-project-root (&optional dir)
+ "Find the root of the project defined by presence of `.emacs-project'."
+ (file-name-directory (plv-find-project-file default-directory "")))
+
+(provide 'find-file-in-project)
+;;; find-file-in-project.el ends here
BIN  elpa/find-file-in-project-2.0/find-file-in-project.elc
View
Binary file not shown
18 elpa/findr-0.7/findr-autoloads.el
View
@@ -0,0 +1,18 @@
+;;; findr-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads nil nil ("findr-pkg.el" "findr.el") (19750 40285
+;;;;;; 836293))
+
+;;;***
+
+(provide 'findr-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; findr-autoloads.el ends here
1  elpa/findr-0.7/findr-pkg.el
View
@@ -0,0 +1 @@
+(define-package "findr" "0.7" "Breadth-first file-finding facility for (X)Emacs" (quote nil))
BIN  elpa/findr-0.7/findr-pkg.elc
View
Binary file not shown
258 elpa/findr-0.7/findr.el
View
@@ -0,0 +1,258 @@
+;;; findr.el --- Breadth-first file-finding facility for (X)Emacs
+;; Dec 1, 2006
+
+;; Copyright (C) 1999 Free Software Foundation, Inc.
+
+;; Author: David Bakhash <cadet@bu.edu>
+;; Maintainer: David Bakhash <cadet@bu.edu>
+;; Version: 0.7
+;; Created: Tue Jul 27 12:49:22 EST 1999
+;; Keywords: files
+
+;; This file is not part of emacs or XEmacs.
+
+;; This file is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2 of the
+;; License, or (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+
+;;; Commentary:
+
+;; This code contains a command, called `findr', which allows you to
+;; search for a file breadth-first. This works on UNIX, Windows, and
+;; over the network, using efs and ange-ftp. It's pretty quick, and (at
+;; times) is a better and easier alternative to other mechanisms of
+;; finding nested files, when you've forgotten where they are.
+
+;; You pass `findr' a regexp, which must match the file you're looking
+;; for, and a directory, and then it just does its thing:
+
+;; M-x findr <ENTER> ^my-lib.p[lm]$ <ENTER> c:/ <ENTER>
+
+;; If called interactively, findr will prompt the user for opening the
+;; found file(s). Regardless, it will continue to search, until
+;; either the search is complete or the user quits the search.
+;; Regardless of the exit (natural or user-invoked), a findr will
+;; return a list of found matches.
+
+;; Two other entrypoints let you to act on regexps within the files:
+;; `findr-search' to search
+;; `findr-query-replace' to replace
+
+
+;;; Installation:
+
+;; (autoload 'findr "findr" "Find file name." t)
+;; (define-key global-map [(meta control S)] 'findr)
+
+;; (autoload 'findr-search "findr" "Find text in files." t)
+;; (define-key global-map [(meta control s)] 'findr-search)
+
+;; (autoload 'findr-query-replace "findr" "Replace text in files." t)
+;; (define-key global-map [(meta control r)] 'findr-query-replace)
+
+
+;; Change Log:
+
+;; 0.1: Added prompt to open file, if uses so chooses, following
+;; request and code example from Thomas Plass.
+;; 0.2: Made `findr' not stop after the first match, based on the
+;; request by Thomas Plass.
+;; Also, fixed a minor bug where findr was finding additional
+;; files that were not correct matches, based on
+;; `file-relative-name' misuse (I had to add the 2nd arg to it).
+;; 0.3: Added a `sit-for' for redisplay reasons.
+;; Modifications as suggested by RMS: e.g. docstring.
+;; 0.4 Added `findr-query-replace', courtesy of Dan Nelsen.
+;; 0.5 Fixed spelling and minor bug in `findr-query-replace' when
+;; non-byte-compiled.
+;; 0.6 http://groups.google.com/groups?selm=cxjhfml4b2c.fsf_-_%40acs5.bu.edu :
+;; From: David Bakhash (cadet@bu.edu)
+;; Subject: Re: latest version of findr.el (5)
+;; Date: 1999/07/31
+;; Courtesy of Dan Nelsen, this version has search-and-replace capabilities.
+;; it's still a bit experimental, so I wouldn't expect too much of it. But it
+;; hasn't been tested yet for friendly behavior.
+;;
+;; The function `findr-query-replace' wasn't working unless you byte-compile the
+;; file. But, since findr is really designed for speed, that's not a bad thing
+;; (i.e. it forces you to byte-compile it). It's as simple as:
+;;
+;; M-x byte-compile-file <ENTER> /path/to/findr.el <ENTER>
+;;
+;; anyhow, I think it should work now.
+;;
+;; dave
+;;
+;; 0.7: Added `findr-search', broke `findr' by Patrick Anderson
+;; 0.8: fixed 0.7 breakage by Patrick Anderson
+;; 0.9: Added customize variables, added file/directory filter regexp
+;; minibuffer history by attila.lendvai@gmail.com
+;; 0.9.1: Updated date at the top of the file, added .svn filter
+;; 0.9.2: Added support for skipping symlinks
+
+(eval-when-compile
+ (require 'cl))
+
+(provide 'findr)
+
+(defgroup findr nil
+ "findr configuration."
+ :prefix "findr-"
+ :group 'findr)
+
+;; To build the expression below:
+;;(let ((result nil))
+;; (dolist (el (list ".backups" "_darcs" ".git" "CVS" ".svn"))
+;; (setf result (if result
+;; (concatenate 'string result "\\|")
+;; ""))
+;; (setf result (concatenate 'string result "^" (regexp-quote el) "$")))
+;; result)
+
+(defcustom findr-skip-directory-regexp "^\\.backups$\\|^_darcs$\\|^\\.git$\\|^CVS$\\|^\\.svn$"
+ "A regexp that will be matched against the directory names and when it matches then the entire directory is skipped."
+ :type 'string
+ :group 'findr)
+
+(defcustom findr-skip-file-regexp "^[#\\.]"
+ "A regexp that will be matched against all file names (including directories) and when it matches then the file is skipped."
+ :type 'string
+ :group 'findr)
+
+(defvar findr-search-regexp-history nil)
+(defvar findr-search-replacement-history nil)
+(defvar findr-file-name-regexp-history nil)
+(defvar findr-directory-history nil)
+
+(defun findr-read-search-regexp (&optional prompt)
+ (read-from-minibuffer
+ (or prompt "Search through files for (regexp): ")
+ nil nil nil 'findr-search-regexp-history))
+
+(defun findr-read-file-regexp (&optional prompt)
+ (read-from-minibuffer
+ (or prompt "Look in these files (regexp): ")
+ (first findr-file-name-regexp-history)
+ nil nil 'findr-file-name-regexp-history))
+
+(defun findr-read-starting-directory (&optional prompt)
+ (apply 'read-directory-name
+ (append
+ (list (or prompt "Start in directory: ") default-directory
+ default-directory t nil)
+ (when (featurep 'xemacs)
+ (list 'findr-directory-history)))))
+
+;;;; breadth-first file finder...
+
+(defun* findr (name dir &key (prompt-p (interactive-p)) (skip-symlinks t))
+ "Search directory DIR breadth-first for files matching regexp NAME.
+If PROMPT-P is non-nil, or if called interactively, Prompts for visiting
+search result\(s\)."
+ (let ((*dirs* (findr-make-queue))
+ *found-files*)
+ (labels ((findr-1 (dir)
+ (message "Searching %s ..." dir)
+ (let ((files (directory-files dir t "\\w")))
+ (loop
+ for file in files
+ for fname = (file-relative-name file dir)
+ when (and (file-directory-p file)
+ (not (string-match findr-skip-directory-regexp fname))
+ (and skip-symlinks
+ (not (file-symlink-p file))))
+ do (findr-enqueue file *dirs*)
+ when (and (string-match name fname)
+ (not (string-match findr-skip-file-regexp fname))
+ (and skip-symlinks
+ (not (file-symlink-p file))))
+ do
+ ;; Don't return directory names when
+ ;; building list for `tags-query-replace' or `tags-search'
+ ;;(when (and (file-regular-p file)
+ ;; (not prompt-p))
+ ;; (push file *found-files*))
+
+ ;; _never_ return directory names
+ (when (file-regular-p file)
+ (push file *found-files*))
+ (message file)
+ (when (and prompt-p
+ (y-or-n-p (format "Find file %s? " file)))
+ (find-file file)
+ (sit-for 0) ; redisplay hack
+ )))))
+ (unwind-protect
+ (progn
+ (findr-enqueue dir *dirs*)
+ (while (findr-queue-contents *dirs*)
+ (findr-1 (findr-dequeue *dirs*)))
+ (message "Searching... done."))
+ (return-from findr (nreverse *found-files*))))))
+
+(defun findr-query-replace (from to name dir)
+ "Do `query-replace-regexp' of FROM with TO, on each file found by findr.
+If you exit (\\[keyboard-quit] or ESC), you can resume the query replace
+with the command \\[tags-loop-continue]."
+ (interactive (let ((search-for (findr-read-search-regexp "Search through files for (regexp): ")))
+ (list search-for
+ (read-from-minibuffer (format "Query replace '%s' with: " search-for)
+ nil nil nil 'findr-search-replacement-history)
+ (findr-read-file-regexp)
+ (findr-read-starting-directory))))
+ (tags-query-replace from to nil '(findr name dir)))
+
+(defun findr-search (regexp files dir)
+ "Search through all files listed in tags table for match for REGEXP.
+Stops when a match is found.
+To continue searching for next match, use command \\[tags-loop-continue]."
+ (interactive (list (findr-read-search-regexp)
+ (findr-read-file-regexp)
+ (findr-read-starting-directory)))
+ (tags-search regexp '(findr files dir)))
+
+
+(defun findr-find-files (files dir)
+ "Same as `findr' except file names are put in a compilation buffer."
+ (interactive (list (findr-read-file-regexp)
+ (findr-read-starting-directory)))
+ ;; TODO: open a scratch buffer or store in the clipboard
+ (mapcar 'message (findr files dir)))
+
+;;;; Queues
+
+(defun findr-make-queue ()
+ "Build a new queue, with no elements."
+ (let ((q (cons nil nil)))
+ (setf (car q) q)
+ q))
+
+(defun findr-enqueue (item q)
+ "Insert item at the end of the queue."
+ (setf (car q)
+ (setf (rest (car q))
+ (cons item nil)))
+ q)
+
+(defun findr-dequeue (q)
+ "Remove an item from the front of the queue."
+ (prog1 (pop (cdr q))
+ (when (null (cdr q))
+ (setf (car q) q))))
+
+(defsubst findr-queue-contents (q)
+ (cdr q))
+
+;;; findr.el ends here
BIN  elpa/findr-0.7/findr.elc
View
Binary file not shown
77 elpa/gist-0.5/gist-autoloads.el
View
@@ -0,0 +1,77 @@
+;;; gist-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (gist-fetch gist-list gist-region-or-buffer-private
+;;;;;; gist-region-or-buffer gist-buffer-private gist-buffer gist-region-private
+;;;;;; gist-region) "gist" "gist.el" (19750 35258))
+;;; Generated autoloads from gist.el
+
+(autoload 'gist-region "gist" "\
+Post the current region as a new paste at gist.github.com
+Copies the URL into the kill ring.
+
+With a prefix argument, makes a private paste.
+
+\(fn BEGIN END &optional PRIVATE &optional CALLBACK)" t nil)
+
+(autoload 'gist-region-private "gist" "\
+Post the current region as a new private paste at gist.github.com
+Copies the URL into the kill ring.
+
+\(fn BEGIN END)" t nil)
+
+(autoload 'gist-buffer "gist" "\
+Post the current buffer as a new paste at gist.github.com.
+Copies the URL into the kill ring.
+
+With a prefix argument, makes a private paste.
+
+\(fn &optional PRIVATE)" t nil)
+
+(autoload 'gist-buffer-private "gist" "\
+Post the current buffer as a new private paste at gist.github.com.
+Copies the URL into the kill ring.
+
+\(fn)" t nil)
+
+(autoload 'gist-region-or-buffer "gist" "\
+Post either the current region, or if mark is not set, the current buffer as a new paste at gist.github.com
+Copies the URL into the kill ring.
+
+With a prefix argument, makes a private paste.
+
+\(fn &optional PRIVATE)" t nil)
+
+(autoload 'gist-region-or-buffer-private "gist" "\
+Post either the current region, or if mark is not set, the current buffer as a new private paste at gist.github.com
+Copies the URL into the kill ring.
+
+\(fn)" t nil)
+
+(autoload 'gist-list "gist" "\
+Displays a list of all of the current user's gists in a new buffer.
+
+\(fn)" t nil)
+
+(autoload 'gist-fetch "gist" "\
+Fetches a Gist and inserts it into a new buffer
+If the Gist already exists in a buffer, switches to it
+
+\(fn ID)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("gist-pkg.el") (19750 35258 518711))
+
+;;;***
+
+(provide 'gist-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; gist-autoloads.el ends here
1  elpa/gist-0.5/gist-pkg.el
View
@@ -0,0 +1 @@
+(define-package "gist" "0.5" "Emacs integration for gist.github.com" (quote nil))
BIN  elpa/gist-0.5/gist-pkg.elc
View
Binary file not shown
346 elpa/gist-0.5/gist.el
View
@@ -0,0 +1,346 @@
+;;; gist.el --- Emacs integration for gist.github.com
+
+;; Author: Christian Neukirchen <purl.org/net/chneukirchen>
+;; Maintainer: Chris Wanstrath <chris@ozmm.org>
+;; Contributors:
+;; Will Farrington <wcfarrington@gmail.com>
+;; Michael Ivey
+;; Phil Hagelberg
+;; Dan McKinley
+;; Version: 0.5
+;; Created: 21 Jul 2008
+;; Keywords: gist git github paste pastie pastebin
+
+;; This file is NOT part of GNU Emacs.
+
+;; This is free software; you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
+;; Software Foundation; either version 2, or (at your option) any later
+;; version.
+;;
+;; This is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+;; for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Uses your local GitHub config if it can find it.
+;; See http://github.com/blog/180-local-github-config
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+(require 'xml)
+
+(defvar github-user nil
+ "If non-nil, will be used as your GitHub username without checking
+git-config(1).")
+(defvar github-token nil
+ "If non-nil, will be used as your GitHub token without checking
+git-config(1).")
+
+(defvar gist-view-gist nil
+ "If non-nil, automatically use `browse-url' to view gists after they're
+posted.")
+
+(defvar gist-supported-modes-alist '((action-script-mode . "as")
+ (c-mode . "c")
+ (c++-mode . "cpp")
+ (clojure-mode . "clj")
+ (common-lisp-mode . "lisp")
+ (css-mode . "css")
+ (diff-mode . "diff")
+ (emacs-lisp-mode . "el")
+ (erlang-mode . "erl")
+ (haskell-mode . "hs")
+ (html-mode . "html")
+ (io-mode . "io")
+ (java-mode . "java")
+ (javascript-mode . "js")
+ (jde-mode . "java")
+ (js2-mode . "js")
+ (lua-mode . "lua")
+ (ocaml-mode . "ml")
+ (objective-c-mode . "m")
+ (perl-mode . "pl")
+ (php-mode . "php")
+ (python-mode . "py")
+ (ruby-mode . "rb")
+ (text-mode . "txt")
+ (scala-mode . "scala")
+ (sql-mode . "sql")
+ (scheme-mode . "scm")
+ (smalltalk-mode . "st")
+ (sh-mode . "sh")
+ (tcl-mode . "tcl")
+ (tex-mode . "tex")
+ (xml-mode . "xml")))
+
+
+
+(defmacro github-with-auth-info (login token &rest body)
+ "Binds the github authentication credentials to `login' and `token'.
+The credentials are retrieved at most once within the body of this macro."
+ (declare (indent 2))
+ `(let ((*github-auth-info* (github-auth-info)))
+ (destructuring-bind (,login . ,token) *github-auth-info*
+ ,@body)))
+
+(defun* gist-request (url callback &optional params)
+ "Makes a request to `url' asynchronously, notifying `callback' when
+complete. The github parameters are included in the request. Optionally
+accepts additional POST `params' as a list of (key . value) conses."
+ (github-with-auth-info login token
+ (let ((url-request-data (gist-make-query-string
+ `(("login" . ,login)
+ ("token" . ,token) ,@params)))
+ (url-max-redirecton -1)
+ (url-request-method "POST"))
+ (url-retrieve url callback))))
+
+;;;###autoload
+(defun gist-region (begin end &optional private &optional callback)
+ "Post the current region as a new paste at gist.github.com
+Copies the URL into the kill ring.
+
+With a prefix argument, makes a private paste."
+ (interactive "r\nP")
+ (let* ((file (or (buffer-file-name) (buffer-name)))
+ (name (file-name-nondirectory file))
+ (ext (or (cdr (assoc major-mode gist-supported-modes-alist))
+ (file-name-extension file)
+ "txt")))
+ (gist-request
+ "http://gist.github.com/gists"
+ (or callback 'gist-created-callback)
+ `(,@(if private '(("action_button" . "private")))
+ ("file_ext[gistfile1]" . ,(concat "." ext))
+ ("file_name[gistfile1]" . ,name)
+ ("file_contents[gistfile1]" . ,(buffer-substring begin end))))))
+
+(defun gist-created-callback (status)
+ (let ((location (cadr status)))
+ (message "Paste created: %s" location)
+ (when gist-view-gist
+ (browse-url location))
+ (kill-new location)
+ (kill-buffer (current-buffer))))
+
+(defun gist-make-query-string (params)
+ "Returns a query string constructed from PARAMS, which should be
+a list with elements of the form (KEY . VALUE). KEY and VALUE
+should both be strings."
+ (mapconcat
+ (lambda (param)
+ (concat (url-hexify-string (car param)) "="
+ (url-hexify-string (cdr param))))
+ params "&"))
+
+;;;###autoload
+(defun gist-region-private (begin end)
+ "Post the current region as a new private paste at gist.github.com
+Copies the URL into the kill ring."
+ (interactive "r")
+ (gist-region begin end t))
+
+(defun github-config (key)
+ "Returns a GitHub specific value from the global Git config."
+ (let ((strip (lambda (string)
+ (if (> (length string) 0)
+ (substring string 0 (- (length string) 1)))))
+ (git (executable-find "git")))
+ (funcall strip (shell-command-to-string
+ (concat git " config --global github." key)))))
+
+(defun github-set-config (key value)
+ "Sets a GitHub specific value to the global Git config."
+ (let ((git (executable-find "git")))
+ (shell-command-to-string
+ (format git " config --global github.%s %s" key value))))
+
+(defun github-auth-info ()
+ "Returns the user's GitHub authorization information.
+Searches for a GitHub username and token in the global git config,
+and returns (USERNAME . TOKEN). If nothing is found, prompts
+for the info then sets it to the git config."
+ (interactive)
+
+ ;; If we've been called within a scope that already has this
+ ;; defined, don't take the time to get it again.
+ (if (boundp '*github-auth-info*)
+ *github-auth-info*
+
+ (let* ((user (or github-user (github-config "user")))
+ (token (or github-token (github-config "token"))))
+
+ (when (not user)
+ (setq user (read-string "GitHub username: "))
+ (github-set-config "user" user))
+
+ (when (not token)
+ (setq token (read-string "GitHub API token: "))
+ (github-set-config "token" token))
+
+ (cons user token))))
+
+;;;###autoload
+(defun gist-buffer (&optional private)
+ "Post the current buffer as a new paste at gist.github.com.
+Copies the URL into the kill ring.
+
+With a prefix argument, makes a private paste."
+ (interactive "P")
+ (gist-region (point-min) (point-max) private))
+
+;;;###autoload
+(defun gist-buffer-private ()
+ "Post the current buffer as a new private paste at gist.github.com.
+Copies the URL into the kill ring."
+ (interactive)
+ (gist-region-private (point-min) (point-max)))
+
+;;;###autoload
+(defun gist-region-or-buffer (&optional private)
+ "Post either the current region, or if mark is not set, the current buffer as a new paste at gist.github.com
+Copies the URL into the kill ring.
+
+With a prefix argument, makes a private paste."
+ (interactive "P")
+ (condition-case nil
+ (gist-region (point) (mark) private)
+ (mark-inactive (gist-buffer private))))
+
+;;;###autoload
+(defun gist-region-or-buffer-private ()
+ "Post either the current region, or if mark is not set, the current buffer as a new private paste at gist.github.com
+Copies the URL into the kill ring."
+ (interactive)
+ (condition-case nil
+ (gist-region-private (point) (mark))
+ (mark-inactive (gist-buffer-private))))
+
+(defvar gist-fetch-url "http://gist.github.com/%d.txt"
+ "Raw Gist content URL format")
+
+;;;###autoload
+(defun gist-list ()
+ "Displays a list of all of the current user's gists in a new buffer."
+ (interactive)
+ (message "Retrieving list of your gists...")
+ (github-with-auth-info login token
+ (gist-request
+ (format "http://gist.github.com/api/v1/xml/gists/%s" login)
+ 'gist-lists-retrieved-callback)))
+
+(defun gist-lists-retrieved-callback (status)
+ "Called when the list of gists has been retrieved. Parses the result
+and displays the list."
+ (goto-char (point-min))
+ (search-forward "<?xml")
+ (let ((gists (gist-xml-cleanup
+ (xml-parse-region (match-beginning 0) (point-max)))))
+ (kill-buffer (current-buffer))
+ (with-current-buffer (get-buffer-create "*gists*")
+ (goto-char (point-min))
+ (save-excursion
+ (kill-region (point-min) (point-max))
+ (gist-insert-list-header)
+ (mapc 'gist-insert-gist-link (xml-node-children (car gists)))
+
+ ;; remove the extra newline at the end
+ (delete-backward-char 1))
+
+ ;; skip header
+ (forward-line)
+ (toggle-read-only t)
+ (set-window-buffer nil (current-buffer)))))
+
+(defun gist-insert-list-header ()
+ "Creates the header line in the gist list buffer."
+ (save-excursion
+ (insert " ID Created "
+ "Visibility Description \n"))
+ (let ((ov (make-overlay (line-beginning-position) (line-end-position))))
+ (overlay-put ov 'face 'header-line))
+ (forward-line))
+
+(defun gist-insert-gist-link (gist)
+ "Inserts a button that will open the given gist when pressed."
+ (let* ((data (gist-parse-gist gist))
+ (repo (string-to-number (car data))))
+ (mapc '(lambda (x) (insert (format " %s " x))) data)
+ (make-text-button (line-beginning-position) (line-end-position)
+ 'repo repo
+ 'action 'gist-fetch-button
+ 'face 'default))
+ (insert "\n"))
+
+(defun gist-fetch-button (button)
+ "Called when a gist button has been pressed. Fetches and displays the gist."
+ (gist-fetch (button-get button 'repo)))
+
+(defun gist-parse-gist (gist)
+ "Returns a list of the gist's attributes for display, given the xml list
+for the gist."
+ (let ((repo (gist-child-text 'repo gist))
+ (created-at (gist-child-text 'created-at gist))
+ (description (gist-child-text 'description gist))
+ (public (if (string= (gist-child-text 'public gist) "true")
+ "public"
+ "private")))
+ (list repo created-at public description)))
+
+(defun gist-child-text (sym node)
+ "Retrieves the text content of a child of a <gist> element."
+ (let* ((children (xml-node-children node)))
+ (car (xml-node-children (assq sym children)))))
+
+(defun gist-xml-cleanup (xml-list)
+ "Removes empty strings or whitespace nodes from the `xml-list'.
+Borrowed from rss.el."
+ (mapcar 'gist-xml-cleanup-node xml-list))
+
+(defun gist-xml-cleanup-node (node)
+ "Recursively removes whitespace and empty strings from the given xml `node'.
+Borrowed from rss.el."
+ (apply 'list
+ (xml-node-name node)
+ (xml-node-attributes node)
+ (let (new)
+ (dolist (child (xml-node-children node))
+ (if (stringp child)
+ (or (string-match "\\`[ \t\n]+\\'" child)
+ (push child new))
+ (push (gist-xml-cleanup-node child) new)))
+ (nreverse new))))
+
+;;;###autoload
+(defun gist-fetch (id)
+ "Fetches a Gist and inserts it into a new buffer
+If the Gist already exists in a buffer, switches to it"
+ (interactive "nGist ID: ")
+
+ (let* ((gist-buffer-name (format "*gist %d*" id))
+ (gist-buffer (get-buffer gist-buffer-name)))
+ (if (bufferp gist-buffer)
+ (switch-to-buffer-other-window gist-buffer)
+ (progn
+ (message "Fetching Gist %d..." id)
+ (setq gist-buffer
+ (url-retrieve-synchronously (format gist-fetch-url id)))
+ (with-current-buffer gist-buffer
+ (rename-buffer gist-buffer-name t)
+ (goto-char (point-min))
+ (search-forward-regexp "\n\n")
+ (delete-region (point-min) (point))
+ (set-buffer-modified-p nil))
+ (switch-to-buffer-other-window gist-buffer)))))
+
+(provide 'gist)
+;;; gist.el ends here.
BIN  elpa/gist-0.5/gist.elc
View
Binary file not shown
29 elpa/idle-highlight-1.0/idle-highlight-autoloads.el
View
@@ -0,0 +1,29 @@
+;;; idle-highlight-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (idle-highlight) "idle-highlight" "idle-highlight.el"
+;;;;;; (19750 35240))
+;;; Generated autoloads from idle-highlight.el
+
+(autoload 'idle-highlight "idle-highlight" "\
+Toggle idle-highlighting.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("idle-highlight-pkg.el") (19750 35240
+;;;;;; 729603))
+
+;;;***
+
+(provide 'idle-highlight-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; idle-highlight-autoloads.el ends here
1  elpa/idle-highlight-1.0/idle-highlight-pkg.el
View
@@ -0,0 +1 @@
+(define-package "idle-highlight" "1.0" "Convert buffer text and decorations to HTML." (quote nil))
BIN  elpa/idle-highlight-1.0/idle-highlight-pkg.elc
View
Binary file not shown
102 elpa/idle-highlight-1.0/idle-highlight.el
View
@@ -0,0 +1,102 @@
+;;; idle-highlight.el --- highlight the word the point is on
+
+;; Copyright (C) 2008 Phil Hagelberg
+
+;; Author: Phil Hagelberg <technomancy@gmail.com>
+;; URL: http://www.emacswiki.org/cgi-bin/wiki/IdleHighlight
+;; Version: 1.0
+;; Created: 2008-05-13
+;; Keywords: convenience
+;; EmacsWiki: IdleHighlight
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Based on some snippets by fledermaus from the #emacs channel.
+
+;; M-x idle-highlight sets an idle timer that highlights all
+;; occurences in the buffer of the word under the point.
+
+;; Enabling it in a hook is recommended. But you don't want it enabled
+;; for all buffers, just programming ones.
+;;
+;; Example:
+;;
+;; (defun my-coding-hook ()
+;; (make-local-variable 'column-number-mode)
+;; (column-number-mode t)
+;; (if window-system (hl-line-mode t))
+;; (idle-highlight))
+;;
+;; (add-hook 'emacs-lisp-mode-hook 'my-coding-hook)
+;; (add-hook 'ruby-mode-hook 'my-coding-hook)
+;; (add-hook 'js2-mode-hook 'my-coding-hook)
+
+;;; Code:
+
+(require 'thingatpt)
+
+
+(defgroup idle-highlight nil
+ "Highlight other occurrences of the word at point."
+ :group 'faces)
+
+(defface idle-highlight
+ '((t (:inherit region)))
+ "Face used to highlight other occurrences of the word at point."
+ :group 'idle-highlight)
+
+(defvar idle-highlight-last-word nil
+ "Last word to be idle-highlighted.")
+
+(defvar idle-highlight-timer nil
+ "Timer to activate re-highlighting.")
+
+(defun idle-highlight-word-at-point ()
+ "Highlight the word under the point."
+ (let* ((target-symbol (symbol-at-point))
+ (target (symbol-name target-symbol)))
+ (when idle-highlight-last-word
+ (unhighlight-regexp (concat "\\<"
+ (regexp-quote idle-highlight-last-word)
+ "\\>")))
+ (when (and idle-highlight-timer target target-symbol
+ ;; TODO: no need to highlight keywords like if
+ (not (in-string-p)) (not (equal target "end")))
+ (highlight-regexp (concat "\\<" (regexp-quote target) "\\>")
+'idle-highlight)
+ (setq idle-highlight-last-word target))))
+
+;;;###autoload
+(defun idle-highlight (&optional arg)
+ "Toggle idle-highlighting."
+ (interactive "P")
+ (if (and (boundp 'idle-highlight-timer)
+ idle-highlight-timer)
+ (progn
+ (cancel-timer idle-highlight-timer)
+ (setq idle-highlight-timer nil))
+ (set (make-local-variable 'idle-highlight-last-word) nil)
+ (set (make-local-variable 'idle-highlight-timer)
+ (run-with-idle-timer 0.5 :repeat 'idle-highlight-word-at-point))))
+
+(provide 'idle-highlight)
+;;; idle-highlight.el ends here
BIN  elpa/idle-highlight-1.0/idle-highlight.elc
View
Binary file not shown
49 elpa/inf-ruby-2.1/inf-ruby-autoloads.el
View
@@ -0,0 +1,49 @@
+;;; inf-ruby-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (run-ruby inf-ruby inf-ruby-keys) "inf-ruby" "inf-ruby.el"
+;;;;;; (19750 35243))
+;;; Generated autoloads from inf-ruby.el
+
+(autoload 'inf-ruby-keys "inf-ruby" "\
+Set local key defs to invoke inf-ruby from ruby-mode.
+
+\(fn)" nil nil)
+
+(autoload 'inf-ruby "inf-ruby" "\
+Run an inferior Ruby process in a buffer.
+With prefix argument, prompts for which Ruby implementation
+\(from the list `inf-ruby-implementations') to use. Runs the
+hooks `inf-ruby-mode-hook' (after the `comint-mode-hook' is
+run).
+
+\(fn &optional IMPL)" t nil)
+
+(autoload 'run-ruby "inf-ruby" "\
+Run an inferior Ruby process, input and output via buffer *ruby*.
+If there is a process already running in `*ruby*', switch to that buffer.
+With argument, allows you to edit the command line (default is value
+of `ruby-program-name'). Runs the hooks `inferior-ruby-mode-hook'
+\(after the `comint-mode-hook' is run).
+\(Type \\[describe-mode] in the process buffer for a list of commands.)
+
+\(fn &optional COMMAND NAME)" t nil)
+
+(eval-after-load 'ruby-mode '(add-hook 'ruby-mode-hook 'inf-ruby-keys))
+
+;;;***
+
+;;;### (autoloads nil nil ("inf-ruby-pkg.el") (19750 35243 515477))
+
+;;;***
+
+(provide 'inf-ruby-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; inf-ruby-autoloads.el ends here
1  elpa/inf-ruby-2.1/inf-ruby-pkg.el
View
@@ -0,0 +1 @@
+(define-package "inf-ruby" "2.1" "Run a ruby process in a buffer" (quote ((ruby-mode "1.1"))))
BIN  elpa/inf-ruby-2.1/inf-ruby-pkg.elc
View
Binary file not shown
350 elpa/inf-ruby-2.1/inf-ruby.el
View
@@ -0,0 +1,350 @@
+;;; inf-ruby.el --- Run a ruby process in a buffer
+
+;; Copyright (C) 1999-2008 Yukihiro Matsumoto, Nobuyoshi Nakada
+
+;; Authors: Yukihiro Matsumoto, Nobuyoshi Nakada
+;; URL: http://www.emacswiki.org/cgi-bin/wiki/RubyMode
+;; Created: 8 April 1998
+;; Keywords: languages ruby
+;; Version: 2.1
+;; Package-Requires: ((ruby-mode "1.1"))
+
+;;; Commentary:
+;;
+;; inf-ruby.el provides a REPL buffer connected to an IRB subprocess.
+;;
+;; If you're installing manually, you'll need to:
+;; * drop the file somewhere on your load path (perhaps ~/.emacs.d)
+;; * Add the following lines to your .emacs file:
+;; (autoload 'inf-ruby "inf-ruby" "Run an inferior Ruby process" t)
+;; (autoload 'inf-ruby-keys "inf-ruby" "" t)
+;; (eval-after-load 'ruby-mode
+;; '(add-hook 'ruby-mode-hook 'inf-ruby-keys))
+
+;;; TODO:
+;;
+;; inferior-ruby-error-regexp-alist doesn't match this example
+;; SyntaxError: /home/eschulte/united/org/work/arf/arf/lib/cluster.rb:35: syntax error, unexpected '~', expecting kEND
+;; similarity = comparison_cache[m][n] ||= clusters[m] ~ clusters[n]
+;;
+;; M-p skips the first entry in the input ring.
+;;
+
+(require 'comint)
+(require 'compile)
+(require 'ruby-mode)
+
+(defvar inf-ruby-default-implementation "ruby"
+ "Which ruby implementation to use if none is specified.")
+
+(defvar inf-ruby-first-prompt-pattern "^irb(.*)[0-9:]+0> *"
+ "First prompt regex pattern of ruby interpreter.")
+
+(defvar inf-ruby-prompt-pattern "^\\(irb(.*)[0-9:]+[>*\"'] *\\)+"
+ "Prompt regex pattern of ruby interpreter.")
+
+(defvar inf-ruby-mode-hook nil
+ "*Hook for customising inf-ruby mode.")
+
+(defvar inf-ruby-mode-map
+ (let ((map (copy-keymap comint-mode-map)))
+ (define-key map (kbd "C-c C-l") 'inf-ruby-load-file)
+ (define-key map (kbd "C-x C-e") 'ruby-send-last-sexp)
+ (define-key map (kbd "TAB") 'inf-ruby-complete-or-tab)
+ map)
+ "*Mode map for inf-ruby-mode")
+
+(defvar inf-ruby-implementations
+ '(("ruby" . "irb --inf-ruby-mode -r irb/completion")
+ ("jruby" . "jruby -S irb -r irb/completion")
+ ("rubinius" . "rbx -r irb/completion")
+ ("yarv" . "irb1.9 --inf-ruby-mode -r irb/completion")) ;; TODO: ironruby?
+ "An alist of ruby implementations to irb executable names.")
+
+;; TODO: do we need these two defvars?
+(defvar ruby-source-modes '(ruby-mode)
+ "*Used to determine if a buffer contains Ruby source code.
+If it's loaded into a buffer that is in one of these major modes, it's
+considered a ruby source file by ruby-load-file.
+Used by these commands to determine defaults.")
+
+(defvar ruby-prev-l/c-dir/file nil
+ "Caches the last (directory . file) pair.
+Caches the last pair used in the last ruby-load-file command.
+Used for determining the default in the
+next one.")
+
+(defconst inf-ruby-error-regexp-alist
+ '(("SyntaxError: compile error\n^\\([^\(].*\\):\\([1-9][0-9]*\\):" 1 2)
+ ("^\tfrom \\([^\(].*\\):\\([1-9][0-9]*\\)\\(:in `.*'\\)?$" 1 2)))
+
+;;;###autoload
+(defun inf-ruby-keys ()
+ "Set local key defs to invoke inf-ruby from ruby-mode."
+ (define-key ruby-mode-map "\M-\C-x" 'ruby-send-definition)
+ (define-key ruby-mode-map "\C-x\C-e" 'ruby-send-last-sexp)
+ (define-key ruby-mode-map "\C-c\C-b" 'ruby-send-block)
+ (define-key ruby-mode-map "\C-c\M-b" 'ruby-send-block-and-go)
+ (define-key ruby-mode-map "\C-c\C-x" 'ruby-send-definition)
+ (define-key ruby-mode-map "\C-c\M-x" 'ruby-send-definition-and-go)
+ (define-key ruby-mode-map "\C-c\C-r" 'ruby-send-region)
+ (define-key ruby-mode-map "\C-c\M-r" 'ruby-send-region-and-go)
+ (define-key ruby-mode-map "\C-c\C-z" 'ruby-switch-to-inf)
+ (define-key ruby-mode-map "\C-c\C-l" 'ruby-load-file)
+ (define-key ruby-mode-map "\C-c\C-s" 'inf-ruby))
+
+(defvar inf-ruby-buffer nil "Current irb process buffer.")
+
+(defun inf-ruby-mode ()
+ "Major mode for interacting with an inferior ruby (irb) process.
+
+The following commands are available:
+\\{inf-ruby-mode-map}
+
+A ruby process can be fired up with M-x inf-ruby.
+
+Customisation: Entry to this mode runs the hooks on comint-mode-hook and
+inf-ruby-mode-hook (in that order).
+
+You can send text to the inferior ruby process from other buffers containing
+Ruby source.
+ ruby-switch-to-inf switches the current buffer to the ruby process buffer.
+ ruby-send-definition sends the current definition to the ruby process.
+ ruby-send-region sends the current region to the ruby process.
+
+ ruby-send-definition-and-go, ruby-send-region-and-go,
+ switch to the ruby process buffer after sending their text.
+
+Commands:
+Return after the end of the process' output sends the text from the
+ end of process to point.
+Return before the end of the process' output copies the sexp ending at point
+ to the end of the process' output, and sends it.
+Delete converts tabs to spaces as it moves back.
+Tab indents for ruby; with arugment, shifts rest
+ of expression rigidly with the current line.
+C-M-q does Tab on each line starting within following expression.
+Paragraphs are separated only by blank lines. # start comments.
+If you accidentally suspend your process, use \\[comint-continue-subjob]
+to continue it."
+ (interactive)
+ (comint-mode)
+ (setq comint-prompt-regexp inf-ruby-prompt-pattern)
+ (ruby-mode-variables)
+ (setq major-mode 'inf-ruby-mode)
+ (setq mode-name "Inf-Ruby")
+ (setq mode-line-process '(":%s"))
+ (use-local-map inf-ruby-mode-map)
+ (setq comint-input-filter (function inf-ruby-input-filter))
+ (setq comint-get-old-input (function inf-ruby-get-old-input))
+ (make-local-variable 'compilation-error-regexp-alist)
+ (setq compilation-error-regexp-alist inf-ruby-error-regexp-alist)
+ (compilation-shell-minor-mode t)
+ (run-hooks 'inf-ruby-mode-hook))
+
+(defvar inf-ruby-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"
+ "*Input matching this regexp are not saved on the history list.
+Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.")
+
+(defun inf-ruby-input-filter (str)
+ "Don't save anything matching inf-ruby-filter-regexp"
+ (not (string-match inf-ruby-filter-regexp str)))
+
+;; adapted from replace-in-string in XEmacs (subr.el)
+(defun inf-ruby-remove-in-string (str regexp)
+ "Remove all matches in STR for REGEXP and returns the new string."
+ (let ((rtn-str "") (start 0) match prev-start)
+ (while (setq match (string-match regexp str start))
+ (setq prev-start start
+ start (match-end 0)
+ rtn-str (concat rtn-str (substring str prev-start match))))
+ (concat rtn-str (substring str start))))
+
+(defun inf-ruby-get-old-input ()
+ "Snarf the sexp ending at point"
+ (save-excursion
+ (let ((end (point)))
+ (re-search-backward inf-ruby-first-prompt-pattern)
+ (inf-ruby-remove-in-string (buffer-substring (point) end)
+ inf-ruby-prompt-pattern))))
+
+;;;###autoload
+(defun inf-ruby (&optional impl)
+ "Run an inferior Ruby process in a buffer.
+With prefix argument, prompts for which Ruby implementation
+\(from the list `inf-ruby-implementations') to use. Runs the
+hooks `inf-ruby-mode-hook' \(after the `comint-mode-hook' is
+run)."
+
+ (interactive (list (if current-prefix-arg
+ (completing-read "Ruby Implementation: "
+ (mapc #'car inf-ruby-implementations))
+ inf-ruby-default-implementation)))
+ (setq impl (or impl "ruby"))
+
+ (let ((command (cdr (assoc impl inf-ruby-implementations))))
+ (run-ruby command impl)))
+
+;;;###autoload
+(defun run-ruby (&optional command name)
+ "Run an inferior Ruby process, input and output via buffer *ruby*.
+If there is a process already running in `*ruby*', switch to that buffer.
+With argument, allows you to edit the command line (default is value
+of `ruby-program-name'). Runs the hooks `inferior-ruby-mode-hook'
+\(after the `comint-mode-hook' is run).
+\(Type \\[describe-mode] in the process buffer for a list of commands.)"
+
+ (interactive)
+ (setq command (or command (cdr (assoc inf-ruby-default-implementation
+ inf-ruby-implementations))))
+ (setq name (or name "ruby"))
+
+ (if (not (comint-check-proc inf-ruby-buffer))
+ (let ((commandlist (split-string command)))
+ (set-buffer (apply 'make-comint name (car commandlist)
+ nil (cdr commandlist)))
+ (inf-ruby-mode)))
+ (pop-to-buffer (setq inf-ruby-buffer (format "*%s*" name))))
+
+(defun inf-ruby-proc ()
+ "Returns the current IRB process. See variable inf-ruby-buffer."
+ (or (get-buffer-process (if (eq major-mode 'inf-ruby-mode)
+ (current-buffer)
+ inf-ruby-buffer))
+ (error "No current process. See variable inf-ruby-buffer")))
+
+;; These commands are added to the ruby-mode keymap:
+
+(defconst ruby-send-terminator "--inf-ruby-%x-%d-%d-%d--"
+ "Template for irb here document terminator.
+Must not contain ruby meta characters.")
+
+(defconst ruby-eval-separator "")
+
+(defun ruby-send-region (start end)
+ "Send the current region to the inferior Ruby process."
+ (interactive "r")
+ (let (term (file (buffer-file-name)) line)
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char start)
+ (setq line (+ start (forward-line (- start)) 1))
+ (goto-char start)
+ (while (progn
+ (setq term (apply 'format ruby-send-terminator (random) (current-time)))
+ (re-search-forward (concat "^" (regexp-quote term) "$") end t)))))
+ ;; compilation-parse-errors parses from second line.
+ (save-excursion
+ (let ((m (process-mark (inf-ruby-proc))))
+ (set-buffer (marker-buffer m))
+ (goto-char m)
+ (insert ruby-eval-separator "\n")
+ (set-marker m (point))))
+ (comint-send-string (inf-ruby-proc) (format "eval <<'%s', nil, %S, %d\n" term file line))
+ (comint-send-region (inf-ruby-proc) start end)
+ (comint-send-string (inf-ruby-proc) (concat "\n" term "\n"))))
+
+(defun ruby-send-definition ()
+ "Send the current definition to the inferior Ruby process."
+ (interactive)
+ (save-excursion
+ (ruby-end-of-defun)
+ (let ((end (point)))
+ (ruby-beginning-of-defun)
+ (ruby-send-region (point) end))))
+
+(defun ruby-send-last-sexp ()
+ "Send the previous sexp to the inferior Ruby process."
+ (interactive)
+ (ruby-send-region (save-excursion (backward-sexp) (point)) (point)))
+
+(defun ruby-send-block ()
+ "Send the current block to the inferior Ruby process."
+ (interactive)
+ (save-excursion
+ (ruby-end-of-block)
+ (end-of-line)
+ (let ((end (point)))
+ (ruby-beginning-of-block)
+ (ruby-send-region (point) end))))
+
+(defun ruby-switch-to-inf (eob-p)
+ "Switch to the ruby process buffer.
+With argument, positions cursor at end of buffer."
+ (interactive "P")
+ (if (get-buffer inf-ruby-buffer)
+ (pop-to-buffer inf-ruby-buffer)
+ (error "No current process buffer. See variable inf-ruby-buffer."))
+ (cond (eob-p
+ (push-mark)
+ (goto-char (point-max)))))
+
+(defun ruby-send-region-and-go (start end)
+ "Send the current region to the inferior Ruby process.
+Then switch to the process buffer."
+ (interactive "r")
+ (ruby-send-region start end)
+ (ruby-switch-to-inf t))
+
+(defun ruby-send-definition-and-go ()
+ "Send the current definition to the inferior Ruby.
+Then switch to the process buffer."
+ (interactive)
+ (ruby-send-definition)
+ (ruby-switch-to-inf t))
+
+(defun ruby-send-block-and-go ()
+ "Send the current block to the inferior Ruby.
+Then switch to the process buffer."
+ (interactive)
+ (ruby-send-block)
+ (ruby-switch-to-inf t))
+
+(defun ruby-load-file (file-name)
+ "Load a Ruby file into the inferior Ruby process."
+ (interactive (comint-get-source "Load Ruby file: " ruby-prev-l/c-dir/file
+ ruby-source-modes t)) ;; T because LOAD needs an exact name
+ (comint-check-source file-name) ; Check to see if buffer needs saved.
+ (setq ruby-prev-l/c-dir/file (cons (file-name-directory file-name)
+ (file-name-nondirectory file-name)))
+ (comint-send-string (inf-ruby-proc) (concat "(load \""
+ file-name
+ "\"\)\n")))
+
+(defun inf-ruby-completions (seed)
+ "Return a list of completions for the line of ruby code starting with SEED."
+ (let* ((proc (get-buffer-process inf-ruby-buffer))
+ (comint-filt (process-filter proc))
+ (kept "") completions)
+ (set-process-filter proc (lambda (proc string) (setf kept (concat kept string))))
+ (process-send-string proc (format "puts IRB::InputCompletor::CompletionProc.call('%s').compact\n" seed))
+ (while (not (string-match inf-ruby-prompt-pattern kept)) (accept-process-output proc))
+ (if (string-match "^[[:alpha:]]+?Error: " kept) (error kept))
+ (setf completions (butlast (split-string kept "[\r\n]") 2))
+ (set-process-filter proc comint-filt)
+ completions))
+
+(defun inf-ruby-complete-or-tab (&optional command)
+ "Either complete the ruby code at point or call
+`indent-for-tab-command' if no completion is available. Relies
+on the irb/completion Module used by readline when running irb
+through a terminal."
+ (interactive (list (let* ((curr (thing-at-point 'line))
+ (completions (inf-ruby-completions curr)))
+ (case (length completions)
+ (0 nil)
+ (1 (car completions))
+ (t (completing-read "possible completions: " completions nil 'confirm-only curr))))))
+ (if (not command)
+ (call-interactively 'indent-for-tab-command)
+ (move-beginning-of-line 1)
+ (kill-line 1)
+ (insert command)))
+
+;;;###autoload
+(eval-after-load 'ruby-mode
+ '(add-hook 'ruby-mode-hook 'inf-ruby-keys))
+
+(provide 'inf-ruby)
+;;; inf-ruby.el ends here
BIN  elpa/inf-ruby-2.1/inf-ruby.elc
View
Binary file not shown
33 elpa/inflections-1.0/inflections-autoloads.el
View
@@ -0,0 +1,33 @@
+;;; inflections-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (pluralize-string singularize-string) "inflections"
+;;;;;; "inflections.el" (19750 40284))
+;;; Generated autoloads from inflections.el
+
+(autoload 'singularize-string "inflections" "\
+Not documented
+
+\(fn STR)" nil nil)
+
+(autoload 'pluralize-string "inflections" "\
+Not documented
+
+\(fn STR)" nil nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("inflections-pkg.el") (19750 40284 405159))
+
+;;;***
+
+(provide 'inflections-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; inflections-autoloads.el ends here
1  elpa/inflections-1.0/inflections-pkg.el
View
@@ -0,0 +1 @@
+(define-package "inflections" "1.0" "convert english words between singular and plural" (quote nil))
BIN  elpa/inflections-1.0/inflections-pkg.elc
View
Binary file not shown
151 elpa/inflections-1.0/inflections.el
View
@@ -0,0 +1,151 @@
+;;; inflections.el --- convert english words between singular and plural
+
+;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com>
+
+;; Authors: Dmitry Galinsky, Howard Yeh
+;; URL: http://emacs-rails.rubyforge.org/svn/trunk/inflections.el
+;; Version: 1.0
+;; Created: 2007-11-02
+;; Keywords: ruby rails languages oop
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation; either version 2
+;; of the License, or (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+;;; Code:
+(require 'cl)
+(defvar inflection-singulars nil)
+(defvar inflection-plurals nil)
+(defvar inflection-irregulars nil)
+(defvar inflection-uncountables nil)
+
+(defmacro define-inflectors (&rest specs)
+ (loop for (type . rest) in specs do
+ (case type
+ (:singular (push rest inflection-singulars))
+ (:plural (push rest inflection-plurals))
+ (:irregular (push rest inflection-irregulars))
+ (:uncountable (setf inflection-uncountables
+ (append rest inflection-uncountables))))))
+
+(defmacro string=~ (regex string &rest body)
+ "regex matching similar to the =~ operator found in other languages."
+ (let ((str (gensym)))
+ `(lexical-let ((,str ,string))
+ ;; Use lexical-let to make closures (in flet).
+ (when (string-match ,regex ,str)
+ (symbol-macrolet ,(loop for i to 9 collect
+ (let ((sym (intern (concat "$" (number-to-string i)))))
+ `(,sym (match-string ,i ,str))))
+ (flet (($ (i) (match-string i ,str))
+ (sub (replacement &optional (i 0) &key fixedcase literal-string)
+ (replace-match replacement fixedcase literal-string ,str i)))
+ (symbol-macrolet ( ;;before
+ ($b (substring ,str 0 (match-beginning 0)))
+ ;;match
+ ($m (match-string 0 ,str))
+ ;;after
+ ($a (substring ,str (match-end 0) (length ,str))))
+ ,@body)))))))
+
+(define-inflectors
+ (:plural "$" "s")
+ (:plural "s$" "s")
+ (:plural "\\(ax\\|test\\)is$" "\\1es")
+ (:plural "\\(octop\\|vir\\)us$" "\\1i")
+ (:plural "\\(alias\\|status\\)$" "\\1es")
+ (:plural "\\(bu\\)s$" "\\1ses")
+ (:plural "\\(buffal\\|tomat\\)o$" "\\1oes")
+ (:plural "\\([ti]\\)um$" "\\1a")
+ (:plural "sis$" "ses")
+ (:plural "\\(?:\\([^f]\\)fe\\|\\([lr]\\)f\\)$" "\\1\\2ves")
+ (:plural "\\(hive\\)$" "\\1s")
+ (:plural "\\([^aeiouy]\\|qu\\)y$" "\\1ies")
+ (:plural "\\(x\\|ch\\|ss\\|sh\\)$" "\\1es")
+ (:plural "\\(matr\\|vert\\|ind\\)ix\\|ex$" "\\1ices")
+ (:plural "\\([m\\|l]\\)ouse$" "\\1ice")
+ (:plural "^\\(ox\\)$" "\\1en")
+ (:plural "\\(quiz\\)$" "\\1zes")
+
+ (:singular "s$" "")
+ (:singular "\\(n\\)ews$" "\\1ews")
+ (:singular "\\([ti]\\)a$" "\\1um")
+ (:singular "\\(\\(a\\)naly\\|\\(b\\)a\\|\\(d\\)iagno\\|\\(p\\)arenthe\\|\\(p\\)rogno\\|\\(s\\)ynop\\|\\(t\\)he\\)ses$" "\\1\\2sis")
+ (:singular "\\(^analy\\)ses$" "\\1sis")
+ (:singular "\\([^f]\\)ves$" "\\1fe")
+ (:singular "\\(hive\\)s$" "\\1")
+ (:singular "\\(tive\\)s$" "\\1")
+ (:singular "\\([lr]\\)ves$" "\\1f")
+ (:singular "\\([^aeiouy]\\|qu\\)ies$" "\\1y")
+ (:singular "\\(s\\)eries$" "\\1eries")
+ (:singular "\\(m\\)ovies$" "\\1ovie")
+ (:singular "\\(x\\|ch\\|ss\\|sh\\)es$" "\\1")
+ (:singular "\\([m\\|l]\\)ice$" "\\1ouse")
+ (:singular "\\(bus\\)es$" "\\1")
+ (:singular "\\(o\\)es$" "\\1")
+ (:singular "\\(shoe\\)s$" "\\1")
+ (:singular "\\(cris\\|ax\\|test\\)es$" "\\1is")
+ (:singular "\\(octop\\|vir\\)i$" "\\1us")
+ (:singular "\\(alias\\|status\\)es$" "\\1")
+ (:singular "^\\(ox\\)en" "\\1")
+ (:singular "\\(vert\\|ind\\)ices$" "\\1ex")
+ (:singular "\\(matr\\)ices$" "\\1ix")
+ (:singular "\\(quiz\\)zes$" "\\1")
+
+ (:irregular "stratum" "strate")
+ (:irregular "syllabus" "syllabi")
+ (:irregular "radius" "radii")
+ (:irregular "addendum" "addenda")
+ (:irregular "cactus" "cacti")
+ (:irregular "child" "children")
+ (:irregular "corpus" "corpora")
+ (:irregular "criterion" "criteria")
+ (:irregular "datum" "data")
+ (:irregular "genus" "genera")
+ (:irregular "man" "men")
+ (:irregular "medium" "media")
+ (:irregular "move" "moves")
+ (:irregular "person" "people")
+ (:irregular "man" "men")
+ (:irregular "child" "children")
+ (:irregular "sex" "sexes")
+ (:irregular "move" "moves")
+
+ (:uncountable "equipment" "information" "rice" "money" "species" "series" "fish" "sheep" "news"))
+
+;;;###autoload
+(defun singularize-string (str)
+ (when (stringp str)
+ (or (car (member str inflection-uncountables))
+ (caar (member* (downcase str) inflection-irregulars :key 'cadr :test 'equal))
+ (loop for (from to) in inflection-singulars
+ for singular = (string=~ from str (sub to))
+ when singular do (return singular))
+ str)))
+
+;;;###autoload
+(defun pluralize-string (str)
+ (when (stringp str)
+ (or (car (member str inflection-uncountables))
+ (cadar (member* (downcase str) inflection-irregulars :key 'car :test 'equal))
+ (loop for (from to) in inflection-plurals
+ for plurals = (string=~ from str (sub to))
+ when plurals do (return plurals))
+ str)))
+
+(provide 'inflections)
+;;; inflections.el ends here
BIN  elpa/inflections-1.0/inflections.elc
View
Binary file not shown
51 elpa/jump-2.0/jump-autoloads.el
View
@@ -0,0 +1,51 @@
+;;; jump-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (defjump) "jump" "jump.el" (19750 40286))
+;;; Generated autoloads from jump.el
+
+(autoload 'defjump "jump" "\
+Define NAME as a function with behavior determined by SPECS.
+SPECS should be a list of cons cells of the form
+
+ (jump-from-spec . jump-to-spec)
+
+NAME will then try subsequent jump-from-specs until one succeeds,
+at which point any resulting match information, along with the
+related jump-to-spec will be used to jump to the intended buffer.
+See `jump-to' and `jump-from' for information on spec
+construction.
+
+ROOT should specify the root of the project in which all jumps
+take place, it can be either a string directory path, or a
+function returning
+
+Optional argument DOC specifies the documentation of the
+resulting function.
+
+Optional argument MAKE can be used to specify that missing files
+should be created. If MAKE is a function then it will be called
+with the file path as it's only argument. After possibly calling
+MAKE `find-file' will be used to open the path.
+
+Optional argument METHOD-COMMAND overrides the function used to
+find the current method which defaults to `which-function'.
+
+\(fn NAME SPECS ROOT &optional DOC MAKE METHOD-COMMAND)" nil nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("jump-pkg.el") (19750 40286 822414))
+
+;;;***
+
+(provide 'jump-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; jump-autoloads.el ends here
1  elpa/jump-2.0/jump-pkg.el
View
@@ -0,0 +1 @@
+(define-package "jump" "2.0" "build functions which contextually jump between files" (quote ((findr "0.7") (inflections "1.0"))))
BIN  elpa/jump-2.0/jump-pkg.elc
View
Binary file not shown
299 elpa/jump-2.0/jump.el
View
@@ -0,0 +1,299 @@
+;;; jump.el --- build functions which contextually jump between files
+
+;; Copyright (C) 2008 Eric Schulte
+
+;; Author: Eric Schulte
+;; URL: http://github.com/eschulte/jump.el/tree/master
+;; Version: 2.0
+;; Created: 2008-08-21
+;; Keywords: project, convenience, navigation
+;; Package-Requires: ((findr "0.7") (inflections "1.0"))
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This library is intended to aid in the construction of functions
+;; for navigating projects. The `defjump' function using a hopefully
+;; convenient specification schema which jumps to new file/methods
+;; based upon the file/method context of the current buffer/point.
+
+;; This effort was inspired heavily by find-file-in-project.el by Phil
+;; Hagelberg and Doug Alcorn, and toggle.el by Ryan Davis. The
+;; initial goal of jump.el was to subsume both of these tools.
+
+;;; Example: (jumping to the related model in a rails application)