Changeset 8573 for lang/xyzzy/hatena-bookmark-star-viewer/site-lisp/hatena-bookmark-star-viewer.l

Timestamp:

03/31/08 22:27:35 (5 years ago)

Author:

miyamuko

Message:

lang/xyzzy/hatena-bookmark-star-viewer: 色をつけた。

Files:

• lang/xyzzy/hatena-bookmark-star-viewer/site-lisp/hatena-bookmark-star-viewer.l (modified) (4 diffs)

lang/xyzzy/hatena-bookmark-star-viewer/site-lisp/hatena-bookmark-star-viewer.l

@@ -6 +6 @@
 ;;
 ;; Author: MIYAMUKO Katsuyuki <miyamuko@gmail.com>
-;; Version: 0.1
+;; Version: 0.3
 ;; Keywords: hatena, star, bookmark
 ;;
@@ -65 +65 @@
           ))
 
+(defmacro with-color ((&rest color) &body body)
+  (let ((s (gensym)))
+    `(let ((,s (buffer-stream-point *standard-output*)))
+       (progn ,@body)
+       (set-text-attribute ,s (buffer-stream-point *standard-output*) nil ,@color))))
+(setf (get 'with-color 'ed::lisp-indent-hook) 'with-output-to-buffer)
+
 (defmacro puts (fmt &rest args)
-  `(format t ,fmt ,@args))
+  `(progn
+     (toggle-read-only nil)
+     (format t ,fmt ,@args)
+     (toggle-read-only t)))
 
 (defmacro $ (item alist)
@@ -107 +117 @@
     (unless (get-buffer-window b)
       (split-window (- (truncate (/ (window-height) 2))))
-      (set-buffer b))))
+      (set-buffer b)
+      (view-mode)
+      )))
 
 (defun render-hatena-star/bookmark (buffer uri entry bookmark)
@@ -146 +158 @@
           (puts "はてなブックマーク数: ~A~%~%" (or ($ "count" bookmark) "0"))
           (dolist (b ($ "bookmarks" bookmark))
-            (puts "~A ~A ~{[~A]~}~A~%"
-                  ($ "timestamp" b) ($ "user" b)
-                  ($ "tags" b) ($ "comment" b)))
+            (with-color (:foreground 15)
+              (puts "~A ~A ~{[~A]~}~%~%"
+                    ($ "timestamp" b) ($ "user" b)
+                    ($ "tags" b)))
+            (let ((c ($ "comment" b)))
+              (when (and c (string/= c ""))
+                (puts "~A~%~%" c))))
           (puts "\n")
           (when (and ($ "count" bookmark) (string/= ($ "count" bookmark) "0"))