Wednesday, January 25, 2006

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

日記: www.feedburner.jpサービス開始
たとえば、「更新時にpingをうってくれる」サービスはActiveにできるけどサーバが選択できないとか。
と書いたのですが、今日再度見てみたら選択できるようになっていました。
選択できるのは日本国内のサーバと海外のサーバ。
日本人が使うなら~.comよりも有効かもしれないですね。

Comments:

Post a Comment

www.feedburner.jpサービス開始

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

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

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

Comments:

Post a Comment

Monday, January 16, 2006

[Firefox] minimizetotray

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


Software Memo: [Firefox] mozdev.org - minimizetotray

最近Google検索からminimizetotray目的で来る人が多いようなので、こちらのblogに簡単な説明を書いておきます。
  1. Extensionの概要
    • Windows版Firefox用Extension
    • 素のFirefoxで最小化した場合、タスクバーに表示され、タスクトレイには格納されません。このExtensionを使用する事で、最小化時にタスクトレイのみに表示するようになります。
  2. Extensionの入手先
  3. Extension導入時の注意点
    • 使用しているFirefox(やThunderbird/Mozilla/etc...)のバージョンによってinstallする.xpiファイルが異なります。
      Firefox 1.5を使用している人は~.trunk.~の方を使ってください。

Comments:

Post a Comment

Friday, January 06, 2006

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 (<= ?0 c) (>= ?9 c)) "-")
    ((= 9 c) "-")
    ((and (<= 30 c) (>= 127 c)) "-")
    ((and (<= ?a c) (>= ?z c)) "-")
    ((and (<= ?A c) (>= ?Z 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 (<= ?0 c) (>= ?9 c)) ".")
    ((= 9 c) ".")
    ((and (<= 30 c) (>= 127 c)) ".")
    ((and (<= ?a c) (>= ?z c)) ".")
    ((and (<= ?A c) (>= ?Z 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 (<= ?0 c) (>= ?9 c)) ":")
    ((= 9 c) ":")
    ((and (<= 30 c) (>= 127 c)) ":")
    ((and (<= ?a c) (>= ?z c)) ":")
    ((and (<= ?A c) (>= ?Z c)) ":")
    ((and (<= ?! c) (>= ?/ c)) ":")
    (t ":"))))
    (setq skk-number-style nil)
    (require 'skk-hint)

Comments:

Post a Comment

Thursday, January 05, 2006

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)
))
)

Comments:

Post a Comment

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 "~")

Comments:

Post a Comment

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

Comments:

Post a Comment

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。
あとは設定するのみ。

Comments:

Post a Comment