国立国会図書館デジタルコレクションにある電子化資料をPDFでダウンロード→画像化→タブレットで漫画ビューアを使って閲覧したい。
PDFCPUを使って必要な処理ができるようにする。
国立国会図書館デジタルコレクションって何?という人にはこの動画がおすすめ。
なぜかというと僕が作った動画だからなのだ!
チャンネル登録と高評価おねがいしますのだ!
mergeオプションを使ってマークしたPDFを結合する。
pdfcpu merge %*input("out|.pdf" -title:"アウトプットファイル名" -select:i -mode:c) %#FCextractオプションを使ってカーソル下のPDFを画像化する。ファイル名をもとにフォルダを作成し、その内に画像を生成する。
%Os *makedir %Y %: pdfcpu extract -mode image %FCD %Y以前は
magick convert コマンドだったが、いつの間にかconvertが不要になったらしいのでまとめ直し。
とりあえずエイリアスに登録しておく。
A_exec = { ; エイリアス
imagemagick = "C:\Program Files\ImageMagick-7.1.2-Q16-HDRI\magick.exe"
}%OB imagemagick %FCD output.%"拡張子を入力してください"%{png%}%パーセント指定
%OB imagemagick %FCD -resize %"数値を入力してください"%{50%}%%% output.jpg幅指定
%OB imagemagick %FCD -resize %"数値を入力してください"%{800%}% output.jpg高さ指定
%OB imagemagick %FCD -resize %"数値を入力してください"%{x600%}% output.jpg幅と高さ指定(縦横比変更)
%OB imagemagick %FCD -resize %"数値を入力してください"%{800x600!%}% output.jpg角度指定
%OB imagemagick %FCD -auto-orient -rotate %"数値を入力してください"%{270%}% output.jpg時計回りに90度回転
%OB imagemagick %FCD -auto-orient -rotate 90 output.jpg反時計回りに90度回転
%OB imagemagick %FCD -auto-orient -rotate 270 output.jpg180度回転
%OB imagemagick %FCD -auto-orient -rotate 180 output.jpg左右に分割
%OB imagemagick %FCD -crop 50%%x100%% output.jpg 上下に分割
%OB imagemagick %FCD -crop 100%%x50%% output.jpg 複数のファイルを一括処理する方法はいくつかあるが、レスポンスファイルを使うのが簡単。%FCDを%@*8FCDBに変えるだけでいける。
windows - How to pass multiple filenames to ImageMagick? - Stack Overflow
%OB imagemagick %@*8FCDB output.%"拡張子を入力してください"%{png%}%パーセント指定
%OB imagemagick %@*8FCDB -resize %"数値を入力してください"%{50%}%%% output.jpg幅指定
%OB imagemagick %@*8FCDB -resize %"数値を入力してください"%{800%}% output.jpg高さ指定
%OB imagemagick %@*8FCDB -resize %"数値を入力してください"%{x600%}% output.jpg幅と高さ指定(縦横比変更)
%OB imagemagick %@*8FCDB -resize %"数値を入力してください"%{800x600!%}% output.jpg角度指定
%OB imagemagick %@*8FCDB -auto-orient -rotate %"数値を入力してください"%{270%}% output.jpg時計回りに90度回転
%OB imagemagick %@*8FCDB -auto-orient -rotate 90 output.jpg反時計回りに90度回転
%OB imagemagick %@*8FCDB -auto-orient -rotate 270 output.jpg180度回転
%OB imagemagick %@*8FCDB -auto-orient -rotate 180 output.jpg左右に分割
%OB imagemagick %@*8FCDB -crop 50%%x100%% output.jpg上下に分割
%OB imagemagick %@*8FCDB -crop 100%%x50%% output.jpg以下の操作ができるようにする。
なぜこういう挙動にしてるかというと、マスクの解除をし忘れて「エントリが全然ない！」と大騒ぎすることがたまにあるからです。
表示したいファイルをマークする。
以下のコマンドを実行する。
*string o,cmd=o:d,%#, %: *string o,dir=%1 %: *maskentry -thispath "%so"cmd"" %: %K"@^END" %: *linecust delmask,KC_main:FIRSTEVENT,*ifmatch %n,%%n %%: *maskentry -"%so"dir"" %%: *linecust delmask,KC_main:FIRSTEVENT,このように、マークエントリのみが表示される。マスク状態は現在窓を閉じると解除される。
僕はhowm形式でメモを取っているが(参考:moe | メモの方法論)、一日に何度も編集したり、閲覧したりするファイルがある。日記や、短期的なtodoだ。こういったファイルを一々フォルダから探し出して開くのは手間なので、簡単に開けるようにしたい。
ユーザデータを利用する。_User:diaryや_User_todoを用意し、ここにファイルパスを保存する。
以下のファイルをScriptフォルダに保存。
settitle2.js
以下を一行編集の補完候補リスト(参考:コマンドの実行 | PPxMemo)に追記する。
;<diaryを開く>; editor %su"diary"
;<diaryをppvで閲覧>; *ppv %su"diary"
;<diaryを新規作成>; *setcust _User:diary=%*script(%0Script\settitle2.js) %: editor %su"diary"
;<カーソル下ファイルをdiaryに登録>; *setcust _User:diary=%FCD
;<todoを開く>; editor %su"todo"
;<todoをppvで閲覧>; *ppv %su"todo"
;<todoを新規作成>; *setcust _User:todo=%*script(%0Script\settitle2.js) %: editor %su"todo"
;<カーソル下ファイルをtodoに登録>; *setcust _User:todo=%FCD未整理のまま放置されている大量のファイルを、別々のフォルダに振り分けたい場合がある。これを通常のファイル操作でやろうとすると、移動元フォルダと移動先フォルダを何度も行き来することになって面倒だ。 移動先フォルダのパスを、一時的にストックする仕組みを作ることで、この問題を解決する。
以下を編集して取込。
-|K_furiwakemode =
-|K_furiwakemode2 =
K_furiwakemode = {
C ,*ppcfile copy,%su"mydesto"
M ,*ppcfile move,%su"mydesto"
O ,*ppc -r -bootid:x -single -k *mapkey use,K_furiwakemode2 %%: *linemessage Shift+Enterで操作先に指定
R ,*RotateCustomize _User:mydesto %su"destonames" %: *linemessage 操作先を%su"mydesto"に変更
ESC , *mapkey delete,K_furiwakemode %: *linemessage 振り分けモード終了
}
K_furiwakemode2 = {
\ENTER ,*setcust _User:destonames=%su"destonames" , %FCD %: *linemessage %FCを登録しました
}以下のコマンドを実行。
*mapkey use,K_furiwakemode %: *setcust _User:mydesto= %: *setcust _User:destonames= %: *linemessage 振り分けモード [O]操作先選択 [R]切り替え [ESC]QUIT[O]を押すとサブ窓が開く。サブ窓上で[Shift+Enter]を押すと、カーソル下フォルダのパスが、操作先のパスとしてストックされる。必要なパスを登録したら、サブ窓を閉じよう。
メイン窓で[R]を押すと、操作先のパスを切り替えることができる。
[M]あるいは[C]でファイル操作ダイアログを表示すると、操作先パスが切り替わっていることが確認できる。
メイン窓
サブ窓
PPxがメジャーバージョンアップをして、2.00になりました。おめでとうございます。1.00は2008年らしいので、私がPPxを使い始める前ですね。素晴らしいソフトとその作者さんに感謝を！
私は、2000年代初頭にPCを入手してすぐ、ソフトウェアカスタマイズに手を出し始めた。PPxの存在を知ったのは、覚えらんない人の「俺がランチャを捨てたわけ」という記事に、名前があがっていたからだと思う。
当時はソフトウェアカスタマイズブログがたくさんあったが、PPxの情報は比較的少なかった。2chでは、PPxは超高性能だがカスタマイズも超難解という評価で、ファイラースレには挫折した報告や、挫折せずに続ける方法を考察したレスなどがあった。専スレは内容が高度すぎて何を言ってるのかほとんどわからなかった。このような状況下で、ソフトウェアカスタマイズ界隈初心者の私は、PPxをただ仰ぎ見るだけだった。
2009年あたりになって、やっとPPxを使い始める。その時には、PPxについて解説したブログがいくつかあり、それを見ながら外部ソフトを起動する方法を調べたり、キーバインドをいじったりしていた。そのうち、自分でも記事を書くようになったみたいです。
書庫ファイル内の画像ファイルをサムネイルにする。
以下の二つのファイルをScriptフォルダに保存。
エントリ表示形式を、画像が含まれるものに変更する。とりあえずは、[;]で表示されるメニューから「サムネイル1」を選んでおけばいい。こうしないと、以下の過程で「no image mode」と言われてしまう。
カーソル下の書庫ファイルのサムネイルを変更したい場合は、以下のコマンドを実行する。
*setentryimage %*script(%0Script\getarchiveimage.js,%FCD) -save複数の書庫ファイルのサムネイルを同時に変更したい場合は、ファイルをマークした後、以下のコマンドを実行する。
*script %0Script\setarchiveimage_marked.jsPPvを分割して別のPPvを開いたり閉じたりする動作が気に入ったので、PPv+EBWIN4もこの形式にしてみる。
必要なもの
EBWIN4には、EPWING形式の辞書をあらかじめ登録しておこう。
以下の二つのファイルをScriptフォルダに保存する。dic.luaのEBWIN4のパスは環境に応じて読み替えてください。
以下を編集して取込。
_Command = { ; ユーザコマンド・関数
splitppv = *string i,height0=%*windowrect(,h)
*string i,height1=%*calc("%*arg(2)*%*windowrect(,h)/100")
*string i,height2=%*calc("%*windowrect(,h)-%si"height1"")
*windowsize %N,%*windowrect(,w),%si"height1"
*ppv -bootid:X -k %%J"%*arg(1)" %%: *fitwindow %N,%%N,4 %%: *windowsize %%N,%*windowrect(,w),%si"height2" %%: *selectppx %n
ebwin2ppv = *string i,ratio=%*arg(1)
*string i,tempfile=%*temp(name,f)
%Oi nyagos -f %0Script\dic.lua %*script(%0Script\selectword.js) %si"tempfile"
*ifmatch 0,0%NVX %: *splitppv %si"tempfile",%si"ratio" %: *mapkey use,K_splitppv %: *stop
*execute VX,%%J%si"tempfile"
}
K_splitppv = {
Q ,*ifmatch !0,0%NVX %: %Oi *windowsize %N,%*windowrect(,w),%si"height0"
*mapkey delete,K_splitppv
*closeppx "%n,VX"
ENTER ,*ifmatch !0,0%NVX %: %Oi *windowsize %N,%*windowrect(,w),%si"height0" %: *closeppx VX %: *stop
*splitppv %si"tempfile",%si"ratio"
}[I]でキャレットモードにしてから、辞書を引きたい単語を範囲選択して、以下のコマンドを実行する。
*ebwin2ppv 50引数で分割の割合を変更できる。単位は百分率。半分にしたかったら50、四分の一なら75、とすればいい。 僕はマウス中クリックでこのコマンドを起動するようにしている。
MV_click = { ; PPv メイン窓
M_SPC ,*ebwin2ppv 50
}僕はhowm形式でメモを取り、タイトルをコメントで表示している(参考:moe | メモの方法論)。
「TODO」「借りたい本」「日付」みたいに、特定の文字列がタイトルに含まれるエントリをまとめて処理するため、コメントの文字列を検索してマークするスクリプトを作った。
コメント行頭が「TODO 」のエントリをマークしたい場合は以下。
*script %0Script\commentmark.js,"^TODO "
コメントが「2024-10-23」といった形式のエントリをマークしたい場合は以下。
*script %0Script\commentmark.js,"^[0-9]{4}-[0-9]{2}-[0-9]{2}$"
リストファイルの用途は様々で、その用途に応じて適切な表示形式もかわる。リストファイルにジャンプしたあと、一々[;]で切り替えるのも面倒なので、事前にコマンドで変更できるようにする。
以下のコマンドを、リストファイルへのジャンプ前に一度実行する。これは一覧1(&L)に切り替える例。
*string o,hoge=一覧1(&L) %: *diroption -listfile cmd:"*viewstyle -listfile %so"hoge" %%: *diroption -listfile cmd:"""一覧&2なら次のようになる。
*string o,hoge=一覧&2 %: *diroption -listfile cmd:"*viewstyle -listfile %so"hoge" %%: *diroption -listfile cmd:"""以下は*whereisと組み合わせた例。
*string o,hoge=一覧1(&L) %: *diroption -listfile cmd:"*viewstyle -listfile %so"hoge" %%: *diroption -listfile cmd:""" %: *whereis*diroption -listfile cmd:"任意のコマンド" により、リストファイル表示時に任意のコマンドを実行することができる。 ここに、
の2つのコマンドを登録することで、リストファイル表示時に一度だけ、表示形式を変更することができる。FIRSTEVENTを使った以前からあるテクニックの応用ですね(詳しくはヘルプで「FIRSTEVENT を使用する」を検索)。
テキストファイル中に画像ファイルのパスを書いておけば、それを別IDのPPVで閲覧できるようにする。これで、テキストファイルのメモでも画像や図を扱いたい！という我々の永遠の課題を解決できるかもしれない？
以下をScriptフォルダに保存。
以下を編集して取り込み。
_Command = { ; ユーザコマンド・関数
openhalfppv = *windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)/2")
*ppv -bootid:X -k %%J"%*arg(1)" %%: *fitwindow %N,%%N,4 %%: *windowsize %%N,%*windowrect(,w),%*windowrect(,h) %%: *selectppx %n
previewimagepath = *openhalfppv %*script(%0Script\getimagepath.js,1)
*mapkey use,K_halfppv
*linecust imgpreview,KV_main:LOADEVENT,*ifmatch %%n,%n %(%: *RotateCustomize _User:imgpath,%*script(%0Script\getimagepath.js) %: *ifmatch !0,0%*getcust(_User:imgpath) %: *execute VX,%%J"%*getcust(_User:imgpath)"%)
*linecust quitimgview,KV_main:CLOSEEVENT,*ifmatch %%n,%n %%: *linecust imgpreview,KV_main:LOADEVENT, %%: *linecust quitimgview,KV_main:CLOSEEVENT,
}
K_halfppv = {
Q ,*ifmatch !0,0%NVX %: %Oi *windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)*2")
*closeppx "%n,VX"
^N ,*RotateCustomize _User:imgpath,%*script(%0Script\getimagepath.js) %: *execute VX,%%J%*getcust(_User:imgpath)
ENTER ,*ifmatch !0,0%NVX %: %Oi *windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)*2") %: *closeppx VX %: *stop
*openhalfppv %*script(%0Script\getimagepath.js,1)
}画像ファイルパスを書き込んだテキストファイルを用意し、PPVで表示する。
PPV上で以下のコマンドを実行。
*previewimagepathPPVの大きさが半分になり、空いたスペースにPPV[X]が起動。画像ファイルを表示する。
PPvの表示ファイルが切り替わると、表示画像も切り替わる。以下はPPv中心の連動ビュー(参考:一対一対応 | PPxMemo)と組み合わせたもの。
表示している画像ファイルパスをハイライトする設定は以下。
_Command = { ; ユーザコマンド・関数
openhalfppv = *windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)/2")
*ppv -bootid:X -k %%J"%*arg(1)" %%: *fitwindow %N,%%N,4 %%: *windowsize %%N,%*windowrect(,w),%*windowrect(,h) %%: *selectppx %n
previewimagepath = *openhalfppv %*script(%0Script\getimagepath.js,1)
*mapkey use,K_halfppv
*highlight %*script(%0Script\getimagepath.js,1)
*linecust imgpreview,KV_main:LOADEVENT,*ifmatch %%n,%n %(%: *RotateCustomize _User:imgpath,%*script(%0Script\getimagepath.js) %: *ifmatch !0,0%*getcust(_User:imgpath) %: *execute VX,%%J"%*getcust(_User:imgpath)" %: *highlight %*getcust(_User:imgpath)%)
*linecust quitimgview,KV_main:CLOSEEVENT,*ifmatch %%n,%n %%: *linecust imgpreview,KV_main:LOADEVENT, %%: *linecust quitimgview,KV_main:CLOSEEVENT,
}
K_halfppv = {
Q ,*ifmatch !0,0%NVX %: %Oi *windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)*2")
*closeppx "%n,VX"
^N ,*RotateCustomize _User:imgpath,%*script(%0Script\getimagepath.js) %: *execute VX,%%J%*getcust(_User:imgpath) %: *highlight %*getcust(_User:imgpath)
ENTER ,*ifmatch !0,0%NVX %: %Oi *windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)*2") %: *closeppx VX %: *stop
*openhalfppv %*script(%0Script\getimagepath.js,1)
}画像をローカルに保存するのが面倒なときのために。 以下を編集して取込。
_Command = {
wget2file = *string o,hoge=%*temp(name,f)
%Os wget -O %so"hoge" %*arg(1)
*return %so"hoge"
}以下のようにして使う。
*ppv %*wget2file("https://pbs.twimg.com/media/F0vVsgTaYAsUHkA?format=jpg")僕はhowm形式でメモを取っている(参考:moe | メモの方法論)。howmファイルの一行目をコメントにするスクリプトを利用して、以下のようにタイトルを表示している。
このメモの中から、^[W]でファイル検索をすることがあるのだが、その結果は次のようになる。
00_INDEX.TXTで紐づけたコメントは、当然ListFileでは反映されない。 タイトルが表示されない分視認性は低いが、そもそもあまり検索することもないし、特に不便だとも思ってなかったので、ずっと放置していた。
最近気付いたのだが、X_jinfcを使えばこの問題を解決することができる。X_jinfcを使うと、ダイアログ完了時にコマンドを実行することができる。
以下をScriptフォルダに保存。これはhowmファイルからタイトルを取得するスクリプト。
以下を編集して取込。
X_jinfc = {
whereiscompcmd = *ifmatch "/D:\\work\\memo/",%1 %: *comment all extract,%(%*script(%0Script\gethowmtitle.js,%FCD)%)
}これで、D:\work\memo以下で^[W]による検索をした場合、howmファイルから自動でタイトルを取得し、それをコメントにしてくれる。
一番上の「.」「..」がコメント表示になってなくて気になる場合は、以下をScriptフォルダに追加で保存してから
以下を編集して取込すればいい。
X_jinfc = {
whereiscompcmd = *ifmatch "/D:\\work\\memo/",%1 %: *comment all extract,%(%*script(%0Script\gethowmtitle.js,%FCD)%) %: *script %0Script\dotcomment.js
}
EVENTで*stopを使うと、*linecustと相性が悪い場合があるので、代わりに*gotoを使う話です。
FIRSTEVENTやLOADEVENTで、*ifmatchと*stopを使って条件分岐をすることは、よくあることだと思う。以下はPPC起動時に、IDが[A]ならhogeを、それ以外ならfugaをメッセージ表示する設定。
KC_main = { ; PPcメイン窓
FIRSTEVENT ,*ifmatch CA,%n %: *linemessage hoge %: *stop
*linemessage fuga
}これだと、後で別の設定を*linecustで追加しようとした時、困ったことが起きる。例えば、PPC起動時にメッセージウインドウを表示しようとして、以下のコマンドを実行したとする。
*linecust homu,KC_main:FIRSTEVENT,%%I"hello world"すると、FIRSTEVENTは以下のようになる。
KC_main = { ; PPcメイン窓
FIRSTEVENT ,*ifmatch CA,%n %: *linemessage hoge %: *stop
*linemessage fuga
%mhomu %I"hello world"
}これでは、想定した通りの動きにならない。起動したPPCのIDが[A]の時、一行目で処理が止まるからだ。手動で処理の順序をいじったりすれば解決するかもしれないが、そういうややこしいことはできればしたくない。
*stopの代わりに*gotoを使えば、この問題は解決しそうだ。
KC_main = { ; PPcメイン窓
FIRSTEVENT ,*ifmatch CA,%n %: *linemessage hoge %: *goto Last
*linemessage fuga
%mLast
}これなら、*linecustで追加した処理が無事実行されることになる。
KC_main = { ; PPcメイン窓
FIRSTEVENT ,*ifmatch CA,%n %: *linemessage hoge %: *goto Last
*linemessage fuga
%mLast
%mhomu %I"hello world"
}*linecustが使いやすくなる分だけ、*stopよりも*gotoの方が少しお得。これがホントのgoto EVENTってやつですねw
:y=-( ﾟдﾟ)・∵;; ﾀｰﾝ
PPxで使うスクリプトをES6に移行する方法です。 ほえほえ日記のスクリプトも、今後は基本的にES6で書くつもりです。
WSH Script Module(旧名Script Module)を最新バージョンにする。R21+1でPPx.Enumeratorが使えるようになるので、それ以前のバージョンを使っているならアップデートは必須。PPx本体も最新のものにしておく。
ES6では使えないオブジェクトがいくつかある(参考:WSH JScript で利用できる機能まとめ | なたで日記)。おそらく問題になるのはActiveXObjectとEnumeratorの2つ。以下のように修正する。
JScript
var e = new Enumerator(FileCollection);
var fso = new ActiveXObject('Scripting.FileSystemObject');ES6
var e = PPx.Enumerator(FileCollection);
var fso = PPx.CreateObject('Scripting.FileSystemObject');以下を編集して取込した後、PPxを再起動する。
_Others:usejs9=4僕は、補完候補ファイルに記述したコマンドを、一行編集から呼び出して使っている。これだと「あれ、あのコマンドどのキーに登録したっけ」ということがなくなり、便利なのだ。
今回行うのは、一行編集上での疑似自動補完の切り替え。
以下を編集して取込。補完候補ファイルはPPxフォルダ内のlaunch.txtという想定。
_Command = { ; ユーザコマンド・関数
ppl2 = *ifmatch 0,0%*getcust(_User:ppx_keymode) %: *setcust _User:ppx_keymode=K_pplnormal
*string o,name=%*input("" -title:"%*substring(%*getcust(_User:ppx_keymode),5) mode ^Rで実行コマンド切り替え" -mode:h -leavecancel -k:"*completelist -file:%%0launch.txt -match:6 -detail:""hist:h user alias"" %%: *mapkey use,%*getcust(_User:ppx_keymode)")
*execute,%so"name"
}
-|K_pplnormal=
-|K_pplautocorrect=
K_pplnormal = {
ENTER ,%K"@ENTER"
^R ,*mapkey delete,K_pplnormal
*mapkey use,K_pplautocorrect
*setcust _User:ppx_keymode=K_pplautocorrect
*setcaption auto correct mode
}
K_pplautocorrect = {
ENTER ,*ifmatch -1,%*sendmessage(%N-L,392,0,0) %: %K"@DOWN @ENTER" %: *stop
%K"@ENTER"
^R ,*mapkey delete,K_pplautocorrect
*mapkey use,K_pplnormal
*setcust _User:ppx_keymode=K_pplnormal
*setcaption normal mode
}*ppl2を実行すると一行編集が起動する。[^R]で疑似自動補完のオンオフが切り替わる。現在の状態はタイトルバーで確認できる。新規にコマンドを実行したい時はnormalに。既存のコマンドを実行したい時はauto correctにするといいだろう。
PPxにおいて、ビューアであるPPvは何枚でも開くことができる。だが、僕は普段は、PPcと紐づけた形(連動ビュー)でしかPPvを使えていない。この場合、使えるPPvの数はPPcの数に規定されることになる。せいぜい3、4枚といったところだ。 これでは、PPvの真の性能を引き出しているとはいえないんじゃないか。PPvをズラッと何枚も並べ、それぞれに異なるファイルを表示して見比べる活用法があるんじゃないか。このような問題意識を、僕はずっと持っていた。
この問題には、過去にも何度か取り組んだことがあるが、あまり成果は出なかった。ここからは「ファイルパスはどこにどの形式で保存するか」「位置関係は保存すべきか」「保存したとしてどう再現するか」「保存したパスをどのIDのPPVで開くか」等の複雑な課題が生じてくる。これを解決しようとすると、スクリプトなり、リストファイルなりを駆使した、運用が複雑なものが出来上がる。そして結局は、その複雑さゆえに使わなくなる。これが今までのパターンだった。 最近、「PPv終了時にIDごとにパスを保存し、次回起動時にはそのパスを開く」という単純な仕組みで、これらの課題は解決するんじゃないか、と思いついた。
以下の形で実装する。
以下を編集して取込。
KV_main = { ; PPvメイン窓
CLOSEEVENT ,*ifmatch "o:e,a:d-",%FCD %: *setcust S_ppvpath:%*rightstr("%n", 1)=%FCD %: *stop
*deletecust S_ppvpath:%*rightstr("%n", 1)
FIRSTEVENT ,*ifmatch "/[a-ex-z]/",%*rightstr("%n", 1) %: *stop
*ifmatch !0,0%*getcust(S_ppvpath:%*rightstr("%n", 1)) %: %J%*getcust(S_ppvpath:%*rightstr("%n", 1))
*mapkey use,K_ppvv
}
K_ppvv = { ; 紐づけなしPPv
ESC ,%J"no such file"
^N ,*script %0Script\open_plural_ppv.js,2
O ,*openppcv %FCD
}
K_ppcv = { ; 紐づけなしPPvから起動したPPc
ENTER ,*ifmatch "o:e,a:d+",%FCD %: %K"@ENTER" %: *stop
%Oi *windowsize %*extract(%%NV%*getcust(_User:syncidppcv)),%*windowrect(,w),%*calc("%*windowrect(,h)*2") %: *closeppx %n %: *stop
Q ,%Oi *windowsize %*extract(%%NV%*getcust(_User:syncidppcv)),%*windowrect(,w),%*calc("%*windowrect(,h)*2") %: *closeppx %n
}
_Command = { ; ユーザコマンド・関数
openppcv = *setcust _User:syncidppcv=%*rightstr("%n", 1)
*windowsize %N,%*windowrect(,w),%*calc("%*windowrect(,h)/2")
*ppc -bootid:%*getcust(_User:syncidppcv) -single -k %%j"%*arg(1)" %%: *mapkey use,K_ppcv %%: *ppvoption sync %*getcust(_User:syncidppcv) %%: *fitwindow %N,%%N,4 %%: *windowsize %%N,%*windowrect(,w),%*windowrect(,h)
}以下をScriptフォルダにopen_plural_ppv.jsという名前で保存。今まで僕がつくってきたスクリプトとは違い、ES6で書いているので注意。
以下のコマンドで、S_ppvpathにパスが保存してあるPPVを一斉に開く。一つもなければ、空の状態のPPvを一つ開く。
*script %0Script\open_plural_ppv.js,1PPvを新たに一つ開きたい場合は、上のコマンドで開いたPPv上で[^N]を押すか、以下のコマンドを任意の場所で実行する。
*script %0Script\open_plural_ppv.js,2表示ファイルを変えたい場合は、PPV上で[O]を押す。すると、PPCが表示され、PPvが連動ビューの状態になる。目的のファイルを見つけたら、[Enter]か[Q]を押す。 もちろん、単純にドラッグアンドドロップを使うのでもいい。
「もうこのファイルは次回は表示しなくていいや」という場合は、PPV上で[ESC]を押す。すると、存在しないファイルを表示する。この状態で閉じると、保存したパスがリセットされる。
といった活用方法がありそう。
書庫内の画像をPPvで閲覧できるようにする。漫画ビューアでよくあるやつです。 「PPcで書庫に潜ってPPvで連動ビューしたらいいだけじゃん」と言われたらたしかにそうなのだが、PPv単体でできたら便利かもしれないと思いました(小並感)。
以下をgetarchivefiles.jsという名前でスクリプトフォルダに保存。
以下を編集して取込。
K_archiveview = {
RIGHT ,*ifmatch 0,0%si"pagenum" %: *string i,pagenum=0
*string i,pagenum=%*calc("%si"pagenum"+1") %: *string o,name=%%*getcust(S_archivepages:%si"pagenum")
*ifmatch !0,0%sgo"name" %: %J%sgo"name" %: *stop
*string i,pagenum=%*calc("%si"pagenum"-1")
LEFT ,*ifmatch 0,0%si"pagenum" %: *string i,pagenum=0 %: *stop
*if %*calc(%si"pagenum") == 0 %: *stop
*string i,pagenum=%*calc("%si"pagenum"-1") %: *string o,name=%%*getcust(S_archivepages:%si"pagenum") %: %J%sgo"name"
}%si"pagenum"は現在見ているページ番号。左右カーソルで1ずつ増減する。
PPcで書庫ファイルにカーソルをあわせ、以下のコマンドを実行。
*ppv %*script(%0Script\getarchivefiles.js,%FCD,S_archivepages) -k *mapkey use,K_archiveview最初の画像が表示される。カーソル左右で表示ファイルを切り替える。
PPxでは、ファイルだけではなく、フォルダにも任意のサムネイルをつけることができるらしい。 フォルダ内にcover.jpgあるいはfolder.jpgといったアルバムアートがある場合、それをサムネイルにできるようにする。
以下をScriptフォルダに保存。
setalbumart_all.js
音楽ファイルをフォルダごとにまとめたフォルダで、以下のコマンドを実行。
*script %0Script\setalbumart_all.js各フォルダ内にあるcover.jpgあるいはfolder.jpgを取得し、それをサムネイルにする。
epubのカバー画像をサムネイルにする。Extend convert Susie Plug-in等、やり方は他にも色々ありそうだが、今回は*setentryimageとスクリプトの組み合わせで行う。
以下の二つのスクリプトをScriptフォルダに保存。
getcoverimage.js
setcoverimage_all.js
epubの解凍には7zipを利用する。7zipをインストールしていない場合はインストールしておく。また、getcoverimage.jsの7zipに関する箇所を各自の環境にあわせて書き換えておく。
エントリ表示形式を、画像が含まれるものに変更する。とりあえずは、[;]で表示されるメニューから「サムネイル1」を選んでおけばいい。こうしないと、以下の過程で「no image mode」と言われてしまう。
カーソル下のepubファイルのサムネイルを変更したい場合は、以下のコマンドを実行する。
*setentryimage %*script(%0Script\getcoverimage.js,%FCD)カレントフォルダのすべてのepubファイルのサムネイルを変更したい場合は、以下を実行する。まあまあ時間がかかるので、大量にファイルがある場合は注意。
*script %0Script\setcoverimage_all.jsマークファイルのサムネイルを変更するスクリプトを作った。ES6で記述。