Commit 4bf7edf4 authored by Dave Cooper's avatar Dave Cooper
Browse files

Added a bit more content, fixed favicon.

parent 00407671
Loading
Loading
Loading
Loading
Loading

images/yinyang.ico

0 → 100644
+28.9 KiB
Loading image diff...
+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)))))))


  
+18 −7
Original line number Diff line number Diff line
@@ -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")))


@@ -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).
+2 −2
Original line number Diff line number Diff line
@@ -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
=================

+2 −1
Original line number Diff line number Diff line
@@ -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