inabamasaki.com

[Mac] Snagit のスクロールキャプチャができない件の解決方法

2018-09-04T08:25:51Z

Snagitという便利な画面キャプチャーソフトがあります。その機能にブラウザの画面に表示していない部分もキャプチャーできる「スクロールキャプチャ」があります。

便利に使っていたこの機能ですが、ある日からエラーが表示されて使えなくなり困っていました。しかし対応方法がわかりましたのでご紹介します。

Snagitのスクロールキャプチャー機能とは

Snagitのスクロールキャプチャー機能の解説は公式動画を見てもらうのが早いです。

スクロールキャプチャー時のエラー解消法

Google Chromeでスクロールキャプチャーを実行すると、「スクロールキャプチャーは利用できません。パノラマスクロールキャプチャーを利用してください」といったエラーメッセージが表示されることがあります。もちろんパララマなんちゃらを使っても良いのですが、こちらは手動で画面をスクロールする必要があり、全画面キャプチャーにはやや不便です。

そこでスクロールキャプチャーのエラーを解消させます。

Google Chromeのメニューから「表示」→「開発／管理」→「Apple Events からの JavaScriptを許可」にチェックを入れます。これだけで解決できます。

まとめ

ちなみにこの対処法は、Mac環境でのものです。公式ページに解説がありますので合わせてどうぞ。

SQLite のバックアップ方法色々(DB丸ごと、dumpしてSQLに、データのみ抜き出し)

2018-01-25T10:35:13Z

SQLiteのバックアップ方法が色々あるのでそのまとめ記事。単純な方法からコマンドラインを活用したものまで。

SQLiteの基本

SQLiteにはユーザーの概念が無く、DB自体も単一ファイルです。

というわけでDBに接続するのも簡単で、ファイル名を指定するだけです。

% sqlite3 db-filename

これで接続できるので後は直接SQLを叩けます。RubyとかPHPといったプログラムから接続する場合もそれぞれの書式に則る必要があるものの、基本的にはファイル名を指定するだけです。

単純簡単なバックアップとリストア方法

SQLiteはバックアップも簡単です。先ほど書いた通り「DB自体も単一ファイル」なので、バックアップは「そのDBファイルをコピーするだけ」です。非常に簡単ですね。

他のDBだとバックアップやリストアはそれなりに難しかったりするので嬉しい所です。例えば毎日cronでDBファイルをコピーするだけで日次バックアップが取れます。また前日のファイルをコピーするだけで最悪前日まではリストアできます（前日に既に壊れていなければ）。

SQLiteの.backup/.resotreコマンドでのバックアップとリストア

ファイルコピー以外にコマンドでのバックアップも可能です。さっきの要領でSQLiteに接続し、sqlite> のプロンプトで「.backup」コマンドを実行します。

sqlite> .backup backup-filename

リストアは逆に「.restore」コマンドを使うだけです。こちらはバックアップとリストアの一連の流れの例です。

sqlite> .backup test-backup
sqlite> .quit

% sqlite3 test
SQLite version 3.8.10.2 2015-05-20 18:17:19
Enter ".help" for usage hints.
sqlite> .tables
sqlite>
sqlite> .restore test-backup
tbl_test
sqlite> drop table tbl_test;
sqlite> .tables
sqlite>
sqlite> .restore test-backup
sqlite> .tables
tbl_test
sqlite>

DBの内容をsql文としてdumpとリストア

ここまでのやり方はバイナリファイルを扱うものでした。これ以外の方法としてDBの内容をSQLにdumpするというバックアップ方法もあります。これにはSQLiteの「.dump」コマンドを利用します。
SQL文でダンプすればMySQLなど他のDBにインポートしたりもできます。

コマンドラインから実行することも可能なのでシェルスクリプト化してcronで自動処理させることも可能です。

% sqlite3 testdb .dump > testdb-bak.sql

リストアする場合は「.read」コマンドを使います。

sqlite3> .read test-bak.sql

コマンドラインからも実行可能です。この場合は、「.read とファイル名をクオートで囲う」必要があります。

% sqlite3 testrest2 '.read test-bak.sql'

データのみバックアップ

ここまではDBをバックアップする方法でしたが、データのみを抜き出すことも可能です。使うコマンドは、「.output」、「.mode」、「select (SQL文)」です。

こういうのは実際に流れをみてもらった方がわかりやすいのでサンプルとして試してみます。

% sqlite3 testdb
SQLite version 3.8.10.2 2015-05-20 18:17:19
Enter ".help" for usage hints.
sqlite> .mode csv
sqlite> .output test-output-data.csv
sqlite> select * from tbl_test order by id;
sqlite> .quit

% cat test-output-data.csv
1,"recipe A",1000
2,"recipe B",2000
3,"recipe C",1700
4,"日本建築の本",1000
5,"海外の工芸品",2000
6,"論理的思考ほにゃらら",3000

DBに接続した後

「.mode」で出力形式をCSVに指定
「.output」でSQLの出力結果をファイルに
「select」で任意のSQLを実行

という流れです。

「おまけ」SQLite v2 から v3 へのDB変換

古いバージョンのSQLiteのDBをSQLite3形式に変換する方法です。Ver.2 から Ver.3に変換します。

% sqlite db-name .dump | sqlite3 new-db-name

これでOK！簡単です。

参考書籍

[Emacs] Wanderlustでヘッダー情報に基づき送信元情報を自動選択する方法。（SMTPサーバー、メールアドレス等）

2018-09-19T08:41:29Z

Emacsの高機能メーラーWanderlustのちょっと便利な機能を紹介します。

メールをビジネス用途、私用と諸々のケースで使う時に、例えばビジネス用のメールアドレスとプライベートのアドレスが違うケースがあるという事はよくあると思います。仕事で使う場合でもプロジェクトによりアドレスなどが変えるケースもあるかと思います。

色々と使い分けが必要なケースはありますが、これを手動でやっていると間違いが発生したりします。プライベートアドレスで仕事先に送ってしまったとか。

できればこういう事は自動で行ったほうがベターですが、Wanderlustではメールのヘッダー情報に基づいて、送信元情報を自動で変更する機能があるのでそれが使えます。

概要

具体的には届いたメールに返信をする際に、差出人(From)のメールアドレスや、もしくは宛先(ToやCc)を条件に、差出人情報を自動で選択させます。差出人情報には以下のようなものを含みます。

各種メールアドレス (From, Bcc, Fccなど)
SMTPサーバー

サーバーも変えられるので、条件によって時にGmailから送ったり、Yahoo!から送ったり、その他プロバイダや自社メールサーバーから送ると行った事も可能です。アドレスだけでなくこの辺を完全に分けたい方もいるかと思います。

設定の概要

Wanderlustはパラメーターが多いですが、今回利用するのは主に "wl-template-alist" , "wl-draft-config-alist" です。その他細かいパラメーターも必要に応じてとなります。

まず先に概略を説明すると

パラメーター名	用途
wl-template-alist	テンプレートの登録
wl-draft-config-alist	テンプレートの選択条件を設定

といった感じになります。

上記2つのパラメーターを設定しておいて、後はフックで必要なタイミングで設定を反映させる形です。

wl-template-alist の設定例

まずデフォルトの送信者情報やSMTPサーバーを登録しています。その後、"wl-template-alist" で "default", "biz", "private" の3つのテンプレートを登録した例です。登録内容は全て仮のものです。

;; デフォルトの送信者情報
(setq wl-from "ほげっと <hogehogeeeee@gmail.com>"
      wl-bcc "hogehogeeeee@gmail.com"
      wl-fcc "%Sent:\"hogehogeeeee@gmail.com\"/clear@imap.gmail.com:993!"
      )

(setq wl-template-alist
      '(("default"                      ; テンプレート名(任意)
         ("From" . wl-from)             ; デフォルトの送信者を利用
         ("Bcc"  . wl-bcc)              ; デフォルトのbccを利用
         ("Fcc"  . wl-fcc)              ; デフォルトのfccを利用
         (wl-smtp-posting-server . "smtp.gmail.com")
         (wl-smtp-posting-user . "Gmailアカウント(メールアドレス)")
         (wl-local-domain . "gmail.com")
         (wl-smtp-authenticate-type ."login")
         (wl-smtp-posting-port . 465)
         (wl-smtp-connection-type . 'ssl)
         )
        ("biz"
         ;; bizテンプレートは送信者アドレスのみ変更
         ("From" . "ビジネス用アドレス <hogebizhoegbiz@gmail.com>")
         ("Bcc"  . "hogebizzzz@gmail.com")
         ("Fcc"  . wl-fcc)              ; デフォルトのfccを利用
         (wl-smtp-posting-server . "smtp.gmail.com")
         (wl-smtp-posting-user . "Gmailアカウント(メールアドレス)")
         (wl-local-domain . "gmail.com")
         (wl-smtp-authenticate-type ."login")
         (wl-smtp-posting-port . 465)
         (wl-smtp-connection-type . 'ssl)
         )
        ("private"
         ("From" . "プライベート用 <privattto@example.com>")
         ("Bcc"  . "privattto@gmail.com")
         ("Fcc"  . ""%Sent:\"priprivattto@example.com\"/clear@example.com:993!)
         (wl-smtp-posting-server . "example.com")
         (wl-smtp-posting-user . "privattto@example.com")
         (wl-local-domain . "example.com")
         (wl-smtp-authenticate-type ."plain")
         (wl-smtp-posting-port . 587)
         (wl-smtp-connection-type . 'starttls)
         )
        ))

wl-draft-config-alist の設定例

"wl-draft-config-alist" では自動でテンプレートを切り替える条件を記載します。最初のキーワードに "reply" と記載して、その後は条件を正規表現で記載し、最後に切り替えるテンプレートを指定します。リストは必要に応じて複数記載可能です。

(setq wl-draft-config-alist
      '((reply
         "^\\(To\\|Cc\\):.*@hogehogeeeee@gmail\\.com.*"
         (template . "default"))
        (reply
         "^\\(To\\|Cc\\):.*hogebizzzz@gmail\\.com.*"
         (template . "biz"))
        (reply
         "^\\(From\\):.+@foobar\\.com.*"
         (template . "biz"))
        (reply
         "^\\(To\\|Cc\\):.*privattto@example\\.com*"
         (template . "private"))
        ))

テンプレートを自動で切り替えるフックを設定

フックに登録することでテンプレートの動的変更が有効になります。

;; サマリモードから "A" (wl-summary-reply-with-citation) 等で
;; ドラフトバッファ作成時に動的変更を自動適用
(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)

;; サマリモードから "E" (wl-summary-reedit) でメールを編集する時
;; にも自動的に動的変更を適用
(add-hook 'wl-draft-reedit-hook 'wl-draft-config-exec)

また wl-interactive-send を non-nil にすることで、送信前に変更内容を確認できるので有効にしておいた方が良いです。

;; メール送信時に動的変更を確認する
(setq wl-interactive-send t)

設定は以上です。

CASIO AW-80 の時計合わせの方法まとめ

2018-09-20T08:27:06Z

チープカシオ「AW-80」の時計合わせの方法です。この機種はデジタル部分とアナログ部分を別個に時計合わせする必要があります。時計合わせは日々やるものではないのでやり方を忘れてしまうんですよね。なので簡単にまとめておきます。

ボタン位置

まず「AW-80」のボタン位置と名称です。写真は「AW-80-1AJF」です。

A: 左上	B: 右上
C: 左下	D: 右下

左上がAボタンで、そこから「Z」を描く形でBボタン、Cボタン、Dボタンとなります。

AW-80の時計合わせについて

この機種はアナログ針とデジタル表示部分がありますが、計合わせはそれぞれ別個に行う必要があります。アナログ部分とデジタル部分は連動していません。

デジタル部の時計合わせのやり方

秒合わせのやり方

Aを1秒押下しデジタル部を点滅させる
Dボタンで秒合わせ (00/30秒)
（ボタンを押すと0-29秒の時は00秒に、30-59秒の時は30秒に戻る）
Aでセット完了

サマータイムと年月日時分の合わせ方

Aを1秒押下しデジタル部を点滅させる
Cボタンでサマータイム、年月日時分の項目が遷移
(「秒」 -> 「サマータイム」 -> 「時」 -> 「分」 -> 「年」 -> 「月」 -> 「日」の順)
各項目をDボタン（進む）、Bボタン（戻る）で合わせる
Aでセット完了

アナログ針の時計合わせのやり方

Cボタンを数回押してH-S(ハンドセット)モードにする
(「通常」 -> 「TEL」 -> 「W.T」 -> 「AL1(AL2,SNZ,SIG)」 -> 「TMR」 -> 「STW」 -> 「H-S」の順)
Aを1秒押下しデジタル部を点滅させる
Dで針の回転
("D+B"の同時押しで自動回転可能。止める時はいずれかのボタンを押す)
Aでセット完了

※ モードの説明

TEL: テレメモ
W.T: ワールドタイム
AL1: アラーム1
AL2: アラーム2
SNZ: スヌーズ
SIG: 時報
TMR: タイマー
STW: ストップウォッチ
H-S: ハンドセット

CASIO F-91W, F-105W の時計合わせの方法まとめ

2018-09-20T08:27:49Z

チープカシオの代名詞「F-91W」、「F-105W」の時計合わせの方法です。この機種は3つボタンがありますが、時計合わせは日々やるものではないのでやり方を忘れてしまうんですよね。なので簡単にまとめておきます。

ボタン位置

まず「F-91W」、「F-105W」のボタン位置と名称です。写真はF-105Wです。

B: 左上
C: 左下	A: 右下

右下がAボタンで、そこから反時計回りにBボタン、Cボタンとなります。右上にはボタンはありません。

秒合わせのやり方

Cボタンで時計セットモードにする
（押す毎に「通常」 -> 「AL」 -> 「ST」 -> 「時計セットモード」と変化）
時報などに合わせてAを押す (00/30秒)
（Aボタンを押すと0-29秒の時は00秒に、30-59秒の時は30秒に戻る）
Cでセット完了

年月日時分の合わせ方

Cボタンで時計セットモードにする
Bボタンで変更項目を選択
（押す毎に「秒」 -> 「時」 -> 「分」 -> 「月」 -> 「日」 -> 「曜日」）
Aボタンで各項目を合わせる
（押す毎に数字が1つずつ進む）
以下項目2 - 項目3の繰り返し
Bボタンで項目を選び、Aボタンで合わせる
最後にCでセット完了

search-one-word.el アップデート。リピート移動をより便利に

2018-09-30T06:31:40Z

「Vimの一文字検索を実装してみる」として先日 "search-one-word.el" を公開しました。ただ実際使っていく中でいくつか不便に感じる部分があったのでアップデートしました。

以前のバージョン

以前のバージョンは下記記事で公開しました。

こちらもそれなりに便利だったのですがやや不便に感じる面がありました。例えば "search-forward-repeat-with-char" を "H-f" にキーバインドしたとして、文字"d"の位置にカーソルをリピート移動させようとすると、

"H-f" "d" "H-f" "H-f" "H-f" "H-b" "H-f"

といった具合に移動する必要がありました。移動先の文字をタイプした後、再度コマンド起動キーを押す必要があり指の移動に問題がありました。

アップデート版(v2.0)概要

というわけで下記のように移動できるように改変しました。今回のバージョンではコマンドを起動するとカーソル移動モードに入るようになっています。

先ほどと同じように "d" の位置にカーソルをリピート移動させる場合

"H-f" "d" "d" "d" "d" "d" .....

この操作で可能になります。

また最初に "d" の位置に移動させていたけれどやはり "k" の位置に移動させたいといった場合

"H-f" "d" "d" "k" "k" "k" .....

こういった感じで途中で押すキーを変えれば良いだけです。非常に簡単です。

また行き過ぎて戻りたいといった場合は "C-s" (forward) と "C-r" (backward) が使えます。具体的にはこんな感じで。

"H-f" "d" "d" "C-r" "C-r" "C-s" "C-r" .....

カーソル移動モードを抜けるには "C-g (or C-q, ESC)" をタイプします。こんな感じでカーソル移動がより便利になりました。

ソース

ソースはこんな感じ。

(require 'cl-lib)
(defvar last-search-char nil)

(defun direct-search-forward-char ()
  (interactive)
  (cl-loop
   (let ((char (read-key "Move to Char: ")))
     (cond ((member (string char) '("" "" ""))
            (cl-return)
            )
           ((string= "" (string char))
            (if last-search-char
                (progn
                  (when (char-equal (char-after (point)) last-search-char)
                    (forward-char))
                  (search-forward (string last-search-char) nil t)
                  (backward-char))
              (progn
                (let ((char (read-key "Move to Char: ")))
                  (if (char-equal (char-after (point)) char) (forward-char))
                  (search-forward (string char) nil t) (backward-char)
                  (setq last-search-char char))))
            )
           ((string= "" (string char))
            (if last-search-char
                (search-backward (string last-search-char) nil t)
              (progn
                (let ((char (read-key "Move backward to Char: ")))
                  (search-backward (string char) nil t)
                  (setq last-search-char char))))
            )
           (t
            (when (char-equal (char-after (point)) char) (forward-char))
            (search-forward (string char) nil t) (backward-char)
            (setq last-search-char char)
            )
           ))))

(defun direct-search-backward-char ()
  (interactive)
  (cl-loop
   (let ((char (read-key "Move to Char: ")))
     (cond ((member (string char) '("" "" ""))
            (cl-return)
            )
           ((string= "" (string char))
            (if last-search-char
                (progn
                  (when (char-equal (char-after (point)) last-search-char)
                    (forward-char))
                  (search-forward (string last-search-char) nil t)
                  (backward-char))
              (progn
                (let ((char (read-key "Move to Char: ")))
                  (if (char-equal (char-after (point)) char) (forward-char))
                  (search-forward (string char) nil t) (backward-char)
                  (setq last-search-char char))))
            )
           ((string= "" (string char))
            (if last-search-char
                (search-backward (string last-search-char) nil t)
              (progn
                (let ((char (read-key "Move backward to Char: ")))
                  (search-backward (string char) nil t)
                  (setq last-search-char char))))
            )
           (t
            (search-backward (string char) nil t)
            (setq last-search-char char)
            )
           ))))

ダウンロード

下記からソースをダウンロードしてload-pathの通った所に置いて (require 'search-one-word) としても利用可能です。
https://www.inabamasaki.com/arc/search-one-word.el

# シェルで
$ cd ~/emacs.d/elisp
$ wget https://www.inabamasaki.com/arc/search-one-word.el
;; Emacs
(require 'search-one-word)

使い方まとめ

M-x direct-search-forward-char もしくは M-x direct-search-backward-char で起動し minibufferの"Move to Char: "プロンプトに移動したい文字をタイプ。

リピートは文字を繰り返しタイプするか、"C-s"、"C-r" で移動。終わる時は"C-g"、または"C-q"か"ESC"。

キーバインドはお好みで。

(bind-keys ("C-{" . direct-search-backward-char)
           ("C-}" . direct-search-forward-char))

Emacsやnkfを使ってFTPのアスキーモードを再現してみる（バイナリモード -> アスキーモードへのファイル変換）

2018-09-30T06:34:58Z

「index.cgiを実行っと。あれ？500 Internal Server Errorだ...」

FTPにはBinary modeとASCII modeがあります。この2つには微妙な違いがあって、またその違いによりCGIで冒頭の「500 Internal Server Error」が発生する原因になります。

この記事ではその辺の詳細解説と、Emacsでアスキーモードを利用する方法、またシェルのコマンドレベルでアスキーモードを利用する方法を解説します。正確にはバイナリモードで転送してしまってエラーが出るファイルをアスキーモードの形に変換するという話です。それでは本論に入ります。

FTPはバイナリモードで行うべき？

エンジニアの人は「FTPはバイナリモードで行っておけば問題ない」的な話しを先輩から聞いたことがあるかも知れません。そしてこれは概ね正しいのですが稀に問題が置きます。

昨今のFTPソフトは自動判定モードがありますのでそれを使った場合は問題ないかとは思いますが、あえてバイナリーモードを選んだり、FTPコマンドを使った場合などに問題が起こるケースがあります。それ以外にもcgiのzipファイルをローカルで解凍してからFTPで転送するのではなく、サーバーに転送してからzipを解凍した場合にも問題が発生する場合があります。

"500 Internal Server Error"

この問題というのはCGIの場合に起こります。htmlやcss、js、phpなどでは起こりません。起こるのは改行コードを解釈する場合です。

FTPのバイナリモードとアスキーモードの違い

ここでFTPのバイナリモードとアスキーモードの違いを見ておきます。「バイナリモードはファイルを何も変更せずに転送、アスキーモードはサーバー側の環境に文字コードや改行コードを合わせて転送」とざっくり思っている方もいるかもしれませんがこれは違います。

実際には

	文字コード	改行コード
バイナリモード	そのまま	そのまま
アスキーモード	そのまま	転送先に合わせる

こういった形です。勘違いしやすいですが「文字コードは変更されません」。変更されるのは「改行コード」のみです。

WindowからLinuxサーバーへの転送

具体例で見てみます。Windowsで作ったファイルをLinuxサーバーに転送するケースです。

この場合まずWindowsで作ったテキストファイルの文字コードは「shift_jis」で、改行コードは「CRLF」です。このファイルをFTPのアスキーモードでLinuxサーバーに転送すると文字コードは「shift_jis」のままで改行コードのみ「LF」に変更されます。

これを表で表すと

	文字コード	改行コード
Windows	shift_jis	CRLF

--> FTPのアスキーモードでLinuxサーバーに転送

	文字コード	改行コード
Linuxサーバ	shift_jis	LF

となります。

MacからLinuxサーバーへの転送

同様にMacで作成したファイルのケースも見てみます。

	文字コード	改行コード
Mac	utf-8	LF

--> FTPのアスキーモードでLinuxサーバーに転送

	文字コード	改行コード
Linuxサーバ	utf-8	LF

となります。

現在のmacOSは、OSX時代からUnixベースになりました。なので基本的な部分ではLinuxと似ています。なおOSX以前のMacの場合は改行コードに「CR」を使うなど現在から見ると少し変則的です。

改行コードをCGIで解釈できないと

改行コードをCGIで解釈できない場合に「構文エラーとなり "500 Internal Server Error"」が発生します。そしてLinuxサーバーでは文字コードは"utf-8"か"euc-jp"の場合がありますが、改行コードは「LF」です。

ですのでより具体的な解説としては「CRLF」の改行コードを持つCGIファイルをLinuxサーバーで実行させた時にエラーが発生します。

もうひとつのCGIの文字コードの問題

改行コードだけでなく文字コードの問題もあります。

もしnkf等を使って下記のようにファイルを変換してしまうと

	文字コード	改行コード
元ファイル	shift_jis	CRLF
変換したファイル	utf-8	LF

エラーにはならないものの「文字化け」が発生したりします。これは元ファイルが"shift_jis"だった為、下記の様にhtmlレベルで文字コードにshift_jisが指定してあるだろうからです。

<!-- html5  -->
<meta charset="shift_jis" />

<!-- html -->
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis"/>

ですので改行コードだけでなく文字コードまで変更してしまうと問題が起きることがあります。この辺はCGIの作者がどこまで考慮しているかにも依りますね。

シェルで改行コードの確認

改行コードを確認する方法を解説します。いくつか方法があるかと思いますが "od" コマンドが手軽です。実行結果の末尾が "\r\n" であれば改行コードは「CRLF」、"\n" であれば「LF」です。下記に例を載せておきます。

% od -c ftp-ascii-test-sjis-CRLF.cgi
0000000    #   !   /   u   s   r   /   l   o   c   a   l   /   b   i   n
0000020    /   p   e   r   l  \r  \n  \r  \n   p   r   i   n   t       "
0000040    C   o   n   t   e   n   t   -   t   y   p   e   :       t   e
0000060    x   t   /   h   t   m   l   \   n   "   ;  \r  \n   p   r   i
0000100    n   t       "   \   n   "   ;  \r  \n   p   r   i   n   t
0000120    "   <   h   t   m   l   >   \   n   "   ;  \r  \n   p   r   i
0000140    n   t       "   <   h   e   a   d   >   \   n   "   ;  \r  \n
0000160    p   r   i   n   t       "   <   m   e   t   a       c   h   a
0000200    r   s   e   t   =   \   "   s   h   i   f   t   _   j   i   s
0000220    \   "   >   \   n   "   ;  \r  \n   p   r   i   n   t       "
0000240    <   t   i   t   l   e   > 203   e 203   X 203   g   <   /   t
0000260    i   t   l   e   >   \   n   "   ;  \r  \n   p   r   i   n   t
0000300        "   <   /   h   e   a   d   >   \   n   "   ;  \r  \n   p
0000320    r   i   n   t       "   <   b   o   d   y   >   \   n   "   ;
0000340   \r  \n   p   r   i   n   t       " 202 261 202 352 202 315   C
0000360    G   I 202    ̃  **   e 203   X 203   g 202   ł  ** 267 201   B
0000400    \   n   "   ;  \r  \n   p   r   i   n   t       "   <   /   b
0000420    o   d   y   >   \   n   "   ;  \r  \n   p   r   i   n   t
0000440    "   <   /   h   t   m   l   >   \   n   "   ;  \r  \n  \r  \n
0000460

% od -c ftp-ascii-test-utf8-LF.cgi
0000000    #   !   /   u   s   r   /   l   o   c   a   l   /   b   i   n
0000020    /   p   e   r   l  \n  \n   p   r   i   n   t       "   C   o
0000040    n   t   e   n   t   -   t   y   p   e   :       t   e   x   t
0000060    /   h   t   m   l   \   n   "   ;  \n   p   r   i   n   t
0000100    "   \   n   "   ;  \n   p   r   i   n   t       "   <   h   t
0000120    m   l   >   \   n   "   ;  \n   p   r   i   n   t       "   <
0000140    h   e   a   d   >   \   n   "   ;  \n   p   r   i   n   t
0000160    "   <   m   e   t   a       c   h   a   r   s   e   t   =   \
0000200    "   U   T   F   -   8   \   "   >   \   n   "   ;  \n   p   r
0000220    i   n   t       "   <   t   i   t   l   e   >  テ  **  **  ス
0000240   **  **  ト  **  **   <   /   t   i   t   l   e   >   \   n   "
0000260    ;  \n   p   r   i   n   t       "   <   /   h   e   a   d   >
0000300    \   n   "   ;  \n   p   r   i   n   t       "   <   b   o   d
0000320    y   >   \   n   "   ;  \n   p   r   i   n   t       "  こ  **
0000340   **  れ  **  **  は  **  **   C   G   I  の  **  **  テ  **  **
0000360   ス  **  **  ト  **  **  で  **  **  す  **  **  。  **  **   \
0000400    n   "   ;  \n   p   r   i   n   t       "   <   /   b   o   d
0000420    y   >   \   n   "   ;  \n   p   r   i   n   t       "   <   /
0000440    h   t   m   l   >   \   n   "   ;  \n  \n
0000453

シェルからnkfで変換

次にFTPのバイナリモードで転送してしまったファイルを変換する方法を解説します。ASCIIモードで再度転送しなくても変換することが可能です。変換にはnkfを利用します。

文字コードは「shift_jis」で改行コードが「CRLF」のファイルを、文字コードを変えずに改行コードのみ「LF」にしてみます。

% nkf -Lu --overwrite file

or

% nkf -sLu --overwrite file

こんな感じで変換できます。パラメーターを解説すると、-s が「shift_jisで出力」、-Lu が「改行コードをUnix形式(LF)で出力」、--overwrite が「出力結果でファイルを上書き」です。

findと組み合わせれば一括置換も可能です。例えばこんな感じです。

% find . -iregex ".+\.cgi" -exec nkf -sLu --overwrite {} \;

or

% find . -iregex ".+\.cgi" | xargs nkf -sLu --overwrite

Emacsで改行コードの確認

同様の事をEmacsでもやってみます。

まず改行コードの確認は

M-x describe-coding-system (<f1> C) RET

or

M-x describe-current-coding-system

で行えます。

例えば文字コードが「シフトJIS」で改行コードが「CRLF」というWindowsで一般的なファイルであればこの様に表示されます。

Coding system for saving this buffer:
  S -- japanese-shift-jis-dos (alias: shift_jis-dos sjis-dos)

「japanese-shift-jis-dos」の "japanese-shift-jis" 部分が文字コード、"dos"の部分が改行コードです。"dos"は「CRLF」を表します。

また文字コードが「utf-8」で改行コードが「LF」というLinuxやMacで一般的なファイルであればこの様に表示されます。

Coding system for saving this buffer:
  U -- utf-8-unix (alias: mule-utf-8-unix utf8-unix UTF8-unix UTF-8-unix)

同様に「utf-8-unix」の "utf-8" 部分が文字コード、"unix" 部分が改行コードです。"unix"は「LF」を表します。

Emacsで改行コードのみLFに変換

Emacsで改行コードのみ変更するには下記のように操作します。

C-x RET f (M-x set-buffer-file-coding-system) unix

変更したいファイルを開き、"C-x RET f" とタイプし "unix" とだけ入力します。これで文字コードはそのままで改行コードのみ変更されます。

ちなみに文字コードも変更したい時は同様の操作で

C-x RET f (M-x set-buffer-file-coding-system) utf-8-unix

といった感じで指定します。

[参考] EmacsでFTP

trampを使ったFTPの利用

ちなみにEmacsではtrampを使えばFTPも利用できます。ファイルを転送したり、サーバーにあるファイルを直接編集したりといった事が可能です。trampはそれなりに細かい設定も可能ですが今回はFTP部分を抜粋してみます。

;;------------------------------------------------------------------------
;; trampの設定
;; ------------------------------------------------------------------------
(require 'tramp)

;; FTPはPassiveモードを利用する
(setq ange-ftp-try-passive-mode t)

;; FTPのbinary/asciiモード
;; binary転送したいファイルを正規表現で指定
;; その他はアスキーモードで転送される
;; default: "" (ver24.1から変更された)
(setq ange-ftp-binary-file-name-regexp "^.*\\.\\(jpe?g\\|gif\\|png\\)$")

;; エラーが出る時は指定を変える
(setq dired-listing-switches "-alFh")

trampは裏でange-ftpを利用しているので、ange-ftpのパラメーターを変更することで「Binary/ASCII mode」の指定や「Active/Passive mode」の切り替えが可能です。

接続時にユーザー名とパスワードを毎回打っても可能ですが、それはあまり現実的ではない為認証情報を ~/.netrc で管理します。こんな感じで定義します。

machine         example.com
login           ftpusername
password        ftppass

なおhostsファイルを使えばmachine名に実際のホスト名ではなく任意の名称を使うことが可能です。

上記を設定した状態で "C-x C-f" (M-x find-file) 等を実行してミニバッファに下記の様にホスト名とサーバー上のファイル名やディレクトリ名を入れればOKです。EmacsからFTPでサーバー上のファイルを直接編集できます。

/ftp:example.com:/public_html/index.cgi

また同様の指定でdiredを使ったFTPでのファイル転送も可能です。

diredを使ってFTPクライアント化

ちなみにEmacsをよりFTPクライアントらしくする事も可能です。下記のパラメーターを追加します。

(setq dired-dwim-target t)

設定後 "C-x 2" (M-x split-window-below) や "C-x 3" (M-x split-window-right) などでウインドウを分割します。そしてそれぞれのウインドウで"M-x find-dired"などで「PCのディレクトリ」と「サーバのディレクトリ」を開きます。そうすると後は通常のdiredの操作でFTPクライアントの様にファイル転送が行えます。

例えばPC側のウインドウでファイルやディレクトリを選んで "C" を押して実行すれば、サーバー側にファイルやディレクトリを丸ごと転送可能です。ほとんどFTPクライアントライクな使い方が可能です。

なおtrampではftp以外にも、sshやscp、rsyncなども使えます。これはサーバー側のウインドウをどのメソッドで開いたかに依存します。例えば "C-x C-f /ssh:example.com:/..." とすればsshといった感じで。

一言

仕組みを理解すれば予想外のエラーにもスムーズに対応できます。それでは長くなりましたがこの辺で。

EmacsにVimの1文字移動コマンドの実装してみる（Emacsトラノマキ版にundo機能などを追加）

2017-12-19T05:23:47Z

Vimにはf{char}という便利なコマンドがあるとの事で、fの後に任意の文字を打つとそこまでカーソルが移動する。[Enter]キーを押す必要も無いので確かに便利。いわゆる一文字検索。これをEmacsでより便利に実装してみるという話。

元ネタ

元ネタはSoftWare Design誌掲載の下記記事。

Vimの動作確認

f{char}	指定文字までカーソルを前方移動
F{char}	指定文字までカーソルを後方移動
;	一文字検索を繰り返し (検索のリピート)
,	一文字検索を逆に繰り返し (検索のundo)

※ 実践Vimによるとt{char},T{char}もある。

なお実際に試してみるとこの動きは行をまたげない模様。なので現在の行でのカーソル移動である。この辺は設定で回避できるのかもしれないけれど調べていない。

Emacsで実装してみる

現在行だけの縛りは無くして、現在のバッファ上を自由に動けるようにする。

これについては元ネタで既に実装済。

リピート系の実装

実践Vimによるといきすぎる事がよくあるとの事なので、undo的な動作も実装したい。

f{char}コマンドと;コマンドはとても強力な組み合わせであり(snip)。ただし、カーソルがいきつく先がどこかがハッキリしない。結果、;キーをとにかく連打してしまいやすい。そして、いきすぎてしまう。

キーの省略

例えばキーバインドは何でも構わないけれど前方一文字検索に "H-f"、後方一文字検索に "H-b"、一文字検索リピートに "H-]"、一文字検索undoに "H-[" と割り当てると4つのキーバインドの定義が必要。これは勿体無いしやや面倒。

そこで前方一文字検索に "H-f"、後方一文字検索に "H-b"。加えて一文字検索リピートにも "H-f"、一文字検索undoにも "H-b" という形で検索とリピートのキーを同一にしたい。こうすれば2つのキーバインドで済むし、指の移動も少なくなりそう。

実際の実装

というわけで元ネタをベースにこんな感じで実装してみました。検索とリピートは同じキーで利用可能です。

;; ------------------------------------------------------------------------
;; 一文字検索の設定
;; http://dev.ariel-networks.com/wp/documents/aritcles/emacs/part16
;; ------------------------------------------------------------------------
(defvar last-search-char nil)
(setq search-clear-idle-time 1)

;; update:
;; 20171208: ignore-case対応
;;           search-forward/backwardとrepeatを統合
;;           アイドルタイマーを追加
(defun search-forward-repeat-with-char (arg)
  (interactive "p")
  (cl-case arg
    (4 (let ((char (read-key "Move to Char: ")))
         (when (char-equal (char-after (point)) char) (forward-char))
         (search-forward (string char) nil t) (backward-char)
         (setq last-search-char char)))
    (1 (if last-search-char
           (progn
             (when (char-equal (char-after (point)) last-search-char)
               (forward-char))
             (search-forward (string last-search-char) nil t)
             (backward-char))
         (progn
           (let ((char (read-key "Move to Char: ")))
             (if (char-equal (char-after (point)) char) (forward-char))
             (search-forward (string char) nil t) (backward-char)
             (setq last-search-char char))))))
  (run-with-idle-timer
   search-clear-idle-time nil
   '(lambda () (setq last-search-char nil)))
  )

(defun search-backward-repeat-with-char (arg)
  (interactive "p")
  (cl-case arg
    (4 (let ((char (read-key "Move backward to Char: ")))
         (search-backward (string char) nil t)
         (setq last-search-char char)))
    (1 (if last-search-char
           (search-backward (string last-search-char) nil t)
         (progn
           (let ((char (read-key "Move backward to Char: ")))
             (search-backward (string char) nil t)
             (setq last-search-char char))))))
  (run-with-idle-timer
   search-clear-idle-time nil
   '(lambda () (setq last-search-char nil)))
  )

使い方

検索とリピートは同じコマンドです
一旦検索すると検索した文字が保存されるのでリピート可能です
保存された検索文字は指定のアイドル時間経過後に消去されます
検索文字が保存されている状態でprefix付きで実行すれば強制的に検索文字を指定可能です。

M-x search-forward-repeat-with-char	指定文字までカーソルを前方移動
M-x search-backward-repeat-with-char	指定文字までカーソルを後方移動
M-x search-forward-repeat-with-char	一文字検索を前方に繰り返し
M-x search-backward-repeat-with-char	一文字検索を後方に繰り返し

保存した文字はデフォルトでは1秒のアイドル時間後に消去されます。アイドル時間を調整したい時は下記パラメーターで。

(setq search-clear-idle-time 1)

またC-u M-x search-forward-repeat-with-char でアイドル時間内でも強制的にプロンプトから文字の再指定が可能です。

また僕はこんな感じでキーバインドを設定しています。view-mode時に利用するのも便利。こちらはf{char}、b{char}で移動できる。この辺はお好みで。

(setq mac-right-option-modifier 'hyper)
(bind-keys ("H-b" . search-backward-repeat-with-char)
           ("H-f" . search-forward-repeat-with-char))
(bind-keys :map view-mode-map
           ("b" . search-backward-repeat-with-char)
           ("f" . search-forward-repeat-with-char))

ダウンロード

下記からソースをダウンロードしてload-pathの通った所に置いて (require 'search-one-word) としても利用可能です。
https://www.inabamasaki.com/arc/search-one-word.el

# シェル
$ cd ~/emacs.d/elisp
$ wget https://www.inabamasaki.com/arc/search-one-word.el
;; Emacs
(require 'search-one-word)

追記 (2017.12.19)

機能強化しました。

[Mac][Emacs] [Mac][Emacs] ライブ変換をマイナーモードに変更した

2018-09-30T06:42:49Z

以前Macのライブ変換をEmacsで利用する云々の記事を書きました。

そして実際ライブ変換を利用してみましたが、まだ慣れない事もあり面倒に感じることがありました。特に急いでいる時にライブ変換が有効になってしまいタイプミスというケースなど。というわけでマイナーモード化して必要に応じてライブ変換を利用する形に変更しました。この記事はその辺の話です。

概要

状況によりライブ変換を使いたくないこともあるので「M-x global-live-henkan-mode」で切り替えられるようにした。

「"C-\" (M-x toggle-input-method)」の動作を通常時（モード無効時）は「半角英語 <-> 日本語」、ライブ変換モード有効時は「半角英語 -> 日本語 -> ライブ変換」のトグルで動作する形に。

グローバルマイナーモードの定義を追加

下記のグローバルマイナーモードの定義を追加。

;; ライブ変換のグローバルマイナーモード定義
(define-minor-mode global-live-henkan-mode
  "Macのライブ変換を利用可能にする"
  :global t
  :init-value nil
  :lighter " LiveIME"
  (if global-live-henkan-mode
      (progn
          (advice-add 'toggle-input-method :override 'my/toggle-input-method)
          (add-hook 'minibuffer-setup-hook 'my/minibuffer-setup-hook)
          (if (featurep 'cursor-chg)
              (setq curchg-change-cursor-on-input-method-flag nil)))
    (progn
      (advice-remove 'toggle-input-method 'my/toggle-input-method)
      (remove-hook 'minibuffer-setup-hook 'my/minibuffer-setup-hook)
      (if (featurep 'cursor-chg)
          (setq curchg-change-cursor-on-input-method-flag t)))
      )
  )

利用方法

これでライブ変換を使いたい時だけ使えるようになりました。「M-x global-live-henkan-mode」を実行することで通常モードとライブ変換モードのトグルが可能です。コマンド実行毎に有効／無効が切り替わります。またライブ変換有効時はモードラインに「LiveIME」の表示がでるので現在有効か否かを確認できます。

ダウンロード

下記からソースをダウンロードしてload-pathの通った所に置いて (require 'live-henkan) としても利用可能です。
https://www.inabamasaki.com/arc/live-henkan.el

例えばelispにload-pathを通していれば

$ cd ~/emacs.d/elisp
$ wget https://www.inabamasaki.com/arc/live-henkan.el

でダウンロードして

(require 'live-henkan)

こんな感じで。

seqによる数の減算（デクリメント）時の注意点

2017-12-04T02:24:02Z

seqを使ったデクリメントはローテート処理を自作する場合などに便利です。ただBSDとgnuのseqでは動作が微妙に違うのでスクリプト化するときには注意が必要です。

インクリメントの動作チェック

先にインクリメントの動作を確認してみます。

% seq 1 3
1
2
3
% gseq 1 3
1
2
3

両者とも特に違いはありません。

デクリメントの動作チェック

今度はデクリメントの動作をチェックしてみます。

% seq 3 1
3
2
1
% gseq 1 3
%

BSDのseqはこの記述でも問題ありません。実際BSD seqのmanでもこの記述が載っています。しかしgnuのseqでは何も表示されません。

gnu seqでデクリメント

gnuのseqで減算してみます。

% gseq 3 -1 1
3
2
1

gnu seqの場合は、スタートの数値と最後の数値の間に、減算数を指定する必要があります。

$ seq first increment last

BSD seq で同様に

この記述はBSD seqでも同様に使えます。

% seq 3 -1 1
3
2
1

加算時のインクリメントの指定

加算時にもインクリメントの指定が可能です。これは1以外の加算時に利用するケースが多いかと思います。

% seq 1 2 10
1
3
5
7
9
% gseq 1 2 10
1
3
5
7
9

応用例

これはバックアップファイルをローテートさせる場合などに使えます。例えばこういった感じでバックアップファイルのローテートを行いたい場合

bkup (最新)
bkup.0 (1世代前)
bkup.1 (2世代前)
bkup.2 (3世代前)
bkup.3 ...
bkup.4 ...
bkup.5 ...

下記のように記述します。

BKFILE="バックアップファイル名"

for i in `seq 4 -1 0`
  do
    if [[ -e $BKFILE.$i ]]; then
      mv $BKFILE.$i $BKFILE.$((i + 1))
    fi
done

if [[ -e $BKFILE ]]; then
  mv $BKFILE $BKFILE.0
fi

# 以下にバックアップ処理を記述
tar czf $BKFILE ./

まとめ

gnu seq利用時に、安易に例えば "seq 3 0" といった記述を書くと動かなくなるので注意が必要です。Macでは動くけれどLinuxでは動かないといった事が起こります。より汎用性の高いスクリプトを書く為に押さえておくべきポイントかと思います。