cwiki-add.el

   1 ;; -*- coding: utf-8-mcs-er -*-
   2 (defvar chise-wiki-view-url "view.cgi")
   3 (defvar chise-wiki-edit-url "edit.cgi")
   4
   5 (require 'cwiki-edit)
   6
   7 ;; (defun www-add-display-feature-input-box (char &optional format)
   8 ;;   (unless format
   9 ;;     (setq format 'default))
  10 ;;   (princ
  11 ;;    "<p><input type=\"text\" name=\"feature-name\"
  12 ;; size=\"32\" maxlength=\"256\" value=\"\">")
  13 ;;   (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er))
  14 ;;   (princ
  15 ;;    (format "%s<input type=\"text\" name=\"%s\"
  16 ;; size=\"64\" maxlength=\"256\" value=\"\">
  17 ;; <input type=\"submit\" value=\"set\" /></p>
  18 ;; "
  19 ;;            (if (or (eq format 'HEX)(eq format 'hex))
  20 ;;                "0x"
  21 ;;              "")
  22 ;;            format))
  23 ;;   )
  24
  25 (defun www-add-display-object-desc (genre uri-object &optional lang format)
  26   (www-edit-display-object-desc genre uri-object "" lang format)
  27   )
  28
  29 (defun www-batch-add ()
  30   (setq terminal-coding-system 'binary)
  31   (condition-case err
  32       (let* ((target (pop command-line-args-left))
  33              (user (pop command-line-args-left))
  34              (accept-language (pop command-line-args-left))
  35              (lang
  36               (intern (car (split-string
  37                             (car (split-string
  38                                   (car (split-string accept-language ","))
  39                                   ";"))
  40                             "-"))))
  41              ret)
  42         (princ "Content-Type: text/html; charset=UTF-8
  43
  44 <!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
  45             \"http://www.w3.org/TR/html4/loose.dtd\">
  46 <html lang=\"ja\">
  47 ")
  48         (setq target
  49               (mapcar (lambda (cell)
  50                         (if (string-match "=" cell)
  51                             (cons
  52                              (intern
  53                               (decode-uri-string
  54                                (substring cell 0 (match-beginning 0))
  55                                'utf-8-mcs-er))
  56                              (substring cell (match-end 0)))
  57                           (list (decode-uri-string cell 'utf-8-mcs-er))))
  58                       (split-string target "&")))
  59         (setq ret (car target))
  60         (cond (t ; (eq (car ret) 'char)
  61                (www-add-display-object-desc
  62                 (car ret)
  63                 (cdr ret)
  64                 lang
  65                 (decode-uri-string (cdr (assq 'format target))
  66                                    'utf-8-mcs-er))
  67                )
  68               ;; ((eq (car ret) 'feature)
  69               ;;  (www-add-display-feature-desc
  70               ;;   (decode-uri-string (cdr ret) 'utf-8-mcs-er)
  71               ;;   (decode-uri-string (cdr (assq 'property target))
  72               ;;                      'utf-8-mcs-er)
  73               ;;   lang
  74               ;;   (cdr (assq 'char target))
  75               ;;   ;; (decode-uri-string (cdr (assq 'char target))
  76               ;;   ;;                    'utf-8-mcs-er)
  77               ;;   ))
  78               )
  79         (www-html-display-paragraph
  80          (format "%S" target))
  81         (princ "\n<hr>\n")
  82         (princ (format "user=%s\n" user))
  83         (princ (format "local user=%s\n" (user-login-name)))
  84         (princ (format "lang=%S\n" lang))
  85         (princ emacs-version)
  86         (princ " CHISE ")
  87         (princ (encode-coding-string xemacs-chise-version 'utf-8-jp-er))
  88         (princ "
  89 </body>
  90 </html>")
  91         )
  92     (error nil
  93            (princ (format "%S" err)))
  94     ))