Hello,
if one sets muse-blosxom-use-tags, creating a new blog entry results
in an error:
# bind (standard-output stack-trace-on-signal debug-on-signal
stack-trace-on-error debug-on-error title category)
#<compiled-function (category title) "...(65)" [muse-blosxom-base-directory
muse-blosxom-use-tags file title category muse-blosxom-title-to-file
muse-project-find-file "blosxom" nil directory-file-name "/" "#date "
format-time-string "%Y-%m-%d-%H-%M" "\n#title " "" "\n#tags " mapconcat
identity "," "\n#category " "\n\n" 2] 7
("/home/welle/elisp/muse/lisp/muse-blosxom.elc" . 3171) (list (if
muse-blosxom-use-tags ... ...) (read-string "Title: "))>(("t1" "t2") "title")
call-interactively(muse-blosxom-new-entry)
(lambda nil (interactive) (setq muse-blosxom-base-directory
"~/work/Blogs/blog/blog") (call-interactively (quote muse-blosxom-new-entry)))()
call-interactively(hmw-switch-blog-new-entry)
# (condition-case ... . error)
# (catch top-level ...)
With my little lisp understanding it is because the variable category
is a list if you use tags and the operator string= is defined only for
plain strings as arguments.
stella:~/elisp/muse/lisp> diff -u muse-blosxom.el.old muse-blosxom.el
--- muse-blosxom.el.old 2006-10-02 09:15:36.000000000 +0200
+++ muse-blosxom.el 2006-10-02 09:14:59.000000000 +0200
@@ -234,13 +234,17 @@
(goto-char (point-min))
(insert "#date " (format-time-string "%Y-%m-%d-%H-%M")
"\n#title " title)
- (unless (string= category "")
- (insert
- (if muse-blosxom-use-tags
- (concat "\n#tags " (mapconcat #'identity category ","))
- (concat "\n#category " category))))
- (insert "\n\n")
- (forward-line 2))
+
+ ( if muse-blosxom-use-tags
+ ( unless ( null category )
+ ( insert (concat "\n#tags " (mapconcat #'identity category ","))))
+
+ ( unless (string= category "" )
+ ( insert ( concat "\n#category " category ))))
+
+ (insert "\n\n")
+ (forward-line 2))
+
;; Register the Blosxom Publisher
Michael
--
biff4emacsen - A biff-like tool for (X)Emacs
http://www.c0t0d0s0.de/biff4emacsen/biff4emacsen.html
_______________________________________________
Muse-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/muse-el-discuss
