この記事は２年以上前に書いたものです。
そのため情報が古い可能性があります。ご了承ください。m(_ _)m
そのため情報が古い可能性があります。ご了承ください。m(_ _)m
デフォルトでは使えない。。
でもググったら、拡張して使えるようにした人がいた。
ちゃんだな -nonsense- – blog-modeをWordPress対応に
また、タグも編集出来るらしい。
ちゃんだな -nonsense- – blog-mode改造
でも再編集で保存すると何故かエラーに。。
wordpressが返すpostidがintだから(?)上手くできないっぽかったので、
postidがintの場合、文字列に変換すると一応動いた。
;site-lisp/blog/cocolog.l
(xmlrpcm::metaWeblog-editPost endpoint
- postid
+ (if (integerp postid)
+ (format nil "~D" postid)
+ (eval postid))
bloguser
(xmlrpcm::metaWeblog-editPost endpoint
- postid
+ (if (integerp postid)
+ (format nil "~D" postid)
+ (eval postid))
bloguser
ついでに、Post と Edit のバッファを表示するようにカスタマイズ。
;site-lisp/blog/defs.l
(defvar *buffer-prefix*
(format nil " *~A " *prog-name*))
+(defvar *buffer-show-prefix*
+ (format nil "*~A " *prog-name*))
(defvar *buffer-post*
- (concat *buffer-prefix* "Post*"))
+ (concat *buffer-show-prefix* "Post*"))
(defvar *buffer-edit*
- (concat *buffer-prefix* "Edit*"))
+ (concat *buffer-show-prefix* "Edit*"))
(defvar *buffer-prefix*
(format nil " *~A " *prog-name*))
+(defvar *buffer-show-prefix*
+ (format nil "*~A " *prog-name*))
(defvar *buffer-post*
- (concat *buffer-prefix* "Post*"))
+ (concat *buffer-show-prefix* "Post*"))
(defvar *buffer-edit*
- (concat *buffer-prefix* "Edit*"))
+ (concat *buffer-show-prefix* "Edit*"))