with-buffer binds *standard-output*; with-tag uses it

demo.lisp

@@ -87,21 +87,16 @@
 	(gtk-widget-show-all window)))))
 
 (defun populate (buffer tHead tBody tLink tBoldLink)
-  (with-tag buffer tHead
-	    (format buffer " In the news ~&"))
-  (with-tag buffer tBody
-	    (format buffer "•  United States President Donald Trump (pictured) announces that the U.S. will ")
-	    (with-tag buffer tBoldLink
-		      (format buffer "withdraw from the Paris Agreement"))
-	    (format buffer " on ")
-	    (with-tag buffer tLink
-		      (format buffer "climate change mitigation"))
-	    (format buffer ".~&")
-
-	    (format buffer "•  ")
-	    (with-tag buffer tBoldLink
-		      (format buffer  "A suspected robbery and arson"))
-	    (format buffer " at the ")
-	    (with-tag buffer tLink
-		      (format buffer  "Resorts World Manila"))
-	    (format buffer " complex in the Philippines kills at least 34 people and injures 54 others.~&")))
+  (with-buffer buffer
+    (with-tag tHead (format t " In the news ~&"))
+    (with-tag tBody
+      (format t "•  United States President Donald Trump (pictured) announces that the U.S. will ")
+      (with-tag tBoldLink (format t "withdraw from the Paris Agreement"))
+      (format t" on ")
+	      (with-tag tLink (format t "climate change mitigation"))
+	      (format t ".~&")
+	      (format t "•  ")
+	      (with-tag tBoldLink (format t "A suspected robbery and arson"))
+	      (format t " at the ")
+	      (with-tag tLink (format t "Resorts World Manila"))
+	      (format t " complex in the Philippines kills at least 34 people and injures 54 others.~&"))))

gtk-assets/tb.lisp

@@ -57,21 +57,28 @@
   t)
 
 
-(defmacro with-tag (tb tag &rest body)
-  `(let ((start (gtb-cursor-position ,tb)))
-     (progn ,@body)
-     (tb-apply-tag ,tb ,tag start (gtb-cursor-position ,tb))))
-
-(defmacro without-tag (tb tag &rest body)
-  `(let ((start (gtb-cursor-position ,tb)))
-     (progn ,@body)
-     (tb-remove-tag ,tb ,tag start (gtb-cursor-position ,tb))))
-
-
 (defun tb-cursor-backwards(tb &key count )
   (with-slots (iter0) tb
     (tb-cursor-iter tb)
     (when (if count
 	      (gti-backward-cursor-positions iter0 count)
 	      (gti-backward-cursor-position iter0))
       (gtb-place-cursor tb iter0))))
+
+(defmacro with-buffer (tb &rest body)
+  `(let ((*standard-output* ,tb))
+    ,@body))
+
+
+(defmacro with-tag (tag &rest body)
+  `(let ((start (gtb-cursor-position *standard-output*)))
+     (progn ,@body)
+     (tb-apply-tag *standard-output* ,tag start
+		   (gtb-cursor-position *standard-output*))))
+
+(defmacro without-tag (tag &rest body)
+  `(let ((start (gtb-cursor-position *standard-output*)))
+     (progn ,@body)
+     (tb-remove-tag *standard-output* ,tag start (gtb-cursor-position *standard-output*))))
+
+