simple-hatena-mode から投稿テスト

投稿テスト

(require 'simple-hatena-mode)
(setq simple-hatena-default-id "tlync")
(setq simple-hatena-bin "~/Scripts/hw.pl")
(setq simple-hatena-root "~/.hatena")
(add-hook 'simple-hatena-mode-hook
          '(lambda ()
             (turn-on-screen-lines-mode)
             (require 'hatenahelper-mode)
             (hatenahelper-mode 1)))

(global-set-key (kbd "C-z h c") 'simple-hatena)
(define-key simple-hatena-mode-map (kbd "C-c <down>") 'simple-hatena-find-diary-for)
(define-key simple-hatena-mode-map (kbd "C-c <left>") 'simple-hatena-go-back)
(define-key simple-hatena-mode-map (kbd "C-c <right>") 'simple-hatena-go-forward)
(define-key simple-hatena-mode-map (kbd "C-c o") 'simple-hatena-open-current-url)
(define-key simple-hatena-mode-map (kbd "C-c p") 'simple-hatena-submit)
(define-key simple-hatena-mode-map (kbd "C-c t") 'simple-hatena-trivial-submit)