exclude packages in tree (g-elpa)

2 files changed, 40 insertions, 8 deletions

diff --git a/g-elpa.json b/g-elpa.json
index d6e217c..466a5de 100644
--- a/g-elpa.json
+++ b/g-elpa.json
@@ -10,5 +10,39 @@
     "melpa": {
       "repo_uri": "http://melpa.milkbox.net/packages/"
     }
+  },
+  "common_config": {
+     "exclude": [
+      "actionscript-mode", "alt-font-menu", "analog", "anything",
+      "apache-mode", "apel", "auctex", "auto-complete", "autoconf-mode",
+      "bbdb", "binclock", "blogmax", "bm", "bongo", "boxquote", "browse-kill-ring",
+      "bubblet", "calfw", "cedet", "chess", "circe", "cldoc", "cmail", "color-browser",
+      "color-moccur", "color-theme", "company-mode", "cperl-mode",
+      "crontab-mode", "crypt++", "csharp-mode", "css-mode", "csv-mode",
+      "ddskk", "delicious", "develock", "df-mode", "dictionary", "dircolors",
+      "dired-sort-menu", "distel", "doctest-mode", "doxymacs", "dropdown-list",
+      "ebuild-mode", "ecb", "edb", "edit-list", "elib", "elscreen",
+      "emacs-common-gentoo", "emacs-daemon", "emacs-jabber",
+      "emacs-wm", "emacs-wget", "emacs-wiki", "emacs-wiki-blog",
+      "emhacks", "emms", "eperiodic", "erc", "erobot", "eselect-mode", "ess",
+      "evil", "fff", "filladapt", "flashcard", "flim", "folding", "gnuserv",
+      "gnuserv-programs", "google-c-style", "graphviz-dot-mode",
+      "grep-edit", "h4x0r", "haskell-mode", "highline", "howm", "htmlize",
+      "http-emacs", "httpd", "icicles", "identica-mode", "igrep", "imaxima", "inform-mode",
+      "initsplit", "jam-mode", "jasmin", "javascript", "jde", "keywiz", "limit",
+      "lookup", "lua-mode", "lyskom-elisp-client", "magit", "mailcrypt", "mairix", "markdown-mode",
+      "matlab", "mcomplete", "mell", "mew", "mic-paren", "mldonkey", "mmm-mode",
+      "moccur-edit", "mode-compile", "mpg123-el", "mu-cite", "muse", "nagios-mode", "navi2ch",
+      "nxml-docbook5-schemas", "nxml-gentoo-schemas", "nxml-libvirt-schemas", "nxml-mode",
+      "nxml-svg-schemas", "ocaml-mode", "org-mode", "outline-magic", "paredit", "php-mode",
+      "planner", "po-mode", "popwin", "pov-mode", "prime-el", "prom-wl", "proofgeneral", "protbuf",
+      "psgml", "pymacs", "python-mode", "quack", "quilt-el", "qwerty", "redo", "regress", "remember",
+      "rfcview", "riece", "rnc-mode", "rpm-spec-mode", "ruby-mode", "rudel", "sawfish", "scala-mode",
+      "scheme-complete", "scss-mode", "semi", "session", "setnu", "slime", "sml-mode", "sokoban", "ssh",
+      "stripes", "sumibi", "tdtd", "teco", "template", "tempo-snippets", "thinks", "thumbs", "tnt",
+      "tuareg-mode", "twittering-mode", "typing", "u-vm-color", "uboat", "undo-tree", "uptimes",
+      "vhdl-mode", "view-process", "vm", "volume", "w3mnav", "wanderlust", "whine", "wikipedia-mode", "xclip",
+      "xrdb-mode", "xslide", "yaml-mode", "yasnippet", "yatex", "yc", "zenburn", "yyzenirc"
+    ]
   }
 }
diff --git a/g_elpa/elpa_db.py b/g_elpa/elpa_db.py
index 8ca6531..3e6e89f 100644
--- a/g_elpa/elpa_db.py
+++ b/g_elpa/elpa_db.py
@@ -53,7 +53,12 @@ class ElpaDBGenerator(DBGenerator):
         
         for entry in sexpdata.cdr(archive_contents):
             desc = entry[PKG_INFO].value()
-            pkg = self._s_get_package(entry[PKG_NAME], desc[INFO_VERSION])
+            realname = entry[PKG_NAME].value()
+
+            if self.in_config([common_config, config], "exclude", realname):
+                continue
+
+            pkg = Package("app-emacs", realname, '.'.join(map(str, desc[INFO_VERSION])))
             source_type = desc[INFO_SRC_TYPE].value()
 
             allowed_ords = set(range(ord('a'), ord('z'))) | set(range(ord('A'), ord('Z'))) | \
@@ -63,7 +68,6 @@ class ElpaDBGenerator(DBGenerator):
             
             deps = desc[INFO_DEPENDENCIES]
             dependencies = serializable_elist(separator="\n\t")
-            realname = entry[PKG_NAME].value()
             for dep in deps:
                 dependencies.append(Dependency("app-emacs", dep[DEP_NAME].value()))
                 
@@ -83,9 +87,3 @@ class ElpaDBGenerator(DBGenerator):
                           'longdescription' : description
                           }
             pkg_db.add_package(pkg, properties)
-            
-    
-    def _s_get_package(self, name, version):
-        category = 'app-emacs'
-        version = '.'.join(map(str, version))
-        return Package(category, name.value(), version)