Full new website in production now

11 files changed, 375 insertions, 0 deletions

diff --git a/templates/_defs.scm b/templates/_defs.scm
new file mode 100644
index 0000000..765dc73
--- /dev/null
+++ b/templates/_defs.scm
@@ -0,0 +1,79 @@
+; Global to the file, use (set! lang "lang") to configure in languages
+(define lang "en")
+
+; UTILS -----------------------------------------------------------------------
+(define (anchored-h level title id)
+  `(,(string->symbol (string-append "h" (number->string level)))
+     (@ (id ,id))
+     ,title
+     (a (@ (href ,(string-append "#" id)) (class "anchor")) " ¶" )))
+
+
+(define (absurl-to-lang url)
+  (string-append "/" lang url))
+
+(define (header-link lr text title link active)
+  `(a (@ (class ,(string-append (if active "active " " ")
+                                "navbar-link link-" lr))
+         (href ,link)
+         (title ,title))
+      ,text))
+
+(define (style href)
+  "Make <link> tags to add CSS"
+  `(link (@ (rel "stylesheet")
+            (href ,href))))
+
+(define (md markdown-text)
+  `(@raw ,(md-to-html markdown-text)))
+
+(define (logo-title) `(h1 (@raw ,(file->string "templates/_logo.svg"))))
+
+; BASE ------------------------------------------------------------------------
+(define (base title body)
+  `(html
+    (@ (lang ,lang))
+    (head
+      (meta (@ (charset "utf-8")))
+      (meta (@ (name "viewport")
+               (content "width=device-width, initial-scale=1")))
+      ,(style "/static/css/normalize.css")
+      ,(style "/static/css/style.css")
+      ,(style "/static/css/fonts.css")
+      ,(style "/static/css/extra-style.css")
+      (title ,title))
+    (body ,body)))
+
+
+; HEADER-----------------------------------------------------------------------
+(define (nav-link l)
+  (header-link "left"
+               (cdr (assq 'name l))
+               (cdr (assq 'title l))
+               (cdr (assq 'absurl l))
+               (or (assq 'active l) #f)))
+
+(define (lang-link l)
+  (header-link "right"
+               (cdr (assq 'name l))
+               (cdr (assq 'title l))
+               (cdr (assq 'absurl l))
+               (or (assq 'active l) #f)))
+
+(define (header links langs)
+  `(header
+     (@ (class mainheader))
+     (div (@ (class container))
+          (nav (@ (class navbar))
+               (label (@ (id hamburger-label)
+                         (for "hamburger")
+                         (class "navbar-link link-left")) (@raw "&#9776;"))
+               (input (@ (id "hamburger") (type checkbox)))
+
+               (div (@ (class navbar-contents))
+                    (div (@ (class navbar-left))
+                         ,(map nav-link links))
+
+                    (div (@ (class "navbar-right"))
+                         ,(map lang-link langs)))))))
+
diff --git a/templates/_logo.svg b/templates/_logo.svg
new file mode 100644
index 0000000..c574b25
--- /dev/null
+++ b/templates/_logo.svg
@@ -0,0 +1,8 @@
+<svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 177.165 88.583" height="200" width="300" class="title-image">
+    <g style="line-height:125%">
+      <path d="M14.289 54.201h27.525v-2.7h-24.3v-17.25h20.55v-2.7h-20.55v-15.9h24.3v-2.7H14.289v41.25zm32.666 0h3.225v-41.25h-3.225v41.25zm8.414-14.775c0 11.25 8.7 15.6 16.5 15.6 11.85 0 15.3-4.725 16.05-9.225h-3.6c-.75 1.875-2.175 6-12.45 6-5.925 0-12.45-3.6-12.975-11.025h29.025v-3.225c-.75-10.425-6.45-15.75-16.05-15.75-9.6 0-16.5 7.2-16.5 17.625zm3.675-1.875c1.05-7.875 5.175-12.6 13.125-12.6s11.4 5.1 12.15 12.6H59.044zm34.275 16.65h3.225V28.326c1.575-2.025 5.025-3.225 10.2-3.225 3.6 0 8.1 1.35 8.1 7.65v21.45h3.45v-21.45c0-8.25-6.15-10.95-11.55-10.95-5.55 0-9.075 1.35-10.2 4.05v-3.225h-3.225v31.575zm29.944-20.625c0 11.175 9.3 21.45 20.625 21.45 4.8 0 9.15-1.875 12.675-4.8l4.8 3.975h3.75l-6.6-5.775c3.675-3.975 6-9.3 6-14.85 0-11.1-9.225-21.375-20.625-21.375s-20.625 10.2-20.625 21.375zm3.3 0c0-9.15 7.575-18.3 17.325-18.3s17.325 9.15 17.325 18.3-7.575 18.375-17.325 18.375-17.325-9.225-17.325-18.375z"/>
+    </g>
+    <g style="line-height:125%">
+      <path d="M28.71 64.185h4.038v12.184h1.021V64.185h4.061v-.879h-9.12v.879zm10.606 12.184h8.716v-.855h-7.695V70.05h6.508v-.855h-6.508V64.16h7.695v-.855h-8.716V76.37zm10.225-6.532c0 4.275 1.972 6.793 5.63 6.793 2.802 0 5.153-1.496 5.153-3.634h-1.14c0 1.306-1.568 2.613-4.014 2.613-3.159 0-4.512-3.064-4.512-5.772 0-3.11 1.828-5.77 4.607-5.77 2.423 0 3.919 1.258 3.919 2.683h1.14c0-2.351-2.351-3.681-5.154-3.681-3.895 0-5.629 3.467-5.629 6.768zm12.412 6.532h1.02V70.05h6.508v6.318h1.022V63.306H69.48v5.89h-6.507v-5.89h-1.021V76.37zm10.344 0h1.045V65.254l7.196 11.115h1.021V63.306h-1.02V74.54l-7.197-11.234h-1.045V76.37zm10.897-6.532c0 3.54 2.945 6.793 6.532 6.793 3.586 0 6.53-3.254 6.53-6.793 0-3.515-2.92-6.768-6.53-6.768-3.61 0-6.532 3.23-6.532 6.768zm1.045 0c0-2.897 2.4-5.795 5.487-5.795s5.486 2.898 5.486 5.795c0 2.898-2.399 5.82-5.486 5.82-3.088 0-5.487-2.922-5.487-5.82zm13.616 6.532h7.909v-1.022h-6.888v-12.04h-1.021v13.062zm9.368-6.532c0 3.54 2.945 6.793 6.531 6.793s6.531-3.254 6.531-6.793c0-3.515-2.921-6.768-6.531-6.768s-6.531 3.23-6.531 6.768zm1.045 0c0-2.897 2.398-5.795 5.486-5.795 3.087 0 5.486 2.898 5.486 5.795 0 2.898-2.399 5.82-5.486 5.82-3.088 0-5.486-2.922-5.486-5.82zm13.544 0c0 4.275 1.971 6.793 5.629 6.793 1.638 0 3.087-.523 4.013-1.378v1.117h1.022v-6.413h-5.225v1.021h4.203v2.02c0 1.305-1.567 2.612-4.013 2.612-3.16 0-4.513-3.064-4.513-5.772 0-3.11 1.829-5.77 4.608-5.77 2.422 0 3.918 1.258 3.918 2.683h1.022c0-2.351-2.233-3.681-5.035-3.681-3.895 0-5.63 3.467-5.63 6.768zm12.173-6.531l4.75 7.624v5.439h1.02v-5.44l4.775-7.623h-1.14l-4.133 6.65-4.109-6.65h-1.163z" />
+    </g>
+</svg>
diff --git a/templates/_structure.scm b/templates/_structure.scm
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/templates/_structure.scm
diff --git a/templates/en/_ethics.md b/templates/en/_ethics.md
new file mode 100644
index 0000000..1334b82
--- /dev/null
+++ b/templates/en/_ethics.md
@@ -0,0 +1,13 @@
+We support free knowledge and we consider our clients must have access to
+everything we develop for them so that they can audit and edit it without
+restrictions.  That’s why only deliver **free software and free
+documentation**.
+
+On the other hand, we believe we all have impact in the society so **we
+carefully select the projects we work on**, avoiding projects that we consider
+that don't have a good impact in the society: that are incompatible with human
+rights, abuse vulnerable collectives, etc.
+
+Also, we have a really strong compromise with the free software movement
+because it helps us make our everyday job. For that reason, we spend some of
+our effort supporting free software in terms of funds or development time.
diff --git a/templates/en/_products.md b/templates/en/_products.md
new file mode 100644
index 0000000..0937455
--- /dev/null
+++ b/templates/en/_products.md
@@ -0,0 +1,29 @@
+### R&D: Research and Development
+
+We primarily focus on Research and Development. Our main goal is to push our
+clients forward technologically speaking.
+
+The service is flexible and can focus on research, making reports about
+the state of the art in a certain area or about possible alternatives to solve
+an issue, or can be focused on development, delivering a proof-of-concept, a
+mockup or a fully-featured solution.
+
+Our commitment is to transfer all the knowledge we adquire during the process,
+so our clients are able audit, edit or continue the research in their own. For
+that reason, and following our ethics framework, we deliver everything under
+a free software license.
+
+### Training
+
+We also offer advanced training in computer science, mostly programming, as a
+supplementary service as part of our technological grow model.
+
+The training is aimed to provide our clients a way to improve the technicall
+skills of their teams, make them learn a new technology or make newcomers learn
+the tools and philosophy of the company, among others. In any case, they ease
+to set up a highly-skilled team that deeply understand their job and the tools
+they need.
+
+We focus on the transmission of the technical basis in order to encourage
+critical and independent thinking that serves as a robust basis to keep
+learning and researching.
diff --git a/templates/en/_summary.md b/templates/en/_summary.md
new file mode 100644
index 0000000..1df4753
--- /dev/null
+++ b/templates/en/_summary.md
@@ -0,0 +1,12 @@
+*ElenQ Technology* is a **Research and Development** company. This means we
+learn for you and give you the knowledge back in a way you can use it freely,
+following our [ethics](#ethics).
+
+We also offer **training and engineering** as secondary services, which means
+we can help you with that project that never gets finished because you must
+focus on more important things like clients and maintenance.
+
+Our experience is based on **Software and Electronics** but we also have a
+background on arts, design and other fields. The fact is that we are engineers
+and our main talent is learning anything so don't hesitate to [contact
+us](#contact) if you think we can help you. 
diff --git a/templates/en/index.html b/templates/en/index.html
new file mode 100644
index 0000000..cb09ca4
--- /dev/null
+++ b/templates/en/index.html
@@ -0,0 +1,86 @@
+(define footer
+"
+The content of this website is published under the terms of [Creative Commons
+Attribution Share-Alike 4.0
+International](http://creativecommons.org/licenses/by-sa/4.0/) license unless
+otherwise stated.
+")
+
+(define summary  (file->string "templates/en/_summary.md"))
+(define ethics   (file->string "templates/en/_ethics.md"))
+(define products (file->string "templates/en/_products.md"))
+
+(load "templates/_defs.scm")
+(set! lang "en")
+
+(sxml->xml
+  (base 
+    "ElenQ Technology"
+    `(,(header
+         `(((name . "Technology")
+            (title . "Engineering - ElenQ Technology")
+            (absurl . ,(absurl-to-lang "/index.html"))
+            (active . #t))
+           ((name . "Publishing")
+            (title . "Publishing House - ElenQ Publishing")
+            (absurl . "https://en.goteo.org/project/elenq-publishing")))
+
+         `(((name . "en")
+            (title . "English")
+            (absurl . "/en/")
+            (active . #t))
+           ((name . "es")
+            (title . "Español")
+            (absurl . "/es/"))))
+
+       (div (@ (class "content container"))
+            ,(logo-title)
+
+            (section (@ (class summary))
+                     ,(md summary))
+
+            (section
+              ,(anchored-h 2 "Ethics" "ethics")
+              ,(md ethics))
+
+            (section
+              ,(anchored-h 2 "Products" "products")
+              ,(md products))
+
+            (section
+              ,(anchored-h 2 "Who we are" "who")
+              (p "ElenQ Technology wouldn't be possible without all the people
+                 around it, who support and help us unconditionally. Despite
+                 not being part of ElenQ Technology officially, they deserve
+                 to be mentioned at least in these lines, even if they are not
+                 listed below.")
+              (div (@ (class card))
+                   (div (@ (class card-picture))
+                        (img (@ (src "/static/img/faces/ekaitz.jpg")
+                                (class round))))
+                   (div (@ (class card-data))
+                        (h3 "Ekaitz Zarraga")
+                        (p "Telecommunication engineer (EEE equivalent) by
+                           training, 10 years of experience as a programmer and
+                           a lifetime of R&D, Ekaitz is the one man army of
+                           ElenQ Technology.")
+                           (p "He says his only talent is learning. He founded
+                              ElenQ Technology with the idea of inspiring
+                              others to make a better world helping them with
+                              the difficult task of going out of their comfort
+                              zone.")
+                              (p "He writes about his work at ElenQ Technology "
+                                 (a (@ (href "https://ekaitz.elenq.tech"))
+                                    "in his blog") "."))))
+
+            (section
+              ,(anchored-h 2 "Contact" "contact")
+              (p "Send us an email to: "
+                 (a (@ (href "mailto:hello@elenq.tech")) (em "hello@elenq.tech"))
+                 " "
+                 (a (@ (href "/static/files/publickey.hello@elenq.tech.txt")) "[PGP]"))))
+
+       (footer (@ (class bar-bottom))
+               (div (@ (class "container text-center"))
+                    (h6 "© ElenQ Technology")
+                    ,(md footer))))))
diff --git a/templates/es/_ethics.md b/templates/es/_ethics.md
new file mode 100644
index 0000000..5a24489
--- /dev/null
+++ b/templates/es/_ethics.md
@@ -0,0 +1,16 @@
+Como defensores del conocimiento libre, consideramos que nuestros clientes
+tienen que tener acceso a todo lo que realizamos para ellos con el fin de poder
+auditarlo y editarlo sin ninguna restricción. Por esa razón, únicamente
+**entregamos software y documentación libre**.
+
+Por otro lado, como consideramos que todos tenemos un impacto en la sociedad,
+**seleccionamos de manera estricta en qué proyectos trabajamos** evitando
+apoyar proyectos que consideramos que van a tener un impacto negativo en la
+sociedad: que no cumplen los derechos humanos, que buscan explotar a un grupo
+de personas vulnerable, etc.
+
+Además, estamos comprometidos con el movimiento del software libre, ya que nos
+permite llevar a cabo nuestro trabajo diario. Por ello, dedicamos parte de
+nuestros esfuerzos a colaborar con los proyectos que utilizamos, ya sea de
+forma económica o dedicando nuestro tiempo de desarrollo con el fin de mantener
+el ecosistema vivo y en buen estado.
diff --git a/templates/es/_products.md b/templates/es/_products.md
new file mode 100644
index 0000000..8e1ad29
--- /dev/null
+++ b/templates/es/_products.md
@@ -0,0 +1,31 @@
+### I+D: Investigación y Desarrollo
+
+Como equipo de Investigación y Desarrollo que somos, nos dedicamos
+principalmente a esa tarea. Ofrecemos nuestros servicios como equipo de I+D
+independiente para impulsar tecnológicamente a nuestros clientes.
+
+El servicio es flexible y puede estar más centrado en la investigación,
+redactando informes de análisis de situación, estado del arte o posibles
+alternativas, o en el desarrollo, creando pruebas de concepto, maquetas o
+soluciones que resuelvan los problemas de nuestros clientes.
+
+Hacemos hincapié en una transferencia de real de conocimiento y, siguiendo
+nuestro compromiso ético, realizamos la entrega de todo lo desarrollado con
+licencias libres, para que el cliente sea libre de auditarlo y editarlo a su
+antojo.
+
+
+### Formación
+
+Ofrecemos formaciones avanzadas en el área de la informática, principalmente
+sobre programación como parte de nuestro modelo de impulso tecnológico.
+
+Estas formaciones tienen como objetivo introducir a un equipo de profesionales
+a una tecnología que aún no conocen, actualizar a profesionales o formar a
+recién llegados a conocer la filosofía de la empresa, entre otros. En cualquier
+caso, facilitan la puesta en marcha de equipos eficientes que controlan al
+detalle su trabajo.
+
+Estas formaciones se centran en los fundamentos técnicos con el fin de fomentar
+el pensamiento crítico e independiente creando así una base de conocimientos
+robusta sobre la que seguir avanzando de forma independiente.
diff --git a/templates/es/_summary.md b/templates/es/_summary.md
new file mode 100644
index 0000000..23222ea
--- /dev/null
+++ b/templates/es/_summary.md
@@ -0,0 +1,13 @@
+*ElenQ Technology* es una empresa de **Investigación y Desarrollo**. Lo que
+significa que aprendemos para ti y te damos el conocimiento de vuelta de modo
+que puedas usarlo de forma libre, siguiendo nuestro [compromiso
+ético](#ethics).
+
+También ofrecemos **formación e ingeniería** como servicios secundarios, para poder
+ayudarte con ese proyecto que nunca acaba porque tienes que concentrarte en
+cosas más importantes como el mantenimiento o tratar con los clientes.
+
+Nuestras especialidades son el **Software y la Electrónica** pero también tenemos
+experiencia en el arte, el diseño y otros campos. La verdad es que somos
+ingenieros cuyo mayor talento es aprender, así que no dudes en
+[contactarnos](#contact) si crees que podemos ayudarte. 
diff --git a/templates/es/index.html b/templates/es/index.html
new file mode 100644
index 0000000..463f00d
--- /dev/null
+++ b/templates/es/index.html
@@ -0,0 +1,88 @@
+(define footer
+"
+El contenido de este sitio está publicado bajo los términos de la licencia
+[Cretive Commons Atribución Compartir-Igual 4.0
+Internacional](http://creativecommons.org/licenses/by-sa/4.0/) a no
+ser que se especifique lo contrario.
+")
+
+(define summary  (file->string "templates/es/_summary.md"))
+(define ethics   (file->string "templates/es/_ethics.md"))
+(define products (file->string "templates/es/_products.md"))
+
+(load "templates/_defs.scm")
+(set! lang "es")
+
+(sxml->xml
+  (base 
+    "ElenQ Technology"
+    `(,(header
+       `(((name . "Technology")
+          (title . "Ingeniería - ElenQ Technology")
+          (absurl . ,(absurl-to-lang "/index.html"))
+          (active . #t))
+         ((name . "Publishing")
+          (title . "Editorial - ElenQ Publishing")
+          (absurl . "https://www.goteo.org/project/elenq-publishing")))
+
+       `(((name . "en")
+          (title . "English")
+          (absurl . "/en/"))
+         ((name . "es")
+          (title . "Español")
+          (absurl . "/es/")
+          (active . #t))))
+
+
+      (div (@ (class "content container"))
+
+           ,(logo-title)
+
+           (section (@ (class summary))
+             ,(md summary))
+
+           (section
+             ,(anchored-h 2 "Compromiso ético" "ethics")
+             ,(md ethics))
+
+           (section
+             ,(anchored-h 2 "Qué ofrecemos" "products")
+             ,(md products))
+
+           (section
+             ,(anchored-h 2 "Quiénes somos" "who")
+             (p "ElenQ Technology no sería posible sin nuestros colaboradores,
+                personas de diferentes áreas que nos apoyan y nos ayudan en
+                nuestro trabajo. A pesar de no formar parte oficial de ElenQ
+                Technology, merecen ser mencionados, aunque no se listen a
+                continuación.")
+             (div (@ (class card))
+                  (div (@ (class card-picture))
+                       (img (@ (src "/static/img/faces/ekaitz.jpg")
+                               (class round))))
+                  (div (@ (class card-data))
+                       (h3 "Ekaitz Zarraga")
+                       (p "Ingeniero de Telecomunicaciones de formación, con
+                          alrededor de 10 años de experiencia como programador
+                          y toda una vida dedicada al I+D, Ekaitz es el hombre
+                          orquesta de ElenQ Technology.")
+                       (p "Suele decir que su único talento es aprender.  Fundó
+                          ElenQ Technology con la idea de inspirar a otros a
+                          hacer del mundo un lugar mejor, ayudándoles con la
+                          difícil tarea de salir a visitar territorio
+                          desconocido.")
+                       (p "Escribe sobre su trabajo en ElenQ Technology "
+                           (a (@ (href "https://ekaitz.elenq.tech"))
+                              "en su blog") "."))))
+
+           (section
+             ,(anchored-h 2 "Contacto" "contact")
+             (p "Escríbenos a: "
+                (a (@ (href "mailto:hello@elenq.tech")) (em "hello@elenq.tech"))
+                " "
+                (a (@ (href "/static/files/publickey.hello@elenq.tech.txt")) "[PGP]"))))
+
+      (footer (@ (class bar-bottom))
+              (div (@ (class "container text-center"))
+                   (h6 "© ElenQ Technology")
+                   ,(md footer))))))