[N810][Emacs]NOKIA N810向けEmacs23.0.60 with Xftパッケージ等
やへーさんがXftを有効にしたEmacs23.0.60をビルドしてくださったので、パッケージを作ってみました。
一応Launcherに登録されますが、タスクバーのところのアイコンがデフォルトのものになってしまいます。一度は設定できたんですけどね。
愛用のC/Migemoをビルドしてパッケージしました。migemoの動作に必要なapel10.7もパッケージにしました。
みんな大好きNavi2chもパッケージにしました。
ダウンロード
ダウンロード emacs23cvs080525-1armel.deb (37124.4K)
「cmigemo-1.3-1_armel.deb」をダウンロード
「navi2ch-cvs-20070510.deb」をダウンロード
インストール
まずはキーボードのカスタマイズをしないことには始まらないでしょう。
[N810]NOKIA N810用カスタマイズ済のキーマップをインストールするパッケージ
パッケージは普通にApplication managerからインストールできると思います。 ただし、Red pill modeにしておく必要があります。
107MBほど食います。容量が足りないでしょう。 「/usr/local/」以下にインストールされますので、内蔵のFlashをext2もしくはext3等にフォーマットして、シンボリックリンクで「local」以下を逃がすといいと思います。
e2fsprogsをインストールした後、やへーさんのご指導に基づき以下のような感じで内蔵2GBのFlashをext3にフォーマット。
# mkfs.ext3 -b 1024 -j -J size=32 /dev/mmcblk0p1
設定
「/usr/local/share/emacs/site-lisp/site-start.el」に最低限の設定をしていますが、余計なものも交じっているかもしれません。
画面が狭いのでメニュー等は全部表示しないようにしていますが、その辺りが気に入らなければ、「/usr/local/share/emacs/site-lisp/site-start.el」を参照の上.emacs.elで設定し直してください。
site-start.elの内容
(setq exec-path (append '("/usr/local/bin/") exec-path))
(set-language-environment 'Japanese)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(setq locale-coding-system 'utf-8)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(display-time)
(transient-mark-mode t)
(iswitchb-mode t)
(setq kill-whole-line t)
(show-paren-mode t)
(setq-default tab-width 4)
(setq dired-use-ls-dired nil)
(setq list-directory-brief-switches "-C")
(setq inhibit-startup-message t)
(setq startup-echo-area-message "")
(setq initial-scratch-message "")
そのほか、以下のような設定をとりあえずしています。
今の.emacs.el
;; 本体上部のボタンに機能割り付け
(global-set-key (quote [f8]) (quote toggle-input-method))
(global-set-key (quote [f7]) (quote execute-extended-command))
(global-set-key (quote [f6]) (quote electric-buffer-list))
(setq load-path (append load-path '("/home/user/elisp")))
(setq exec-path (append '("/home/user/bin/") exec-path))
;; emacsclient用
(server-start)
(line-number-mode t)
(column-number-mode t)
;; 拙作のtwit.el variantの設定
(load "twit")
(twit-mode t)
(setq twit-username "MY_ACCOUNT")
(setq twit-password "PASSWORD")
(setq twit-favorite-friends
'("hitoriblog" "otsune" "masui" "miyagawa" "emacs"))
;; navi2ch用の設定
(autoload 'navi2ch "navi2ch" "Navigator for 2ch for Emacs" t)
;; busybox版はオプションが違うので
(setq navi2ch-net-gunzip-args '("-d" "-c"))
;; スレを開く際に画面分割しないので便利
(setq navi2ch-bm-stay-board-window nil)
;; 黒バックに
(set-foreground-color "white")
(set-background-color "black")
(set-cursor-color "gold")
(setq frame-background-mode 'dark)
;; 初期カレントディレクトリをHOMEに
(setq home-dir (getenv "HOME"))
(setq default-directory home-dir)
;; SKK用
;;(load "skk-setup")
;;(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L")
;; sense-region用の設定
(autoload 'sense-region-on "sense-region"
"System to toggle region and rectangle." t nil)
;; ruby-mode用設定
(require 'ruby-electric)
;; pabbrev-mode
(require 'pabbrev)
(setq pabbrev-idle-timer-verbose nil)
(autoload 'ruby-mode "ruby-mode"
"Mode for editing ruby source files" t)
(setq auto-mode-alist
(append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby"
"Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby"
"Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook
'(lambda ()
(inf-ruby-keys)
(ruby-electric-mode t)
(pabbrev-mode t)
))
(sense-region-on)
;#####################
;# for clip.rb
;#####################
;; クリップボード連携のための設定
;; 関連エントリ
(global-set-key "\C-cc" 'clip-copy)
(global-set-key "\C-cv" 'clip-paste)
(defun clip-copy ()
;; Copy region on current buffer to clipboard on maemo.
(interactive)
(let ((coding-system-for-write 'utf-8))
(message "... copy to clipboard")
(call-process-region (region-beginning) (region-end) "clip.rb" nil nil nil "-s")
(message "")))
(defun clip-paste ()
;; Paste maemo clipboard to current buffer.
(interactive)
(message "... paste from clipboard")
(let ((s (point))(e))
(let ((coding-system-for-read 'utf-8))
(call-process "clip.rb" nil t nil "-g"))
(setq e (point))
(if (equal e s)
(ding)
)
(message "")))
;; browse-urlでmicrobにURLを送るよう設定
;; 関連エントリ
(autoload 'browse-url-osso-browser "browse-url-osso-browser" "" t)
(setq browse-url-browser-function 'browse-url-osso-browser)
;; C/Migemo用設定
(load "migemo.el")
(setq migemo-command "cmigemo")
(setq migemo-options '("-q" "--emacs" "-i" "\g"))
(setq migemo-dictionary "/usr/local/share/migemo/euc-jp/migemo-dict")
;;(setq migemo-dictionary "/usr/local/share/migemo/cp932/migemo-dict")
(setq migemo-user-dictionary nil)
(setq migemo-regex-dictionary nil)
Hildonizeされておらず本体上部のボタンが余っているので、機能を割り当てています。 上記の設定では「-」ボタンを押すとtoggle-input-methodが実行されて、日本語入力ができるようになります。
FDcloneの設定
FDcloneからemacsclient経由でEmacsにファイルを開かせる設定をしときます。 /home/user/.fd2rcに以下の行を加えます。
EDITOR='emacsclient -n'
先にEmacsが起動していないとダメです。
関連エントリ
Recent Comments