code quality badge

docs/badges.jl

@@ -0,0 +1,53 @@
+using Requests
+
+
+function make_badge_simple(subject::String, status::String, color::String, outfile::String)
+    subject = replace(subject, " ", "%20")
+    url = "https://img.shields.io/badge/$subject-$status-$color.svg"
+    res = get(url)
+    open(outfile, "w") do fid
+        write(fid, res.data)
+    end
+end
+
+"""
+Make badge based on two numbers
+"""
+function make_badge(subject::String, a::Int, b::Int, outfile::String)
+    limits = Float64[100, 80, 60, 40, 20, 0]
+    colors = ["brightgreen", "green", "yellowgreen", "yellow", "orange", "red"]
+    picked_color = "lightgray"
+    perce = a/b*100
+    println("perce: $perce")
+    for (i, limit) in enumerate(limits)
+        if perce >= limit
+            picked_color = colors[i]
+            break
+        end
+    end
+    println("color: $picked_color")
+    message = "$a/$b"
+    make_badge_simple(subject, message, picked_color, outfile)
+end
+
+"""
+Make badge based on one number
+"""
+function make_badge(subject::String, a::Int, outfile::ASCIIString)
+    limits = Float64[0, 20, 40, 60, 80, 100]
+    colors = ["brightgreen", "green", "yellowgreen", "yellow", "orange", "red"]
+    picked_color = "red"
+    for (i, limit) in enumerate(limits)
+        if a <= limit
+            picked_color = colors[i]
+            break
+        end
+    end
+    println("color: $picked_color")
+    a = 100 - a
+    if a < 0
+        a = 0
+    end
+    message = "$a"
+    make_badge_simple(subject, message, picked_color, outfile)
+end

docs/build_lint.jl

@@ -1,11 +1,17 @@
 using Lint
+
+include("badges.jl")
+
 d = lintpkg("JuliaFEM", returnMsgs=true)
 cd(dirname(@__FILE__)) do
+    k = 0
     open("quality/lint_report.rst", "w") do fid
         for i in d
             i = string(i)
             i = i[search(i, "JuliaFEM")[2]-1:end]
             write(fid, "| "*i*"\n")
+            k += 1
         end
     end
-end
+    make_badge("code quality", k, "badges/lint-status.svg")
+end