Merge pull request #307 from AndreaCrotti/reporting

Reporting

Author: AndreaCrotti

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"])

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"))

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

snippets/c++-mode/ns

@@ -1,4 +1,4 @@
-#name : namespace ...
+# name: namespace ...
 # key: ns
 # --
 namespace 

snippets/c++-mode/using

@@ -1,4 +1,4 @@
-#name : using namespace ... 
+# name: using namespace ... 
 # key: using
 # --
 using namespace ${std};

snippets/c-lang-common/inc

@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : #include <...>
+# name: #include <...>
 # key  : incs
 # --
 #include <$1>

snippets/c-lang-common/inc.1

@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
-# name : #include "..."
+# name: #include "..."
 # key  : incl
 # --
 #include "$1"

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}

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))
 # --

snippets/cc-mode/do

@@ -1,4 +1,4 @@
-#name : do { ... } while (...)
+# name: do { ... } while (...)
 # key: do
 # --
 do