tdiary-contrib 3.2.2.20130518

data/util/tdiary-mode/tdiary-mode.el

@@ -0,0 +1,613 @@
+;;; tdiary-mode.el -- Major mode for tDiary editing -*- coding: utf-8 -*-
+
+;; Copyright (C) 2002 Junichiro Kita
+
+;; Author: Junichiro Kita <kita@kitaj.no-ip.com>
+
+;; $Id: tdiary-mode.el,v 1.4 2005/08/19 08:36:43 tadatadashi Exp $
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; usage:
+;;
+;; Put the following in your .emacs file:
+;;
+;;  (setq tdiary-diary-list '(("my 1st diary" "http://example.com/tdiary/")
+;;                            ("my 2nd diary" "http://example.com/tdiary2/")))
+;;  (setq tdiary-text-directory (expand-file-name "~/path-to-saved-diary"))
+;;  (setq tdiary-browser-function 'browse-url)
+;;  (autoload 'tdiary-mode "tdiary-mode" nil t)
+;;  (autoload 'tdiary-new "tdiary-mode" nil t)
+;;  (autoload 'tdiary-new-diary "tdiary-mode" nil t)
+;;  (autoload 'tdiary-replace "tdiary-mode" nil t)
+;;  (add-to-list 'auto-mode-alist
+;;		'("\\.td$" . tdiary-mode))
+;;
+;; You can use your own plugin completion, keybindings:
+;;
+;;  (setq tdiary-plugin-definition
+;;	  '(
+;;	    ("STRONG" ("<%=STRONG %Q|" (p "str: ") "| %>"))
+;;	    ("PRE" ("<%=PRE %Q|" (p "str: ") "| %>"))
+;;	    ("CITE" ("<%=CITE %Q|" (p "str: ") "| %>"))
+;;	    ))
+;;
+;;  (add-hook 'tdiary-mode-hook
+;;	      '(lambda ()
+;;		 (local-set-key "\C-i" 'tdiary-complete-plugin)))
+;;
+;; If you want to save username and password cache to file:
+;;
+;;  (setq tdiary-passwd-file (expand-file-name "~/.tdiary-pass"))
+;;
+;; then, M-x tdiary-passwd-cache-save.	!!DANGEROUS!!
+;;
+;; see http://kitaj.no-ip.com/rw-cgi.rb?cmd=view;name=tdiary-mode
+;;
+
+;; ToDo:
+;; - find plugin definition automatically(needs modification for plugin)
+;; - bug fix
+;;
+
+;;; Variable:
+
+(require 'http)
+(require 'poe)
+(require 'tempo)
+
+(defvar tdiary-diary-list nil
+  "List of diary list.
+Each element looks like (NAME URL) or (NAME URL INDEX-RB UPDATE-RB).")
+
+(defvar tdiary-diary-name nil
+  "Identifier for diary to be updated.")
+
+(defvar tdiary-diary-url nil
+  "tDiary-mode updates this URL. URL should end with '/'.")
+
+(defvar tdiary-index-rb nil
+  "Name of the 'index.rb'.")
+
+(defvar tdiary-update-rb "update.rb"
+  "Name of the 'update.rb'.")
+
+(defvar tdiary-csrf-key nil
+  "CSRF protection key.")
+
+(defvar tdiary-coding-system 'utf-8-dos)
+
+(defvar tdiary-title nil
+  "Title of diary")
+
+(defvar tdiary-style-mode 'html-mode
+  "Major mode to be used for tDiary editing.")
+
+(defvar tdiary-date nil
+  "Date to be updated.")
+
+(defvar tdiary-edit-mode nil)
+
+(defvar tdiary-plugin-list nil
+  "A List of pairs of a plugin name and its completing command.
+It is used in `tdiary-complete-plugin'.")
+
+(defvar tdiary-tempo-tags nil
+  "Tempo tags for tDiary mode")
+
+(defvar tdiary-completion-finder "\\(\\(<\\|&\\|<%=\\).*\\)\\="
+  "Regexp used to find tags to complete.")
+
+(defvar tdiary-plugin-initial-definition
+  '(
+    ("my" ("<%=my %Q|" (p "a: ") "|, %Q|" (p "str: ") "| %>"))
+    ("fn" ("<%=fn %Q|" (p "footnote: ") "| %>"))
+    )
+  "Initial definition for tDiary tempo."
+)
+
+(defvar tdiary-edit-mode-list '(("append") ("replace")))
+
+(defvar tdiary-plugin-definition nil
+  "A List of definitions for tDiary tempo.
+Each element looks like (NAME ELEMENTS).  NAME is a string that
+contains the name of plugin, and ELEMENTS is a list of elements in the
+template.  See tempo.info for details.")
+
+(defvar tdiary-complete-plugin-history nil
+  "Minibuffer history list for `tdiary-complete-plugin'.")
+
+(defvar tdiary-passwd-file nil)
+(defvar tdiary-passwd-file-mode 384) ;; == 0600
+(defvar tdiary-text-directory-mode 448) ;; == 0700
+
+(defvar tdiary-passwd-cache nil
+  "Cache for username and password.")
+
+(defvar tdiary-hour-offset 0
+  "Offset to current-time.
+`tdiary-today' returns (current-time + tdiary-hour-offset).")
+
+(defvar tdiary-text-suffix ".td")
+
+(defvar tdiary-text-directory nil
+  "Directory where diary is stored.")
+
+(defvar tdiary-text-save-p nil
+  "Flag for saving text.
+If non-nil, tdiary buffer is associated to a real file, 
+named `tdiary-date' + `tdiary-text-suffix'.")
+
+(defvar tdiary-browser-function nil
+  "Function to call browser.
+If non-nil, `tdiary-update' calls this function.  The function
+is expected to accept only one argument(URL).")
+
+(defvar tdiary-mode-hook nil
+  "Hook run when entering tDiary mode.")
+
+(defvar tdiary-init-file "~/.tdiary"
+  "Init file for tDiary-mode.")
+
+;(defvar tdiary-plugin-dir nil
+;  "Path to plugins.  It must be a mounted file system.")
+;(defvar tdiary-plugin-definition-regexp "^[ \t]*def[ \t]+\\(.+?\\)[ \t]*\\(?:$\\|;\\|([ \t]*\\(.*?\\)[ \t]*)\\)")
+
+
+;;; Code:
+(defun tdiary-tempo-add-tag (def)
+  (let* ((plugin (car def))
+	 (element (cadr def))
+	 (name (concat "tdiary-" plugin))
+	 (completer (concat "<%=" plugin))
+	 (doc (concat "Insert `" plugin "'"))
+	 (command (tempo-define-template name element completer doc
+					 'tdiary-tempo-tags)))
+    (add-to-list 'tdiary-plugin-list (list plugin command))))
+
+(defun tdiary-tempo-define (l)
+  (mapcar 'tdiary-tempo-add-tag l))
+
+
+;(defun tdiary-parse-plugin-args (args)
+;  (if (null args)
+;      nil
+;    (mapcar '(lambda (x)
+;	       (let ((l (split-string x "[ \t]*=[ \t]*")))
+;		 (if (eq (length l) 1)
+;		     (car l)
+;		   l)))
+;	    (split-string args "[ \t]*,[ \t]*"))))
+
+;(defun tdiary-update-plugin-definition ()
+;  (interactive)
+;  (let ((files (directory-files tdiary-plugin-dir t ".*\\.rb$" nil t))
+;	(buf (generate-new-buffer "*update plugin*")))
+;    (save-excursion
+;      (save-window-excursion
+;	(switch-to-buffer buf)
+;	(mapc 'insert-file-contents files)
+;	(setq tdiary-plugin-definition nil)
+;	(while (re-search-forward tdiary-plugin-definition-regexp nil t)
+;	  (add-to-list 'tdiary-plugin-definition
+;		       (list (match-string 1)
+;			     (tdiary-parse-plugin-args (match-string 2)))))
+;	(kill-buffer buf)))))
+
+(defun tdiary-do-complete-plugin (&optional name)
+  "Complete function for plugin."
+  (let (command)
+    (when (null name)
+      (setq name 
+	    (completing-read "plugin: " tdiary-plugin-list nil nil nil
+			     'tdiary-complete-plugin-history)))
+    (setq command (cadr (assoc name tdiary-plugin-list)))
+    (when command
+      (funcall command))))
+
+;; derived from tempo.el
+(defun tdiary-complete-plugin (&optional silent)
+  "Look for a HTML tag or plugin and expand it.
+If there are no completable text, call `tdiary-do-complete-plugin'."
+  (interactive "*")
+  (let* ((collection (tempo-build-collection))
+	 (match-info (tempo-find-match-string tempo-match-finder))
+	 (match-string (car match-info))
+	 (match-start (cdr match-info))
+	 (exact (assoc match-string collection))
+	 (compl (or (car exact)
+		    (and match-info (try-completion match-string collection)))))
+    (if compl (delete-region match-start (point)))
+    (cond ((or (null match-info)
+	       (null compl))
+	   (tdiary-do-complete-plugin))
+	  ((eq compl t) (tempo-insert-template
+			 (cdr (assoc match-string
+				     collection))
+			 nil))
+	  (t (if (setq exact (assoc compl collection))
+		 (tempo-insert-template (cdr exact) nil)
+	       (insert compl)
+	       (or silent (ding))
+	       (if tempo-show-completion-buffer
+		   (tempo-display-completions match-string
+					      collection)))))))
+
+(defun tdiary-today ()
+  (let* ((offset-second (* tdiary-hour-offset 60 60))
+	 (now (current-time))
+	 (high (nth 0 now))
+	 (low (+ (nth 1 now) offset-second))
+	 (micro (nth 2 now)))
+    (setq high (+ high (/ low 65536))
+	  low (% low 65536))
+    (when (< low 0)
+      (setq high (1- high)
+	    low (+ low 65536)))
+    (list high low micro)))
+
+(defun tdiary-read-username (url name)
+  (let ((username (tdiary-passwd-cache-read-username url)))
+    (or username
+	(read-string (concat "User Name for '" name "': ")))))
+
+(defun tdiary-read-password (url name)
+  (let ((password (tdiary-passwd-cache-read-password url)))
+    (or password
+	(read-passwd (concat "Password for '" name "': ")))))
+
+(defun tdiary-read-date (date)
+  (while (not (string-match
+	       "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]"
+	       (setq date (read-string "Date: "
+				       (or date
+					   (format-time-string "%Y%m%d" (tdiary-today)))))))
+    nil)
+  date)
+
+(defun tdiary-read-title (date)
+  (read-string (concat "Title for " date ": ") tdiary-title))
+
+(defun tdiary-read-mode (mode)
+  (let ((default (caar tdiary-edit-mode-list)))
+    (completing-read "Editing mode: " tdiary-edit-mode-list
+		   nil t (or mode default) nil default)))
+
+(defun tdiary-passwd-file-load ()
+  "Load password alist."
+  (save-excursion
+    (let ((buf (get-buffer-create "*tdiary-passwd-cache*")))
+      (when (and tdiary-passwd-file
+		 (file-readable-p tdiary-passwd-file))
+	(set-buffer buf)
+	(insert-file-contents tdiary-passwd-file)
+	(setq tdiary-passwd-cache (read buf)))
+      (kill-buffer buf))))
+
+(defun tdiary-passwd-file-save ()
+  "Save password alist.
+Dangerous!!!"
+  (interactive)
+  (save-excursion
+    (let ((buf (get-buffer-create "*tdiary-passwd-cache*")))
+      (set-buffer buf)
+      (erase-buffer)
+      (prin1 tdiary-passwd-cache buf)
+      (terpri buf)
+      (when (and tdiary-passwd-file
+		 (file-writable-p tdiary-passwd-file))
+	(write-region (point-min) (point-max) tdiary-passwd-file)
+	(set-file-modes tdiary-passwd-file tdiary-passwd-file-mode))
+      (kill-buffer buf))))
+
+(defun tdiary-passwd-cache-clear (url)
+  (setq tdiary-passwd-cache (remassoc url tdiary-passwd-cache)))
+
+(defun tdiary-passwd-cache-save (url user pass)
+  (tdiary-passwd-cache-clear url)
+  (add-to-list 'tdiary-passwd-cache
+	       (cons url (cons user (base64-encode-string pass)))))
+
+(defun tdiary-passwd-cache-read-username (url)
+  (cadr (assoc url tdiary-passwd-cache)))
+
+(defun tdiary-passwd-cache-read-password (url)
+  (let ((password (cddr (assoc url tdiary-passwd-cache))))
+    (and password
+	 (base64-decode-string password))))
+
+(defun tdiary-post (mode date data)
+  (let ((url (concat tdiary-diary-url tdiary-update-rb))
+	buf title user pass year month day post-data)
+    (when (not (equal mode "edit"))
+      (setq tdiary-edit-mode (setq mode (tdiary-read-mode mode)))
+      (setq tdiary-date (setq date (tdiary-read-date date)))
+      (setq tdiary-title (setq title (tdiary-read-title date))))
+    (setq user (tdiary-read-username url tdiary-diary-name))
+    (setq pass (tdiary-read-password url tdiary-diary-name))
+    (string-match "\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)"
+		  date)
+    (setq year (match-string 1 date)
+	  month (match-string 2 date)
+	  day (match-string 3 date))
+    (add-to-list 'post-data (cons "old" date))
+    (add-to-list 'post-data (cons "year" year))
+    (add-to-list 'post-data (cons "month" month))
+    (add-to-list 'post-data (cons "day" day))
+    (if tdiary-csrf-key (add-to-list 'post-data (cons "csrf_protection_key" tdiary-csrf-key)))
+    (or (equal mode "edit")
+	(add-to-list 'post-data
+		     (cons "title" (http-url-hexify-string
+				    title
+				    tdiary-coding-system))))
+    (add-to-list 'post-data (cons mode mode))
+    (and data
+	(add-to-list 'post-data 
+		     (cons "body"
+			   (http-url-hexify-string data tdiary-coding-system))))
+    (setq buf (http-fetch url 'post user pass post-data))
+    (if (bufferp buf)
+	(save-excursion
+	  (tdiary-passwd-cache-save url user pass)
+	  (set-buffer buf)
+	  (decode-coding-region (point-min) (point-max) tdiary-coding-system)
+	  (goto-char (point-min))
+	  buf)
+      (tdiary-passwd-cache-clear url)
+      (error "tDiary POST: %s - %s" (car buf) (cdr buf)))))
+
+(defun tdiary-post-text ()
+  (let* ((dirname (expand-file-name tdiary-diary-name
+				    (or tdiary-text-directory
+					(expand-file-name "~/"))))
+	 (filename (expand-file-name (concat tdiary-date tdiary-text-suffix)
+				     dirname)))
+    (unless (file-directory-p dirname)
+      (make-directory dirname t)
+      (set-file-modes dirname tdiary-text-directory-mode))
+
+    ;; If buffer-file-name is tdiary-text-directory/tdiary-diary-name/yyyymmdd.td
+    ;; do nothing.
+    (unless (equal filename buffer-file-name)
+      (cond
+       ((equal tdiary-edit-mode "replace")
+	(write-region (point-min) (point-max) filename))
+       ((equal tdiary-edit-mode "append")
+	(write-region (point-min) (point-max) filename t))))))
+
+(defun tdiary-update ()
+  "Update diary."
+  (interactive)
+  (unless (and (eq (char-before (point-max)) ?\n)
+	       (eq (char-before (1- (point-max))) ?\n))
+    (save-excursion
+      (goto-char (point-max))
+      (insert "\n")))
+  (tdiary-post tdiary-edit-mode tdiary-date
+	       (buffer-substring (point-min) (point-max)))
+  (when tdiary-text-save-p
+    (tdiary-post-text))
+  (if buffer-file-name
+      (save-buffer)
+    (set-buffer-modified-p nil))
+  (message "SUCCESS")
+  (and (functionp tdiary-browser-function)
+       (funcall tdiary-browser-function
+		(concat tdiary-diary-url tdiary-index-rb
+			"?date=" tdiary-date))))
+
+(defun tdiary-do-replace-entity-ref (from to &optional str)
+  (save-excursion
+    (goto-char (point-min))
+    (if (stringp str)
+	(progn
+	  (while (string-match from str)
+	    (setq str (replace-match to nil nil str)))
+	  str)
+      (while (search-forward from nil t)
+	(replace-match to nil nil)))))
+
+(defun tdiary-replace-entity-refs (&optional str)
+  "Replace entity references.
+
+If STR is a string, replace entity references within the string.
+Otherwise replace all entity references within current buffer."
+  (tdiary-do-replace-entity-ref
+   "&amp;" "&"	 
+   (tdiary-do-replace-entity-ref
+    "&lt;" "<"
+    (tdiary-do-replace-entity-ref
+     "&gt;" ">"
+     (tdiary-do-replace-entity-ref "&quot;" "\"" str)))))
+
+;(defun tdiary-read-mode (mode)
+;  (let ((default (caar tdiary-edit-mode-list)))
+;    (completing-read "Editing mode: " tdiary-edit-mode-list
+;		   nil t (or mode default) nil default)))
+
+
+(defun tdiary-obsolete-check ()
+  ;; setting tdiary-diary-url in tdiary-init-file is obsolete.
+  (when tdiary-diary-url
+    (message "tdiary-diary-url is OBSOLETE.  Use tdiary-diary-list instead of tdiary-diary-url.")
+    (sit-for 5)))
+
+;(defun tdiary-setup-diary-url (select-url)
+;  (interactive)
+;  (if (interactive-p)
+;      (setq select-url t))
+(defun tdiary-setup-diary-url (select-url)
+  ;; setting tdiary-diary-url in tdiary-init-file is obsolete.
+  (tdiary-obsolete-check)
+  (unless tdiary-diary-url
+    (let* ((selected (car tdiary-diary-list))
+	   (default (car selected)))
+      (when select-url
+	(setq selected (assoc (completing-read "Select SITE: " tdiary-diary-list
+					       nil t default nil default)
+			      tdiary-diary-list)))
+      (setq tdiary-diary-name (nth 0 selected)
+	    tdiary-diary-url (nth 1 selected))
+      (and (eq (length selected) 4)
+	   (setq tdiary-index-rb (nth 2 selected)
+		 tdiary-update-rb (nth 3 selected))))))
+
+(defun tdiary-new-or-replace (replacep select-url)
+  (let (buf)
+    (setq buf (generate-new-buffer "*tdiary tmp*"))
+    (switch-to-buffer buf)
+    (tdiary-mode)
+    (setq tdiary-edit-mode "append")
+    (let (start end body title csrf-key)
+      (save-excursion
+	(setq buf (tdiary-post "edit" tdiary-date nil))
+	(when (bufferp buf)
+	  (save-excursion
+	    (set-buffer buf)
+	    (if (re-search-forward "<input [^>]+name=\"csrf_protection_key\" [^>]*value=\"\\([^>\"]*\\)\">" nil t nil)
+		(setq csrf-key (match-string 1)))
+	    (re-search-forward "<input [^>]+name=\"title\" [^>]+value=\"\\([^>\"]*\\)\">" nil t nil)
+	    (setq title (match-string 1))
+	    (re-search-forward "<textarea [^>]+>" nil t nil)
+	    (setq start (match-end 0))
+	    (re-search-forward "</textarea>" nil t nil)
+	    (setq end (match-beginning 0))
+	    (setq body (buffer-substring start end))
+	    )
+	  (setq tdiary-csrf-key (and csrf-key (tdiary-replace-entity-refs csrf-key)))
+	  (when replacep
+	    (insert body)
+	    (setq tdiary-edit-mode "replace")
+	    (setq tdiary-title (tdiary-replace-entity-refs title))
+	    (goto-char (point-min))
+	    (tdiary-replace-entity-refs)
+	    (set-buffer-modified-p nil)))))))
+
+(defun tdiary-new (&optional select-url)
+  (interactive "P")
+  (tdiary-new-or-replace nil select-url))
+
+(defun tdiary-replace (&optional select-url)
+  (interactive "P")
+  (tdiary-new-or-replace t select-url))
+
+(defvar tdiary-mode-map (make-sparse-keymap)
+  "Set up keymap for tdiary-mode.
+If you want to set up your own key bindings, use `tdiary-mode-hook'.")
+
+(define-key tdiary-mode-map [(control return)] 'tdiary-complete-plugin)
+(define-key tdiary-mode-map "\C-c\C-c" 'tdiary-update)
+
+(push (cons 'tdiary-date tdiary-mode-map) minor-mode-map-alist)
+(if (boundp 'minor-mode-list) (push 'tdiary-mode minor-mode-list))
+(push '(tdiary-date " tDiary") minor-mode-alist)
+
+(defun tdiary-load-init-file ()
+  "Load init file."
+  (let ((init-file (expand-file-name tdiary-init-file)))
+    (when (file-readable-p init-file)
+      (load init-file t t))))
+
+(defun tdiary-make-temp-file-name ()
+  (let ((tmpdir (expand-file-name tdiary-diary-name
+				  (expand-file-name (user-login-name)
+						    temporary-file-directory))))
+    (unless (file-directory-p tmpdir)
+      (make-directory tmpdir t)
+      (set-file-modes tmpdir tdiary-text-directory-mode))
+    (expand-file-name tdiary-date tmpdir)))
+
+(defun tdiary-html-mode-init ()
+  "Initialize tDiary for default style"
+  (tdiary-tempo-define (append tdiary-plugin-initial-definition
+			       tdiary-plugin-definition))
+  (tempo-use-tag-list 'tdiary-tempo-tags tdiary-completion-finder))
+
+(defun tdiary-rd-mode-init ()
+  "Initialize tDiary for RD style"
+  )
+
+(defun tdiary-mode ()
+  "tDiary editing mode.
+The value of `tdiary-style-mode' will be used as actual major mode.
+
+\\{tdiary-mode-map}"
+  (interactive)
+  (funcall tdiary-style-mode)
+  (and (featurep 'font-lock)
+       (font-lock-set-defaults))
+  (tdiary-mode-setup))
+
+(defun tdiary-mode-setup ()
+  "Set tDiary mode up."
+  (interactive)
+  (make-local-variable 'require-final-newline)	
+  (make-local-variable 'tdiary-date)
+  (make-local-variable 'tdiary-title)
+  (make-local-variable 'tdiary-edit-mode)
+  (make-local-variable 'tdiary-diary-url)
+  (make-local-variable 'tdiary-index-rb)
+  (make-local-variable 'tdiary-update-rb)
+  (make-local-variable 'tdiary-csrf-key)
+  (setq require-final-newline t
+	indent-tabs-mode nil
+	tdiary-edit-mode "replace"
+	tdiary-date (format-time-string "%Y%m%d" (tdiary-today)))
+
+  (tdiary-load-init-file)
+
+  (tdiary-setup-diary-url (if (boundp 'select-url)
+			      select-url
+			    t))
+
+  (set-buffer-file-coding-system tdiary-coding-system)
+
+  (or tdiary-passwd-cache
+      (tdiary-passwd-file-load))
+
+  (if buffer-file-name
+      (let ((buf-name (file-name-nondirectory buffer-file-name)))
+	(when (string-match
+	       "\\([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\\)"
+	       buf-name)
+	  (setq tdiary-date (match-string 1 buf-name))))
+    (setq tdiary-date (tdiary-read-date nil))
+    (if tdiary-text-save-p
+	(set-visited-file-name (tdiary-make-temp-file-name))
+      (unless (string= (buffer-name) tdiary-date)
+	(rename-buffer tdiary-date t))))
+
+  (let ((init (intern (concat "tdiary-" (symbol-name tdiary-style-mode) "-init"))))
+    (if (fboundp init) (funcall init)))
+
+  (run-hooks 'tdiary-mode-hook))
+
+(defun tdiary-mode-toggle (&optional arg)
+  (interactive "P")
+  (let ((in-tdiary (and (boundp 'tdiary-date) tdiary-date)))
+    (cond ((not arg)
+	   (setq arg (not in-tdiary)))
+	  ((or (eq arg '-) (and (numberp arg) (< arg 0)))
+	   (setq arg nil)))
+    (cond (arg
+	   (tdiary-mode-setup))
+	  (in-tdiary
+	   (setq tdiary-date nil)))))
+
+(provide 'tdiary-mode)
+;;; tdiary-mode.el ends here

data/util/tdiary-vim/ChangeLog

@@ -0,0 +1,25 @@
+2005-07-29 Fri UECHI Yasumasa <uechi@potaway.net>
+	* echo site name and url when select a diary site.
+	* allow to set update script each diary.
+	* use CSRF protection key if exits.
+
+2005-07-28 Thu UECHI Yasumasa <uechi@potaway.net>
+	* send referer when update a diary.
+
+2004-11-08 Mon UECHI Yasumasa <uechi@potaway.net>
+	* change substitution order of character entity in TdiaryReplace(). thanx やえもん.
+
+2004-02-25 Wed UECHI Yasumasa <uechi@potaway.net>
+	* support TrackBack
+
+2004-02-19 Thu UECHI Yasumasa <uechi@potaway.net>
+	* quote argument of curl's -u option.
+
+2004-02-17 Tue UECHI Yasumasa <uechi@potaway.net>
+	* use .netrc when g:tdiary_use_netrc = 1
+
+2004-02-16 Mon UECHI Yasumasa <uechi@potaway.net>
+	* change editing mode, date, title in diary buffer.
+
+2004-02-13 Fri UECHI Yasumasa <uechi@potaway.net>
+	* commit to CVS repository

data/util/tdiary-vim/README

@@ -0,0 +1,60 @@
+= tdiary.vim
+tdiary.vim は vim から日記を更新するための vimスクリプトです。
+
+== 必要なもの
+tdiary.vim を使用するには以下のものが必要です。
+
+* cURL - コマンドラインから http や ftp で通信するためのツール
+* iconv ライブラリ
+* vim (+iconv でコンパイルしたもの)
+
+cURL は ((<URL:http://curl.haxx.se/>)) から入手できます。
+
+== インストール
+tdiary.vim を $HOME/.vim/plugin ディレクトリにコピーするだけです。
+
+== 設定
+$HOME/.vimrc で次のように tDiary サイトの URL を設定します。
+
+ let tdiary_site1_url = "http://www.example.com/tdiary/"
+
+最低限必要な設定はこれだけですが、複数の日記を更新するなら以下のような設定を追加してください。
+
+ let tdiary_site1_name = "ほげほげ日記"
+ let tdiary_site2_url = "http://www.example.net/tdiary/"
+ let tdiary_site2_name = "foobar日記"
+
+tDiary を設置するときに update.rb を update.cgi 等に変更している場合は以下も追加してください。
+
+ let tdiary_site1_updatescript = "update.cgi"
+ let tdiary_site2_updatescript = "update.cgi"
+
+== パスワードの保存
+cURL は $HOME/.netrc を読めるので、パスワードの保存にその機能を使います。ユーザ名とパスワードを .netrc に保存し、$HOME/.vimrc に
+
+ let tdiary_use_netrc = 1
+
+と設定すると有効になります。
+
+== 使い方
+tdiary.vim では次のコマンドが使えます。
+
+* :TDiaryNew - 日記を書くための空のバッファを開きます
+* :TDiaryReplace - 指定した日付の日記を読み込んだバッファを開きます
+* :TDiaryUpdate - 日記を更新します
+* :TDiarySelect - 更新する tDiary サイトを選択するためのバッファを開きます
+* :TDiaryTrackback - TrackBack の excerpt を編修するためのバッファを開きます
+
+=== 日記に追記
+:TDiaryNew すると日付が YYYYMMDD 形式で表示されますので、適宜修正してリターンキーを押してください。日記を書いたら :TDiaryUpdate で更新してください。
+
+=== 日記を修正
+:TDiaryReplace すると日付が YYYYMMDD 形式で表示されますので、修正したい日付に直してリターンキーを押してください。指定した日の日記が読み込まれます。修正後に :TDiaryUpdate で更新してください。
+
+=== tDiary サイトの選択
+:TDiarySelect すると日記の一覧が表示されます。日記にカーソルを合わせてリターンキーを押すことで書き込み先が切り替わります。
+
+=== TrackBack
+日記の編修バッファに表示されている TrackBackURL: に TrackBack 先の URL を記
+入することで TrackBack が送られます。excerpt を編修する場合は :TDiaryTrackback
+することで編修用のバッファが開きます。