[wxCL-cvs] sharpquote-wx/website/nodes/multi hat.lisp,1.2,1.3

[Joerg P. <joe...@us...>]

Update of /cvsroot/wxcl/sharpquote-wx/website/nodes/multi
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6243/website/nodes/multi

Modified Files:
	hat.lisp 
Log Message:
Added once or once/language macros

Index: hat.lisp
===================================================================
RCS file: /cvsroot/wxcl/sharpquote-wx/website/nodes/multi/hat.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** hat.lisp	31 Aug 2005 20:59:28 -0000	1.2
--- hat.lisp	29 Sep 2005 22:35:27 -0000	1.3
***************
*** 3,7 ****
  
  (once/language
-  
   (with-syntax
    (:html)
--- 3,6 ----
***************
*** 10,29 ****
     ((:p class "hat" :css* (:lh *lh*))
      
-     
      (:b ((:a :href* :hp-wxcl) "wxCL") " @ " 
  	((:a :href* :sf-hp) "SourceForge")) 
-     
      ": "
!     ((:a :href* :sf-wxcl)     (babel :project-page  *language*)) " | "
!     ((:a :href* :sf-files)    (babel :files         *language*)) " | "
!     ((:a :href* :sf-forums)   (babel :forums        *language*)) " | "
!     ((:a :href* :sf-cvs)      (babel :cvs-tree      *language*)) " | "
!     ((:a :href* :sf-bugs)     (babel :bug-tracker   *lanugage*)) " | "
!     ((:a :href* :sf-ml-all)   (babel :mailing-lists *language*)) ": "
!     ((:a :href* :sf-ml-devel)        "wxCL-devel"              ) ", " 
!     ((:a :href* :sf-ml-cvs)          "wxCL-cvs"                ) ", " 
!     ((:a :href* :sf-ml-all)   (babel :more          *language*))
!     
!     ))))
  
  
--- 9,26 ----
     ((:p class "hat" :css* (:lh *lh*))
      
      (:b ((:a :href* :hp-wxcl) "wxCL") " @ " 
  	((:a :href* :sf-hp) "SourceForge")) 
      ": "
!     ((:a :href* :sf-wxcl)     (:princ (babel :project-page  *language*))) " | "
!     ((:a :href* :sf-files)    (:princ (babel :files         *language*))) " | "
!     ((:a :href* :sf-forums)   (:princ (babel :forums        *language*))) " | "
!     ((:a :href* :sf-cvs)      (:princ (babel :cvs-tree      *language*))) " | "
!     ((:a :href* :sf-bugs)     (:princ (babel :bug-tracker   *language*))) " | "
!     ((:a :href* :sf-ml-all)   (:princ (babel :mailing-lists *language*))) ": "
!     ((:a :href* :sf-ml-devel)                "wxCL-devel"               ) ", " 
!     ((:a :href* :sf-ml-cvs)                  "wxCL-cvs"                 ) ", " 
!     ((:a :href* :sf-ml-all)   (:princ (babel :more          *language*)))
!     )))
!  )