AndreaCrotti · AndreaCrotti · Mar 9, 2019 · Mar 2, 2019 · Mar 2, 2019 · Mar 2, 2019
diff --git a/report/project.clj b/report/project.clj
@@ -0,0 +1,10 @@
+(defproject report "0.1.0-SNAPSHOT"
+  :description "Give a report of the yas snippets"
+  :dependencies [[org.clojure/clojure "1.10.0"]
+                 [hiccup "1.0.5"]]
+
+  :uberjar-name "report.jar"
+  :min-lein-version "2.8.1"
+  :source-paths ["src"]
+  :test-paths ["test"]
+  :resource-paths ["resources"])
diff --git a/report/src/core.clj b/report/src/core.clj
@@ -0,0 +1,88 @@
+(ns core
+  "Parse files and generate some html reports"
+  (:require [clojure.string :as str]
+            [hiccup.core :as hiccup]
+            [clojure.java.io :as io]))
+
+;; TODO: do something whenever the mode has just `.yas-parents` and nothing else?
+(def bulma-url "https://cdnjs.cloudflare.com/ajax/libs/bulma/0.7.4/css/bulma.css")
+
+(defn kw-pattern
+  [kw]
+  (re-pattern (format "# %s: (.*)" kw)))
+
+(defn extract-keyword
+  [filename keyword]
+  (let [lines (-> filename
+                  slurp
+                  str/split-lines)]
+    (first
+     (remove nil?
+             (map #(last (re-find (kw-pattern keyword) %)) lines)))))
+
+(defn mode-files
+  [mode-dir]
+  (filter #(.isFile %)
+          (file-seq (io/file mode-dir))))
+
+(defn parse-mode
+  [mode-dir]
+  (for [f (mode-files mode-dir)]
+    {:filename (.getName (io/file mode-dir f))
+     :name (extract-keyword f "name")
+     :key (or (extract-keyword f "key")
+              (extract-keyword f "name"))
+     :group (extract-keyword f "group")
+     :desc (extract-keyword f "desc")}))
+
+(defn parse-everything
+  [snippets-dir]
+  (into {}
+        (remove nil?)
+        (for [d (file-seq (io/file snippets-dir))]
+          (when (.isDirectory d)
+            {(.getName d) (parse-mode d)}))))
+
+(defn store-to-edn
+  [snippets-dir output-file]
+  (spit output-file (parse-everything snippets-dir)))
+
+(def header [:name :key :filename :group :desc])
+
+(defn table
+  "Generate a table"
+  [header rows]
+  [:table.table.is-striped
+   [:thead (into [:tr.tr]
+                 (for [h header]
+                   [:td.td (name h)]))]
+
+   (into [:tbody.tbody]
+         (for [r rows]
+           (into [:tr.tr]
+                 (for [h header]
+                   [:td.td (r h)]))))])
+
+(defn structure
+  [body]
+  [:html
+   [:head
+    [:link {:rel "stylesheet"
+            :href bulma-url
+            :crossorigin "anonymous"}]]
+   (into [:body] body)])
+
+(defn gen-html
+  [snips-dir]
+  (let [all-modes (parse-everything snips-dir)
+        tables (for [[m snips] (sort all-modes)]
+                 [:div.section
+                  [:h2.subtitle m]
+                  (table header snips)])]
+    (spit
+     "hello.html"
+     (hiccup/html
+      (structure tables)))))
+
+(comment
+  (gen-html "../snippets"))
diff --git a/snippets/c++-mode/beginend b/snippets/c++-mode/beginend
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : v.begin(), v.end()
+# name: v.begin(), v.end()
 # key: beginend
 # --
 ${1:v}.begin(), $1.end
diff --git a/snippets/c++-mode/ns b/snippets/c++-mode/ns
@@ -1,4 +1,4 @@
-#name : namespace ...
+# name: namespace ...
 # key: ns
 # --
 namespace 
diff --git a/snippets/c++-mode/using b/snippets/c++-mode/using
@@ -1,4 +1,4 @@
-#name : using namespace ... 
+# name: using namespace ... 
 # key: using
 # --
 using namespace ${std};

diff --git a/snippets/c-lang-common/inc b/snippets/c-lang-common/inc
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : #include <...>
+# name: #include <...>
 # key  : incs
 # --
 #include <$1>
diff --git a/snippets/c-lang-common/inc.1 b/snippets/c-lang-common/inc.1
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : #include "..."
+# name: #include "..."
 # key  : incl
 # --
 #include "$1"
diff --git a/snippets/c-lang-common/once b/snippets/c-lang-common/once
@@ -1,4 +1,4 @@
-#name : #ifndef XXX; #define XXX; #endif
+# name: #ifndef XXX; #define XXX; #endif
 # key: once
 # --
 #ifndef ${1:`(upcase (file-name-nondirectory (file-name-sans-extension (or (buffer-file-name) ""))))`_H}

diff --git a/snippets/cc-mode/case b/snippets/cc-mode/case
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : case : {...}
+# name: case : {...}
 # key: case
 # expand-env: ((yas-also-auto-indent-first-line t))
 # --

diff --git a/snippets/cc-mode/do b/snippets/cc-mode/do
@@ -1,4 +1,4 @@
-#name : do { ... } while (...)
+# name: do { ... } while (...)
 # key: do
 # --
 do

diff --git a/snippets/cc-mode/else b/snippets/cc-mode/else
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : else { ... }
+# name: else { ... }
 # key: else
 # --
 else${1: {

diff --git a/snippets/cc-mode/file_description b/snippets/cc-mode/file_description
@@ -1,8 +1,8 @@
 # -*- mode: snippet -*-
 #cotributor: Henrique Jung <henriquenj@gmail.com>
-#name: File description
-#key: \file
-#group: doxygen
+# name: File description
+# key: \file
+# group: doxygen
 # --
 /**
  *   \file ${1:`(file-name-nondirectory(buffer-file-name))`}

diff --git a/snippets/cc-mode/function_description b/snippets/cc-mode/function_description
@@ -1,8 +1,8 @@
 # -*- mode: snippet -*-
 #cotributor: Henrique Jung <henriquenj@gmail.com>
-#name: Function description
-#key: \brief
-#group: doxygen
+# name: Function description
+# key: \brief
+# group: doxygen
 # --
 /**
  *  \brief ${1:function description}

diff --git a/snippets/cc-mode/if b/snippets/cc-mode/if
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : if (...) { ... }
+# name: if (...) { ... }
 # key: if
 # --
 if (${1:condition}) ${2:{

diff --git a/snippets/cc-mode/member_description b/snippets/cc-mode/member_description
@@ -1,7 +1,7 @@
 # -*- mode: snippet -*-
 #cotributor: Henrique Jung <henriquenj@gmail.com>
-#name: Member description
-#key: !<
-#group: doxygen
+# name: Member description
+# key: !<
+# group: doxygen
 # --
 /*!< ${1:Detailed description after the member} */
diff --git a/snippets/cc-mode/struct b/snippets/cc-mode/struct
@@ -1,4 +1,4 @@
-#name : struct ... { ... }
+# name: struct ... { ... }
 # key: struct
 # --
 struct ${1:name}

diff --git a/snippets/cc-mode/switch b/snippets/cc-mode/switch
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : switch (...) { case : ... default: ...}
+# name: switch (...) { case : ... default: ...}
 # key: switch
 # --
 switch (${1:expr}) {

diff --git a/snippets/csharp-mode/attrib b/snippets/csharp-mode/attrib
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : private attribute ....;
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: private attribute ....;
 # key: attrib
 # --
 /// <summary>

diff --git a/snippets/csharp-mode/attrib.1 b/snippets/csharp-mode/attrib.1
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : private attribute ....; public property ... ... { ... }
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: private attribute ....; public property ... ... { ... }
 # key: attrib
 # --
 /// <summary>
@@ -19,4 +19,4 @@ public $1 $2
     set {
         this.$2 = value;
     }
-}
+}
diff --git a/snippets/csharp-mode/attrib.2 b/snippets/csharp-mode/attrib.2
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : private _attribute ....; public Property ... ... { ... }
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: private _attribute ....; public Property ... ... { ... }
 # key: attrib
 # --
 /// <summary>
@@ -19,4 +19,4 @@ public ${1:Type} ${2:Name}
     set {
         this.${2:$(if (> (length yas-text) 0) (format "_%s%s" (downcase (substring yas-text 0 1)) (substring yas-text 1 (length yas-text))) "")} = value;
     }
-}
+}
diff --git a/snippets/csharp-mode/class b/snippets/csharp-mode/class
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : class ... { ... }
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: class ... { ... }
 # key: class
 # --
 ${5:public} class ${1:Name}

diff --git a/snippets/csharp-mode/comment b/snippets/csharp-mode/comment
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : /// <summary> ... </summary>
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: /// <summary> ... </summary>
 # key: comment
 # --
 /// <summary>

diff --git a/snippets/csharp-mode/comment.1 b/snippets/csharp-mode/comment.1
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : /// <param name="..."> ... </param>
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: /// <param name="..."> ... </param>
 # key: comment
 # --
-/// <param name="$1">$2</param>
+/// <param name="$1">$2</param>
diff --git a/snippets/csharp-mode/comment.2 b/snippets/csharp-mode/comment.2
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : /// <param name="..."> ... </param>
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: /// <param name="..."> ... </param>
 # key: comment
 # --
-/// <returns>$1</returns>
+/// <returns>$1</returns>
diff --git a/snippets/csharp-mode/comment.3 b/snippets/csharp-mode/comment.3
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : /// <exception cref="..."> ... </exception>
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: /// <exception cref="..."> ... </exception>
 # key: comment
 # --
-/// <exception cref="$1">$2</exception>
+/// <exception cref="$1">$2</exception>
diff --git a/snippets/csharp-mode/fore b/snippets/csharp-mode/fore
@@ -1,5 +1,5 @@
-#contributor : Jostein Kjønigsen <jostein@kjonigsen.net>
-#name : foreach { ... }
+# contributor : Jostein Kjønigsen <jostein@kjonigsen.net>
+# name: foreach { ... }
 # key: fore
 # --
 foreach (${1:var} ${2:item} in ${3:list})

diff --git a/snippets/csharp-mode/method b/snippets/csharp-mode/method
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : public void Method { ... }
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: public void Method { ... }
 # key: method
 # --
 /// <summary>

diff --git a/snippets/csharp-mode/namespace b/snippets/csharp-mode/namespace
@@ -1,8 +1,8 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : namespace .. { ... }
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: namespace .. { ... }
 # key: namespace
 # --
 namespace $1
 {
 $0
-}
+}
diff --git a/snippets/csharp-mode/prop b/snippets/csharp-mode/prop
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : property ... ... { ... }
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: property ... ... { ... }
 # key: prop
 # --
 /// <summary>

diff --git a/snippets/csharp-mode/region b/snippets/csharp-mode/region
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : #region ... #endregion
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: #region ... #endregion
 # key: region
 # --
 #region $1

diff --git a/snippets/csharp-mode/using b/snippets/csharp-mode/using
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : using ...;
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: using ...;
 # key: using
 # --
 using $1;
diff --git a/snippets/csharp-mode/using.1 b/snippets/csharp-mode/using.1
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : using System;
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: using System;
 # key: using
 # --
-using System;
+using System;
diff --git a/snippets/csharp-mode/using.2 b/snippets/csharp-mode/using.2
@@ -1,5 +1,5 @@
-#contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
-#name : using System....;
+# contributor : Alejandro Espinoza Esparza <aespinoza@structum.com.mx>
+# name: using System....;
 # key: using
 # --
-using System.$1;
+using System.$1;
diff --git a/snippets/css-mode/bg b/snippets/css-mode/bg
@@ -1,3 +1,3 @@
-#name : background-color: ...
+# name: background-color: ...
 # --
 background-color: #${1:DDD};
diff --git a/snippets/css-mode/bg.1 b/snippets/css-mode/bg.1
@@ -1,3 +1,3 @@
-#name : background-image: ...
+# name: background-image: ...
 # --
-background-image: url($1);
+background-image: url($1);
diff --git a/snippets/css-mode/bor b/snippets/css-mode/bor
@@ -1,3 +1,3 @@
-#name : border size style color
+# name: border size style color
 # --
 border: ${1:1px} ${2:solid} #${3:999};