From faf5a61d584ccad016d5bb3d50ce515931e17897 Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Tue, 7 Mar 2006 22:56:07 +0000
Subject: Slight optimization: allow for non-proc predicated for markup
 writers.

* src/guile/skribilo/engine.scm (engine-add-writer!): Allow PRED to be
  `#f'.

* src/guile/skribilo/writer.scm (make-writer-predicate): Likewise.
  (lookup-markup-writer)[matching-writer]: Likewise.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-43
---
 src/guile/skribilo/engine.scm |  5 +++--
 src/guile/skribilo/writer.scm | 21 ++++++++++++---------
 2 files changed, 15 insertions(+), 11 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm
index 0c3f406..3e05571 100644
--- a/src/guile/skribilo/engine.scm
+++ b/src/guile/skribilo/engine.scm
@@ -333,11 +333,12 @@ otherwise the requested engine is returned."
       (skribe-error ident "Illegal options" opt))
 
   ;; check the correctness of the predicate
-  (check-procedure "predicate" pred 2)
+  (if pred
+      (check-procedure "predicate" pred 2))
 
   ;; check the correctness of the validation proc
   (if valid
-    (check-procedure "validate" valid 2))
+      (check-procedure "validate" valid 2))
 
   ;; check the correctness of the three actions
   (check-output "before" before)
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm
index 62fa8b0..b46cddc 100644
--- a/src/guile/skribilo/writer.scm
+++ b/src/guile/skribilo/writer.scm
@@ -89,13 +89,12 @@
 
 
 (define (make-writer-predicate markup predicate class)
-  (let* ((t1 (if (symbol? markup)
-		 (lambda (n e) (is-markup? n markup))
-		 (lambda (n e) #t)))
-	 (t2 (if class
+  (define (%always-true n e) #t)
+
+  (let* ((t2 (if class
 		 (lambda (n e)
-		   (and (t1 n e) (equal? (markup-class n) class)))
-		 t1)))
+		   (and (equal? (markup-class n) class)))
+		 #f)))
     (if predicate
 	(cond
 	  ((not (procedure? predicate))
@@ -107,8 +106,10 @@
 			   "Illegal predicate arity (2 arguments expected)"
 			   predicate))
 	  (else
-	     (lambda (n e)
-	       (and (t2 n e) (predicate n e)))))
+	   (if (procedure? t2)
+	       (lambda (n e)
+		 (and (t2 n e) (predicate n e)))
+	       predicate)))
 	t2)))
 
 
@@ -167,7 +168,9 @@
   (define (matching-writer writers)
     (find (lambda (w)
 	    (let ((pred (slot-ref w 'pred)))
-	      (pred node e)))
+	      (if (procedure? pred)
+		  (pred node e)
+		  #t)))
 	  writers))
 
   (let* ((writers (slot-ref e 'writers))
-- 
cgit v1.2.3