2021年2月11日木曜日

PDFCPUのメニュー

PDFCPUでよく使うコマンドをメニューにしてまとめてみた。

-|M_pdfcpu =

M_pdfcpu	= {
抽出(&L)	=	pdfcpu trim -pages %*input("1|-2" -title:"抽出開始ページと終了ページ" -select:i -mode:n) %*name(CBD,"%R","%1") %*input("out|.pdf" -title:"アウトプットファイル名" -select:i -mode:c)
分割(&S)	 =	*makedir %Y %: pdfcpu split %*name(CBD,"%R","%1") %Y
ページ数を指定して分割	=	*makedir %Y %: pdfcpu extract -mode page -pages %*input("1|-2" -title:"開始ページと終了ページ" -select:i -mode:n) %*name(CBD,"%R","%1") %Y
削除(&D)	=	pdfcpu trim -pages %*input("1-,!2" -title:"削除したいページを !#-# !# で指定" -select:l -mode:n) %*name(CBD,"%R","%1") %*input("out|.pdf" -title:"アウトプットファイル名" -select:i -mode:c)
--	= 
マークした画像ファイルをPDFに	=	pdfcpu import %*input("out|.pdf" -title:"アウトプットファイル名" -select:i -mode:c) %#FC
マークしたPDFファイルを結合	=	pdfcpu merge %*input("out|.pdf" -title:"アウトプットファイル名" -select:i -mode:c) %#FC
--	= 
PDFファイルを複製	=	pdfcpu merge %*input("out|.pdf" -title:"アウトプットファイル名" -select:i -mode:c) %*name(CBD,"%R","%1") %*name(CBD,"%R","%1")
}

どうせなにかのキーに登録しても忘れるので、僕は一行編集でランチャから呼び出して利用している。

*focus C %:*execute C,%%M_pdfcpu,l

2021年2月6日土曜日

PDFやDOCの内容をプレビュー表示

doc2txtを使い、PDFやDOCの内容をプレビュー表示できるようにする。

E_TipView = {
pdf , %Obd doc2txt "%si"TipTarget"" | %0ppvw.exe -P%si"TipWnd"
doc , %Obd doc2txt "%si"TipTarget"" | %0ppvw.exe -P%si"TipWnd"
docx , %Obd doc2txt "%si"TipTarget"" | %0ppvw.exe -P%si"TipWnd"
jtd , %Obd doc2txt "%si"TipTarget"" | %0ppvw.exe -P%si"TipWnd"
}

エントリの右端のあたりをカーソルオーバーすると色が変わる。そこで左クリックするとプレビューが表示される。

2021年2月5日金曜日

xyzzyをタスクトレイに常駐

ttrayを使うとxyzzyをタスクトレイに常駐することができる。

これと、ホットキーによる表示/非表示を組み合わせると、調べ物をしながらのメモが楽になる。

PPtrayを利用する方法

.xyzzyに以下を追加し、タイトルバーに -xyzzy- が含まれるようにする。

(require "ttray")
(setq-default title-bar-format "-xyzzy- %f (%M) [%k:%l]")

PPtrayから表示/非表示を実現する。以下を編集して取込。

K_tray	= {
^\X	,*focus !"-xyzzy-"
}

これでCtrl+Shirt+Xで表示/非表示ができる。PPtrayはもちろん常駐させておく。

PPtrayを利用しない方法

利用しているのがPPxとxyzzyのみで、ブラウザその他のソフトを使わない、このOSではそんなもの起動することもない!という硬派な人の場合。

  • PPc側からxyzzy呼び出し
  • xyzzy側からxyzzy最小化

の二つで表示/非表示を実現する。
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 。