www.feedburner.jpサービス開始(続報)

日記: www.feedburner.jpサービス開始で

たとえば、｢更新時にpingをうってくれる｣サービスはActiveにできるけどサーバが選択できないとか。

と書いたのですが、今日再度見てみたら選択できるようになっていました。
選択できるのは日本国内のサーバと海外のサーバ。
日本人が使うなら～.comよりも有効かもしれないですね。

www.feedburner.jpサービス開始

www.feedburner.jpがサービスを開始した。
運営(?)はGMOアドネットワークス株式会社。

www.feedburner.comを利用しようとしているが英語がわからないので躊躇していた僕には吉報。
でも、全サービス対応ではないみたい。
たとえば、｢更新時にpingをうってくれる｣サービスはActiveにできるけどサーバが選択できないとか。

だめジャン。ってことで様子見決定！

[Firefox] minimizetotray

[2006-Feb-03] 説明のページをこちらに変更します。
今のところ同じ内容が書いてあります。


Software Memo: [Firefox] mozdev.org - minimizetotray

最近Google検索からminimizetotray目的で来る人が多いようなので、こちらのblogに簡単な説明を書いておきます。

1. Extensionの概要
   • Windows版Firefox用Extension
   • 素のFirefoxで最小化した場合、タスクバーに表示され、タスクトレイには格納されません。このExtensionを使用する事で、最小化時にタスクトレイのみに表示するようになります。
2. Extensionの入手先
   • minimizetotrayのHomepageはこちらになります。
   • 上記ページをよく読んでからInstallationのページに進んでください。
3. Extension導入時の注意点
   
   • 使用しているFirefox(やThunderbird/Mozilla/etc...)のバージョンによってｉｎｓｔａｌｌする.xpiファイルが異なります。
     Firefox 1.5を使用している人は～.trunk.～の方を使ってください。
     

Meadow3 その5 ddskkのインストール

ddskkをインストールする。

1. cvs サーバからの SKK ソースの入手を参考にCVS Headをcheckoutする。
   

   $ cvs -d :pserver:guest@openlab.jp:/circus/cvsroot login
   $ cvs -d :pserver:guest@openlab.jp:/circus/cvsroot checkout skk/main
   

2. SKK-CFGの内容を編集する。
   

   (setq APEL_SPECIFIC_LISPDIR "d:/Meadow3/packages/lisp/apel")
   (setq LISPDIR "d:/Meadow3/site-lisp")
   (setq VERSION_SPECIFIC_LISPDIR "d:/Meadow3/site-lisp/2.11")
   (setq EMU_PREFIX "emu")
   (setq SKK_DATADIR "d:/Meadow3/etc")
   (setq SKK_INFODIR "d:/Meadow3/info")
   (setq SKK_LISPDIR "d:/Meadow3/site-lisp/ddskk")

3. コンパイルを行ない、指定フォルダにインストールする。

   $ make EMACS=/Meadow3/bin/Meadow.exe
   $ make EMACS=/Meadow3/bin/Meadow.exe what-where
   $ make EMACS=/Meadow3/bin/Meadow.exe install
   $ cp -Rpvu ./experimental/ /Meadow3/site-lisp/ddskk/

4. .emacsを編集する。

   (global-set-key [hiragana-katakana] 'skk-mode)
   (setq skk-byte-compile-init-file t)
   (setq default-input-method "japanese-skk")
   (if (not (file-directory-p "~/.Meadow3/.ddskk"))
   (make-directory "~/.Meadow3/.ddskk"))
   (setq skk-init-file "~/.Meadow3/.ddskk/init"
   skk-custom-file "~/.Meadow3/.ddskk/custom"
   skk-emacs-id-file "~/.Meadow3/.ddskk/emacs-id"
   skk-record-file "~/.Meadow3/.ddskk/record"
   skk-jisyo "~/.Meadow3/.ddskk/jisyo"
   skk-backup-jisyo "~/.Meadow3/.ddskk/jisyo.bak")
   (setq skk-isearch-start-mode 'latin)
   (setq skk-study-file "~/.Meadow3/.ddskk/skk-study"
   skk-study-backup-file "~/.Meadow3/.ddskk/skk-study.bak")
   (setq skk-aux-large-jisyo "/usr/share/SKK/SKK-JISYO.L")
   (require 'skk-setup)

5. .skkを編集する。

   (setq skk-server-host "localhost")
   (setq skk-server-portnum 1178)
   (setq skk-japanese-message-and-error t)
   (setq skk-show-annotation t)
   (setq skk-show-tooltip t)
   (when skk-show-tooltip
   (setq skk-tooltip-parameters
   '((background-color . "alice blue")
   (border-color . "royal blue")))
   )
   (setq skk-show-inline t)
   (when skk-show-inline
   (setq skk-inline-show-face nil))
   (setq skk-treat-candidate-appearance-function
   #'(lambda (candidate listing-p)
   (let* ((value (skk-treat-strip-note-from-word candidate))
   (cand (car value))
   (note (cdr value))
   (sep (if note
   (propertize (if (skk-annotation-display-p 'list)
   " ≒ "
   " !")
   'face 'skk-e21-latin-face)
   nil)))
   (cond (note
   (put-text-property 0 (length cand)
   'face 'skk-e21-jisx0201-face cand)
   (put-text-property 0 (length note)
   'face 'skk-e21-katakana-face note)
   (cons cand (cons sep note)))
   (t
   (put-text-property 0 (length cand)
   'face 'skk-e21-hiragana-face cand)
   cand)))))
   (setq skk-egg-like-newline t)
   (setq skk-delete-implies-kakutei nil)
   (setq skk-auto-insert-paren t)
   (setq skk-dcomp-activate t)
   (setq skk-henkan-strict-okuri-precedence t)
   (setq skk-check-okurigana-on-touroku 'ask)
   (setq skk-use-numeric-conversion t)
   (when skk-use-numeric-conversion
   (setq skk-non-numeric-prog-list
   '(skk-look
   skk-tankan-search
   (skk-search-jisyo-file \"/usr/share/skk/SKK-JISYO.jinmei\" 10000))))
   (setq skk-auto-okuri-process t)
   (setq skk-search-prog-list
   (skk-nunion skk-search-prog-list
   '((skk-search-katakana))))
   (setq skk-search-prog-list
   (skk-nunion skk-search-prog-list
   '((skk-search-sagyo-henkaku))))
   (setq skk-share-private-jisyo t)
   (defvar skk-auto-save-jisyo-interval 600)
   (defun skk-auto-save-jisyo ()
   (skk-save-jisyo)
   (skk-bayesian-save-history)
   (skk-bayesian-corpus-save)
   )
   (run-with-idle-timer skk-auto-save-jisyo-interval
   skk-auto-save-jisyo-interval
   'skk-auto-save-jisyo)
   (setq skk-rom-kana-rule-list
   (cons '("-" nil skk-hyphen)
   skk-rom-kana-rule-list))
   (defun skk-hyphen (arg)
   (let ((c (char-before (point))))
   (cond ((null c) "ー")
   ((and (<= ?0 c) (>= ?9 c)) "-")
   ((and (<= ?０ c) (>= ?９ c)) "－")
   ((= 9 c) "-")
   ((and (<= 30 c) (>= 127 c)) "-")
   ((and (<= ?ａ c) (>= ?ｚ c)) "－")
   ((and (<= ?Ａ c) (>= ?Ｚ c)) "－")
   ((and (<= ?！ c) (>= ?／ c)) "－")
   (t "ー"))))
   (defvar skk-last-input (current-time))
   (defvar skk-autooff-secs 60)
   (defvar skk-autooff-poll 3)
   (defvar skk-autooff-timer nil)
   (defadvice skk-insert (after my-add activate)
   (setq skk-last-input (current-time)))
   (setq skk-autooff-timer
   (run-with-timer
   skk-autooff-poll skk-autooff-poll
   (lambda ()
   (when (and (or skk-abbrev-mode skk-j-mode
   skk-jisx0208-latin-mode skk-jisx0201-mode)
   (>= (skk-time-difference skk-last-input (current-time))
   skk-autooff-secs))
   (skk-latin-mode nil)))))
   (defadvice skk-kakutei (after my-add activate)
   (setq skk-last-input (current-time)))
   (setq skk-search-excluding-word-pattern-function
   (function
   (lambda (kakutei-word)
   (save-match-data
   (and
   (not skk-okuri-char)
   (string-match "^[ーァ-ン]+$" kakutei-word)
   (or (not skk-abbrev-mode)
   (not (string-match "^[^ーァ-ンぁ-ん]+$"
   skk-henkan-key))))))))
   (setq skk-rom-kana-rule-list
   (append
   '(("\\" nil "\\")
   ("~" nil "～"))
   skk-rom-kana-rule-list))
   (setq skk-bayesian-history-file "~/.Meadow3/.ddskk/skk-bayesian"
   skk-bayesian-corpus-make t
   skk-bayesian-corpus-file "~/.Meadow3/.ddskk/skk-corpus"
   )
   (require 'skk-bayesian)
   (setq skk-rom-kana-rule-list
   (append skk-rom-kana-rule-list
   '(("." nil skk-period))))
   (defun skk-period (arg)
   (let ((c (char-before (point))))
   (cond ((null c) "。")
   ((and (<= ?0 c) (>= ?9 c)) ".")
   ((and (<= ?０ c) (>= ?９ c)) "．")
   ((= 9 c) ".")
   ((and (<= 30 c) (>= 127 c)) ".")
   ((and (<= ?ａ c) (>= ?ｚ c)) "．")
   ((and (<= ?Ａ c) (>= ?Ｚ c)) "．")
   ((and (<= ?！ c) (>= ?／ c)) "．")
   (t "。"))))
   (setq skk-rom-kana-rule-list
   (append skk-rom-kana-rule-list
   '((":" nil skk-colon))))
   (defun skk-colon (arg)
   (let ((c (char-before (point))))
   (cond ((null c) "：")
   ((and (<= ?0 c) (>= ?9 c)) ":")
   ((and (<= ?０ c) (>= ?９ c)) "：")
   ((= 9 c) ":")
   ((and (<= 30 c) (>= 127 c)) ":")
   ((and (<= ?ａ c) (>= ?ｚ c)) "：")
   ((and (<= ?Ａ c) (>= ?Ｚ c)) "：")
   ((and (<= ?！ c) (>= ?／ c)) "：")
   (t "："))))
   (setq skk-number-style nil)
   (require 'skk-hint)

Meadow3 その4 sessionの設定

session.elの設定

以下を.emacsに追加

(when (locate-library "session")
(setq session-save-file "~/.Meadow3/.session")
(setq session-globals-max-size 4096) ;; default 50
(setq session-globals-max-string 2048) ;; default 1024
(setq session-registers-max-string 2048) ;; default 1024
(setq session-menu-max-size 60) ;; default 30
(setq session-file-menu-max-string (quote (100 . 40)))
;; default Max. length:50 / Name threshold:20
(setq session-edit-menu-max-string 100) ;; default 50
(setq session-globals-regexp "-\\(ring\\|history\\|hist\\)\\'")
(eval-after-load "session"
'(progn
(defadvice find-alternate-file
(before session-store-buffer-places last activate)
"Invoke session-kill-buffer-hook."
(session-kill-buffer-hook))
(add-to-list 'session-kill-buffer-commands 'find-alternate-file)
(add-to-list 'session-globals-exclude 'howm-view-summary-shell-hist)
))
)

Meadow3 その3

.emacs(実際には~/.Meadow3/init.el)の設定

• /Meadow3/dot.emacs.jaを~/.Meadow3/init.elにcopy&rename
• 以下の設定が有効になるようにコメントアウトを解除
  
  • Mule-UCS の設定
  • Cygwin の bash を使う場合
  • fakecygpty の設定
• 以下の設定を追加
  
  • custom-file の設定
    

    (setq custom-file "~/.Meadow3/.custom-file")
    (load "~/.Meadow3/.custom-file")

  • FQDNの取得
    

    (setq system-name (w32-get-fqdn))

  • $homeへ移動
    

    (cd "~")

Meadow3 その2

Netinstallから入れたPackage。

• base
  
  • Meadow
  • imagemagic
  • misc
    
• font
  
  • mule-fonts
  • ms-fonts-ja
    
• info
  
  • info-ja-eintr
  • info-ja-elisp
  • info-ja-emacs
    
• library
  
  • apel
  • flim
  • semi
  • mule-ucs
    
• Utils
  
  • ispell
  • japanese-holidays
  • session
    

Meadow3

新しい年になったので気分も新たにMeadow3をインストールする事にした。

ただし、Meadow2は仕事でバリバリ使っているので共存する必要あり。
で、とりあえず別フォルダにインストール&以下の.emacsを用意して対応する事にした。

(cond
((and (featurep 'meadow)
(eq emacs-major-version '20))
;; ここに Meadow 1.15 用の設定を書く
(load "~/.Meadow.elc")
)
((and (featurep 'meadow)
(eq emacs-major-version '21))
;; ここに Meadow 2.00 用の設定を書く
(load "~/.Meadow2/init")
)
((and (featurep 'meadow)
(eq emacs-major-version '22))
;; ここに Meadow 3.00 用の設定を書く
(load "~/.Meadow3/init")
)
)

まずは起動までOK。
あとは設定するのみ。