404 motivation not found | t_ishidaのブログ

1月/70

1

xyzzyではてな記法の入力支援

xyzzy用、やる気のないハテナ関数群です。

ネタが無いので、ソースを書きます。

探せば有りそうなもんだけど、この程度なら、

探すより書いた方が早そうてっ感じで書きました。

使い方

.xyzzyとかに記述して、

リージョンで囲んで関数を呼び出してやるとか、

外にhatena.lを作ってrequireしてやっても良いです。

hatena-templateについて

セットになるperlを作る予定だったんですが、

まだ作ってません。

テンプレートに従って記述した文字列を、

“./entry”にpostするっていうのをやろうと思ったんですが、

いきなりpostして良いのかも分からず、

調べる気も無く放置って感じです^^;

断り書き

これ使って何が有っても知りません。

(defun hatena-template ()
(interactive)
(progn
(insert "date : \n")
(insert "title :\n" )
(insert "\n\nこっから日記を書くで" )
))

(defun hatena-list-region ()
(interactive)
(progn
(narrow-to-region (point) (mark))
(beginning-of-buffer)
(replace-regexp "^" "-" t)
(widen)
))

(defun hatena-unlist-region ()
(interactive)
(progn
(narrow-to-region (point) (mark))
(beginning-of-buffer)
(replace-regexp "^-" "" t)
(widen)
))

(defun hatena-super_pre-region (lang)
(interactive "*slang: ")
(progn
(narrow-to-region (point) (mark))
(beginning-of-buffer)
(insert (concat ">|" lang "|\n"))
(end-of-buffer)
(insert "||<\n")
(widen)
))

(defun hatena-tex ()
(interactive)
(progn
(narrow-to-region (point) (mark))
(beginning-of-buffer)
(replace-string "]" "\\]" t)
(beginning-of-buffer)
(insert "[tex:" )
(end-of-buffer)
(insert "]")
(widen)
))
Share and Enjoy:
  • Digg
  • del.icio.us
  • Google Bookmarks
  • Tumblr
  • email
  • Facebook
  • FriendFeed

RSS Feed

コメントはまだありません。

Leave a comment!

<< 色々自動化したいと考え中

Find it!

Theme Design by devolux.org

Tag Cloud