Commit 3f4b5ecc authored by Jan Moringen's avatar Jan Moringen

excite: organize and extend screenshots

* Organize screenshots into three sections: bundled applications,
  publicly available applications, user screenshots of potentially not
  publicly available applications.

* Add screenshots

  * Inspector (bundled)

  * Debugger (bundled, copied from it7-cap-2017-debugger.png)

  * Flamegraph Viewer (publicly available)
parent 37c38b01
......@@ -30,72 +30,57 @@ format: cl-who
"Andy Hefner" "https://common-lisp.net/project/mcclim/static/media/screenshots/GvziAwP.png")
(:h2 "Screenshots")
(:h3 "Applications bundled with McCLIM")
(:center
(make-screenshot ("Lisp Listener" "https://common-lisp.net/project/mcclim/static/manual/mcclim.html#Listener")
("Lisp Listener Screenshot"
"static/media/screenshots/bundled/listener1-small.jpg"
"static/media/screenshots/bundled/listener1.jpg"))
(make-screenshot ("Debugger" "https://common-lisp.net/project/mcclim/static/manual/mcclim.html#Debugger")
("Debugger Screenshot"
"static/media/screenshots/bundled/debugger-small.png"
"static/media/screenshots/bundled/debugger.png"))
(make-screenshot ("Inspector" "https://common-lisp.net/project/mcclim/static/manual/mcclim.html#Inspector")
("Inspector Screenshot"
"static/media/screenshots/bundled/inspector-small.png"
"static/media/screenshots/bundled/inspector.png"))
(make-screenshot ("Logic Cube")
("Logic Cube Game"
"static/media/screenshots/bundled/logic-cube-small.png"
"static/media/screenshots/bundled/logic-cube.png")))
(:h3 "Screenshots of publicly available applications"
(:center
(make-screenshot ("Gsharp" "http://dept-info.labri.fr/~strandh/Projects/Gsharp/")
("Gsharp Screenshot"
"static/media/screenshots/publicly-available/bach262-small.jpg"
"static/media/screenshots/publicly-available/bach262.jpg"))
(make-screenshot ("TransClime" "https://github.com/robert-strandh/TransClime")
("TransClime Screenshot"
"static/media/screenshots/publicly-available/transclime-small.png"
"static/media/screenshots/publicly-available/transclime.png"))
(make-screenshot ("Flamegraph Viewer" "https://github.com/scymtym/clim.flamegraph")
("Flamegraph Viewer Screenshot"
"static/media/screenshots/publicly-available/clim.flamegraph-small.png"
"static/media/screenshots/publicly-available/clim.flamegraph.png"))))
(:h3 "Screenshots submitted by McCLIM users")
"Note that the following screenshots may depict software that is not publicly available."
(:center
(make-screenshot ("Gsharp" "http://dept-info.labri.fr/~strandh/Projects/Gsharp/")
("Gsharp screenshot"
"static/media/screenshots/bach262-small.jpg"
"static/media/screenshots/bach262.jpg"))
(make-screenshot ("Lisp Listener")
("Lisp Listener screenshot"
"static/media/screenshots/listener1-small.jpg"
"static/media/screenshots/listener1.jpg"))
(make-screenshot ("TransClime" "https://github.com/robert-strandh/TransClime")
("TransClime screenshot"
"static/media/screenshots/transclime-small.png"
"static/media/screenshots/transclime.png"))
(dolist (cap '((#P"static/media/screenshots/0UanxYJ-small.png"
#P"static/media/screenshots/0UanxYJ.png")
(#P"static/media/screenshots/16GtQgU-small.png"
#P"static/media/screenshots/16GtQgU.png")
(#P"static/media/screenshots/1bXLaMM-small.png"
#P"static/media/screenshots/1bXLaMM.png")
(#P"static/media/screenshots/1vcCILs-small.png"
#P"static/media/screenshots/1vcCILs.png")
(#P"static/media/screenshots/2eL0LhQ-small.png"
#P"static/media/screenshots/2eL0LhQ.png")
(#P"static/media/screenshots/6Y42q4t-small.png"
#P"static/media/screenshots/6Y42q4t.png")
(#P"static/media/screenshots/7G9BTn9-small.png"
#P"static/media/screenshots/7G9BTn9.png")
(#P"static/media/screenshots/FseU6K5-small.png"
#P"static/media/screenshots/FseU6K5.png")
(#P"static/media/screenshots/GvziAwP-small.png"
#P"static/media/screenshots/GvziAwP.png")
(#P"static/media/screenshots/HJOgs7G-small.png"
#P"static/media/screenshots/HJOgs7G.png")
(#P"static/media/screenshots/Ius6a3h-small.png"
#P"static/media/screenshots/Ius6a3h.png")
(#P"static/media/screenshots/PKlAYtZ-small.png"
#P"static/media/screenshots/PKlAYtZ.png")
(#P"static/media/screenshots/PlTDdut-small.png"
#P"static/media/screenshots/PlTDdut.png")
(#P"static/media/screenshots/VCQftAd-small.png"
#P"static/media/screenshots/VCQftAd.png")
(#P"static/media/screenshots/XBgJbBH-small.png"
#P"static/media/screenshots/XBgJbBH.png")
(#P"static/media/screenshots/ZISVoOa-small.png"
#P"static/media/screenshots/ZISVoOa.png")
(#P"static/media/screenshots/aCOklQk-small.png"
#P"static/media/screenshots/aCOklQk.png")
(#P"static/media/screenshots/eAelY4L-small.png"
#P"static/media/screenshots/eAelY4L.png")
(#P"static/media/screenshots/eQI0x9n-small.png"
#P"static/media/screenshots/eQI0x9n.png")
(#P"static/media/screenshots/exAj9iR-small.png"
#P"static/media/screenshots/exAj9iR.png")
(#P"static/media/screenshots/fFRQ9r8-small.png"
#P"static/media/screenshots/fFRQ9r8.png")
(#P"static/media/screenshots/kS21tV3-small.png"
#P"static/media/screenshots/kS21tV3.png")
(#P"static/media/screenshots/u68N7VD-small.png"
#P"static/media/screenshots/u68N7VD.png")
(#P"static/media/screenshots/uZ8b71Z-small.png"
#P"static/media/screenshots/uZ8b71Z.png")
(#P"static/media/screenshots/xqucMTs-small.png"
#P"static/media/screenshots/xqucMTs.png")
(#P"static/media/screenshots/z3VCvuD-small.png"
#P"static/media/screenshots/z3VCvuD.png")))
(make-screenshot () ("screenshot" (car cap) (cadr cap)))))))
(dolist (name '("0UanxYJ" "16GtQgU" "1bXLaMM" "1vcCILs" "2eL0LhQ"
"6Y42q4t" "7G9BTn9" "GvziAwP" "HJOgs7G" "Ius6a3h"
"PKlAYtZ" "PlTDdut" "VCQftAd" "XBgJbBH" "ZISVoOa"
"aCOklQk" "eAelY4L" "eQI0x9n" "exAj9iR" "fFRQ9r8"
"kS21tV3" "u68N7VD" "uZ8b71Z" "xqucMTs" "z3VCvuD"))
(let ((directory '(:relative "static" "media" "screenshots"))
(small-name (format nil "~A-small" name)))
(make-screenshot ()
("screenshot"
(make-pathname :name small-name :type "png" :directory directory)
(make-pathname :name name :type "png" :directory directory))))))))
#+ (or)
(defun convert-to-png ((directory #P"/home/jack/Desktop/vintage-digital/"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment