(defvar memoroux-host "https://(app-name).herokuapp.com")

(defun adoc ()
  (interactive)
  (let ((url-request-method "POST")
        (url-request-extra-headers
         '(("Content-Type" . "application/json")))
        (url-request-data
         (json-encode-alist `((id . ,(md5 (buffer-file-name)))
                              (content . ,(buffer-string))
                              (type . "html"))))
        (url (concat memoroux-host "/convert")))
    (switch-to-buffer
     (url-retrieve-synchronously url))
    (goto-char (point-min))
    (re-search-forward "\n\n")
    (princ (concat memoroux-host
                   (assoc-default
                    'url
                    (json-read-from-string
                     (buffer-substring-no-properties (point) (point-max))))))
    (kill-buffer (current-buffer))))

2020.02.11 追記

Basic認証にも対応したelispを作成しました。

gist.github.com

2018-11-28

faux の Vim キーバインド対応

github.com

faux で Vim キーバインドを使えるように対応を行った時に調べた CodeMirror (v5) のキーバインド拡張についてのメモです。

CodeMirror のキーバインドの拡張

https://codemirror.net/doc/manual.html#option_extraKeys

キーバインドの簡単な拡張方法として、extraKeys オプションを利用する方法があります。

ただし、この方法でキーバインドを追加した場合は KeyMap の設定に関わらず常に有効な設定となります。

今回は KeyMap 毎に別のキーバインドを追加したいので、この方法は利用できません。

KeyMap 毎の拡張方法を調べたのですが残念ながら見つけられず、諦めて各々の KeyMap 設定に直接追加する方法で拡張を行いました。

KeyMap 設定は、CodeMirror.keyMap オブジェクトにそれぞれ格納されており、標準の KeyMap であれば CodeMirror.keyMap.basic、 Emacs であれば CodeMirror.keyMap.emacs となります。

例えば Emacs であれば、以下のように任意のキーバインドを追加できます。

CodeMirror.keyMap.emacs['Ctrl-X Ctrl-C'] = function() { alert('bye!') };

しかし Vim はモードがある為か事情が異なり、この方法では追加できません。ただしその代わりに API が存在します。

Vim キーバインドの拡張

VIM Mode API

CodeMirror.Vim オブジェクトを通じて API を利用する形となります。

キーバインドの追加には、map または mapCommand を利用します。

map

map(lhs: string, rhs: string, ?context: string)

map はキーとコマンドのマッピング設定を行えます。

あるキーから別のキーやコマンドへ、または、あるコマンドから別のコマンドやキーへとマッピングすることができます。

例： gonextline コマンドで j を押した時と同じ動作をする

CodeMirror.Vim.map(':gonextline', 'j');

mapCommand

mapCommand(keys: string, type: string, name: string, ?args: object, ?extra: object)

mapCommand はキーに対応するコマンドのマッピング設定を行えます。

type に motion / operator / action などを指定し、name で実行するコマンド名を指定します。

新しいコマンドが必要な時は、defineMotion / defineOperator / defineAction で定義できます。

例：キー ZQ で bye とメッセージを表示する

CodeMirror.Vim.defineAction('end', function() { alert('bye'); });
CodeMirror.Vim.mapCommand('ZQ', 'action', 'end', {});

2018-11-27

Emacs っぽい簡単なメモツール

github.com

デモ: https://naduma.github.io/faux/

CodeMirror を利用して、どこまで Emacs っぽいものを作れるのかを試したくなり、作成したツールです。

機能

Emacsっぽいキーバインド
Lisp(Scheme) REPL
localStorageへの自動保存
2分割までの画面分割

課題

Emacs bindings demo

Also note that a lot of browsers disallow certain keys from being captured. For example,
Chrome blocks both Ctrl-W and Ctrl-N, with the result that idiomatic use of Emacs keys
will constantly close your tab or open a new window.

上記の通りブラウザにより一部キーがブロックされているので、上手く動かない部分があります。

OSにもよりますが、「Ctrl-N で新規ウィンドウが開く」「Ctrl-P で印刷画面が開く」などです。

また、CodeMirror の Emacs キーバインドには redo がありません。「Ctrl-G」がキャンセルのみの機能となっており、redo が出来ません。そこで今回はとりあえず「Ctrl-X Ctrl-/」など別のキーバインドで redo を実装しています。

あとは、日本語入力のオン/オフの影響を受けてしまいます。

最後に

vim の方が再現性が高そうなので、vim バージョンを今度作ってみたいです。

2018-11-26

dignod リリース

www.dignod.com

企業のブログを読んでいると、技術の最新トレンドやサービスの開発手法などを知ることができます。

その会社がどんな技術を使っているか、職場の雰囲気はどんな感じか、といったこともブログを通じて分かることがあります。

そんな企業のブログをどこかでまとめて読むことが出来ればと、 dignod を作りました。

ブログの他にも、

公開しているコード（github）
勉強会などのイベント（connpass）

もまとめています。

estblueのブログ

タブ整理の為のchrome拡張機能

開発動機

機能

Elmについて

試した拡張機能

Asciidoctor Docker Container 日本語対応

ダイアグラムツール

nomnoml

Railroad-diagram Generator

Syntrax

State Machine cat

diagrams

AsciiDoc エディタ

動機

特徴

ブラウザでの使い方

API での使い方