[cl-blogger commit] r11 - M ChangeLog: Test emacs's vc-update-change-log

[codesite...@google.com]

Author: netawater
Date: Mon Mar 30 07:36:27 2009
New Revision: 11

Modified:
trunk/ChangeLog
trunk/blogger.lisp

Log:
M ChangeLog: Test emacs's vc-update-change-log
M blogger.lisp: Modify get-content-from-file so that it do not omit
newline character, or it cause there is no space between lines in english
paragraph

Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog (original)
+++ trunk/ChangeLog Mon Mar 30 07:36:27 2009
@@ -4,6 +4,18 @@
muse-blogger-markup-strings for for various styles.
I'd like markup section to h4, subsection to h5...

+2009-03-23 Plato Wu <stand...@tianya.cn>
+
+ * blogger.lisp
+ Use xhtml1.1 to avoid the problem that the Blogger.com request
+ every html tag is symmetry. It is good based on my testing.
+
+2009-03-17 Plato Wu <stand...@tianya.cn>
+
+ * blogger.lisp
+ Add supporting of label for post. The normal format of label is:
+ ; labels: label1,label2,label3
+
2009-03-08 Yoshinori Tahara <read.ev...@gmail.com>

* apply path from Plato Wu.

Modified: trunk/blogger.lisp
==============================================================================
--- trunk/blogger.lisp (original)
+++ trunk/blogger.lisp Mon Mar 30 07:36:27 2009
@@ -189,17 +189,18 @@
(defun get-content-from-file (file)
(with-output-to-string (out)
(with-open-file (in file)
- (loop for line = (read-line in nil nil)
- with pre-p = nil
- while line
- do (progn
- (write-string line out)
- (cond ((eql 0 (search "<pre" line))
- (setf pre-p t))
- ((eql 0 (search "</pre>" line))
- (setf pre-p nil))
- (t
- (when pre-p (terpri out)))))))))
+ (loop
+ (multiple-value-bind (line newline pre-p) (read-line in nil nil)
+ (if (null line) (return))
+ (write-string line out)
+ (unless newline
+ (write-char #\Newline out))
+ (cond ((eql 0 (search "<pre" line))
+ (setf pre-p t))
+ ((eql 0 (search "</pre>" line))
+ (setf pre-p nil))
+ (t
+ (when pre-p (terpri out)))))))))

(defun add-post-id-to-file (muse-file)
(register-groups-bind (post-id) (".*/(.*)" (edit-href *blogger*))