summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt/css/jakob.css49
-rw-r--r--haunt/projects.scm65
2 files changed, 113 insertions, 1 deletions
diff --git a/haunt/css/jakob.css b/haunt/css/jakob.css
index b2d2ba3..b103089 100644
--- a/haunt/css/jakob.css
+++ b/haunt/css/jakob.css
@@ -241,6 +241,54 @@ figcaption {
padding-right: 8px;
}
+table {
+ border-spacing: 0;
+ border-collapse: collapse;
+}
+
+table > tbody > tr > td,
+table > tbody > tr > th,
+table > tfoot > tr > td,
+table > tfoot > tr > th,
+table > thead > tr > td,
+table > thead > tr > th {
+ padding: 8px;
+ line-height: 1.42857143;
+ vertical-align: top;
+ border-top: 1px solid #ddd;
+}
+
+.info {
+ background-color: #5bc0de;
+}
+
+.good {
+ background-color: #5cb85c;
+ border-color: #4cae4c;
+}
+
+.okay {
+ background-color: #ec971f;
+ border-color: #d58512;
+}
+
+.bad {
+ background-color: #dc3545;
+}
+
+.label {
+ display: inline;
+ padding: .3em .6em .3em;
+ font-size: 75%;
+ font-weight: 700;
+ line-height: 1;
+ color: #fff;
+ text-align: center;
+ white-space: nowrap;
+ vertical-align: baseline;
+ border-radius: .25em;
+}
+
/* Webmention */
ul#webmention-container {
@@ -249,6 +297,7 @@ ul#webmention-container {
ul#webmention-container img.u-photo {
width: 4rem;
+ padding: 1rem;
float: left;
}
diff --git a/haunt/projects.scm b/haunt/projects.scm
index db5b1fa..5951913 100644
--- a/haunt/projects.scm
+++ b/haunt/projects.scm
@@ -14,5 +14,68 @@
;;; along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.
+(define %software-projects
+ '(("Brisket" "Active"
+ "https://git.sr.ht/~jakob/brisket"
+ ("Primitive newsreader script for interacting with NNTP servers."))
+ ("Mines" "Dormant"
+ "https://git.sr.ht/~jakob/mines"
+ ("Android implementation of the classic video game \"Minesweeper\"."))
+ ("Rebuild" "Dormant"
+ "https://git.sr.ht/~jakob/rebuild"
+ ("An attempt at reimplementing Ken Silverman's Build engine, with the goal of being modular enough to host a modern Blood source port."))
+ ("wildmidi" "Dormant"
+ "https://git.sr.ht/~jakob/wildmidi"
+ ("A simple [Rust] wrapper around the WildMIDI software synthesizer library."))
+ ("Slime the World" "Finished"
+ "https://git.sr.ht/~jakob/slime-the-world"
+ ("My entry for the 2018 Autumn Lisp Game Jam; a game about covering everything in slime."))
+ ("Nekopack" "Finished"
+ "https://git.sr.ht/~jakob/nekopack"
+ ("Tool for extracting game data from Nekopara's XP3 archives."))
+ ("skullfuck" "Finished"
+ "https://git.sr.ht/~jakob/skullfuck"
+ ("Optimizing compiler for Brainfuck, contained in a single C source file."))
+ ("Hypodermic" "Abandoned"
+ "https://git.sr.ht/~jakob/hypodermic"
+ ("Proof-of-concept shared object injector that will eventually be integrated with PINCE."))
+ ("Duke on FluidSynth" "Abandoned"
+ "https://git.sr.ht/~jakob/duke-on-fluidsynth"
+ ("Experimental FluidSynth MIDI driver for EDuke32."))))
+
+(define %software-contributions
+ '(("Haiku" "Finished"
+ "https://www.haiku-os.org/"
+ ("The Haiku operating system."
+ (ul (li (a (@ (href "https://git.haiku-os.org/haiku/commit/?id=354e11bf3cd4a94129df894eea3b34ac6241bbb5"))
+ " 354e11b: Add mime_db entry for application/vnd.apple.mpegurl (M3U)"))
+ (li (a (@ (href "https://git.haiku-os.org/haiku/commit/?id=0f856497bd2dd397024df14997f1bed4a514de04"))
+ "0f85649: mediaplayer: Implement AppendM3uToPlaylist")))))))
+
+(define %packaging-projects
+ '(("zerodaysfordays" "Active"
+ "https://git.sr.ht/~jakob/zerodaysfordays"
+ ("My personal Gentoo ebuild overlay."))))
+
+(define (project name status link description)
+ (let ((status-class (cond ((string= status "Active") "info")
+ ((string= status "Finished") "good")
+ ((string= status "Dormant") "okay")
+ ((string= status "Abandoned") "bad")
+ (else "info"))))
+ (display status-class)
+ `(tr (td (a (@ (href ,link)) ,name))
+ (td (span (@ (class ,(string-append "label " status-class))) ,status))
+ (td ,@description))))
+
+(define (project-section name projects)
+ `((h2 ,name)
+ (table
+ (tbody
+ ,@(map (lambda (args) (apply project args)) projects)))))
+
`((h2 "Projects")
- (p "I'm still in the process of putting things together, so this page is a bit empty."))
+ (p "I'm still in the process of putting things together, so this page is a bit empty.")
+ ,@(project-section "Software I Maintain" %software-projects)
+ ,@(project-section "Packaging" %packaging-projects)
+ ,@(project-section "Software I've Contributed To" %software-contributions))