Page 1 of 7: 1 2 3 4 5 6 7 »





irc-mode から clickable-uri を使って適当に URI を開く on xyzzy

Posted at Wed, 10 Feb 2010 in computer::xyzzy

例のごとく現在行で G（Shift ＋ g）を押すと、URI があった場合に clickable-uri の設定にしたがって URI を開いたりします。
irc-mode に加えて clickable-uri がインストールされている必要があります。 

;;;;;;;;;;;;;;;;;;;
;; ■ clickable-uri を利用して適当にURIにジャンプ
(defun irc-goto-uri ()
  (interactive)
  (save-excursion
    (let ((ed (progn (goto-eol) (point))))
      (goto-bol)
      (when (scan-buffer ed::*clickable-uri-regexp* :limit ed)
        (ed::clickable-uri-open)))))
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\G 'irc-goto-uri)))


TwitterIrcGateway(TIG) + irc-mode on xyzzy の TypableMap を使った Favorite や Reply 関連 Lisp

Posted at Tue, 09 Feb 2010 in computer::xyzzy

Twitter クライアントの P3 とかを使っているとキーひとつでふぁぼできるのですが、そういうのがうらやましかったので TwitterIrcGateway + irc-mode の環境でも使えるように書きました。~/.irc に書いて使ってください。現在カーソルのある行の発言に対して実行します。
TypableMap って何？ どうやって設定するの？ という方はこのあたりに TypableMap を有効にする方法についての解説があるのでご参照ください。（端折って説明すると /join #Console , config, set EnableTypableMap True で終了）

F （Shift + f） で Favorite、U（Shift + u）で Favorite から削除。R（Shift + r）で TypableMap を使ったリプライ補助。
ふぁぼとあんふぁぼは、問い合わせもなしにいきなり Favorite に追加（または削除）します。問い合わせて欲しい場合はそのための関数を作ったので、そちらにキーを割り当ててください。
実行は TIG まかせなので発言が Fav されているかどうかをチェックして Unfav を抑止するとかいう親切設計はありません。

Reply は一番左端に @screen_name が表示されて一応相手がわかるという誤爆防止機能はありますが、TypableMap の部分を消すとリプライでもなんでもないごく普通の発言になります。仕様です。 

;;;;;;;;;;;;;;;;;;;
;; ■ TIG での TypableMap を利用した Reply
(defun tig-reply ()
  "Reply"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-joined)
  (save-excursion
    (goto-bol)
    (when (scan-buffer "^[0-2][0-9]:[0-5][0-9] <\\([^>]+\\)> \\(.*\\)(\\([a-z]+\\))$" :regexp t)
      (let ((tp (match-string 3))
            (prompt (format nil "@~A - ~A: " (match-string 1) (irc-channel-name irc-dialog-channel)))
            msg)
        (setf msg (read-string prompt :default (format nil "re ~A " tp)))
        (unless (equalp msg "")
          (irc-dialog-post-buffered-privmsg (irc-channel-name irc-dialog-channel) msg))))))
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\R 'tig-reply)))

;;;;;;;;;;;;;;;;;;;
;; ■ TIG での 問答無用 Favorite
(defun tig-favorite (&optional y-or-n)
  "Favorite"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-joined)
  (save-excursion
    (goto-bol)
    (when (scan-buffer "^[0-2][0-9]:[0-5][0-9] <\\([^>]+\\)> \\(.*\\)(\\([a-z]+\\))$" :regexp t)
      (when (or (not y-or-n)
                (yes-or-no-p (format nil "@~A: \"~A...\" を~%Fatorite に追加しますか？" (match-string 1) (substring (match-string 2) 0 20))))
        (irc-dialog-post-buffered-privmsg (irc-channel-name irc-dialog-channel)
                                          (format nil "fav ~A" (match-string 3)))))))
;; キーバインド
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\F 'tig-favorite)))
;; 一言聞く場合はこっちにキーを割り当てる
(defun tig-favorite-interactive ()
  (interactive) (tig-favorite t))

;;;;;;;;;;;;;;;;;;;
;; ■ TIG での 問答無用 Favorite 削除
(defun tig-unfavorite (&optional y-or-n)
  "UnFavorite"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-joined)
  (save-excursion
    (goto-bol)
    (when (scan-buffer "^[0-2][0-9]:[0-5][0-9] <\\([^>]+\\)> \\(.*\\)(\\([a-z]+\\))$" :regexp t)
      (when (or (not y-or-n)
                (yes-or-no-p (format nil "@~A: \"~A...\" を~%Fatorite から削除しますか？" (match-string 1) (substring (match-string 2) 0 20))))
        (irc-dialog-post-buffered-privmsg (irc-channel-name irc-dialog-channel)
                                          (format nil "unfav ~A" (match-string 3)))))))
;; キーバインド
(add-hook '*irc-dialog-mode-hook*
          #'(lambda () (local-set-key #\U 'tig-unfavorite)))
;; 一言聞く場合はこっちにキーを割り当てる
(defun tig-unfavorite-interactive ()
  (interactive) (tig-unfavorite t))


2010年01月のエディタの話#2 Editor on Windows2000 ＆ WindowsXP

Posted at Fri, 22 Jan 2010 in computer::xyzzy

Windows のエディタは xyzzy 一択です。

とだけ書くとここで終わってしまうのですが、これは気に入らない点があれば Lisp でだいたいどうにでもなるし、Windows ネイティブなのでツールチップやヘルプの連携、ぶら下がりなどなど至れり尽せりで、さらにはフォントも簡単に好きなフォントを使えるというので、導入当初の泣きそうなハードルの高さも超えて常用エディタとなりました。MacBook 環境で Carbon Emacs を使い始めたのもそもそもはベースに xyzzy の使用経験があるからです。
他に Windows2000 環境には EmEditor のフリー版を入れています。昔メモ帳の代わりに使えるぐらい軽い機能限定のフリーエディションがあったのですが、いま少し探したところではないようです。
EmEditor はインタフェースがやさしい感じでアイコンなんかも丁寧に使ってあるところが他の Windows 用エディタと比べてぐんと飛びぬけているポイントです。結局エディタはというのは長いこと眺めている画面なので、フォントが美しくなかったりアイコンが気に入らないものだったりするのにあまり耐えられないのです。（ちなみに xyzzy はアイコンのツールバーが非表示）で、EmEditor は別にインタフェースが売りだけではなくて、無料でいいのかという水準は軽く超えるぐらいには高機能な良いエディタだと思います。そしてもちろん余裕があれば有償版のほうが当然メリットはあると思います（使ったことがないので予想）。あまり使っていないのできちんと紹介はできないのですが、xyzzy だと拡張 Lisp で補わないといけないようなファイルタイプにも対応していたりして、とんがったところがなく、Windows を普通に使っていく人にはオススメできるエディタです。

Netinstaller でインストールしているパッケージ

xyzzy に NetInstaller 経由でインストールされているパッケージの一覧

xyzzy ver.0.2.2.235
Generated Thu, 21 January 2010 16:04 +0900

その他に入れているパッケージ

Windows っぽいキーバインド

(provide "winkey2")

(in-package "editor")

;;; winkey.lからコピー
(defvar *default-selection-keymap*
  (let ((keymap (make-sparse-keymap)))
	(define-key keymap #\c-c 'copy-selection-to-clipboard)
	(define-key keymap #\c-x 'kill-selection-to-clipboard)
    (define-key keymap #\tab 'tabshift-selection)
    (define-key keymap #\s-f15 'untabshift-selection)
    (set-extended-key-translate-table exkey-s-tab #\s-f15)
	keymap))


;;;;;;;;;;;;;;;;;;
;; ■ 範囲選択中にタブが押されたら冒頭にタブを挿入
(defun perform-replace-selection (pattern replacement query regexp interactive-p noerror)
  "選択範囲内を perform-replace"
  (interactive "*p")
  (let ((type (get-selection-type)))
    (selection-start-end (start end)
      (save-restriction
        (narrow-to-region start end) (goto-char (point-min))
        (perform-replace pattern replacement query regexp interactive-p noerror)
        (save-excursion
          (goto-char (point-min))
          (start-selection type t (point-max))
          (fix-selection-point)
          )))))
(defun tabshift-selection ()
  "冒頭にタブを挿入"
  (interactive "*p")
  (perform-replace-selection "^.+$" "\t\\0" nil t nil t))
(defun untabshift-selection ()
  "冒頭のタブを１つ削除（タブがなければ何もしない）"
  (interactive "*p")
  (perform-replace-selection "^\t" "" nil t nil t))
(setq-default selection-keymap *default-selection-keymap*)

#|
;;; winkey.lからコピー
(defvar *default-selection-keymap*
  (let ((keymap (make-sparse-keymap)))
	(define-key keymap #\c-c 'copy-selection-to-clipboard)
	(define-key keymap #\c-x 'kill-selection-to-clipboard)
	keymap))
(setq-default selection-keymap *default-selection-keymap*)
|#


(setq-default selection-keymap *default-selection-keymap*)
(global-set-key #\c-z 'undo)
(global-set-key #\c-v 'paste-from-clipboard)
(define-key esc-map #\c-x #'ctl-x-prefix)
(define-key esc-map #\c-c #'specific-command-prefix)


;;; windowsっぽい設定
;(global-set-key #\c-a 'selection-whole-buffer)
;(global-set-key #\c-f 'search-dialog)
(global-set-key #\c-n 'new-file)
;(global-set-key #\c-o 'open-filer)
(global-set-key #\c-p 'print-selected-buffer-dialog)
;(global-set-key #\c-r 'replace-dialog)
;(global-set-key #\c-s 'save-buffer-dialog)
;(global-set-key #\home 'beginning-of-virtual-line)
;(global-set-key #\end 'end-of-virtual-line)
(global-set-key #\c-home 'beginning-of-buffer)
(global-set-key #\c-end 'end-of-buffer)
(global-set-key #\s-c-home 'selection-beginning-of-buffer)
(global-set-key #\s-c-end 'selection-end-of-buffer)
;(global-set-key #\f3 'search-forward-again)
;(global-set-key #\s-f3 'search-backward-again)
(global-set-key #\m-f4 'kill-xyzzy)
(global-set-key #\c-f4 'close-selected-buffer)
(global-set-key #\c-left 'backward-word)
(global-set-key #\c-right 'forward-word)
(global-set-key #\s-c-left 'selection-backward-word)
(global-set-key #\s-c-right 'selection-forward-word)

xyzzy の設定（~/usr/usrname/os/xyzzy.ini）

[Font]
Ascii=13,"BDF UM+",128
Japanese=13,"BDF UM+",128
Latin=18,"Courier New",0
Cyrillic=18,"Courier New",0
Greek=18,"Courier New",0
GB2312=18,"MS Hei",0
BIG5=18,"MingLiu",0
KSC5601=18,"GulimChe",0
Georgian=18,"BPG Courier New U",0
lineSpacing=2
backslash=1
recommendSize=0
sizePixel=1
[Colors]
textColor=#613c29
backColor=#fbfaf4
ctlColor=#d7c6b5
selectionTextColor=#f000000
selectionBackColor=#675441
kwdColor1=#6756d1
kwdColor2=#33844f
kwdColor3=#bb7d46
stringColor=#5a5e87
commentColor=#d9b681
tagColor=#bf9b46
cursorColor=#8b6bba
caretColor=#7b3c06
imeCaretColor=#52cbad
linenum=#a4a0a0
reverse=#2685758
unselectedModeLineFg=#633821
unselectedModeLineBg=#10e3dfe0
modeLineFg=#563d32
modeLineBg=#d9ccc4
fg1=#967a00
bg1=#d8e8f8
fg2=#9ced
bg2=#e1eef4
fg3=#4c64a2
bg3=#ccdadb
fg4=#3e2c6c
bg4=#e2e0c1
fg5=#293eca
bg5=#f1e6ca
fg6=#8b55c5
bg6=#d0f4ee
fg7=#34008d
bg7=#aad0a9
fg8=#b3711b
bg8=#cbeaf4
fg9=#dbb100
bg9=#52d0ee
fg10=#7a8100
bg10=#c1c7fa
fg11=#457597
bg11=#dbddfb
fg12=#4d78e6
bg12=#f1e2de
fg13=#2bb183
bg13=#eddce9
fg14=#51714f
bg14=#ebeade
fg15=#88814d
bg15=#e0e0e0
[Misc]
1280x1024=(31,211)-(1156,986),1
saveWindowSize=1
saveWindowPosition=1
restoreWindowSize=1
restoreWindowPosition=1
windowFlags=#17f
fnkeyLabels=0
foldMode=0
foldLinenumMode=2
[Filer]
textColor=#9000000
backColor=#6ffffff
highlightTextColor=#fffffff
highlightBackColor=#e6a240a
cursorColor=#c000c0
column=239,65,116,44
s1280x1024=(549,452)-(953,970),1
sort=0
columnLeft=169,65,116,44
columnRight=121,65,116,44
1280x1024=(513,59)-(1260,517),1
sortRight=0
sortLeft=0
[PrintPreview]
1280x1024=(219,351)-(1062,959),1
scale=99
[Print]
textMargin=(100,150)-(100,150)
headerOffset=100
footerOffset=100
columnSep=50
lineSpacing=20
lineNumber=0
columns=1
foldColumns=0
header="%f%l%r%:w, %0d %:m %Y %0h:%0M:%0s"
footer="- %p -"
headerOn=1
footerOn=1
recommendSize=1
showProportional=1
useBitmap=0
Ascii=100,"M+1P+IPAG",128,0,0
Japanese=100,"ＭＳ ゴシック",128,0,0
Latin=100,"Courier New",0,0,0
Cyrillic=100,"Courier New",0,0,0
Greek=100,"Courier New",0,0,0
GB2312=100,"MS Hei",134,0,0
BIG5=100,"MingLiu",136,0,0
KSC5601=100,"GulimChe",129,0,0
Georgian=100,"BPG Courier New U",0,0,0
[BufferSelector]
column=117,65,100,320
1280x1024=(170,443)-(728,736),1
[header]
1="%F%l%r%:w, %0d %:m %Y %0h:%0M:%0s"
2="%f%l%r%:w, %0d %:m %Y %0h:%0M:%0s"
[footer]
1="- %p -"


xyzzy の irc-mode で twittericrgataway (TIG) や opentig.net に接続する方法

Posted at Fri, 15 Jan 2010 in computer::xyzzy

xyzzy の irc-mode で TwitterIrcGateway を使う場合、のデフォルトの文字コードでは文字化けはおきないのですが、UTF-8 にした場合や、同じく opentig.net （デフォルトの文字コードが UTF-8）に接続すると投稿が文字化けしていた現象がようやく直ったので記録をかねてメモしておきます。

エンコーディングが通常の *encoding-utf8* では駄目で、*encoding-std-utf8n* を使うというところが重要というかここで躓いていました。*encoding-utf8* とどう違うかというと、utf8n の n の部分が「Unicode signatureなしのUTF-8」で、std とついているのは「Windowsの変換表ではなくUnicode Consortiumが配布している変換表を使用する」ということのようです。（~/html/OChangeLog.html 参照）

そんでもって肝心の設定については、Twitter のopentig.net の場合 ~/.irc にこんな感じで記述。

(defvar *irc-server* "opentig.net")
(defvar *irc-port* 16668  "irc: ポート番号")
(defvar *irc-nick* "ついったーのID" "TwitterID")
(defvar *irc-realname* "ついったーのIDまたはメールアドレス" "TwitterID")
(defvar *irc-pass* "ついったーのパスワード" "Twitterパスワード")
(defvar *irc-incode* *encoding-std-utf8n* "irc: 入力文字コード")
(defvar *irc-outcode* *encoding-std-utf8n* "irc: 出力文字コード")

またはこんな感じに書いておくと、M-x irc-mode 、M-x irc::opentig で接続できます。接続するサーバをあちこち切り替えるならこっちのパターンで複数書いておくと便利。ただし、xyzzy を複数起動しない限りは一度に複数のサーバには接続できない（と思う）。 

(defun opentig ()
  (interactive)
  (setf *irc-server* "opentig.net")
  (setf *irc-nick* "ついったーID")
  (setf *irc-port* 16668)
  (setf *irc-realname* "ついったーID")
  (setf *irc-pass* "ついったーパスワード")
  (setf *irc-incode* *encoding-utf8*)
  (setf *irc-outcode* *encoding-std-utf8n*)
  (irc-connect))

自前で TwitterIrcGateway をホスティングして使っているよという人は、*irc-server* とか *irc-port* とか、さらには *irc-incode* と *irc-outcode* を良いように書き換えてください。ローカル環境なら *irc-server* は localhost、エンコーディングはTIGで特に変更指定していなければ指定しなくても大丈夫です。（指定する場合には両方とも *encoding-jis*）

xyzzy の irc-mode で Twitter を眺める一番のメリットは自在なウィンドウ分割。作業中のウィンドウの下に Reply だけを表示したり、通常タイムライン、チャンネル A,B,C... と同時に複数の異なるタイムラインを一覧できるのは他のクライアントにはちょっとない機能なんじゃないかと思います。

2010/01/28

M-x opentig と書いていたのを M-x irc::opentig に修正。



irc-mode で invite on xyzzy

Posted at Mon, 30 Nov 2009 in computer::xyzzy

xyzzy の irc-mode にチャネルに招待する（invite）コマンドがなかったので適当に作りました。キーバインドは Ctrl+c i I に当ててあります。.irc ファイルに書き足して使います。

(defun irc-dialog-send-invite (&optional nick)
  "irc: INVITE送信"
  (interactive)
  (irc-check-connection)
  (irc-dialog-check-channel)
  (irc-dialog-check-joined)
  (irc-dialog-check-chop)
  (unless nick
    (setq nick (read-string (format nil "INVITE - ~A: " (irc-channel-name irc-dialog-channel))
                                    )))
  (irc-send "INVITE ~A ~A" nick (irc-channel-name irc-dialog-channel)))
(defvar *irc-prefix* '(#\C-c #\i))          ;これ以前に同じ宣言があれば不要
(add-hook '*irc-dialog-mode-hook*
          #'(lambda ()
              (local-set-key `(,@*irc-prefix* #\I) 'irc-dialog-send-invite))
          )


バッファとかウィンドウとかをさくさくきりかえたい on xyzzy

Posted at Fri, 06 Nov 2009 in computer::xyzzy

バッファ、ウィンドウ、フレームの切り替えについて標準のキー割り当てがどうにもしっくり来なかったので自分用に設定メモ。
たいていはバッファとフレームのツールバーを表示しています。バッファは縦表示。（ドラッグでぐりぐりひっぱって左端に持っていって縦にして、「共通設定」−「表示」のタブバーを横書きにするにチェックを入れる）

設定後は以下のようになります。（2009/11/26追記）

;;;;;;;;;;;;;;;;;;
;; ■ バッファをさくさく切り替えたい（改変版）
;; http://www9.ocn.ne.jp/‾y-kwsk/luvtechno/xyzzy.html#next-buffer
(setq *next-buffer-in-tab-order* t) ; バッファ移動をタブ順に
(global-set-key #¥C-PageUp 'previous-buffer) ; 前のバッファに移動
(global-set-key #¥C-PageDown 'next-buffer) ; 後のバッファに移動

;;;;;;;;;;;;;;;;;;
;; ■ ウィンドウをさくさく切り替えたい（改変版）
;; http://www9.ocn.ne.jp/‾y-kwsk/luvtechno/xyzzy.html#other-window
(global-set-key #¥C-S-PageUp 'move-previous-window)
(global-set-key #¥C-S-PageDown 'other-window)

;;;;;;;;;;;;;;;;;;
;; ■ フレームの切り替え用ショートカットキー
(global-set-key #¥M-S-Right 'other-pseudo-frame)
(global-set-key #¥M-S-Left 'previous-pseudo-frame)

バッファバーを表示している場合には以下の設定もしておくとわかりやすいです。

(setq *next-buffer-in-tab-order* t) ; バッファ移動をタブ順に


howm-wrap でキーワードサーチに Hyper Estraier を利用する on xyzzy

Posted at Fri, 16 Oct 2009 in computer::xyzzy

タイトルの通りです。以前書いた記事（howm の検索に Hyper Estraier を使ってさらに速度改善 on xyzzy、HE-grep を使って howm のデータを検索する on xyzzy）のリンク先が NotFound のため、 howm-init.l に追記すれば良いであろう部分を抜き出しました。
現在検証環境がないので未検証です。またコードについても私が書いたものではないので引用ということで。

;;;;;;;;;;;;;;;;;;
;; ■ howm-wrap でキーワードサーチに Hyper Estraier を利用する
(defvar *howm-view-HE-grep-command* "estcmd search -ic CP932 -vh -gs -max -1 -ord @title")
(defvar *howm-view-HE-grep-index-dir* 	 "C:/bin/xyzzy/.estraier-mode/casket") ;インデックスの保存されているディレクトリを指定

(defun howm-view-grep (str file-list &optional fixed-p)
  (when (stringp file-list)
    (setq file-list (list file-list)))
  (when *howm-view-force-case-fold-search*
    (setq str (downcase str)))
  (cond (fixed-p
	 (howm-view-HE-grep str))
	(howm-view-use-grep
	 (howm-view-real-grep str file-list fixed-p))
	(t
	 (howm-view-fake-grep str file-list fixed-p))))

(defun howm-view-HE-grep-initialize-buffer (buffer)
  (set-buffer buffer)
  (erase-buffer buffer)
  (set-buffer-fold-width nil)
  (setq need-not-save t)
  (setq kept-undo-information nil)
  (setq auto-save nil))

(defun howm-view-HE-grep (str)
  (let ((search-backward-f #'search-backward)
	(file-list (ed::read-HE-recent-save-files howm-directory))
	tmpbuf no-dup f)
    (save-excursion
      (setq tmpbuf (get-buffer-create "*howm-view-HE-grep-temp*"))
      (howm-view-HE-grep-initialize-buffer tmpbuf)
      (execute-shell-command (ed::format nil "‾A ‾A ‾A" *howm-view-HE-grep-command*
					 (map-slash-to-backslash *howm-view-HE-grep-index-dir*) str) nil tmpbuf)
      (set-buffer tmpbuf)
      (goto-char (point-min))
      (while (scan-buffer (compile-regexp "^URI: file:///¥¥(.+$¥¥)")
			  :no-dup no-dup)
	(setq no-dup t)
	(setq f (si::www-url-decode (match-string 1)))
	(setq f (substitute-string f "|/" ":/"))
	(when (file-exist-p f)
	  (pushnew f file-list :test #'equal)))
      (delete-buffer tmpbuf))
    (mapcan (lambda (file)
	      (howm-view-fake-grep-file str file search-backward-f))
	    file-list)))

Page 1 of 7: 1 2 3 4 5 6 7 »