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