Skip to content

Instantly share code, notes, and snippets.

@redtower
Created March 3, 2011 06:56

Revisions

  1. redtower revised this gist Mar 3, 2011. 1 changed file with 8 additions and 0 deletions.
    8 changes: 8 additions & 0 deletions weblogger-private.el
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,8 @@
    ;;=======================================================================
    ;; @ wp-emacs
    ;;=======================================================================
    (setq weblogger-config-alist '(( "default"
    "http://<host>/xmlrpc.php"
    "<usrid>"
    nil
    "1" )))
  2. redtower created this gist Mar 3, 2011.
    29 changes: 29 additions & 0 deletions 50_weblogger.el
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,29 @@
    ;;=======================================================================
    ;; @ wp-emacs(weblogger)
    ;;=======================================================================
    (require 'weblogger)
    (global-set-key "\C-c\C-w" 'weblogger-start-entry) ; weblogger起動(C-c C-w)

    (defun my-weblogger-send-entry (&optional arg)
    (interactive)
    (save-buffer)
    (set-buffer-modified-p t)
    (weblogger-save-entry nil arg)
    (my-weblogger-quit))

    (defun my-weblogger-quit ()
    (interactive)
    (when (y-or-n-p "Do you want to quit weblogger-entry? ")
    (bury-buffer)))

    (add-hook 'weblogger-start-edit-entry-hook
    '(lambda ()
    (define-key weblogger-entry-mode-map (kbd "C-x C-s") nil)
    (define-key weblogger-entry-mode-map (kbd "C-c n") 'weblogger-next-entry)
    (define-key weblogger-entry-mode-map (kbd "C-c p") 'weblogger-prev-entry)
    (define-key weblogger-entry-mode-map (kbd "C-c c") 'weblogger-start-entry)
    (define-key weblogger-entry-mode-map (kbd "C-c C-c") 'my-weblogger-send-entry)
    (define-key weblogger-entry-mode-map (kbd "C-c C-k") 'my-weblogger-quit)
    (zencoding-mode t) ; zencoding-mode
    (yas/minor-mode t) ; YASnippet マイナーモードを有効
    (auto-fill-mode -1))) ; 自動改行をOFF