Commit 1cad8721 authored by Mariano Montone's avatar Mariano Montone

Page titles and templates cleanup

parent db86342e
---
title: About
---
<h2>About Common-Lisp.net</h2>
<p> Common-Lisp.net provides hosting for projects and user groups
......
---
title: Contribute
---
<h2>Donations</h2>
<p>The easiest way to contribute is to donate. The costs of running
......
---
title: Downloads
---
<h2>Download/Install</h2>
<p>Common Lisp comes in many different flavors, or implementations. Two popular ones are Steel Bank Common Lisp (SBCL) and Clozure Common Lisp (CCL).</p>
......
---
title: Frequently asked questions for common-lisp.net
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<main>
<main>
<article>
<h2>Common-Lisp.net Frequently Asked Questions</h2>
......@@ -44,7 +16,4 @@ title: Frequently asked questions for common-lisp.net
</p>
</section>
</article>
</main>
</main>
---
title: Mapping of existing repositories to GitLab groups/projects
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<main id="bodyText">
<main id="bodyText">
<header id="summary">
<h2>Introduction</h2>
<p>
......@@ -105,7 +77,7 @@ title: Mapping of existing repositories to GitLab groups/projects
</thead>
<tbody>
<tr><td>/project/able/able.git</td><td>able/able.git</td></tr>
<!-- <tr><td>/project/able/public_html</td><td>able/public_html.git</td></tr> -->
<!-- <tr><td>/project/able/public_html</td><td>able/public_html.git</td></tr> -->
<tr><td>/project/adw-charting/public_html/git/adw-charting.git</td><td>adw-charting/adw-charting.git</td></tr>
<tr><td>/project/alexandria/alexandria.git</td><td>alexandria/alexandria.git</td></tr>
<tr><td>/project/antik/antik</td><td>antik/antik.git</td></tr>
......@@ -119,7 +91,7 @@ title: Mapping of existing repositories to GitLab groups/projects
<tr><td>/project/asdf/git/ilc2010.git</td><td>asdf/ilc2010.git</td></tr>
<tr><td>/project/bknr/public_html/static/lmman</td><td>bknr/lmman.git</td></tr>
<tr><td>/project/bordeaux-threads/public_html/git/bordeaux-threads.git</td><td>bordeaux-threads/bordeaux-threads.git</td></tr>
<!-- <tr><td>/project/boston-lisp/public_html</td><td>boston-lisp/public_html.git</td></tr> -->
<!-- <tr><td>/project/boston-lisp/public_html</td><td>boston-lisp/public_html.git</td></tr> -->
<tr><td>/project/bytemap/public_html/bytemap.git</td><td>bytemap/bytemap.git</td></tr>
<tr><td>/project/cffi/public_html/git/cffi.git</td><td>cffi/cffi.git</td></tr>
<tr><td>/project/cffi/public_html/git-webpage</td><td>cffi/git-webpage.git</td></tr>
......@@ -137,7 +109,7 @@ title: Mapping of existing repositories to GitLab groups/projects
<tr><td>/project/clfswm/public_html/0801/clfswm.git.bak</td><td>clfswm/clfswm.git.bak.git</td></tr>
<tr><td>/project/clfswm/public_html/git/clfswm.git</td><td>clfswm/clfswm.git</td></tr>
<tr><td>/project/clo/git/public_html.git</td><td>clo/public_html.git</td></tr>
<!-- <tr><td>/project/clo/public_html</td><td>clo/public_html.git</td></tr> -->
<!-- <tr><td>/project/clo/public_html</td><td>clo/public_html.git</td></tr> -->
<tr><td>/project/clonsigna/public_html/git/clonsigna.git</td><td>clonsigna/clonsigna.git</td></tr>
<tr><td>/project/cmucl/public_html/git/cmucl-www.git</td><td>cmucl/cmucl-www.git</td></tr>
<tr><td>/project/cmucl/public_html/git/cmucl.git</td><td>cmucl/cmucl.git</td></tr>
......@@ -162,7 +134,7 @@ title: Mapping of existing repositories to GitLab groups/projects
<tr><td>/project/linedit/linedit.git-bad</td><td>linedit/linedit.git-bad.git</td></tr>
<tr><td>/project/lisp-matrix/git</td><td>lisp-matrix/git.git</td></tr>
<tr><td>/project/lisp-on-lines/public_html/lisp-on-lines.git</td><td>lisp-on-lines/lisp-on-lines.git</td></tr>
<!-- <tr><td>/project/lispbox/public_html</td><td>lispbox/public_html.git</td></tr> -->
<!-- <tr><td>/project/lispbox/public_html</td><td>lispbox/public_html.git</td></tr> -->
<tr><td>/project/mel-base/public_html/mel-base.git</td><td>mel-base/mel-base.git</td></tr>
<tr><td>/project/mirror/public_html/git/ch-asdf.git</td><td>mirror/ch-asdf.git</td></tr>
<tr><td>/project/mirror/public_html/git/ch-image.git</td><td>mirror/ch-image.git</td></tr>
......@@ -306,5 +278,4 @@ title: Mapping of existing repositories to GitLab groups/projects
</tbody>
</table>
</main>
</main>
---
title: Migration to GitLab for Common-Lisp.net
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<main>
<main>
<article>
<h2>Common-Lisp.net migration to GitLab: status</h2>
<summary>
......@@ -103,5 +75,4 @@ title: Migration to GitLab for Common-Lisp.net
</article>
</main>
</main>
---
title: Independent Mailing Lists
---
<div id="bodyText">
<div id="bodyText">
<h2 id="apply">How to apply</h2>
<p>You may apply for a mailinglist if it's Common Lisp-related
but doesn't really need an entire project. Please email admin
(at) common-lisp (dot) net. with the ideal name for your
mailinglist and a brief description.</p>
</div>
<div id="bodyText">
</div>
<div id="bodyText">
<h2 id="lists">Lists</h2>
<table><tbody>
<tr><td><a href="http://mailman.common-lisp.net/cgi-bin/mailman/listinfo/blis">BLIS</a> by Pascal Constanza</td></tr>
......@@ -36,4 +33,4 @@ title: Independent Mailing Lists
<tr><td><a href="http://mailman.common-lisp.net/cgi-bin/mailman/listinfo/threads-standard-discuss">threads-standard-discuss</a> by Daniel Barlow</td></tr>
</tbody></table>
</div>
</div>
---
title: Welcome to Common-Lisp.net!
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<main id="bodyText">
<main id="bodyText">
<section id="introduction">
<h2>Introduction</h2>
<p>Welcome to the amazing world of Common Lisp, the
......@@ -163,5 +135,4 @@ title: Welcome to Common-Lisp.net!
<p>Check out our <a href="/about/">about page</a>.</p>
</section>
</main>
</main>
---
title: News from Common-Lisp.net
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<div id="bodyText">
<div id="bodyText">
<h2>Latest news</h2>
......@@ -442,5 +414,4 @@ title: News from Common-Lisp.net
<p>You can also help us by <a href="/contribute/">donating</a>.</p>
</div>
</div>
---
title: Orphaned mailing lists on common-lisp.net!
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<div id="bodyText">
<div id="bodyText">
<h2 id="intro">Introduction</h2>
<p>
......@@ -132,5 +104,4 @@ title: Orphaned mailing lists on common-lisp.net!
</tbody>
</table>
</div>
</div>
---
title: Orphaned projects on common-lisp.net!
---
<!-- <div class="sideBox LHS">
<div>This Page</div>
<a href="#introduction">Introduction</a>
<a href="#news">News</a>
<a href="#description">What is it</a>
<a href="#services">Services</a>
<a href="#about">About this site</a>
</div> -->
<!--
<div class="sideBox RHS">
<div>Recent projects
</div>
<table><tbody>
<tr><td colspan="2">
<a href="projects.shtml">More projects...</a>
</td></tr>
<tr><td colspan="2">
<a href="recent-projects.xml" class='rss-icon'>RSS</a>
</td></tr>
</tbody></table>
</div>
-->
<div id="bodyText">
<div id="bodyText">
<h2 id="intro">Introduction</h2>
<p>
......@@ -114,5 +86,4 @@ title: Orphaned projects on common-lisp.net!
</tr>
</tbody>
</table>
</div>
</div>
This diff is collapsed.
---
title: Project Hosting
---
<div class="tocbox">
<div class="tocbox">
<h4>Contents:</h4>
<ul>
<li><a href="#whatyouget">What you get</a></li>
......@@ -17,9 +14,9 @@ title: Project Hosting
<li><a href="#nagging">Nagging</a></li>
<li><a href="#trac">Trac</a></li>
</ul>
</div>
</div>
<div id="bodyTextWide">
<div id="bodyTextWide">
<h2 id="whatyouget">What you get</h2>
<p>Hosted projects get web space, mailing lists, and disk space
......@@ -228,4 +225,4 @@ title: Project Hosting
our <a href="/tools/#trac">Trac @ clnet introduction</a> .
</div>
</div>
---
title: Tools
---
<h2 id="trac">Trac</h2>
<!--
<div class="tocbox">
<h4>Contents:</h4>
<ul>
<li><a href="#trac">Trac</a></li>
<li><a href="#rsync">Rsync service</a></li>
<li><a href="#viewcvs">Repository access</a></li>
</ul>
</div> -->
<h2 id="trac">Trac</h2>
<p><a href="http://trac.common-lisp.net/">Click here to access Trac.</a>
<p><a href="http://trac.common-lisp.net/">Click here to access Trac.</a>
<p>We are running Trac for projects who request it. It's a
fairly vanilla installation which resides in
......@@ -50,16 +35,16 @@ title: Tools
If you want to change this you may change <code>/project/&lt;project&gt;/trac/conf/trac.ini</code>
to suit your needs.
<!--
<!--
<h2 id="rsync">rsync service</h2>
<p>
All common-lisp.net projects are available through rsync. This makes syncing
webpages, source code or binaries to mirrors easy to manage for project members.
To see all projects available use <code>rsync common-lisp.net::</code>.
</p>
-->
-->
<!-- <h2 id="viewcvs">Repository access</h2>
<!-- <h2 id="viewcvs">Repository access</h2>
<p>Here at common-lisp.net we offer git, Subversion, darcs and CVS to our
projects. To view their repositories, use the following links:</p>
......@@ -70,4 +55,4 @@ title: Tools
<li><a href="/gitweb">GitWeb</a></li>
</ul>
-->
-->
---
title: Tutorials
---
<h2>Tutorials</h2>
<p>Interested in learning Lisp? Here's some resources to help you get started.</p>
<!--
<h3>Slides for a Lisp Newbie</h3>
<p>Dave Cooper has kindly allowed Common-Lisp.net to rehost his beginner Lisp slides, which provides an excellent and clear introduction to Common Lisp. We encourage you to browse through his slides.</p>
<h3>Slides for a Lisp Newbie</h3>
<p>Dave Cooper has kindly allowed Common-Lisp.net to rehost his beginner Lisp slides, which provides an excellent and clear introduction to Common Lisp. We encourage you to browse through his slides.</p>
<ol>
<ol>
<li><a href="/tutorial/1">Welcome to Lisp</a></li>
<li><a href="/tutorial/2">Lists</a></li>
<li><a href="/tutorial/3">Control</a></li>
......@@ -21,7 +17,7 @@ title: Tutorials
<li><a href="/tutorial/7">Other Data Structures</a></li>
<li><a href="/tutorial/8">Symbols</a></li>
<li><a href="/tutorial/9">Conclusion</a></li>
</ol>
</ol>
-->
......
......@@ -37,8 +37,38 @@
(defparameter *PAGES-DIR* (asdf:system-relative-pathname :cl-site "content/")
"Pathname for location of page content.")
(defparameter *PRIVATE-KEYS* '(:slug :content))
;; Extra context for pages
(defparameter *PAGE-CONTEXT*
`(("about.html" ((:title . "Common-Lisp.net | About")))
("index.html" ((:title . "Welcome to Common-Lisp.net!")))
("faq.html" ((:title . "Frequently asked questions")))
("gitlab-migration-repository-mapping.html" ((:title . "GitLab migration")))
("gitlab-migration-status.html" ((:title . "Migration to GitLab")))
("independent-lists.html" ((:title . "Independent Mailing Lists")))
("orphaned-mailing-lists.html" ((:title . "Orphaned mailing lists")))
("orphaned-projects.html" ((:title . "Orphaned projects")))
("phub.html" ((:title . "Projects")))
("project-intro.html" ((:title . "Project Hosting")))))
(defun page-context (filename)
(cadr (assoc filename *page-context* :test 'equalp)))
(defun page-title (filename)
(or (cdr (assoc :title (page-context filename)))
(format nil "Common-Lisp.net | ~a"
(string-capitalize
(pathname-name (pathname filename))))))
(defparameter *PAGES*
(mapcar (lambda (p) (list (cons :content (file-namestring p))))
(mapcar (lambda (p)
(let ((context
(append (list (cons :content (file-namestring p)))
(page-context (file-namestring p)))))
(when (not (assoc :title context))
(push (cons :title (page-title (file-namestring p)))
context))
context))
(directory (make-pathname :defaults *PAGES-DIR*
:name :wild
:type "html")))
......
......@@ -35,6 +35,8 @@
(push (cons :static static-list) *GLOBAL-CONTEXT*)))
;; process-pages : Copies/renders pages - called last
(defun render-page (page template-path)
(let*
((page-path (make-path *PAGES-DIR* page t))
......@@ -54,4 +56,5 @@
((template-path (pathname (merge-pathnames *LAYOUT-DIR* *DEFAULT-PAGE-TEMPLATE*))))
(progn (ensure-directories-exist *OUTPUT-DIR*)
(loop for page in *PAGES*
do (render-page page template-path)))))
do
(render-page page template-path)))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment