Loading images/yinyang.ico 0 → 100644 +28.9 KiB Loading image diff... source/activities-page.gdl 0 → 100644 +38 −0 Original line number Diff line number Diff line (in-package :clf-site) (define-object activities-page (base-page) :computed-slots ((strings-for-display "Activities") (main-content (with-cl-who-string () (wmd (format nil " Ongoing Foundation Activities ============================= Through volunteer efforts of our [board](~a), [extended board](~a), and [volunteers](~a), the CLF undertakes the following activities: 1. Hosting, maintaining, and updating [this website](~a) through its [gitlab repository](https://gitlab.common-lisp.net/clf/clf-site). 2. Hosting, maintaining, and updating the [common-lisp.net](https://common-lisp.net) website, through its [gitlab repository](https://gitlab.common-lisp.net/clo/cl-site). 3. Hosting, maintaining, and updating a [gitlab instance](https://gitlab.common-lisp.net) and associated CI (Continuous Integration) services. " (the board url) (the board url) (the board url) (the index-page url))))))) source/base-page.gdl +18 −7 Original line number Diff line number Diff line Loading @@ -2,18 +2,25 @@ (define-object base-page (base-ajax-sheet) :input-slots (pages) :input-slots (pages index-page) :computed-slots ((title "The Common Lisp Foundation") (include-default-favicon? nil) (additional-header-content (with-cl-who-string () ((:meta :name "viewport" :content "width=device-width, initial-scale=1")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap.min.css")) :rel "stylesheet" :media "screen")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap-theme.min.css")) :rel "stylesheet" :media "screen")) ((:link :href "http://fonts.googleapis.com/css?family=Roboto+Slab:400,700,100,300" :rel "stylesheet" :type="text/css")) ((:link :href (the (prepend-url-depth "clf-site-css/styles.css")) :rel "stylesheet" :media "screen")) ((:link :rel "icon" :type "image/x-icon" :href "/clf-site-images/yinyang.ico")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap.min.css")) :rel "stylesheet" :media "screen")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap-theme.min.css")) :rel "stylesheet" :media "screen")) ((:link :href "http://fonts.googleapis.com/css?family=Roboto+Slab:400,700,100,300" :rel "stylesheet" :type="text/css")) ((:link :href (the (prepend-url-depth "clf-site-css/styles.css")) :rel "stylesheet" :media "screen")) (:title "Common Lisp Foundation"))) Loading @@ -32,9 +39,13 @@ ((:div :class "container") ((:div :class "col-md-3") ((:div :id "sidebar") (:h2 "Navigation") (:h3 "") (dolist (page (the pages)) (htm ((:a :href (theo page url)) (str (theo page strings-for-display))) :br)))) (if (eql self page) (htm (str (theo page strings-for-display))) (htm ((:a :href (theo page url)) (str (theo page strings-for-display))))) (htm :br)))) ((:div :class "col-md-9") ;; Main content section (different for each page). Loading source/board-page.gdl +2 −2 Original line number Diff line number Diff line Loading @@ -3,11 +3,11 @@ (define-object board-page (base-page) :computed-slots ((main-content ((strings-for-display "Board") (main-content (with-cl-who-string () (wmd " foog Current CLF Board ================= Loading source/contact-page.gdl +2 −1 Original line number Diff line number Diff line Loading @@ -4,7 +4,8 @@ (define-object contact-page (base-page) :computed-slots ((main-content ((strings-for-display "Contact") (main-content (with-cl-who-string () (wmd " Contact the Foundation Loading Loading
source/activities-page.gdl 0 → 100644 +38 −0 Original line number Diff line number Diff line (in-package :clf-site) (define-object activities-page (base-page) :computed-slots ((strings-for-display "Activities") (main-content (with-cl-who-string () (wmd (format nil " Ongoing Foundation Activities ============================= Through volunteer efforts of our [board](~a), [extended board](~a), and [volunteers](~a), the CLF undertakes the following activities: 1. Hosting, maintaining, and updating [this website](~a) through its [gitlab repository](https://gitlab.common-lisp.net/clf/clf-site). 2. Hosting, maintaining, and updating the [common-lisp.net](https://common-lisp.net) website, through its [gitlab repository](https://gitlab.common-lisp.net/clo/cl-site). 3. Hosting, maintaining, and updating a [gitlab instance](https://gitlab.common-lisp.net) and associated CI (Continuous Integration) services. " (the board url) (the board url) (the board url) (the index-page url)))))))
source/base-page.gdl +18 −7 Original line number Diff line number Diff line Loading @@ -2,18 +2,25 @@ (define-object base-page (base-ajax-sheet) :input-slots (pages) :input-slots (pages index-page) :computed-slots ((title "The Common Lisp Foundation") (include-default-favicon? nil) (additional-header-content (with-cl-who-string () ((:meta :name "viewport" :content "width=device-width, initial-scale=1")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap.min.css")) :rel "stylesheet" :media "screen")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap-theme.min.css")) :rel "stylesheet" :media "screen")) ((:link :href "http://fonts.googleapis.com/css?family=Roboto+Slab:400,700,100,300" :rel "stylesheet" :type="text/css")) ((:link :href (the (prepend-url-depth "clf-site-css/styles.css")) :rel "stylesheet" :media "screen")) ((:link :rel "icon" :type "image/x-icon" :href "/clf-site-images/yinyang.ico")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap.min.css")) :rel "stylesheet" :media "screen")) ((:link :href (the (prepend-url-depth "clf-site-css/bootstrap-theme.min.css")) :rel "stylesheet" :media "screen")) ((:link :href "http://fonts.googleapis.com/css?family=Roboto+Slab:400,700,100,300" :rel "stylesheet" :type="text/css")) ((:link :href (the (prepend-url-depth "clf-site-css/styles.css")) :rel "stylesheet" :media "screen")) (:title "Common Lisp Foundation"))) Loading @@ -32,9 +39,13 @@ ((:div :class "container") ((:div :class "col-md-3") ((:div :id "sidebar") (:h2 "Navigation") (:h3 "") (dolist (page (the pages)) (htm ((:a :href (theo page url)) (str (theo page strings-for-display))) :br)))) (if (eql self page) (htm (str (theo page strings-for-display))) (htm ((:a :href (theo page url)) (str (theo page strings-for-display))))) (htm :br)))) ((:div :class "col-md-9") ;; Main content section (different for each page). Loading
source/board-page.gdl +2 −2 Original line number Diff line number Diff line Loading @@ -3,11 +3,11 @@ (define-object board-page (base-page) :computed-slots ((main-content ((strings-for-display "Board") (main-content (with-cl-who-string () (wmd " foog Current CLF Board ================= Loading
source/contact-page.gdl +2 −1 Original line number Diff line number Diff line Loading @@ -4,7 +4,8 @@ (define-object contact-page (base-page) :computed-slots ((main-content ((strings-for-display "Contact") (main-content (with-cl-who-string () (wmd " Contact the Foundation Loading