Commit 27154c52 authored by Dave Cooper's avatar Dave Cooper
Browse files

cleaned up tilde files

parent 958dd021
Loading
Loading
Loading
Loading

source/base-page.gdl~

deleted100644 → 0
+0 −32
Original line number Diff line number Diff line
(in-package :clf-site)

(define-object base-page (base-ajax-sheet)

  :input-slots (pages)
  
  :computed-slots
  ((main-sheet-body
    (with-cl-who-string ()
      
      ;; Header section -- common among all pages. 
      ((:header :class "navbar navbar-static-top" :id "top" :role "banner")
       ((:div :class "container")
	((:div :class "col-md-12")
	 (:h1 "The Common Lisp Foundation"))))
      
      ;; Nav section -- common among all pages. 
      ((:div :class "container")
       ((:div :class "col-md-3")
	((:div :id "sidebar")
	 (:h2 "Navigation")
	 (dolist (page (the pages))
	   (htm ((:a :href (theo page url)) (str (theo page strings-for-display))) :br)))))

      ;; Main content section (different for each page).
      (str (the main-content-section main-div)))))

  :objects
  ((main-content-section :type 'sheet-section
			 :inner-html (with-cl-who-string ()
				       "Empty main-content-section."))))

source/board-page.gdl~

deleted100644 → 0
+0 −17
Original line number Diff line number Diff line
(in-package :clf-site)


(define-object contact-page (base-page)

  :computed-slots
  ((main-content
    (with-cl-who-string ()
      (wmd "




")))))


  

source/contact-page.gdl~

deleted100644 → 0
+0 −50
Original line number Diff line number Diff line
(in-package :clf-site)


(define-object contact-page (base-page)

  :computed-slots
  ((main-content
    (with-cl-who-string ()
      (wmd "
* Please Join our Next Meeting

We would like to get more involvement form the CL community in our
monthly meetings. [Contact Us](/contact.html) to request an invite to
our next monthly meeting (usually the first Wednesday of each month).

* About the CL Foundation

Our Purpose, according to our Bylaws, is to promote the use and
development of the Common Lisp programming language as follows:

1. promoting and facilitating meetings, conferences and networking opportunities;

2. promoting the development of de-facto standard functionality for Common Lisp with publicly available source code

3. other allied activities which will be consistent with the
   above-stated aims, as well as anything reasonably connected
   therewith and/or may be instrumental in achieving the stated aim,
   given the broadest application. anything which is connected
   therewith and/or may be beneficial for the above purpose, taken in
   the broadest sense of the word.

Currently, the Foundation is active in administration of a redesigned
[common-lisp.net](http://common-lisp.net) website and associated
services. The Foundation is also managing donations for Common Lisp
related community projects

"))))


  :objects
  ((contact :type 'contact-page
	    :pass-down (pages))
   (payment-policy :type 'payment-policy-page
		   :pass-down (pages))
   (board :type 'board-page
	  :pass-down (pages))))



  

source/index-page.gdl~

deleted100644 → 0
+0 −61
Original line number Diff line number Diff line
(in-package :clf-site)

;;
;; FLAG -- promote to core GDL/GWL.
;;

(defmacro wmd (string)
  `(str
    (with-output-to-string (ss)
      (markdown:markdown ,string :stream ss))))

(define-object index-page (base-page)

  :computed-slots
  ((pages (cons self (the children)))

   (main-content
    (with-cl-who-string ()
      (wmd "
* Please Join our Next Meeting

We would like to get more involvement form the CL community in our
monthly meetings. [Contact Us](/contact.html) to request an invite to
our next monthly meeting (usually the first Wednesday of each month).

* About the CL Foundation

Our Purpose, according to our Bylaws, is to promote the use and
development of the Common Lisp programming language as follows:

1. promoting and facilitating meetings, conferences and networking opportunities;

2. promoting the development of de-facto standard functionality for Common Lisp with publicly available source code

3. other allied activities which will be consistent with the
   above-stated aims, as well as anything reasonably connected
   therewith and/or may be instrumental in achieving the stated aim,
   given the broadest application. anything which is connected
   therewith and/or may be beneficial for the above purpose, taken in
   the broadest sense of the word.

Currently, the Foundation is active in administration of a redesigned
[common-lisp.net](http://common-lisp.net) website and associated
services. The Foundation is also managing donations for Common Lisp
related community projects

"))))


  :objects
  ((contact :type 'contact-page
	    :pass-down (pages))
   (payment-policy :type 'payment-policy-page
		   :pass-down (pages))
   (board :type 'board-page
	  :pass-down (pages))))



  
(publish-gwl-app "/clf-site" 'index-page 

source/initialize.lisp~

deleted100644 → 0
+0 −12
Original line number Diff line number Diff line
(in-package :clf-site)

(defparameter *site-home*
  (make-pathname :name nil :type nil
		 :defaults (probe-file (merge-pathnames "../" (glisp:source-pathname)))))

(defun initialize! ()
  (let ((css-directory (namestring (probe-file (merge-pathnames "css/" *site-home*)))))
    (with-all-servers (server)
      (publish-directory :prefix "/clf-site-css"
			 :server server
			 :destination css-directory))))
Loading