CotEditorからjavascript(JXA)経由でperlへ

2015/9/8 [08:45:50] (火)

CotoEditorで昨日書いたapplescriptと同じことをするjavascript(JXA)を書いたのでメモ。

YosemiteからはOS標準でJavaScript for Automation (JXA)が使えるようになった。
歴史的な流れとしては、HyperCardのHyperTalkからapplescriptへ、applescriptからjavascriptへということらしい。これらは乱暴に理解すると、unixでのシェルスクリプトやWINDOWSのバッチファイルみたいなもの、か。いや、macのことはよく知らない。

こちら、 『JavaScript for Automation (JXA)』鳶嶋工房 がとても参考になった。

これからはjavascriptだというし、初めてでよくわからなかったapplescriptよりは多少いじったこともあるjavascriptの方がたぶん早いだろうと、昨日applescirptで書いたばかりだけど、javascriptで書き直した。

ここんとこいじってるスクリプト、マクロはxyzzyもCotEditorのスクリプトも身も蓋もない言いかたをすると「シェルに渡すためのコマンドライン文字列を生成するだけ」のもの。

実際の作業はperlのスクリプトが担当なのでマクロやスクリプトでは難しいことは何もしていない。

javascirpt(JXA)版スクリプト
ObjC.import(stdlib); var home = $.getenv(HOME); var myScript = home + "/Documents/_script/_coteditor-tmp.pl"; var app = Application("CotEditor"); app.includeStandardAdditions = true; var filepath = app.document.file()[0]; var buffer = app.document.selection.contents()[0]; var input = ""; if(buffer != ""){ input = app.displayDialog("[D][T][E]", {withTitle:Op, defaultAnswer:""}).textReturned; } var cmd = ""; if(buffer != "" && input != ""){ cmd = "echo " + buffer + " | " + myScript + " " + input; } else if(filepath != ""){ cmd = myScript + " " + filepath } // do shell script var doscript = Application.currentApplication(); doscript.includeStandardAdditions = true; var ret = doscript.doShellScript( cmd ); var doc = app.Document({name:"*scratch*"}); app.documents.push(doc); doc.text = ret; app.activate();
CotEditorのスクリプトとして使うには
・ファイル名(拡張子)「.js」
・ファイルの一行め「#!/usr/bin/osascript -l JavaScript」
この2点が必要。

HOMEディレクトリ(のpath)を取得するのに、わざわざstdlib使うのって大袈裟な感じやな、とか思ったりしつつ、アプリをいじるための呪文
var app = Application("CotEditor");
app.includeStandardAdditions = true;
を入れてプロパティを調べるぐらいで、後はほんとJavascript。
わたしの慣れの問題で当たり前の話、applescriptよりJavascirptの方が格段にわかりやすい。わからないところ・書き方などはJXAというかJavascirptで検索すれば情報豊富で解決も早い。

今回、macの「スクリプトエディタ.app」が手軽・便利で大助かりだった。変数に何が入ってるのかを見られたり、エラーチェックできて、こんなアプリがあったとはちょっとした発見＆驚き(今さら感)

ただ、残念なことに、このJavascript版はosascriptで使うと
warning: failed to get scripting definition from /usr/bin/osascript; it may not be scriptable.
という警告が毎回出てしまう。いちいちコンソールが出て警告されるのは鬱陶しいけどしかたがないらしい。
こちらが参考になった→ 『JXAの「Error: A privilege violation occurred」の回避』

せっかくだけど、昨日のapplescriptはお蔵入り・塩漬けだなあ。

 

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

CotEditorからapplescript経由でperlへ

2015/9/7 [18:53:38] (月)

applescriptというのを初めて触ってみた。
平文でわかりやすいシェルスクリプトて感じ、かな。

WINDWOSのxyzzyでやってるのと同じこと、ほぼ近いことをmacのCotEditorでもやりたい、ということでスクリプトメニューにperlのスクリプトを登録。これは気軽手軽に思ったことができるのでありがたい。外部のスクリプト、perlじゃなくてもrubyやphp、シェルスクリプトが使えるなら万能だ。

ということでやってたんだけど。

外部スクリプトはひとつにして、スクリプト内で処理を振り分けたい。処理単位でスクリプトを作ってスクリプトメニューに登録するとキリがない。それには対話的にユーザー入力をスクリプトで受け取りたい。ユーザーが入力したテキストでも処理を振り分けたい。
→ユーザーの入力を受け取る仕組みが必要。

CotEditorが外部スクリプトの処理した内容を受けとるのは編集中のテキスト上か、あるいは使わないかの2択だけど、外部スクリプトは必ずしもフィルタ的な用途だけじゃない。処理した結果(出力内容じゃなくて、戻り値みたいなもの)を受け取って確認するだけ、とか、選択範囲を処理してその部分をWEBの管理ページにペーストするだけ、とか、できれば元テキストはそのままの状態にしておいて欲しいということもある。
→作業用の新規ドキュメントがあれば助かる。

どちらも、perlやシェルスクリプトなどの外部スクリプトではちょっと難しそう。ていうか、スクリプト側からではアクセスできないこと、かな。

なので、ちょっと調べてみた。
applescriptを使えば、ユーザー入力を取得するdialogを出せる、CotEditorに新規ドキュメントを開くように言うこともできる。

1)テキストに選択範囲があったらば。
dialogを出して、選択範囲のテキストに対してどんな処理をするのか指示を受けとる。
スクリプトに入力されたテキストを引数として渡す。選択範囲のテキストはechoで出力してパイプでスクリプトに流しこむ。
2)選択範囲がなかったら。
ファイル名、パスを見てどんな処理をするのか判断する。
スクリプトにはフルパスのファイル名を引数として渡す。
どちらの場合も出力先は新規ドキュメント「名称未設定」とする。

ごそごそ調べて書いたapplescirpt
set home to (path to home folder)'s POSIX path set myScript to home & "Documents/_script/_coteditor-tmp.pl" set Filename to (missing value) set buffer to "" set input to "" set cmd to "" tell application "CotEditor" if not (exists front document) then return set Filename to file of front document try set Filename to ((Filename)'s POSIX path) on error set Filename to (missing value) end try set buffer to (contents of selection of front document) if (buffer is not "") then set input to text returned of (display dialog "Op [D][T][E]" default answer "") end if if (buffer is not "") and (input is not "") then set cmd to ("echo " & quoted form of buffer & " | " & myScript & " " & input) else if (Filename is not (missing value)) then set cmd to ("perl " & myScript & " '" & Filename & "'") else return end if make new document set (contents of front document) to (do shell script cmd) activate end tell
↑これを「util-perl.@p.applescript」という名前にして、「~/Library/Application Support/CotEditor/ScriptMenu」フォルダに入れておけばCotEditorで作業していていつでも呼び出せる。

自分環境・自分作業内容に特化したスクリプトで、誰にとっても有用・便利に使えるものではないけど、applescriptにはまったく馴染みがないので、備忘録としてメモしておこう。

明日にはもう忘れているであろう自分のためにもメモが必要なのだ。

[09/07 20:56:44]ちなみに。
applescriptの「do shell script」はスクリプトの標準出力を取得している。
たとえば、perlのスクリプトチェックの「perl -wc」は標準エラー出力。applescriptに出力させるには標準エラー出力(STDERR)を標準出力(STDOUT)に向けてやる必要がある。

perlのスクリプトの中で
open STDERR, ">&", *STDOUT
この1行を該当するサブルーチンに入れておく必要がある。


 

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

xyzzyとperlの連携でテキスト処理最強環境

2015/9/6 [23:59:56] (日)

こないだからごそごそいじってるxyzzyのマクロとそこから連携するperlのスクリプト。
xyzzyのあまりの便利さ、ラクチンさ、フロントとしての有能さに今さらながら驚いた。もう15年ぐらい使ってるっちゅーのに。

エディタはxyzzy一択だろう(主語:おれ)

自分環境・自分作業内容に特化したマクロなので、誰にとっても有用・便利に使えるものではないけど、備忘録としてメモしておこう。
lispは手強い、というか他とは別モノなので、今回ごそごそ作ってるようなわずか数行のものでもネットで検索しまくり、デフォルトのlispフォルダをgrepしまくってやっと。明日にはもう忘れているであろう自分のためにもメモが必要なのだ。

てことで、先日までのマクロの振り返り。。

1)編集中のバッファの内容をtempファイルに書き出して
2)perlのスクリプトで処理して
3)処理された内容をバッファに読み込む

てところがキモ。

(2)のところ。
今日までは、処理してほしい内容について
(interactive "s[D]elSpace [T]ab4Space [M]akeEPUB [C]heck")
などと、マクロを起動したらperlでどういう処理をして欲しいのか、ユーザー入力を取得してperlに引数として渡すようにしていた。
でも、このユーザー入力のひと手間がけっこう面倒くさい。

面倒くさいものは続かない。そのうち使わなくなるのが目に見えている。
20分ぐらい考えて、macのCotEditorが外部スクリプトの引数に編集中のファイル名(フルパスで)を渡すことを思い出した。この動作をそのままxyzzyのマクロでも使うことにした。

そもそも、マクロを起動したらば。
編集中のファイルの拡張子が.plとか.pmだったらperlのシンタックスチェックをして欲しいし、編集中のファイルがeasy_epubフォルダ以下の.txtファイルだったらeasy_epub.plでEPUB電子書籍を作ってくれ。自分としては、いちいちユーザー入力を待って判定する必要はない。
ファイルと結びつかない新規バッファや*scratch*バッファで作業しているものに関しては、空白の削除やタブを空白4つに変換するなど、その時その場の小ネタ処理で決めうちできないので、ここはユーザー入力で動作を振り分けてもらいたい。

・フルパスのファイル名がわかっているものに関しては、パス・ファイル名を処理・動作の判断にしてくれ。
・ファイル名がわからないものに関しては、指示するからちょっと待てよ。

という自分リクエストを満たしたxyzzyのマクロがこの10行。
01:(defun to-perl() 02: (interactive) 03: (setq temp-file (concat (user-homedir-pathname) "_xyzzy.tmp")) 04: (unless (get-buffer-file-name) (setq op (read-string "[D]elSpace [T]ab4S [E]bookPage: "))); 05: (delete-file temp-file) 06: (write-file temp-file) 07: (execute-shell-command (concat "_xyzzy-tmp.bat" " \"" (get-buffer-file-name) "\" " op) temp-file "*scratch*" (selected-buffer)) 08: (mark-whole-buffer) 09: (copy-region-to-clipboard (mark) (point)) 10:)

やってることは。
01:関数
02:この関数はマクロで呼び出せますよ
03:バッファを書き出すためのtempファイル名の設定
04:編集中のバッファがファイルと結びついてなければどんな処理をするのかユーザー入力待ち
05:tempファイルの削除
06:編集中のバッファをtempファイルに書き出し
07:perlに渡すためのバッチファイル(WINDOWSのダセエところだ)
引数としてフルパスのファイル名と、04の場合の入力された文字。標準入力経由でtemp-file、perlが処理した内容を受けとるところとして「*scratch*」バッファを設定。
08:バッファ全体をマークして
09:バッファをクリップボードにコピー

受けとるperl側は以下。長いのでpackageについては端折るけど。
・フルパスファイル名がわかっているものは、ファイルを読み込んで処理。
・ファイル名がないものは、一行ずつ処理したり、全部読み込んでから処理したり。
（第一引数はファイル名。第二引数がマクロの04で入力した文字）
use strict; use utf8; use Encode; binmode STDOUT=>":utf8"; my $file = shift(@ARGV); my $x = xyzzy_buffer->new({}); if($file =~ m!easy_epub.+(\.txt)$!){ easy_epub フォルダで作業してる時はeasy_epubで作成 $x->run_easy_epub; exit; } elsif($file =~ m!\.p[lm]$!){ 拡張子が.pl .pmは perl-wc でエラーチェック。 $x->check_error({file=>$file}); exit; } my $op = shift(@ARGV); my @buf; while(<>){ my $line = Encode::decode('utf8', $_); if(! $file ){ if( $op =~ m!^[dD]$!){ print $x->delete_space({line=>$line}); } elsif($op =~ m!^[tT]$!){ print $x->tab4space({line=>$line}); } elsif($op =~ m!^[eE]$!){ push(@buf, $line); } else{ print $line; } } } if($op =~ m!^[eE]$! && @buf){ $x->make_ebook_page({contents=>\@buf}); }

いやもうほんと滅茶苦茶最強のテキスト処理環境のできあがりだ。
どのぐらい最強かというと、今日まさに立川で観てきた爆音「マッドマックス FR」のお婆ちゃんズぐらい最強だ(実写版ジブリだったなあ)

 

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

macのキーバインド設定

2015/9/5 [18:08:25] (土)

オサレなmacユーザーは優雅にコーヒーを飲みながらタッチパッドやマウスを駆使するんだろうが、昭和レトロなわたしは麦茶をすすりながらもエディタを使ってる時にキーボードから手を離したくない・ホームポジションにしがみつきたい。

なんでタブを入れるのにいちいちタブキーなわけ?control+iにしてくれよ。
なんで改行するのにいちいちエンターキーなわけ?control+mにしてくれよ。
てことだ。

検索してみるとやはりmacの(というかcocoaの)キーカスタマイズ記事がかなりヒットした。
こちらの 『テキスト編集のキー操作を自在にコントロールする』 が丁寧でわかりやすい解説と有用なリンクがあってオススメ。

システム全体のキーバインド設定は
→「/System/Library/Frameworks/AppKit.framework/Versions/C/Resources/StandardKeyBinding.dict」

でも、こいつはテキストエディタで開くと文字化けして何のことやら皆目見当もつかないし、システム全体のものをいじるのはおっかないので、自分専用のキーバインド設定ファイルを使うことができる。
→「~/Library/KeyBindings/DefaultKeyBinding.dict」

わたしのmac OS 10.10.3にはディレクトリもファイルもなかったので
ホームディレクトリの下の「Library」フォルダに
「KeyBindings/DefaultKeyBinding.dict」を作成した。上記サイトを参考にcontorl+iでタブ入力というのだけの設定ファイル。
→{ "^i" = "insertTab:" }

その後「KeyBindingsEditor」というGUIでキーバインドの設定、キーカスタマイズができるアプリをダウンロードして(https://www.cocoabits.com/KeyBindingsEditor/)DefaultKeyBinding.dictに設定追加していった。

できあがったDefaultKeyBinding.dictが以下。xmlなのでわかりやすい。
<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "https://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> <key>^ </key> <string>setMark:</string> <key>^g</key> <string>cancelOperation:</string> <key>^i</key> <string>insertTab:</string> <key>^m</key> <string>insertNewline:</string> <key>^x</key> <dict> <key>^m</key> <string>selectToMark:</string> <key>^v</key> <string>moveToEndOfDocument:</string> <key>^x</key> <string>swapWithMark:</string> <key>^z</key> <string>moveToBeginningOfDocument:</string> <key>k</key> <string>performClose:</string> <key>u</key> <string>undo:</string> </dict> <key>^z</key> <string>pageUp:</string> </dict> </plist>
これで、emacsもどきでxyzzyもどきとなった。
contol+xをプレフィックスキーにしたキーバインディングなんかも実現できる。

・control+spaceでカーソル位置をマーク
・control+iでタブ入力
・control+mで改行
・control+zでページアップ
・conrol+x control+vで文書末尾にジャンプ
・conrol+x control+zで文書先頭にジャンプ
・conrol+x uでundo

このあたり、よく使うものを設定した。

ただ、
control+x control+f→ファイルオープン
control+x control+s→ファイル保存
control+x control+w→別名保存
なんかが効かないなぁ。ファイル操作系は別なのかな。

しかし、これだけのことで格段に使いやすくなった。
日頃使うエディタのキー入力でストレスが減るのは本当にありがたい。
もちろん、出先のパソコンは、効率が落ちても、デフォルトで使うしかないけど、ウチで使うものに関しては「手に馴染んだやりかた」で使いたい。


以上、んなもん、とっとと設定しろよ、なにを今さら、という話。

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

ゴミ屋敷の整理

2015/9/4 [18:18:30] (金)

季節の変わり目だし、今日は各種バックアップ。
仕事系のディレクトリをzipでまとめて、USBメモリに。
雑記帖の画像をFTPでダウンロードしてzipでまとめて、USBメモリに。

仕事系はWEBにしろ、EPUBにしろ、細かいファイルがどっさりあって、万単位になっててびっくりというか我ながら呆れてしまった。何年分溜めこんで散らかしてんだよ。
雑記帖の画像も画像ディレクトリに1000を超えてたので、ディレクトリ単位でのバックアップが面倒くさくなっていた。

仕事系のファイル
そのまま放り込んでると非力なネットブックはエクスプローラで表示させるのにさえ時間がかかってしまう。意外なことにmacも細かいファイルのてんこ盛りには弱いらしく、Finderの動きが鈍くなってしまう。あちこち、目の前で必要のないものはまとめてUSBメモリに退避してもらった。zipでまとめたりファイルのコピーや移動をしてるだけで半日潰してるんだから、放置しすぎ。
一部バックアップ用のスクリプトを書いたので、明日からは少しはマシになる、はず。

雑記帖の画像
ひとつのディレクトリにたかだか1000程度のファイルがあったところで、レンタルサーバーは問題なしだけど、バックアップする手間を考えて画像フォルダを分けることにした。スクリプト中に散らばっている「images/」という生の単語をgrepしまくり、新たにそれ用に書いたサブルーチンが返すものに変更。さらに増えても今後はサブルーチンの部分を変更するだけで大丈夫(最初からきちんと考えて作っとけ、って話だ)


ついでに中途半端に投げっぱなしのxyzzyのマクロから呼び出すスクリプトも。
easy_epub(などのepub作成スクリプト)を呼び出して、編集中の文書のepubを作成。作成したepubをepubcheckにかけてエラーをチェック。さらにepubをbib/iフォルダに解凍。エディタのバッファに表示されるリンクを叩けばEPUBの確認ができる。
こんなものはバッチファイルでいいじゃん、てことでも、エディタ(xyzzy)作業中にエディタから抜けて別操作するとなけなしの集中力が削がれるので、予想以上に捗る。昭和の頃は、パソコンユーザーはパソコンを使ってる時間の8割以上はエディタを使ってる、と言われてたくらいだ、エディタべったりで安心できる。

また、今までは、作ったepubファイルをいちいちmacにコピーしてibooksでチェックしてたけど、 BiB/i のおかげでwindowsのネットブック、chromeでの確認となってひと手間減った(最終的にはibooksで確認するけど、途中途中での確認作業はwindowsでイケるのがありがたい)
これはほぼそのままCotEditorのスクリプトメニューに登録しても使えるなあ。

はなっからmacでCotEditorで作ればいろいろ捗りそうに思われるかもしれんが、我が家のアドビ神はすべてwindows版なのだ。うーむ。

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

Ingress Lv16への仕込み

2015/9/1 [14:52:47] (火)

今日、Sojournerがプラチナとなった。
これは24時間以内にHackし続けた日数＝毎日Hackし続けた日数が実績となるメダル。雨の日も風の日もカンカン照りの日も毎日最低1回、180日間休まずにポータル詣したらご褒美にプラチナをいただけた。健康祈願の御百度参りみたいなもんだ。
オニキス(黒)メダルは360日間…さすがにこれはどうだろか。

これでとりあえずレベル上限のlv16が見えてきた。

今、lv14(獲得APが約2200万)で、lv15にはメダルは揃っていて後APが200万ほど。
lv16はオニキス(黒)メダルが2つ、プラチナメダルが4つ、APは4000万(lv15からだと1600万)。前にも書いたけど、「Recharger」「Sojourner」「Translator」「Trekker」は難易度の低いメダル。
この4つ、Recharger以外は後から追加されたメダルでlv16に必要なプラチナ4とオニキス2つはこの4つで行けてしまう。黎明期からやってる古参エージェントのlv16よりはハードルが低い。他のメダルでプラチナはかなり大変。先が見えなくて気が遠くなるか、朝昼晩深夜と四六時中アクションしている廃人になるか、だろう。

lv16に向けてAP稼ぎをしている間にも、たぶんRechargerとTranslatorかTrekkerでオニキス2つは獲得できそう＝lv16のメダル条件クリア。
(Rechargerの伸びが意外だった。自分のレベルが上がるとリチャージできる量も増えるので、Rechargerメダルの実績が稼ぎやすくなるんだなあ)

 

プラチナ
Recharger 遠隔で見方ポータルの回復
Sojourner 24時間単位でハックし続けた日数
Translator グリフハック成功ポイント
Trekker 歩いた距離
金
Builder デプロイ数
Connector リンクを張った回数
Explorer ユニークポータルのハック数
Guardian 自ポータルの維持日数
Mind Controller CF作成数
Pioneer 初めてキャプチャしたポータル数
銀
Engineer 自陣ポータルへのmod差し回数
Hacker ハック回数
Illuminator CF作成時のmu獲得数
Liberator ポータルのキャプチャ数
Purifier 敵のレゾネーター破壊数
SpecOps クリアミッション数【Ingressネタ】
京成の一日周遊切符「下町日和きっぷ」 (2014/10/4)
ポータル巡礼1万8000歩弱 (2014/10/11)
Ingressで連日1万歩 (2014/11/9)
Ingress Lv9になった (2014/12/21)
Ingress Lv10になった (2015/1/6)
下町日和きっぷで2万5千歩のポータル散歩 (2015/1/12)
Ingress Lv11になった (2015/5/4)
Ingress Guardianで金が獲れてLv12になった (2015/6/17)
Ingress Lv13になった (2015/6/30)
Ingress Lv14になった (2015/7/3)
Ingress ガーディアン金の呪い (2015/7/20)
Ingress Lv16への仕込み (2015/9/1)
Ingress Lv15になった (2015/10/3)
Ingress LV16 カンストとなった (2016/3/29)

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら