...
  View open merge request
Commits (3)
......@@ -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
......
......@@ -326,6 +326,10 @@ h1 {
.description {
text-align: left;
}
.project-claim {
margin-bottom: 1em;
}
}
.services {
......@@ -695,7 +699,7 @@ section.author + section.author:before {
max-width: 10rem;
}
.tech {
.tech, .project {
padding-right: 1em;
}
......
......@@ -165,13 +165,15 @@ swiss-crowdfunder:
write us anytime!
wilmaaepg:
name: Wilmaa EPG
people:
- phil
technologies:
- ruby-on-rails
- google-protocol-buffers
wilmalivestats:
wilmaalivestats:
name: Wilmaa Live Stats
people:
- phil
technologies:
......@@ -180,10 +182,12 @@ wilmalivestats:
- faye
wilmaaautoscaling:
name: Wilmaa 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
......
......@@ -3,9 +3,6 @@
[ok.shared :as shared]
[clojure.pprint :refer [pprint]]))
(defn- html-comment [text]
(str "<!--" text "-->"))
(defn page
[{:keys [entry meta]}]
(let [proj-key (keyword (:short-filename entry))
......@@ -17,7 +14,7 @@
(shared/back-arrow) "Projects"]
[:div.project
(html-comment proj)
(shared/html-comment proj)
[:h1 (:name proj)]
......
......@@ -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."]])))
(ns ok.data.technology
(:require [ok.layout :as layout]
[ok.shared :as shared]
[clojure.pprint :refer [pprint]]))
(defn- html-comment [text]
(str "<!--" text "-->"))
[ok.shared :as shared]))
(defn page
[{:keys [entry meta]}]
(let [tech-key (keyword (:short-filename entry))
tech (-> meta :fsdb :manifest :technologies tech-key)]
tech (-> meta :fsdb :manifest :technologies tech-key)
projects (-> meta :fsdb :manifest :projects)]
(layout/main (first meta)
[:main.technology-wrapper
[:a.back-tech {:href "/technologies.html"}
(shared/back-arrow) "Technologies"]
(shared/back-arrow) "Technologies"]
[:div.technology
(html-comment tech)
(if-let [logo (:logo tech)]
[:img {:src (str "/img/technologies/" logo)}])
(shared/html-comment tech)
(if-let [logo (:logo tech)]
[:img {:src (str "/img/technologies/" logo)}])
[:h1 (:name tech)]
[:h1 (:name tech)]
(if-let [url (:url tech)]
[:a {:href url} url])
(if-let [url (:url tech)]
[:a {:href url} url])
(if-let [text (:description tech)]
(shared/md2html text))]])))
(if-let [text (:description tech)]
(shared/md2html text))
[:div
[:h2 "Projects"]
[:div.project-claim "We use " (:name tech) " in the following projects: "]
(map (fn [proj]
(if-let [technologies (:technologies (second proj))]
(let [tech-name (clojure.string/lower-case (:name tech))
proj-key (name (first proj))
proj-name (:name (second proj))]
(when (some #{tech-name} technologies)
[:span.project [:a {:href (str "/project/"
proj-key
".html")} proj-key]]))))
projects)]]])))
;; Ideas
;;
;; * similar technologies (same category)
;; * we usually combine it with (via projects)
;; * sample projects making use of that technology
;; * services we provide employeing this technology
;; * next technology (tour)
;; * random other technology
......@@ -7,6 +7,9 @@
(map md-to-html-string
(clojure.string/split text #"\n")))
(defn html-comment [text]
(str "<!--" text "-->"))
(defn back-arrow []
[:svg#back-arrow {:x "0px", :y "0px", :viewbox "0 0 30 30"}
[:path {:d "M26.5,11.5H12.7l4.1-4.1c1.3-1.3,1.3-3.4,0-4.7c-1.3-1.3-3.4-1.3-4.7,0l-12,12c-0.2,0.2-0.2,0.5,0,0.7l12,12\n\tc0.6,0.6,1.5,1,2.4,1s1.7-0.3,2.4-1c1.3-1.3,1.3-3.4,0-4.7l-4.1-4.1h13.8c1.9,0,3.5-1.6,3.5-3.5S28.4,11.5,26.5,11.5z"}]])