Changeset 24544 for lang/elisp

Show
Ignore:
Timestamp:
11/21/08 11:25:17 (5 years ago)
Author:
kentaro
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/outputz/outputz.el

    r24543 r24544  
    3939;; 
    4040 
     41;;; Change Log: 
     42 
     43;; 2008-11-21: 
     44;;  * Applied a patch from id:hayamiz++. Some bugs are fixed. 
     45;;    http://d.hatena.ne.jp/hayamiz/20081121/1227228535 
     46;;  * `outpuz-url' now can be format template. `outputz' command adds 
     47;;    `major-mode' string into url when posting. 
     48;;    http://d.hatena.ne.jp/higepon/20081120/1227192709 
     49;; 
     50;; 2008-11-20: 
     51;;  * Initial import 
     52 
    4153(defvar outputz-key nil) 
    4254(defvar outputz-url nil) 
     
    5870    (dolist (path load-path) 
    5971      (when (or (file-exists-p (expand-file-name "mailcap.el" path)) 
    60                 (file-exists-p (expand-file-name "mailcap.elc" path))) 
    61         (load (expand-file-name "mailcap" path))) 
     72                (file-exists-p (expand-file-name "mailcap.elc" path))) 
     73        (load (expand-file-name "mailcap" path))) 
    6274      (when (fboundp 'mailcap-parse-mailcaps) 
    63         (return))))) 
     75        (return))))) 
    6476 
    6577(require 'easy-mmode) 
     
    8395 
    8496(add-hook 'find-file-hook 
    85           (lambda () 
    86             (when outputz-mode 
    87               (setq outputz-count 
    88                     (max 0 (- (point-max) (point-min))))))) 
     97          (lambda () 
     98            (when outputz-mode 
     99              (setq outputz-count 
     100                    (max 0 (- (point-max) (point-min))))))) 
    89101 
    90102(add-hook 'after-save-hook 'outputz) 
     
    96108      (when (and (> current-count 0) 
    97109                 (> current-count outputz-count)) 
    98         (outputz-post (- current-count outputz-count)) 
    99         ) 
     110        (outputz-post (- current-count outputz-count))) 
    100111      (setq outputz-count current-count)))) 
    101112 
     
    107118        (url-request-data 
    108119         (concat "key="   outputz-key 
    109                  "&uri="  outputz-uri 
     120                 "&uri="  (format outputz-uri major-mode) 
    110121                 "&size=" (int-to-string count)))) 
    111122    (url-retrieve url 'outputz-callback)))