Initial commit

elpa/builtin-packages

@@ -0,0 +1,16 @@
+(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])
+    ))))
+

elpa/builtin-packages~

@@ -0,0 +1,16 @@
+(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])
+    ))))
+

elpa/css-mode-1.0/css-mode-autoloads.el

@@ -0,0 +1,32 @@
+;;; css-mode-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads (css-mode) "css-mode" "css-mode.el" (19418 58998))
+;;; Generated autoloads from css-mode.el
+(add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode))
+
+(autoload 'css-mode "css-mode" "\
+Major mode for editing CSS source code.
+
+Key bindings:
+
+\\{css-mode-map}
+
+\(fn)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("css-mode-pkg.el") (19418 58998 569392))
+
+;;;***
+
+(provide 'css-mode-autoloads)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; css-mode-autoloads.el ends here

elpa/css-mode-1.0/css-mode-pkg.el

@@ -0,0 +1 @@
+(define-package "css-mode" "1.0" "Major mode for editing Cascading Style Sheets" (quote nil))

elpa/css-mode-1.0/css-mode.el

@@ -0,0 +1,268 @@
+;;; css-mode.el --- Major mode for editing Cascading Style Sheets
+
+;; Copyright (C) 2005  
+;;  Karl Landström.
+
+;; Author:  Karl Landström <kland at comhem dot se>
+;; Maintainer: Karl Landström <kland at comhem dot se>
+;; Version: 1.0
+;; Keywords: languages, hypermedia
+
+;; 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.
+
+;;; Commentary:
+
+;; Installation:
+
+;; Put this file in a folder where Emacs can find it.  On GNU/Linux
+;; it's usually /usr/local/share/emacs/site-lisp/ and on Windows it's
+;; something like "C:\Program Files\Emacs<version>\site-lisp".  To
+;; make it run slightly faster you can also compile it from Emacs (M-x
+;; `emacs-lisp-byte-compile'). Then add
+;; 
+;;    (add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode))
+;;    (autoload 'css-mode "css-mode" nil t)
+
+;; to your .emacs initialization file (_emacs on Windows).
+
+;;; Code:
+
+(defcustom css-indent-level 3 "Number of spaces for each indent step.")
+
+
+;; KEYMAP
+
+(defvar css-mode-map nil "Keymap in CSS mode.")
+
+(unless css-mode-map (setq css-mode-map (make-sparse-keymap)))
+
+
+;; SYNTAX TABLE AND PARSING
+
+(defvar css-mode-syntax-table
+  (let ((table (make-syntax-table)))
+    (modify-syntax-entry ?/ ". 14" table)
+    (modify-syntax-entry ?* ". 23" table)
+    (modify-syntax-entry ?- "w" table)
+    table)
+  "Syntax table used in CSS mode.")
+
+
+;; The css-re-search-* functions are copied from my JavaScript mode,
+;; `javascript.el'.
+
+(defun css-re-search-forward-inner (regexp &optional bound count)
+  "Used by `css-re-search-forward'."
+  (let ((parse)
+        (saved-point (point-min)))
+    (while (> count 0)
+      (re-search-forward regexp bound)
+      (setq parse (parse-partial-sexp saved-point (point)))
+      (cond ((nth 3 parse)
+             (re-search-forward 
+              (concat "\\([^\\]\\|^\\)" (string (nth 3 parse))) 
+              (save-excursion (end-of-line) (point)) t))
+            ((nth 7 parse)
+             (forward-line))
+            ((or (nth 4 parse)
+                 (and (eq (char-before) ?\/) (eq (char-after) ?\*)))
+             (re-search-forward "\\*/"))
+            (t
+             (setq count (1- count))))
+      (setq saved-point (point))))
+  (point))
+
+
+(defun css-re-search-forward (regexp &optional bound noerror count)
+  "Invokes `re-search-forward' but treats the buffer as if strings and
+comments have been removed."
+  (let ((saved-point (point))
+        (search-expr 
+         (cond ((null count)
+                '(css-re-search-forward-inner regexp bound 1))
+               ((< count 0)
+                '(css-re-search-backward-inner regexp bound (- count)))
+               ((> count 0)
+                '(css-re-search-forward-inner regexp bound count)))))
+    (condition-case err
+        (eval search-expr)
+      (search-failed
+       (goto-char saved-point)
+       (unless noerror
+         (error (error-message-string err)))))))
+
+
+(defun css-re-search-backward-inner (regexp &optional bound count)
+  "Used by `css-re-search-backward'."
+  (let ((parse)
+        (saved-point (point-min)))
+    (while (> count 0)
+      (re-search-backward regexp bound)
+      (setq parse (parse-partial-sexp saved-point (point)))
+      (cond ((nth 3 parse)
+             (re-search-backward
+              (concat "\\([^\\]\\|^\\)" (string (nth 3 parse))) 
+              (save-excursion (beginning-of-line) (point)) t))
+            ((nth 7 parse) 
+             (goto-char (nth 8 parse)))
+            ((or (nth 4 parse)
+                 (and (eq (char-before) ?/) (eq (char-after) ?*)))
+             (re-search-backward "/\\*"))
+            (t
+             (setq count (1- count))))))
+  (point))
+
+
+(defun css-re-search-backward (regexp &optional bound noerror count)
+  "Invokes `re-search-backward' but treats the buffer as if strings
+and comments have been removed."
+  (let ((saved-point (point))
+        (search-expr 
+         (cond ((null count)
+                '(css-re-search-backward-inner regexp bound 1))
+               ((< count 0)
+                '(css-re-search-forward-inner regexp bound (- count)))
+               ((> count 0)
+                '(css-re-search-backward-inner regexp bound count)))))
+    (condition-case err
+        (eval search-expr)
+      (search-failed
+       (goto-char saved-point)
+       (unless noerror
+         (error (error-message-string err)))))))
+
+
+;; FONT LOCK
+
+(defconst css-font-lock-keywords-1
+  (list
+
+   ;; selectors
+   (list "^[ \t]*[[:word:].#:]+[ \t]*\\([,{]\\|/\\*\\|$\\)"
+         (list "\\([[:word:].#:]+\\)[ \t]*\\(,\\|{.*\\|/\\*.*?\\*/\\|$\\)"
+               '(progn
+                  (backward-char)
+                  (if (nth 1 (parse-partial-sexp (point-min) (point)))
+                      (end-of-line)
+                    (beginning-of-line)))
+               '(end-of-line)
+               '(1 font-lock-function-name-face)))
+
+   ;; properties
+   (list "\\(\\w+\\)[ \t]*:" 1 font-lock-variable-name-face)
+
+   ;; values that need to be quoted
+   (list ":[ \t]*\\(\\w+[ \t]+\\w+\\)" 1 font-lock-warning-face)
+
+   ;; values (unquoted)
+;;    (list ":[ \t]*\\(\"\\|\\w" 
+;;          "\\(.+?\\)\\(,\\|;\\|}\\|$\\)"
+;;          '(backward-char)
+;;          '(end-of-line)
+;;          '(1 font-lock-string-face))
+))
+
+(defconst css-font-lock-keywords-2 css-font-lock-keywords-1)
+(defconst css-font-lock-keywords-3 css-font-lock-keywords-1)
+(defconst css-font-lock-keywords 
+  '(css-font-lock-keywords-3 css-font-lock-keywords-1 css-font-lock-keywords-2
+                             css-font-lock-keywords-3)
+  "See `font-lock-keywords'.")
+
+
+(defun css-indent-line ()
+  (interactive)
+  (let ((indent
+         (save-excursion
+           (back-to-indentation)
+           (let ((p (parse-partial-sexp (point-min) (point)))
+                 (end-brace-p (looking-at "}")))
+             (cond
+              ((or (nth 8 p) (looking-at "/[/*]"))
+               (current-indentation))
+              ((save-excursion
+                 (and (skip-chars-backward " \t\n:,")
+                      (looking-at "[:,]")))
+               (save-excursion 
+                 (css-re-search-backward "^[ \t]*\\w")
+                 (+ (current-indentation) css-indent-level)))
+              ((nth 1 p)
+               (save-excursion 
+                 (goto-char (nth 1 p))
+                 (+ (current-indentation) (if end-brace-p 0 css-indent-level))))
+              (t
+               0)))))
+        (offset (- (current-column) (current-indentation))))
+    (indent-line-to indent)
+    (if (> offset 0) (forward-char offset))))
+
+
+(defconst css-imenu-generic-expression
+  '((nil "^[ \t]*\\([[:word:].:#, \t]+\\)\\s-*{" 1))
+  "Regular expression matching any selector. Used by imenu.")
+
+;;;###autoload(add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode))
+
+;;;###autoload
+(defun css-mode ()
+  "Major mode for editing CSS source code.
+
+Key bindings:
+
+\\{css-mode-map}"
+  (interactive)
+  (kill-all-local-variables)
+
+  (use-local-map css-mode-map)
+  (set-syntax-table css-mode-syntax-table)
+  (set (make-local-variable 'indent-line-function) 'css-indent-line)
+  (set (make-local-variable 'font-lock-defaults) (list css-font-lock-keywords))
+
+  ;; Imenu
+  (setq imenu-case-fold-search nil)
+  (set (make-local-variable 'imenu-generic-expression)
+       css-imenu-generic-expression)
+
+  (when (featurep 'newcomment)
+    (set (make-local-variable 'comment-start) "/*")
+    (set (make-local-variable 'comment-end) "*/")
+    (set (make-local-variable 'comment-start-skip) "/\\*+ *")
+    (set (make-local-variable 'comment-end-skip) " *\\*+/")
+    (require 'advice)
+
+    (defadvice comment-dwim (after inhibit-indent)
+      "Indent new comment lines to column zero and insert only one space
+before a trailing comment."
+      (when (eq major-mode 'css-mode)
+        (let ((prs (parse-partial-sexp 
+                    (save-excursion (beginning-of-line) (point)) 
+                    (point))))
+          (when (nth 4 prs)
+            (save-excursion 
+              (goto-char (nth 8 prs))
+              (when (looking-at "/\\*[ \t]*\\*/")
+                (if (= (current-column) (current-indentation))
+                    (indent-line-to 0)
+                  (just-one-space))))))))
+
+    (ad-activate 'comment-dwim))
+
+  (setq major-mode 'css-mode)
+  (setq mode-name "CSS")
+  (run-hooks 'css-mode-hook))
+
+(provide 'css-mode)
+;;; css-mode.el ends here

elpa/findr-0.7/findr-autoloads.el

@@ -0,0 +1,18 @@
+;;; findr-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads nil nil ("findr-pkg.el" "findr.el") (19541 38488
+;;;;;;  403286))
+
+;;;***
+
+(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

elpa/findr-0.7/findr-pkg.el

@@ -0,0 +1 @@
+(define-package "findr" "0.7" "Breadth-first file-finding facility for (X)Emacs" (quote nil))