Automatically generate badges from using commands in file

Author: abelsiqueira

config.md

@@ -27,4 +27,13 @@ For instance:
 * \newcommand{\phrase}{This is a long phrase to copy.}
 -->
 \newcommand{\R}{\mathbb R}
-\newcommand{\scal}[1]{\langle #1 \rangle}
+\newcommand{\scal}[1]{\langle #1 \rangle}
+\newcommand{\preamble}[1]{
+  # {{ title }}
+
+  @@author
+  by #1
+  @@
+
+  {{ list_versions }}
+}

pages/how-to/create-a-manual-model.md

@@ -2,10 +2,6 @@
 @def showall = true
 @def tags = ["solvers", "NLPModels", "ManualNLPModels"]
 
-# {{title}}
-
-@@author
-by Abel S. Siqueira
-@@
+\preamble{Abel S. Siqueira}
 
 \literate{/_literate/how-to/create-a-manual-model.jl}

pages/how-to/solve-an-optimization-problem-with-ipopt.md

@@ -2,12 +2,6 @@
 @def showall = true
 @def tags = ["solvers", "NLPModelsIpopt", "ADNLPModels", "NLPModelsJuMP"]
 
-# {{title}}
-
-@@author
-by Abel S. Siqueira
-@@
-
-{{ list_versions ADNLPModels NLPModelsIpopt NLPModelsJuMP }}
+\preamble{Abel S. Siqueira}
 
 \literate{/_literate/how-to/solve-an-optimization-problem-with-ipopt.jl}

pages/tutorials/creating-a-jso-compliant-solver.md

@@ -1,13 +1,7 @@
 @def title = "Creating a JSO-compliant solver"
 @def showall = true
-@def tags = ["models", "solvers", "NLPModels", "SolverCore", "ADNLPModels", "JSOSolvers", "SolverBenchmark"]
+@def tags = ["models", "solvers", "NLPModels", "SolverCore", "SolverBenchmark"]
 
-# {{title}}
-
-@@author
-by Abel S. Siqueira and João Okimoto
-@@
-
-{{ list_versions ADNLPModels JSOSolvers LinearAlgebra NLPModels Plots SolverBenchmark SolverCore }}
+\preamble{Abel S. Siqueira and João Okimoto}
 
 \literate{/_literate/tutorials/creating-a-jso-compliant-solver.jl}

pages/tutorials/introduction-to-linear-operators.md

@@ -2,12 +2,6 @@
 @def showall = true
 @def tags = ["linear-algebra", "LinearOperators"]
 
-# {{title}}
-
-@@author
-by Geoffroy Leconte and Dominique Orban
-@@
-
-{{ list_versions LinearOperators FFTW}}
+\preamble{Geoffroy Leconte and Dominique Orban}
 
 \literate{/_literate/tutorials/introduction-to-linear-operators.jl}

utils.jl

@@ -1,26 +1,48 @@
 using Pkg, Markdown
 
-const jso_pkgs = ["ADNLPModels", "JSOSolvers", "LinearOperators", "NLPModels", "NLPModelsIpopt", "NLPModelsJuMP", "SolverBenchmark", "SolverCore", "SolverTools"]
+function installed()
+  deps = Pkg.dependencies()
+  installs = Dict{String, Any}()
+  for (_, dep) in deps
+    dep.is_direct_dep || continue
+    installs[dep.name] = dep.version
+  end
+  return installs
+end
+
+const jso_pkgs = ["ADNLPModels", "JSOSolvers", "LinearOperators", "ManualNLPModels", "NLPModels", "NLPModelsIpopt", "NLPModelsJuMP", "SolverBenchmark", "SolverCore", "SolverTools"]
 
 function badge(name, version)
   color, lbl_color = if name in jso_pkgs
     h = div(360 * findfirst(name .== jso_pkgs), length(jso_pkgs))
     "hsl($h,100%25,30%25)", "hsl($h,30%25,30%25)"
-  else
+  elseif version == "STDLIB"
     "666", "444"
+  else
+    "666", "999"
   end
 
   "<img class=\"badge\" src=\"https://img.shields.io/badge/$name-$version-$color?style=flat-square&labelColor=$lbl_color\">"
 end
 
-function hfun_list_versions(pkgs)
-  dict = Pkg.installed()
+function hfun_list_versions()
+  lt_file = "_literate" * locvar("fd_rpath")[6:end-2] * "jl"
+  lines = readlines(lt_file)
+  pkgs = String[]
+  for line in lines
+    if match(r"^using", line) !== nothing
+      sline = split(line[7:end], ", ")
+      append!(pkgs, sline)
+    end
+  end
+  pkgs = unique(sort(pkgs))
+  dict = installed()
   out = ""
   for pkg in pkgs
     if haskey(dict, pkg)
       out *= badge(pkg, dict[pkg]) * "\n"
-    else
-      out *= badge(pkg, "stdlib") * "\n"
+    elseif pkg in readdir(Base.Sys.STDLIB)
+      out *= badge(pkg, "STDLIB") * "\n"
     end
   end
   out