Commit 0a62f723 authored by Alain M. Lafon's avatar Alain M. Lafon

Readable projects (for links within technology)

parent 19708532
......@@ -150,10 +150,10 @@ https://developers.google.com/speed/pagespeed/insights/?url=http%3A%2F%2F200ok.c
**** TODO Some technologies in =technologies.yml= are only stubs
**** TODO Some technology links on project pages might not resolve, because for example fsbd is not a technology, but a project
**** TODO list projects on technologies
**** TODO allow for 200ok-specific text on technologies
**** TODO link from technologies to projects
**** DONE list projects on technologies
*** PROJECT Migrate hosting
**** TODO Enable rsync instead of =boot-copy=, again
......
......@@ -165,6 +165,7 @@ swiss-crowdfunder:
write us anytime!
wilmaaepg:
name: wilma EPG
people:
- phil
technologies:
......@@ -172,6 +173,7 @@ wilmaaepg:
- google-protocol-buffers
wilmalivestats:
name: Wilma Live Stats
people:
- phil
technologies:
......@@ -180,10 +182,12 @@ wilmalivestats:
- faye
wilmaaautoscaling:
name: Wilma Autoscaling
technologies:
- aws
voicerepublic-mobile:
name: Voice Republic Mobile App
people:
- dibran
technologies:
......@@ -191,6 +195,7 @@ voicerepublic-mobile:
- ionic
voicerepublic-backoffice:
name: Voice Republic Back-Office
people:
- phil
- alain
......@@ -360,6 +365,7 @@ collecture-web:
Page](https://collecture.io/get-started).
quickshift-java:
name: Quickshift Java Back-End
people:
- pascal
- mischa
......
......@@ -23,11 +23,11 @@
[arg]
(let [db (get-in arg [:meta :fsdb :manifest])
projects (sort-projects (-> db :projects))
disclosed (filter :name (-> projects))
disclosed (filter :priority (-> projects))
num-undisclosed (- (count projects) (count disclosed))]
(layout/main arg
[:main.projects
[:h1 "Our projects"]
[:ul.projects-list
(map project (filter #(contains? % :name) projects))]
(map project (filter #(contains? % :name) disclosed))]
[:h3 "and " num-undisclosed " undisclosed."]])))
......@@ -31,11 +31,12 @@
(map (fn [proj]
(if-let [technologies (:technologies (second proj))]
(let [tech-name (clojure.string/lower-case (:name tech))
proj-name (name (first proj))]
proj-key (name (first proj))
proj-name (:name (second proj))]
(when (some #{tech-name} technologies)
[:span.project [:a {:href (str "/project/"
proj-name
".html")} proj-name]]))))
proj-key
".html")} proj-key]]))))
projects)]]])))
......
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