xyzzyで
という処理ができるようにする。winshotを利用。
以下をsite-lispフォルダに保存。winshotのパスや保存フォルダは各自読み替えてください。
.xyzzyに以下を追記
(load-library "screenshot") M-x screenshot
スクリーンショットしたい箇所を矩形選択
スクリーンショットが保存され、かつそのパスが貼り付けられる
xyzzyを移動する時、一々マウスを使うのは面倒なので、キーボード操作で移動できるようにする。 移動位置の基準には、ほえほえ日記を見ている人はまず間違いなく2つや3つは常時起動してるはずの、PPcを使う。
以下をScriptフォルダに保存。
rotate_ppc_id.js
以下を編集して取り込み。
_Command = { ; ユーザコマンド・関数
xyzzypos = *string o,handle=%%N%*script(%0Script\rotate_ppc_id.js,xyzzyid)
*fitwindow %*extract("%so"handle""),%*findwindowtitle("-xyzzy-"),20
}
以下を.xyzzyに追加。
(setq-default title-bar-format "-xyzzy-")
(set-extended-key-translate-table exkey-S-tab #\F20)
(global-set-key '#\F20 #'(lambda () (interactive)
(call-process "D:\\bin\\ppx\\PPTRAYW.EXE -c *xyzzypos")))
PPc[A] PPc[B] PPc[C]の三つが起動していた場合、xyzzy上でShift+Tabで、
PPc[A]→PPc[B]→PPc[C]→PPc[A]→…
という順序でPPc中央に移動する。
最近暇すぎてラテン語で書かれた本を読んでる。読みたい文献をテキストファイル化してxyzzyで表示し、単語クリックで辞書を引けるようにしたら完璧じゃねと思いついて色々調べてみた。EPWING for the classicsで公開されている羅英辞書は、なんと変化形から引くことができるのだ！
そもそもEPWINGとは何かというと、30年ほど前に富士通が中心になってまとめた共通規格。市販されているCD-ROM辞書のデファクトスタンダードになっているようだ。名前はWINGビルで会議をしたことにちなむらしい。
他に有名な規格として、PDICがある。PDICはDOS時代から公開されている辞書ソフト。当初は単語帳のような使い方が主流だったが、後に多くの辞書データが公開され、辞書の形式として定着したらしい。
ではやり方を見ていこう。
EPWING形式の辞書を予め用意しておく。
*Megahurtz:xyzzy:ebdict:manual
からeb-4.2.2-win32.exeをダウンロードし、インストール。
インストールフォルダにあるbin/eb.dllをxyzzyのetcフォルダにコピーする。
GitHub - deecay/ebdict: EPWING for xyzzy
からeb.lをダウンロードして、site-lispフォルダに入れる。 ついで、「.xyzzy」に以下を追加。辞書フォルダのパスは各自読み替えてください。
(require "eb")
(setq *ebdict-directories* '("D:/work/Dictionary/eld-morph" "D:/work/Dictionary/F2J2"))
(global-set-key #\MBtnDown 'ebdict-lookup)
テキストを読み込み、単語にカーソルをあわせて、M-x ebdict-lookup [C-M-,]
僕は、ホイールクリックでも辞書を引けるようにしている。ちなみに、検索結果を表示しているバッファからさらに辞書を引くことも可能。 ただ、xyzzyだと外字を表示できず、文字化けしてしまうようだ。emacsにもlookpupという拡張があり、こちらだと文字化けしない。こちらの使用方法については次回。
ttrayを使うとxyzzyをタスクトレイに常駐することができる。
これと、ホットキーによる表示/非表示を組み合わせると、調べ物をしながらのメモが楽になる。
.xyzzyに以下を追加し、タイトルバーに -xyzzy- が含まれるようにする。
(require "ttray") (setq-default title-bar-format "-xyzzy- %f (%M) [%k:%l]")
PPtrayから表示/非表示を実現する。以下を編集して取込。
K_tray = {
^\X ,*focus !"-xyzzy-"
}
これでCtrl+Shirt+Xで表示/非表示ができる。PPtrayはもちろん常駐させておく。
利用しているのがPPxとxyzzyのみで、ブラウザその他のソフトを使わない、このOSではそんなもの起動することもない！という硬派な人の場合。
の二つで表示/非表示を実現する。
PPx Key Modeuleをインストールした上で、
.xyzzy
(require "ttray")
(global-set-key '(#\C-x #\C-x) 'kill-all-buffer)
;; すべてのバッファを削除する
;; http://www.nct9.ne.jp/m_hiroi/xyzzy_lisp/xyzzy01.htmlより
(global-set-key '(#\C-x #\C-c) 'ttray-hide-xyzzy)
(defun kill-all-buffer ()
(interactive)
(let ((scratch-buff (find-buffer "*scratch*")))
(dolist (buffer (buffer-list))
(if (and (not (eq scratch-buff buffer))
(not (buffer-modified-p buffer)))
(delete-buffer buffer)))))
以下を編集して取込。
KC_main = {
^X ,*setnextkey K_launcher
}
KV_main = {
^X ,*setnextkey K_launcher
}
K_launcher = {
^C ,xyzzy
}
これで、C_x,C_c で表示/非表示が実現できる。xyzzyでバッファを全て消したくなったときは C_x,C_x 。
;; ウィンドウの位置とサイズを引数で変更
;; 「X座標 Y座標 ウィンドウ幅 ウインドウの高さ」の4つの引数を取る
;; > xyzzy の音 - バッファ/ウィンドウ/フレーム
;; > http://hie.s64.xrea.com/xyzzy/note/buffer.html#xyzzy-resize
;; を参考にした
(require "wip/winapi")
(unless (fboundp 'SetWindowPos)
(c:*define-dll-entry winapi:BOOL SetWindowPos
(winapi:HWND winapi:HWND winapi:INT winapi:INT winapi:INT winapi:INT winapi:UINT)
"user32"))
;サイズを変更
(defun xyzzy-resize ()
(interactive)
(if si:*command-line-args* (setq x (pop si:*command-line-args*))(setq x "1280"))
(if si:*command-line-args* (setq y (pop si:*command-line-args*))(setq y "43"))
(if si:*command-line-args* (setq w (pop si:*command-line-args*))(setq w "608"))
(if si:*command-line-args* (setq h (pop si:*command-line-args*))(setq h "1023"))
;位置/サイズを指定
(SetWindowPos (get-window-handle) 0
(parse-integer x) ;X座標
(parse-integer y) ;Y座標
(parse-integer w) ;ウィンドウ幅
(parse-integer h) ;ウィンドウ高さ
0))
KC_main = { ; PPcメイン窓
\TAB ,*focus "-xyzzy-"
}
; xyzzyのタイトルバーの書式に -xyzzy-を含ませる。
(setq-default title-bar-format "-xyzzy- %f (%M) [%k:%l]")
; Shift+TabでPPcにフォーカス
(set-extended-key-translate-table exkey-S-tab #\F20)
(global-set-key '#\F20 #'(lambda () (interactive)
(call-process "D:\\bin\\ppx\\PPTRAYW.EXE -c *focus C")))
;; ■ 連番を振る
;; 行頭が「・」あるいは「1.」「１．」の場合、Enterで連番にする
;; 連番しかないのにEnterを押した場合は連番を消す
;; 全角数字あるいは半角数字に１プラスして返す関数
(defun plus-1-string (str)
(cond
((string-match "[0-9]+" str)
(setf int (parse-integer str))
(format nil "~d" (+ int 1)))
((string-match "[０-９]+" str)
(setf str (map-to-half-width-string str :ascii t))
(setf int (parse-integer str))
(setf str (format nil "~d" (+ int 1)))
(map-to-full-width-string str :ascii t))))
;; 本体
(defun insert-serial-numbers ()
(interactive)
(if (eolp) ;;行末のときのみ作動
(save-restriction
(narrow-to-region
(progn (beginning-of-line) (point))
(progn (end-of-line) (point)))
(beginning-of-line)
(cond
((scan-buffer "^・.+" :regexp t) (end-of-line)(insert "\n・"))
((scan-buffer "^・" :regexp t) (replace-match ""))
((scan-buffer "^\\([0-9]\\|[０-９]\\)\\(\\.\\|．\\).+" :regexp t)
(end-of-line)
(let ((f (match-string 1)) (b (match-string 2)))
(insert "\n" (plus-1-string f) (format nil "~A" b))))
((scan-buffer "^\\([0-9]\\|[０-９]\\)\\(\\.\\|．\\)" :regexp t) (replace-match "\n"))
( t (end-of-line) (insert "\n"))))
(newline))) ;; 行末でなかったら普通の改行
;;(define-key *howm-create2dir-mode-map* '#\RET 'insert-serial-numbers)
(global-set-key '#\RET 'insert-serial-numbers)
; -*- Mode: Lisp -*-
;
;; MarkDown記法の見出しの実装（色づけとキーバインド）
;;
;; 行頭が"##"か"###"ならばその行に色をつける
;;
;; キーバインド
;; C-: 行頭に見出しを付けたり、戻したりする
;; 見出し(## )→小見出し(### )→解除 の順番
;;
;; Installation:
;;
;; ~/.xyzzy または $XYZZY/site-lisp/siteinit.l に以下のコードを追加
;;
;; (require "markdown-kihou")
(defun markdown-heading ()
(interactive "*")
(save-excursion
(save-restriction
(narrow-to-region
(progn (beginning-of-line) (point))
(progn (end-of-line) (point)))
(beginning-of-line)
(cond
((scan-buffer "^[ \t]*### ?" :regexp t) (replace-match ""))
((scan-buffer "^[ \t]*## ?" :regexp t) (insert "#"))
(t (insert "## "))))))
(global-set-key #\C-: 'markdown-heading)
(defvar *text-mode-formats*
(compile-regexp-keyword-list
'(
("^[=].*" t (:color 14 7 :line :bold ))
("^[#][#][#][^*].*" t (:color 7 14 :line ))
("^[#][#][^*].*" t (:color 7 4 :line ))
)
)
)
(defun my-color-text-mode ()
(make-local-variable 'regexp-keyword-list)
(setq regexp-keyword-list *text-mode-formats*)
)
(setq regexp-keyword-list *text-mode-formats*)
(add-hook 'text-mode-hook 'my-color-text-mode)
(setq-default title-bar-format "-xyzzy- %f (%M) [%k:%l]")
K_tray ={
^\X , *focus !"-xyzzy-",%Ob,C:\bin\xyzzy\xyzzy.exe
}
; -*- Mode: Lisp -*-
;
; メモファイルを引数のディレクトリに作成する
;
; キーバインド
; C-x,C-x 新たな見出し
;
; Installation:
;
; ~/.xyzzy または $XYZZY/site-lisp/siteinit.l に以下のコードを追加
;
; (require "onedaymemo")
(defun make-onedaymemo-file (memo-dir)
(let* ((filename (format-date-string "%Y-%m-%d.txt"))
(filepath (merge-pathnames filename memo-dir))
(directory (directory-namestring filepath)))
(if (not (file-directory-p directory))
(create-directory directory))
(find-file filepath)
(if (eq (point-max) (point-min))
(insert (format-date-string "%d %b %Y %H:%M:%S\n\n * : "))
(progn
(goto-char (point-max))
(insert (format-date-string "\n\n * : "))))))
(defun onedaymemo ()
(interactive)
(if si:*command-line-args* (setq x (pop si:*command-line-args*))(setq x nil))
(make-onedaymemo-file x)
(onedaymemo-mode))
(defun onedaymemo-mode ()
(interactive)
(kill-all-local-variables)
(setq buffer-mode 'onedaymemo-mode)
(setq mode-name "One Day Memo")
(use-keymap *onedaymemo-mode-map*))
(defvar *onedaymemo-mode-map* nil)
(unless *onedaymemo-mode-map*
(setq *onedaymemo-mode-map* (make-sparse-keymap))
(define-key *onedaymemo-mode-map* '(#\C-x #\C-x)
#'(lambda ()
(interactive)
(goto-char (point-max))
(insert (format-date-string "\n\n * : ")))))
(require "onedaymemo")
25 Jul 2015 17:03:46 * : Changelogのテスト 書式をChangeLogっぽく変えてみる * : 日付 日付とかはどうせファイルで分かるから不要？最初に起動するときだけにするとか。 あとは時間。これは本当に必要か？時間的なことが書きたいのなら、文中でやればいいだけかも。タイトルの区切りだけ入れるとか。 また、起動時に新規に作成するようにするか。 日付が必要な場合と不要な場合。あまり使わないだろうか。 あとはキーバインドをどうするか。C_x２度押しとか単純なのでいいかも。 * : PPvの一時コマンド なぜか中に入っていない。
KC_main = { ; PPcメイン窓
^Z ,*setnextkey K_launcher
}
K_launcher = { ** comment **
C ,%Ob D:\bin\xyzzy\xyzzy.exe -e (onedaymemo) D:\Work\Log
}
KV_main = {
E ,%Ob %'xyzzy' %FDC -g %L -e "(recenter 0)"
}
;;拡張子ごとに折り返しを指定
(add-hook '*find-file-hooks*
#'(lambda ()
(let ((ext (pathname-type (get-buffer-file-name (selected-buffer)))))
(cond
((or (equal ext "txt")
(equal ext "howm")) (set-buffer-fold-type-window))
((or (equal ext "ini")
(equal ext "cfg")
(equal ext "js")
(equal ext "vbs")
(equal ext "py")) (set-buffer-fold-type-none))
))))
KV_main = { ; PPvメイン窓
E ,%"Text edit"%Orib,editor %FDC -g %L
\E ,%K"@Q" %: %"Text edit"%Ob,editor %FDC -g %L
N ,%Ob D:\bin\xyzzy\xyzzy.exe -e (howm-create2dir) %1
\N ,%Ob D:\bin\xyzzy\xyzzy.exe -e (howm-create2dir) D:\howm
}
; -*- Mode: Lisp -*-
;
;; はてな記法の見出しの実装（色づけとキーバインド）
;;
;; 行頭が"**"か"***"ならばその行に色をつける
;;
;; キーバインド
;; C-: 行頭に**を付ける
;; C-] 行頭に*を付ける
;;
;; Installation:
;;
;; ~/.xyzzy または $XYZZY/site-lisp/siteinit.l に以下のコードを追加
;;
;; (require "hatena-kihou")
(defun hateda-heading ()
(interactive "*")
(save-excursion
(goto-bol)
(insert "**")
(fix-selection-point)))
(global-set-key #\C-: 'hateda-heading)
(defun hateda-headingsec ()
(interactive "*")
(save-excursion
(goto-bol)
(insert "*")
(fix-selection-point)))
(global-set-key #\C-] 'hateda-headingsec)
(defvar *text-mode-formats*
(compile-regexp-keyword-list
'(
("^[=].*" t (:color 14 7 :line :bold ))
("^[*][*][^*].*" t (:color 7 4 :line ))
("^[*][*][*][^*].*" t (:color 7 14 :line ))
)
)
)
(defun my-color-text-mode ()
(make-local-variable 'regexp-keyword-list)
(setq regexp-keyword-list *text-mode-formats*)
)
(setq regexp-keyword-list *text-mode-formats*)
(add-hook 'text-mode-hook 'my-color-text-mode)
;; KaTeX必須
(push "D:/bin/xyzzy/site-lisp/katex" *load-path*)
(require "elisp")
(push '("\\.tex$" . elisp::katex-mode) *auto-mode-alist*)
(autoload 'elisp::katex-mode "katex" t)
(setq elisp::tex-command "platex -src")
(setq elisp::dvi2-command "dviout")
(setq elisp::dviprint-command-format "dvipdfmx %s ")
; M-x katex-mode で花鳥を起動
(defun katex-mode()
(interactive)
(elisp::katex-mode))
(add-hook 'elisp::katex-mode-hook
#'(lambda ()
(auto-fill-mode nil)))
;(provide "minibuffer")
;(in-package "editor")
(export '(*ime-mode-into-minibuffer*))
(defvar *ime-mode-into-minibuffer* nil)
(defun ime-state-get-and-setoff (bef-buffer file-name)
(interactive)
(setq *ime-mode-into-minibuffer* (get-ime-mode)
)
(toggle-ime nil)
)
(defun ime-state-set (bef-buffer file-name)
(interactive)
(toggle-ime *ime-mode-into-minibuffer*
)
)
(add-hook '*enter-minibuffer-hook* 'ime-state-get-and-setoff)
(add-hook '*exit-minibuffer-hook* 'ime-state-set)
\documentclass{jsarticle}
\begin{document}
\title{タイトル}
\author{つかさ}
\maketitle
\tableofcontents
\end{document}