[climacs-cvs] CVS update: climacs/buffer.html climacs/climacs-en.html climacs/html-syntax.lisp

Mon Apr 11 06:12:23 UTC 2005

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv24038

Modified Files:
	buffer.html climacs-en.html html-syntax.lisp 
Log Message:
Defined BR and HR elements and modified some html files accordingly.

Date: Mon Apr 11 08:12:22 2005
Author: rstrandh

Index: climacs/buffer.html
diff -u climacs/buffer.html:1.3 climacs/buffer.html:1.4

--- climacs/buffer.html:1.3	Thu Dec 16 07:29:01 2004
+++ climacs/buffer.html	Mon Apr 11 08:12:22 2005
@@ -1,8 +1,8 @@
-<HTML><TITLE> Master 2ème semestre  </TITLE>
+<HTML><HEAD><TITLE> Master 2ème semestre</TITLE></HEAD>
 <BODY>
-<a href="buffer-en.html">English version</a>
+<p><a href="buffer-en.html">English version</a></p>
 <h1> Projets de Programmation 2004 - 2005 </h1>
-<br><hr><br>
+<hr>
 
 <ul> 
 <li> <h3> Titre du  Sujet:  </h3> 


Index: climacs/climacs-en.html
diff -u climacs/climacs-en.html:1.4 climacs/climacs-en.html:1.5
--- climacs/climacs-en.html:1.4	Fri Apr  8 16:36:59 2005
+++ climacs/climacs-en.html	Mon Apr 11 08:12:22 2005
@@ -1,4 +1,5 @@
-<HTML><HEAD><TITLE>Climacs, a modern version of the Emacs editor</TITLE></HEAD>
+<HTML lang=en>
+<HEAD><TITLE>Climacs, a modern version of the Emacs editor</TITLE></HEAD>
 <BODY>
 
 <p><a href="climacs.html">Version française.</a></p>
@@ -11,33 +12,33 @@
 problems today. :</p>
 
 <ul>
-<li><p>Emacs Lisp is a language that was specially designed in order to
+<li>Emacs Lisp is a language that was specially designed in order to
     implement Emacs.  Since the design of GNU Emacs and of Emacs Lisp,
     Common Lisp has been standardized, and gives both better
     performance than that of Emacs Lisp (because Emacs Lisp is
     implemented as an interpreter written in C) and more sophisticated
     functionalities (macros, CLOS, etc).  The natural choice for
-    implementing Emacs today is thus Common Lisp.</p></li>
+    implementing Emacs today is thus Common Lisp.</li>
 
-<li><p>GNU Emacs was designed before the existence of the Unicode
+<li>GNU Emacs was designed before the existence of the Unicode
     standard.  Unfortunately, the internal representation of a buffer
     does not allow the representation of all Unicode characters in a
     compact way.  An internal representation allowing both all of
     Unicode and a compact representation for the ISO-latin-1 subset is
-    desirable.</p></li>
+    desirable.</li>
 
-<li><p>Twenty years ago, graphic user interfaces practically did not
+<li>Twenty years ago, graphic user interfaces practically did not
     exist.  GNU Emacs was designed for a text-only terminal.  Today
     better modes of interaction exist. In particular, with CLIM
     (Common LIsp Interface Manager) it is both possible and desirable
-    to have an interface based on the concept of "presentation types".</p></li>
+    to have an interface based on the concept of "presentation types".</li>
 
-<li><p>Because of the limited power of computers at the time, GNU Emacs
+<li>Because of the limited power of computers at the time, GNU Emacs
     uses a certain number of approximations in order to analyze the
     contents of a buffer, in particular when that contents is the text
     of a program.  These approximations are no longer necessary, and
     with current technology, it is possible to maintain a complete
-    syntactic analysis of the buffer text. </p></li>
+    syntactic analysis of the buffer text. </li>
 
 </ul>
 


Index: climacs/html-syntax.lisp
diff -u climacs/html-syntax.lisp:1.27 climacs/html-syntax.lisp:1.28
--- climacs/html-syntax.lisp:1.27	Mon Apr 11 07:28:51 2005
+++ climacs/html-syntax.lisp	Mon Apr 11 08:12:22 2005
@@ -414,6 +414,19 @@
        (display-parse-tree items syntax pane))
      (display-parse-tree </a> syntax pane)))
 
+;;;;;;;;;;;;;;; br element
+
+(defclass br-element (inline-element)
+  ((<br> :initarg :<br>)))
+     
+(define-start-tag <br> "br")
+
+(add-html-rule (br-element -> (<br>) :<br> <br>))
+
+(defmethod display-parse-tree ((entity br-element) (syntax html-syntax) pane)
+  (with-slots (<br>) entity
+     (display-parse-tree <br> syntax pane)))
+
 ;;;;;;;;;;;;;;; p element
 
 (defclass <p> (html-tag)
@@ -538,6 +551,19 @@
      (display-parse-tree <ul> syntax pane)
      (display-parse-tree items syntax pane)     
      (display-parse-tree </ul> syntax pane)))
+
+;;;;;;;;;;;;;;; hr element
+
+(defclass hr-element (block-level-element)
+  ((<hr> :initarg :<hr>)))
+
+(define-start-tag <hr> "hr")
+
+(add-html-rule (hr-element -> (<hr>) :<hr> <hr>))
+
+(defmethod display-parse-tree ((entity hr-element) (syntax html-syntax) pane)
+  (with-slots (<hr>) entity
+     (display-parse-tree <hr> syntax pane)))
 
 ;;;;;;;;;;;;;;; body element
 


