Changeset 24544 for lang/elisp

Timestamp:

11/21/08 11:25:17 (5 years ago)

Author:

kentaro

Message:

urlにformat関数のテンプレートを指定できるようにした http://d.hatena.ne.jp/higepon/20081120/1227192709

Files:

• lang/elisp/outputz/outputz.el (modified) (5 diffs)

lang/elisp/outputz/outputz.el

@@ -39 +39 @@
 ;;
 
+;;; Change Log:
+
+;; 2008-11-21:
+;;  * Applied a patch from id:hayamiz++. Some bugs are fixed.
+;;    http://d.hatena.ne.jp/hayamiz/20081121/1227228535
+;;  * `outpuz-url' now can be format template. `outputz' command adds
+;;    `major-mode' string into url when posting.
+;;    http://d.hatena.ne.jp/higepon/20081120/1227192709
+;;
+;; 2008-11-20:
+;;  * Initial import
+
 (defvar outputz-key nil)
 (defvar outputz-url nil)
@@ -58 +70 @@
     (dolist (path load-path)
       (when (or (file-exists-p (expand-file-name "mailcap.el" path))
-                (file-exists-p (expand-file-name "mailcap.elc" path)))
-        (load (expand-file-name "mailcap" path)))
+                (file-exists-p (expand-file-name "mailcap.elc" path)))
+        (load (expand-file-name "mailcap" path)))
       (when (fboundp 'mailcap-parse-mailcaps)
-        (return)))))
+        (return)))))
 
 (require 'easy-mmode)
@@ -83 +95 @@
 
 (add-hook 'find-file-hook
-          (lambda ()
-            (when outputz-mode
-              (setq outputz-count
-                    (max 0 (- (point-max) (point-min)))))))
+          (lambda ()
+            (when outputz-mode
+              (setq outputz-count
+                    (max 0 (- (point-max) (point-min)))))))
 
 (add-hook 'after-save-hook 'outputz)
@@ -96 +108 @@
       (when (and (> current-count 0)
                  (> current-count outputz-count))
-        (outputz-post (- current-count outputz-count))
-        )
+        (outputz-post (- current-count outputz-count)))
       (setq outputz-count current-count))))
 
@@ -107 +118 @@
         (url-request-data
          (concat "key="   outputz-key
-                 "&uri="  outputz-uri
+                 "&uri="  (format outputz-uri major-mode)
                  "&size=" (int-to-string count))))
     (url-retrieve url 'outputz-callback)))