Commit 58e6c04c authored by Dave Cooper's avatar Dave Cooper
Browse files

try to get this to crawl.

need to add roles & responsibilities doc
parent 3162e56f
Loading
Loading
Loading
Loading
Loading
+21 −11
Original line number Diff line number Diff line
@@ -3,23 +3,33 @@
;;
;; load and/or install quicklisp in dcooper
;;
(cond ((find-package :quicklisp))
      ((probe-file "/home/dcooper/quicklisp/setup.lisp")
       (load "/home/dcooper/quicklisp/setup.lisp"))
      (t (sb-ext:run-program "/usr/bin/curl" (list "-O" "https://beta.quicklisp.org/quicklisp.lisp"))
         (load "quicklisp.lisp")


(unless (find-package :quicklisp)
  (if (probe-file "/home/dcooper8/quicklisp/setup.lisp")
      (load "/home/dcooper8/quicklisp/setup.lisp")
      (progn
        (sb-ext:run-program "/usr/bin/curl" (list "https://beta.quicklisp.org/quicklisp.lisp"
                                                  "-o"
                                                  "/home/dcooper8/quicklisp.lisp"))
        (load "/home/dcooper8/quicklisp.lisp")
        (funcall (read-from-string "quicklisp-quickstart:install"))
         (probe-file "./quicklisp/setup.lisp")))
        (probe-file "./quicklisp/setup.lisp"))))

(pushnew (make-pathname :defaults *load-truename* :name nil :type nil)
	 quicklisp:*local-project-directories* :test #'equalp)

(ql:register-local-projects)

(ql:quickload :clf-site)
(ql:quickload :zaserve)

;;
;; Following stuff temporary until quicklisp updates its zaserve.
;;

(in-package :clf-site)
(ql:quickload :clf-site)

(in-package :gwl-user)

(defun make-site ()
  (gendl:start-gendl!)
@@ -30,9 +40,9 @@

    (let ((current *developing?*))
      (setq *developing?* nil)
      (gwl:crawl :url-path "/clf-site" :port port :output-root output-root)
      (gwl:crawl :url-path "/clf" :port port :output-root output-root)
      (setq *developing?* current))))

(clf-site::initialize!)
(make-site)

+11 −13
Original line number Diff line number Diff line
@@ -4,10 +4,8 @@
  "The Gendl® clf-site Subsystem" :author "Genworks International"
  :license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
  :serial t :version "20200304" :depends-on
 (:gwl :cl-markdown #-allegro :cl-html-parse)
 #-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings :gendl-asdf)
 #+asdf-unicode :defsystem-depends-on #+asdf-unicode (:gendl-asdf)
 #+asdf-encodings :encoding #+asdf-encodings :utf-8
  (:gendl :cl-markdown #-allegro :cl-html-parse)
  :defsystem-depends-on (:gendl-asdf)
  :components
  ((:file "source/patches") (:file "source/package")
   (:gdl "source/activities-page") (:gdl "source/base-page")

roles.md

0 → 100644
+105 −0
Original line number Diff line number Diff line


# Foundation Roles & Responsibilities

## Chairperson

 - Prepares agenda for monthly Board meetings and for annual
   Stakeholder/Community meetings.
   
 - Conducts monthly Board meetings and annual meeting. 
 
 - Communicates with Working Committees to resolve issues that arise
   between meetings.
   
 - Reviews and negotiates all contracts. 
 
 - Reviews and approves all non-routine correspondences and
   newsletters.
   
 - Represents Foundation in any legal matters. 
 
 - Reviews Financial information on a monthly basis.
 
 - Works with Treasurer on budget and other financial issues. 
 
 - Approves Invoices and other payments per Foundation Payment Policies. 
 
 - Delegates responsibilities to Working Committees and Board members. 
 
 - Suggests and implements policies and procedures approved by the Board. 
 
 - Conducts periodic inspections of Foundation infrastructure and any
   other facilities and recommends maintenance and improvements. 
   
 - Mediates any disputes involving Working Committees, Board, and
   Stakeholders.
   
 - Assists other Board members with inspection of Working Committees
   performance.
   
## Vice Chair / Treasurer

 - Handles Chairperson's responsibilities in his or her absence. 
 
 - Takes minutes at meetings in Secretary's absence. 
 
 - Reviews Financial information on a monthly basis.
 
 - Reports to the Board regarding financial status on a quarterly
   basis.
   
 - Approves invoices and other payments per Foundation payment
   procedure in Chairperson's absence or unavailability.
   
 - Prepares draft of annual budget for presentation to the Board in
   October and recommends adjustments in membership dues or other
   pricing.
   
 - Investigates and recommends cost saving measures. 
 
 - Conducts periodic inspections of Foundation infrastructure and any
   other facilities and recommends maintenance and improvements. 

 - Mediates any disputes involving the Chairperson. 
 
 
## Secretary

 - Prepares minutes of each meeting.
 
 - Drafts all non-routine correspondence for review by Chairperson and
   distribution by respective Working Committee.
   
 - Conducts periodic inspections of Foundation infrastructure and any
   other facilities and recommends maintenance and improvements. 


## Director A

 - Responsible for Winter (January-February) and Fall
   (September-October) Newsletters. 
   
 - Suggests topics for articles in December and August.
 
 - Writes articles and/or works with other board members, Working
   Committees, and stakeholders to write articles.
   
 - Distributes routine correspondences with help from Working
   Committees.
   
 - Conducts periodic inspections of Foundation infrastructure and any
   other facilities and recommends maintenance and improvements. 


## Director B

 - Responsible for Domain Name registration and maintenance with
   possible help from Working Committees.
 
 - Responsible for Hosting payment and maintenance with possible help
   from Working Committees.
   
 - Conducts periodic inspections of Foundation infrastructure and any
   other facilities and recommends maintenance and improvements. 
+1 −1
Original line number Diff line number Diff line
@@ -18,7 +18,7 @@

  (setq *developing?* t)
  
  (publish-shared  :path "/clf-site" :object-type 'index-page)
  (publish-shared  'index-page :path "/clf")
  
  (let ((css-directory (namestring (probe-file (merge-pathnames "css/" *site-home*))))
	(image-directory (namestring (probe-file (merge-pathnames "images/" *site-home*)))))
+3 −0
Original line number Diff line number Diff line
@@ -19,6 +19,8 @@
;; <http://www.gnu.org/licenses/>.
;; 

#|

(in-package :gwl)

;;#+allegro
@@ -296,3 +298,4 @@ the files are written into \"/tmp/sites/\".
  `(the-object ,object ,@reference-chain))

(export 'theo)
|#