Permalink
Browse files

Remove Old stuff.

  • Loading branch information...
1 parent 23fedb6 commit 1c14213572c7aa91f2c43d9f90f8d0b6c12f61aa @chmouel committed Oct 2, 2012
@@ -1,8 +0,0 @@
-(1
- (hello .
- [(0 2)
- nil "hello world package" single])
- (js2-mode .
- [(20090814)
- nil "an improved JavaScript editing mode" single]))
-
View
@@ -1,14 +0,0 @@
-(1 . ; version number
-
- (((22 0) .
- ((erc . [(5 2) nil "An Emacs Internet Relay Chat client"])
- ;; The external URL is version 1.15, so make sure the built-in one
- ;; looks newer.
- (url . [(1 16) nil "URL handling libary"])))
- ((23 0) .
- (;; Strangely, nxml-version is missing in Emacs 23.
- ;; We pick the merge date as the version.
- (nxml . [(20071123) nil "Major mode for editing XML documents."])
- (bubbles . [(0 5) nil "Puzzle game for Emacs."])
- (ruby-mode . [(1 0)
- nil "Major mode for editing Ruby files" single])))))
@@ -1,12 +0,0 @@
-This is a collection of (X)Emacs modes for use with Groovy-related technology -- Groovy, Grails, etc.
-
-The Groovy mode is a derived mode of Java mode which is itself a derived mode in CC Mode. Inspiration came
-from Dylan R.E. Moonfire's C# mode.
-
-This software is licenced using GNU General Public Licence version 2.
-
-The master of all the material is the Bazaar branch lp:groovy-emacs-mode. This branch is mirrored in the
-Groovy Subversion repository at https://svn.codehaus.org/groovy/trunk/groovy/ide/emacs.
-
-Bazaar is used for development -- the directory in Subversion holds a Bazaar branch so that it is a peer to
-the feature branches using bzr-svn. Feature branches are held on Launchpad.

Large diffs are not rendered by default.

Oops, something went wrong.
@@ -1,181 +0,0 @@
-;;; grails-mode.el --- minor-mode that adds some Grails project management to a grails project
-
-;; Copyright (C) 2010 Jim Morris
-
-;; Author: Jim Morris <morris@wolfman.com>
-;; Version: 0.1
-;; URL: http://blog.wolfman.com
-
-;; This file is not currently part of GNU Emacs.
-
-;; 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, 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 ; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-;;
-;;; depends on
-;; groovy-mode
-;; find-cmd
-;; anything
-;; anything-config
-;;
-;;; Commentary:
-;;
-;; A minor mode that adds some useful commands for navigating around
-;; a grails project
-;;
-;; In the root of the grails project (where the grails-app directory is)
-;; add this to your .dir-locals.el file (v23+)
-;; (groovy-mode . ((grails-mode . 1)))
-;; (java-mode . ((grails-mode . 1)))
-;; (html-mode . ((grails-mode . 1)))
-;;
-;; This will turn on grails minor mode whenever a groovy, java or gsp file is opened,
-;; this presumes you have gsp files et to use html-mode adjust to whatever mode gsp files use
-;;
-;; or just add this to have grails mode with any file in that directory structure
-;;
-;; ((nil . ((grails-mode . 1))))
-;;
-;; The main addition is a view in anything that shows all the grails project files
-;;
-
-(require 'find-cmd)
-
-(eval-when-compile
- (defvar anything-project-root))
-
-
-;; TODO
-(defun grails-jump-to-model ()
- "Jump to the domain model for the given context."
- (interactive)
- (let (var1)
- (setq var1 'some)
- (message "jump to model at point")
- )
- )
-
-;; TODO
-(defun grails-jump-to-controller ()
- "thisandthat."
- (interactive)
- (let (var1)
- (setq var1 'some)
- (message "jump to controller at point")
- )
- )
-
-;; TODO
-(defun grails-jump-to-view ()
- "Jumps the view for the controller action we are in"
- (interactive)
- (let (var1)
- (setq var1 'some)
- (message "jump to view for given action")
- )
- )
-
-;;
-;; Handle anything integration with grails project view
-;;
-
-(defvar grails-root-extra-find-args
- (find-to-string '(prune (name ".svn" ".git")))
- "Extra find args that will be AND'd to the defaults (which are
-in `grails-root-file-find-process')")
-
-(defun grails-make-displayable-name (path)
- "makes path into a displayable name. eg view(post): file, domain: file, controller: name"
- (let ((dir (file-name-directory path))
- (name (file-name-nondirectory path)))
- (let
- ((type (cond
- ((string-match "/grails-app/views/\\([a-zA-Z0-9_]+\\)/" dir)
- (concat "view(" (match-string 1 dir) ")"))
- ((string-match "/grails-app/controllers/.*/\\([a-zA-Z0-9_]+\\)Controller" dir) "controller")
- ((string-match "/grails-app/domain/" dir) "domain")
- ((string-match "/grails-app/conf/" dir) "configuration")
- ((string-match "/grails-app/i18n/" dir) "i18n")
- ((string-match "/grails-app/services/" dir) "services")
- ((string-match "/grails-app/taglib/" dir) "taglib")
- ((string-match "/grails-app/utils/" dir) "utils")
- ((string-match "/grails-app/\\([a-zA-Z0-9_]+\\)/" dir) (match-string 1 dir))
- (t "misc file"))))
-
- (concat type ": " (file-name-sans-extension name)))))
-
-(defun grails-list-project-files ()
- "Returns a list of all files found under the grails project."
-
- ;; find root of project
- ;; TODO should also check for grails-app directory
- (setq grails-project-root
- (locate-dominating-file default-directory "build.xml"))
-
- ;; get a list of all the relevant files
- (setq grails-project-files-list
- (split-string
- (shell-command-to-string (concat "find " grails-project-root "grails-app "
- (find-to-string
- `(or (name "*.groovy")
- (name "*.gsp")))))))
-
- ;; convert the list into cons pair of (display . filepath) where
- ;; display is a friendly name
- (setq grails-project-files-list-display
- (mapcar
- (lambda (f)
- (cons (grails-make-displayable-name f) f)) grails-project-files-list)))
-
-
-;; anything source for showing all grails project files
-(defvar anything-grails-project-files
- '((name . "Files in Grails Project")
- (candidates . grails-project-files-list-display)
- (match anything-c-match-on-file-name)
- ;(candidate-transformer nil)
- (type . file)))
-
-
-(defun grails-show-project-files ()
- "Uses Anything to show all the project files"
- (interactive)
-
- (grails-list-project-files)
-
- (anything '(anything-grails-project-files)))
-
-
-(define-minor-mode grails-mode
- "Grails Minor Mode.
- With no argument, this command toggles the mode.
- Non-null prefix argument turns on the mode.
- Null prefix argument turns off the mode.
-
- When Grails mode is enabled, several keys are enabled that
- will allow navigation around a typical grails project."
- ;; The initial value.
- :init-value nil
- ;; The indicator for the mode line.
- :lighter " Grails"
- ;; The minor mode bindings.
- :keymap
- '(("\C-c/m" . grails-jump-to-model)
- ("\C-c/c" . grails-jump-to-controller)
- ("\C-c/v" . grails-jump-to-view)
- ("\C-ca" . grails-show-project-files)
- )
- :group 'grails)
-
-(provide 'grails-mode)
@@ -1,166 +0,0 @@
-;;; groovy-electric.el --- Electric mode for Groovy
-;; -*-Emacs-Lisp-*-
-
-;; Author: Jim Morris <morris@wolfman.com>
-;; Created: 2009-12-11
-
-;; Copyright (C) 2009 Jim Morris
-
-;; 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-;;
-;; Based on ruby-electric.el Copyright (C) 2005 by Dee Zsombor <dee dot zsombor at gmail dot com>.
-;; Due credit: original work was inspired by a code snippet posted by
-;; Frederick Ros at http://rubygarden.org/ruby?EmacsExtensions.
-
-;;; Commentary:
-;;
-;; By default automatically inserts closing delimiter for {[('"
-;; Additionally when in a GString typing a $ will insert { } and place
-;; cursor between the braces. All these can be turned on or off
-;; individually in the customization window for groovy-electric
-;;
-;;
-;; Usage:
-;;
-;; 0) copy groovy-electric.el into directory where emacs can find it.
-;;
-;; 1) modify your startup file (.emacs or whatever) by adding
-;; following lines to load and enable the mode when groovy-mode loads
-;;
-;; (add-hook 'groovy-mode-hook
-;; '(lambda ()
-;; (require 'groovy-electric)
-;; (groovy-electric-mode)))
-;;
-;; or add this to your init file
-;;
-;; (require 'groovy-electric)
-;;
-;; note that you need to have font lock enabled beforehand.
-;;
-;; 2) toggle Groovy Electric Mode on/off with groovy-electric-mode.
-
-;;; History:
-
-;;; Code:
-(require 'groovy-mode)
-(defgroup groovy-electric nil
- "Minor mode providing electric editing commands for groovy files"
- :group 'groovy)
-
-(defvar groovy-electric-matching-delimeter-alist
- '((?\[ . ?\])
- (?\( . ?\))
- (?\' . ?\')
- (?\" . ?\")))
-
-(defcustom groovy-electric-expand-delimiters-list '(all)
- "*List of contexts where matching delimiter should be inserted.
-The word 'all' will do all insertions."
- :type '(set :extra-offset 8
- (const :tag "Everything" all )
- (const :tag "Curly brace" ?\{ )
- (const :tag "Square brace" ?\[ )
- (const :tag "Round brace" ?\( )
- (const :tag "Quote" ?\' )
- (const :tag "Double quote" ?\" )
- (const :tag "Dollar in GStrings" ?\$ ))
- :group 'groovy-electric)
-
-(defcustom groovy-electric-newline-before-closing-bracket nil
- "*Controls whether a newline should be inserted before the
-closing bracket or not."
- :type 'boolean :group 'groovy-electric)
-
-(define-minor-mode groovy-electric-mode
- "Toggle Groovy Electric minor mode.
-With no argument, this command toggles the mode. Non-null prefix
-argument turns on the mode. Null prefix argument turns off the
-mode.
-
-When Groovy Electric mode is enabled, simple, double and back
-quotes as well as braces are paired auto-magically. Expansion
-does not occur inside comments and strings. Note that you must
-have Font Lock enabled. ${ } is expanded when in a GString"
- ;; initial value.
- nil
- ;;indicator for the mode line.
- " Ge"
- ;;keymap
- groovy-mode-map
- (groovy-electric-setup-keymap))
-
-(defun groovy-electric-setup-keymap()
- (define-key groovy-mode-map "{" 'groovy-electric-curlies)
- (define-key groovy-mode-map "(" 'groovy-electric-matching-char)
- (define-key groovy-mode-map "[" 'groovy-electric-matching-char)
- (define-key groovy-mode-map "\"" 'groovy-electric-matching-char)
- (define-key groovy-mode-map "\'" 'groovy-electric-matching-char)
- (define-key groovy-mode-map "\$" 'groovy-electric-pound)
- )
-
-(defun groovy-electric-code-at-point-p()
- (and groovy-electric-mode
- (let* ((properties (text-properties-at (point))))
- (and (null (memq 'font-lock-string-face properties))
- (null (memq 'font-lock-comment-face properties))))))
-
-(defun groovy-electric-string-at-point-p()
- (and groovy-electric-mode
- (consp (memq 'font-lock-string-face (text-properties-at (point))))))
-
-;; This checks it is a GString ("...") not normal string '...'
-(defun groovy-electric-gstring-at-point-p()
- (and groovy-electric-mode
- (consp (memq 'font-lock-string-face (text-properties-at (point))))
- (save-excursion
- (char-equal ?\" (char-after (car (c-literal-limits)))))))
-
-(defun groovy-electric-is-last-command-char-expandable-punct-p()
- (or (memq 'all groovy-electric-expand-delimiters-list)
- (memq last-command-char groovy-electric-expand-delimiters-list)))
-
-(defun groovy-electric-curlies(arg)
- (interactive "P")
- (self-insert-command (prefix-numeric-value arg))
- (when (and (groovy-electric-is-last-command-char-expandable-punct-p)
- (groovy-electric-code-at-point-p))
- (insert " ")
- (save-excursion
- (if groovy-electric-newline-before-closing-bracket
- (newline))
- (insert "}"))))
-
-(defun groovy-electric-matching-char(arg)
- (interactive "P")
- (self-insert-command (prefix-numeric-value arg))
- (and (groovy-electric-is-last-command-char-expandable-punct-p)
- (groovy-electric-code-at-point-p)
- (save-excursion
- (insert (cdr (assoc last-command-char
- groovy-electric-matching-delimeter-alist))))))
-
-(defun groovy-electric-pound(arg)
- (interactive "P")
- (self-insert-command (prefix-numeric-value arg))
- (when (and (groovy-electric-is-last-command-char-expandable-punct-p)
- (groovy-electric-gstring-at-point-p)
- (not (save-excursion ; make sure it is not escaped
- (backward-char 1)
- (char-equal ?\\ (preceding-char)))))
- (insert "{}")
- (backward-char 1)))
-
-
-(provide 'groovy-electric)
-
-;;; groovy-electric.el ends here
Oops, something went wrong.

0 comments on commit 1c14213

Please sign in to comment.