Archive

Archive for 6月, 2000

emacs

6月 13th, 2000

Mewで添付ファイルを作成しました (2000/06/13)

.emacsについて

.emacsはホームディレクトリに置くものとする.

hnf

hnfは、hns(ハイパー日記システム)の日記作成支援lispである.

;; hns 各種設定
;;

;; 自動的にEUCにする
;(setq file-coding-system-alist
;	(append ' (
;		("\\.hnf$" euc-jp . euc-jp))
;		file-coding-system-alist))

(autoload 'hnf "hnf-mode" nil t)
(autoload 'hnf-mode "hnf-mode" nil t)
(setq auto-mode-alist (cons '("\\.hnf$" . hnf-mode) auto-mode-alist))

(setq hnf-variable '(("TENKI") ("BASHO") ("TAIJU") ("TAION")))
(setq hnf-mark '(("(^^)") ("(-_-)") ("(^^;") ("(;_;)") ("(T_T)")))
(setq hnf-rlink '(("h14m") ("ari")))
(setq hnf-cat '(("linux") ("job") ("win")))
(setq hnf-alias '(("Be") ("hns")))

(add-hook 'hnf-mode-load-hook
	  '(lambda () (progn
		       (define-key hnf-mode-map "\C-c=" 'hnf:get-link)
		       (define-key hnf-mode-map "\C-cf" 'hnf:link-find-file)
		       (define-key hnf-mode-map "\C-ct" 'hnf:insert-time))))

;; calenderとの連係
;; hnf-insert-diary-entryをキーバインド
(add-hook 'calendar-load-hook
'(lambda ()
(define-key calendar-mode-map "iD" 'hnf-insert-diary-entry)))
;;日記を入力してある日はマークが付く
(autoload 'hnf-mark-diary-entries "hnf-mode" nil t)
(add-hook 'today-visible-calendar-hook 'hnf-mark-diary-entries)
(add-hook 'today-invisible-calendar-hook 'hnf-mark-diary-entries)

;; hns 予定の編集 M-x yotei
(autoload 'yotei "hnf-yotei" nil t)

namazu.el

emacs上でnamazuを利用した検索が出来ます.

(autoload 'namazu "namazu" nil t)
;; Namazu のインデックスの指定
;; 環境に合わせて変更する
(setq namazu-default-dir
      "~/index/dialy")

honyaku.el

オムロンが開発した翻訳ソフトである翻訳魂をemacsにclientとして利用するためのものです.
xemacsで利用するにはパッチを当てる必要があります.

(setq load-path (append(list”c:/cygwin/usr/local/emacs/site-lisp/”)load-path)) (load-library “honyaku”) (setq honyaku-server-list’(“192.168.0.30″))

html-helper-mode.el

html-helper-modeは、emacs上でhtmlを書くときtagをいちいちキーボードを叩かずに入力するためのもので、
templateにも対応しています.

html-helper-modeを入手します.
必要なファイル

  • html-helper-mode.el
  • tempo.el
  • font-lock supportにあるhtml-font.el
  • emacsにmenuを追加するにはJun Ishikawaさん が作成されたhtml-helper-mode-menu
  • 自分用のtemplateを作成するなら私のmy_html.elを参考にしてください.
  • 少し、他のelファイルを置いてあります.参考にするならどうぞ
  • これら入手したファイルをpathの通ったディレクトリに置きます.
    続いて.emacsに以下のように記述します.

    -------------------- .emacs --------------------
    ;; html-helper-modeの設定
    ;; カラー表示をする
    ;(if window-system (require 'hilit19))
    (setq auto-mode-alist
      (cons
        '("\\.html$" . html-helper-mode)
        auto-mode-alist))
    (autoload 'html-helper-mode "html-helper-mode" t)
    
    (add-hook 'html-helper-load-hook
    	  (load "html-helper-mode-menu"))
    (add-hook 'html-helper-load-hook
              '(lambda ()
    	     (require 'html-font)
    	     (load "c:/cygwin/usr/local/emacs/site-lisp/my_html"))) ;; パスは適時読み替えてください
    (add-hook 'html-helper-mode-hook
              '(lambda ()
    	     (font-lock-mode 1)))
    ------------------------------------------------

    html-helper-modeのキーバンド一覧

    X-Faceをmewでインライン表示する

    X-Faceをmewでインライン表示するには、.emacsに追加します.

    ;; X-Face for Mew
    (setq mew-use-highlight-x-face t)
    (setq mew-use-highlight-x-face-function
          (function
           (lambda (beg end)
    	 (x-face-mule-x-face-decode-message-header beg end))))

    html-helper-mode キーバンド一覧

    比較的良く使う
    C-c C-a l <a href=”"></a>
    C-c C-t 1
    .
    .
    C-c C-t 6
    <h1></h1>
    .
    .
    <h6></h6>
    ESC-RET <p>
    C-c - <hr>
    C-c RET <br>
    C-c C-b ヘッダ内タグ
    C-c C-b t <title></title>
    C-c C-b i <isindex>
    C-c C-b n <nextid>
    C-c C-b l <link href=”">
    C-c C-b b <base href=”">
    C-c C-l リスト関連のタグ
    C-c C-l o <ol>
    <li>
    </ol>
    C-c C-l u <ul>
    <li>
    </ul>
    C-c C-l r <dir>
    <li>
    </dir>
    C-c C-l m <menu>
    <li>
    </menu>
    C-c C-l d <dl>
    <dt>
    <dd>
    </dl>
    C-c C-l i 多くのリストの中で
    <li>
    または<dl></dl>内で
    <dt>
    <dd>
    C-c C-l l <li>
    C-c C-l t <dt>
    <dd>
    C-c C-i イメージ挿入関連のタグ
    C-c C-i i <img src=”">
    C-c C-i t <img alt=”" src=”">
    C-c C-i a <img align=”" src=”">
    C-c C-i e <img align=”" src=”" alt=”">
    C-c C-s 論理スタイル関連のタグ
    C-c C-s p <pre></pre>
    C-c C-s b <blockquote></blockquote>
    C-c C-s e <em></em>
    C-c C-s s <strong></strong>
    C-c C-s c <code></code>
    C-c C-s x <samp></samp>
    C-c C-s r <cite></cite>
    C-c C-s k <kbd></kbd>
    C-c C-s v <var></var>
    C-c C-s d <dfn></dfn>
    C-c C-s a <address></address>
    C-c C-s q <q></q>
    C-c C-s n <person></person>
    C-c C-s y <acronym></acronym>
    C-c C-s . <abbrev></abbrev>
    C-c C-s m <cmd></cmd>
    C-c C-s g <arg></arg>
    C-c C-s l <lit></lit>
    C-c C-p 物理スタイル関連のタグ
    C-c C-p b <b></b>
    C-c C-p i <i></i>
    C-c C-p u <u></u>
    C-c C-p f <tt></tt>
    C-c C-p x <s></s>
    C-c C-p ^ <sup></sup>
    C-c C-p _ <sub></sub>
    C-c C-p r <render tag=”" style=”">

    mew メール振り分け

    メーリングリスト等、一括でメールの振り分けが出来ます.

    ;;; メール振り分け
    (setq mew-refile-guess-alist
     '(("To:"
        ("meadow-users-jp@meadowy.org" . "+from/meadowML")
        )
       )
    )

    バックアップファイルを作らない

    通常 emacsでファイルを保存するとバックアップファイルが作成されます.
    しかし、NotePcなどドライブに余裕がない場合など、このバックアップファイルが作成されることによって
    ドライブが圧迫してきます.
    このファイルは「hoge~」となっています.

    ;; バックアップファイルを作らない
    (setq make-backup-files nil)

    Timestampをつける

    emacsでtimestampをつけるには、ファイルの先頭から 8 行以内に Time-stamp: <> または
    Time-stamp: ” ” と書いてあれば、セーブ時に自動的に日付が挿入されます

    ;;; 最終更新日の自動挿入
    (if (not (memq 'time-stamp write-file-hooks))
        (setq write-file-hooks
              (cons 'time-stamp write-file-hooks)))

    mewadow用

    ;;;
    (set-language-environment "Japanese")
    
    ;;; Windows IME
    (setq default-input-method "MW32-IME")
    
    ;;; IME ONでカーソルの色を変える。
    (add-hook 'mw32-ime-on-hook
              (lambda () (set-cursor-color "brown")))
    (add-hook 'mw32-ime-off-hook
              (lambda () (set-cursor-color "black")))
    
    ;; Windows IME
    
    (setq-default mw32-ime-mode-line-state-indicator "[--]")
    (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]""[--]"))
    (inactivate-input-method)
    
    (mw32-ime-initialize)
    (setq default-input-method "MW32-IME")
    
    ;; 常にホームディレクトリから
    (cd "~")

    いろいろ

    ;; 文字の色づけ
    (if window-system (require 'hilit19))
    ;(global-font-lock-mode t)
    
    ;; i-search されたところを反転す
    (setq search-highlight t)

    Mewでファイル添付の仕方

    画面イメージはWindows 2000 pro でmeadow /mew でsnapしていますが、Linuxでも全く同じ作業です

    通常のメールを書いてその後、以下のように作業をする

    メニューバーのMew/draftを開いて、Prepare Attachmentsを選択する。

    Mew/draftのAttachment CommandsのInsert a File by Copyingを選択、添付したいファイルのファイル名を入力。

    Mew/draftのAttachment CommandsのChange the Typeを選択、添付したいファイルが、圧縮ファイルなら
    Application/Octet-Streamと入力 htmlファイルなら、Text/Htmlと入力

    textファイルなら、ファイル名を入れるだけでOKみたいです

    Mew/draftのAttachment CommandsのEncode with Base64を選択

    続いて、Mew/draftのMake MIME Messageを選択

    –Next_Partとかがついて、こんな風な感じになればOK

    これで添付できたので、送信します。[C-c C-c]

    kaz FreeBSD, Linux, Mac