Script does a good job

Author: ludwigpacifici

README.md

@@ -6,9 +6,13 @@ Original idea from [Tommy Bennett](https://github.com/tommybennett). It's a port
 
 ## Usage ##
 
-FIXME: explanation
+Build it with Leiningen:
 
-    $ java -jar algorithm-mnemonics-emacs-0.1.0-standalone.jar [args]
+    lein uberjar
+
+Create the snippets
+
+    $ java -jar algorithm-mnemonics-emacs-0.1.0-standalone.jar -p <path_to_write_snippets>
 
 ## Bugs ##
 

project.clj

@@ -1,9 +1,10 @@
-(defproject algorithm-mnemonics-emacs "0.1.0-SNAPSHOT"
-  :description "FIXME: write description"
-  :url "http://example.com/FIXME"
+(defproject algorithm-mnemonics-emacs "0.1.0"
+  :description "Algorithm Mnemonics: Increase Productivity with STL Algorithms."
+  :url "https://github.com/ludwigpacifici/algorithm-mnemonics-emacs"
   :license {:name "GNU General Public License Version 3, 29 June 2007"
             :url "https://www.gnu.org/licenses/gpl-3.0.en.html"}
-  :dependencies [[org.clojure/clojure "1.8.0"]]
+  :dependencies [[org.clojure/clojure "1.8.0"]
+                 [org.clojure/tools.cli "0.3.5"]]
   :main ^:skip-aot algorithm-mnemonics-emacs.core
   :target-path "target/%s"
   :profiles {:uberjar {:aot :all}})

src/algorithm_mnemonics_emacs/core.clj

@@ -1,13 +1,17 @@
 (ns algorithm-mnemonics-emacs.core
   (:require [clojure.xml :as xml]
-            [clojure.string :as str])
+            [clojure.string :as str]
+            [clojure.tools.cli :as cli])
   (:gen-class))
 
-(def url "https://raw.githubusercontent.com/tommybennett/algorithm-mnemonics/master/algorithm_mnemonics.xml")
+(def cli-options
+  [["-p" "--path PATH" "Path to write the snippets"
+    :default "./"]
+   ["-f" "--file FILE" "XML file to read. Can be a local file or an URL."
+    :default "https://raw.githubusercontent.com/tommybennett/algorithm-mnemonics/master/algorithm_mnemonics.xml"]
+   ["-h" "--help"]])
 
-(def directory "c++-algorithm/")
-
-(defn -parse [s]
+(defn- parse [s]
   (xml/parse
    (java.io.ByteArrayInputStream. (.getBytes s))))
 
@@ -19,25 +23,65 @@
   "C++ code of the mnemonic"
   (get-in mnemonic [:content 0 :content 0]))
 
-(defn- snippet-write [filename snippet]
-  "Write the snippet <str> in a file <filenamed>"
-  (spit (str directory filename) snippet))
+(defn- snippet-write [filename snippet directory]
+  "Write the snippet <str> in a file <filename>"
+  (let [path (str directory filename)]
+    (println "Writting snippet in " path)
+    (spit path snippet)))
 
 (defn- snippet-data [name code]
   (str "# -*- mode: snippet -*-\n"
        "# name: " name "\n"
        "# key: " name "\n"
+       "# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>\n"
        "# --"
-       code))
+       code
+       "$0\n"))
+
+(defn- sanitize [code]
+  (-> code
+      (str/replace "\t" "")
+      (str/replace #"(\(|\{|\[) +" "$1")
+      (str/replace #" +(\)|\}|\])" "$1")))
 
-(defn- snippet [mnemonic]
+(defn- convert-placeholders [code]
+  (-> code
+      (str/replace-first "%\\m C%" "${1:container}")
+      (str/replace "%\\m C%" "$1")
+      (str/replace-first "%\\c" "$2")
+      (str/replace-first "%\\c" "$3")
+      (str/replace-first "%\\c" "$4")
+      (str/replace-first "%\\c" "$5")
+      (str/replace-first "%\\c" "$6")
+      (str/replace-first "%\\c" "$7")
+      (str/replace-first "%\\c" "$8")
+      (str/replace-first "%\\c" "$9")
+      (str/replace-first "%\\c" "$10")))
+
+(defn- snippet [mnemonic directory]
   (let [name (snippet-name mnemonic)
-        code (str/replace (snippet-code mnemonic) "\t" "")]
-    (snippet-write name (snippet-data name code))))
+        code (-> (snippet-code mnemonic)
+                 sanitize
+                 convert-placeholders)]
+    (snippet-write name (snippet-data name code) directory)))
+
+(defn- do-it [path file]
+  (let [raw-mnemonics (parse (slurp file))
+        mnemonics (get-in raw-mnemonics [:content])
+        directory (-> (str path "/")
+                      str/trim
+                      (str/replace "//" "/"))]
+    (.mkdir (java.io.File. directory))
+    (doseq [m mnemonics] (snippet m directory))
+    (println (count mnemonics) "generated snippets")))
 
 (defn -main
   "Convert the algorithm mnemonic XML file to YASnippet files"
   [& args]
-  (let [mnemonics (parse (slurp url))]
-    (.mkdir (java.io.File. "c++-algorithm"))
-    (map snippet (get-in mnemonics [:content]))))
+  (let [options (cli/parse-opts args cli-options)
+        help (get-in options [:options :help])
+        file (get-in options [:options :file])
+        path (get-in options [:options :path])]
+    (if help
+      (println (:summary options))
+      (do-it path file))))

test/acl

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: acl
+# key: acl
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto sum = std::accumulate(begin(${1:container}), end($1), 0, [](int total, $2) {
+  $3
+});
+$0

test/acm

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: acm
+# key: acm
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto sum = std::accumulate(begin(${1:container}), end($1), 0);
+$0

test/ajf

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: ajf
+# key: ajf
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::adjacent_find(begin(${1:container}), end($1));
+if (pos != end($1)) {
+        $2
+}
+$0

test/alo

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: alo
+# key: alo
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+if (std::all_of(begin(${1:container}), end($1), []($2) {
+  $3
+})) {
+  $4
+}
+$0

test/ano

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: ano
+# key: ano
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+if (std::any_of(begin(${1:container}), end($1), []($2) {
+  $3
+})) {
+  $4
+}
+$0

test/cni

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: cni
+# key: cni
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto n = std::count_if(begin(${1:container}), end($1), []($2) {
+  $3
+});
+$0

test/cnt

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: cnt
+# key: cnt
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto n = std::count(begin(${1:container}), end($1), $2);
+$0

test/cpb

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: cpb
+# key: cpb
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::copy_backward(begin(${1:container}), end($1), end($1));
+$0

test/cpi

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: cpi
+# key: cpi
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::copy_if(begin(${1:container}), end($1), begin($2),
+[]($3) {
+        $4
+});
+$0

test/cpn

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: cpn
+# key: cpn
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::copy_n(begin(${1:container}), $2, end($1));
+$0

test/cpy

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: cpy
+# key: cpy
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::copy(begin(${1:container}), end($1), begin($2));
+$0

test/eql

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: eql
+# key: eql
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+if (std::equal(begin(${1:container}), end($1), begin($2))) {
+  $3
+}
+$0

test/erm

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: erm
+# key: erm
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+${1:container}.erase(std::remove(begin($1), end($1), $2), end($1));
+$0

test/ffo

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: ffo
+# key: ffo
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::find_first_of(begin(${1:container}), end($1),
+  begin($2), end($3));
+if (pos != end($1)) {
+  $4
+}
+$0

test/fil

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: fil
+# key: fil
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::fill(begin(${1:container}), end($1), $2);
+$0

test/fin

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: fin
+# key: fin
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::find_if_not(begin(${1:container}), end($1),[]($2) {
+  $3
+});
+if (pos != end($1)) {
+  $4
+}
+$0

test/fln

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: fln
+# key: fln
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::fill_n(begin(${1:container}), $2, $3);
+$0

test/fnd

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: fnd
+# key: fnd
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::find(begin(${1:container}), end($1), $2);
+if (pos != end($1)) {
+  $3
+}
+$0

test/fne

@@ -0,0 +1,11 @@
+# -*- mode: snippet -*-
+# name: fne
+# key: fne
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::find_end(begin(${1:container}), end($1),
+  begin($2), end($3));
+if (pos != end($1)) {
+  $4
+}
+$0

test/fni

@@ -0,0 +1,12 @@
+# -*- mode: snippet -*-
+# name: fni
+# key: fni
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::find_if(begin(${1:container}), end($1), []($2) {
+  $3
+});
+if (pos != end($1)) {
+  $4
+}
+$0

test/fre

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: fre
+# key: fre
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::for_each(begin(${1:container}), end($1), []($2) {
+  $3
+});
+$0

test/gnn

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: gnn
+# key: gnn
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::generate_n(begin(${1:container}), $2, []($3) {
+  $4
+});
+$0

test/gnr

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: gnr
+# key: gnr
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+std::generate(begin(${1:container}), end($1), []($2) {
+  $3
+});
+$0

test/ihp

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: ihp
+# key: ihp
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+if (std::is_heap(begin(${1:container}), end($1))) {
+  $2
+}
+$0

test/ihu

@@ -0,0 +1,10 @@
+# -*- mode: snippet -*-
+# name: ihu
+# key: ihu
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+auto pos = std::is_heap_until(begin(${1:container}), end($1));
+if (pos != end($1)) {
+  $2
+}
+$0

test/ipr

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: ipr
+# key: ipr
+# contributor: Tommy BENNETT and Ludwig PACIFICI <[email protected]>
+# --
+if (std::is_permutation(begin(${1:container}), end($1), begin($2))) {
+  $3
+}
+$0