Dell 27 MonitorになってからEmacsを左右二画面分割して使うことが多くなった。
横長だからだけど、それでも時々、上下二分割にしたいことがある。しかも左右二分割した画面を、上下に切り替えたい。そんなコマンドはないものか、と探してみたけれど、見つけることができなかった。いちいちCtrl+x,1で全画面化して二分割して……ああ、面倒臭い。
つくる。
適当に配置をrotateさせるのでたぶん、4回、呼び出すと、元の位置に戻るはず。
それにしてもダサいな、このコード……。
MacBook Air (Retina, 13-inch, 2019)を購入したのが、今年のはじめだからもう四ヶ月になる。
ずっと苦しんでいた。
何がって？
Dell 27 MonitorとのHDMI接続してあるモニタの表示である。
よく瞬断するのだ。画面がブラックアウトする。とくに立ち上げ時はひどく、何度もくりかえした末、ブラックアウトしたままになってしまう。 USB-C Digital AV Multiportアダプタをつついたり、HDMIのケーブルのかるく揺さぶったりすると、治る——治るというか、治るまでくりかしているだけなのだが——。
これがものすごいストレスだ。
VGA接続に換えようか、と思ったけれど、Amazon Primeビデオとか、視聴するにはHDMI接続は必須なのだ。
まいった。だいたい、VGA接続にしてもアダプタが原因の予感があるので同じ事象が起きるような気がする。
ケーブルを換えてもだめだし、他の機器では起きない。MacBook AirとUSB-C Digital AV Multiportアダプタの組み合わせのときのみ起きる。モニタのスリープ設定とか、スクリーンセイバーが影響しているか、とすべてオフにしてもだめだった。
事象がはっきりしないし、ググっても同じような事象が見つからなかったので 1——Appleに苦情を伝える方法もわからず——、我慢していたのだけれど。
実は電波干渉をずっと疑っていた。
というのも近くをバイクが走り抜けたときや、隣の部屋で電灯を切ったときによく発生していたからだ。
USB-C Digital AV Multiportアダプタには何か、電子回路が内蔵されているらしく、使っていると熱をもってくる——それが、ノイズでリセットが発生しているのではないか？ 2
立ち上げ時によく起きるのはDell 27 Monitorが発している電波 3と干渉しているのではないか？
そこでアルミホイルで覆ってみた。
がっつり発生頻度が減った。
ただ、それでもまだ、起きる。もしかしたらケーブルがノイズをひろっているのかも。
でもケーブルを換えても症状はかわらなかったんだよなぁ。
ふとAppleTVのケーブルに交換してみることを思いつく。このケーブルはけっこう、高級らしく、端子が金色に輝いている。
で、交換したらまったく起きなくなった。
ありゃあ、なんてことだ。原因はケーブルか。
そういえば、使っていたケーブルはRaspberry Piのキットに付属してきたものでいかにも安っぽかったのだった。
まぁ、念のためにアルミホイルに覆ったままだけど。
パンデミック宣言されるすこし前ぐらいに、致死率は武漢の情報から2％ぐらいだという記事を見た記憶があるのだけど。
WHOのテドロス・アダノム・ゲブレイェスス（Tedros Adhanom Ghebreyesus）事務局長はスイス・ジュネーブでインターネットを通じ行った記者会見で、「われわれは新型コロナウイルス感染症（COVID-19）が急速に拡大すること、致死率が2009年のインフルエンザのパンデミックよりも10倍高いことを把握している」と述べた。
具体的にどれくらいなのか、さっぱりわからん。
なので こちらからデータをひろってみる。「April 19, 2020 04:01」のデータ。
| 国 | 感染者数 | 死者数 | 率(％) |
|---|---|---|---|
| World | 2,289,508 | 157,539 | 6.9 |
| 中国 | 82,719 | 4,632 | 5.6 |
| イタリア | 175,925 | 23,227 | 13.2 |
| 日本 | 9,795 | 154 | 1.6 |
| 韓国 | 10,653 | 232 | 2.2 |
| アメリカ | 716,883 | 37,659 | 5.3 |
| 英国 | 114,217 | 15,464 | 13.5 |
死者数 ÷ 感染者数 × 100 で計算(小数点第２位で四捨五入)
5〜8％、という感じなのかなぁ。英国の13.5％は意外だった。イアリアの13.2％は医療崩壊寸前までいったはずだから納得なのだけど。
というか、日本と韓国が低すぎてちょっと不安になる。これから死者数が増えるのか、たんに感染者数が偽陽性か、なにかで多くカウントされてしまっているのか……。きっと前者なんだろうな……。
追記：これは案外、逆で韓国の数値が一番、実体に近いのかも、という気がしてきた。重篤患者を優先的に検査をしていれば、当然、致死率は大きくなるだろうから。
いちおう、schemeとしてGaucheをインストールしてあるのだけど、elispやslimeが使えるCommonLispにくらべていまいち、使っていなかった。schemeでしか、できないことが見当たらなくて。call/ccぐらいかなぁ。じゃ、いいや、という。
待てよ。
Gimpがあるじゃないか 1。
Emacsから使えるならおもしろいんじゃないか。
Gimp modeに載っているgimpmodeや、gimp-shell.elを試してみたのだけれど。
ところが気づいてしまった。
MacのGimpは Split Viewが使えない。
こんな感じの使い方を想定していたのに。
+-------------+------------+ | | | | | | | Gimp | Emacs | | | | | | | | | | +-------------+------------+
一気に冷めてしまった。
GimpのScript-Fuはscheme。
「Magic Keyboard」をWindows10にbluetooth接続して使っていたら何か、おかしい。
アンダースコアが入力されていない。バックスラッシュと縦棒も。
どうやらこの二つのキーが効かないらしい。
何がなんやら——よくわからない。たぶん、Windows10で認識しているキーボードがおかしいのだろう。アンダースコアはいいけれど、バックスラッシュと縦棒はきつい。うーん……。
ふと思いついてUSB接続にしたら入力できた。
なんだかなぁ。
「 あらゆる数独パズルを解く」はPeter Norvigなのに、Pythonで書かれている。
じゃあというわけでelispで書いてみた。
(2) ある値に対し、ユニットの中で置ける場所が1つしかないなら、その値をそこに置く。
は、うまく動かなかったのでコメントアウトしているけど。
それでも「 あらゆる数独パズルを解く」のページの問題はいちおう解けたからだいじょうぶだと思うけど。
まぁ、よいか。
( defun test () ( progn (sudoku-init) (sudoku-set " . . 5 |3 . . |. . . 8 . . |. . . |. 2 . . 7 . |. 1 . |5 . . ------+------+------ 4 . . |. . 5 |3 . . . 1 . |. 7 . |. . 6 . . 3 |2 . . |. 8 . ------+------+------ . 6 . |5 . . |. . 9 . . 4 |. . . |. 3 . . . . |. . 9 |7 . . ") (sudoku-solve) (sudoku-print))) (benchmark 1 '(test)) | 1 4 5 | 3 2 7 | 6 9 8 | | 8 3 9 | 6 5 4 | 1 2 7 | | 6 7 2 | 9 1 8 | 5 4 3 | |-------+-------+-------| | 4 9 6 | 1 8 5 | 3 7 2 | | 2 1 8 | 4 7 3 | 9 5 6 | | 7 5 3 | 2 9 6 | 4 8 1 | |-------+-------+-------| | 3 6 7 | 5 4 2 | 8 1 9 | | 9 8 4 | 7 6 1 | 2 3 5 | | 5 2 1 | 8 3 9 | 7 6 4 | "Elapsed time: 0.179490s (0.093774s in 1 GCs)"
ベンチマークもそこそこ。
たとえば、(1 2 3)と(4 5 6)を組み合わせたい。
((1 . 4) (2 . 4) (3 . 4) (1 . 5) (2 . 5) (3 . 5) (1 . 6) (2 . 6) (3 . 6))
みたいな感じに。
そこで
( defun y-combination-of-list (list1 list2) "list1の要素とlist2の要素を組み合わせた結果をconsして出力する。" ( loop for x in list1 collect ( loop for y in list2 collect (cons x y))))
というのをでっちあげた。でもこれだと結果は
(((1 . 4) (1 . 5) (1 . 6)) ((2 . 4) (2 . 5) (2 . 6)) ((3 . 4) (3 . 5) (3 . 6)))
という風になってしまう。
これを入れ子のリストではなく、フラットなリストにしたい。
それで「 dash.el」の「-flatten」が必要だったのだけど。
(-flatten '(((1 . 4) (1 . 5) (1 . 6)) ((2 . 4) (2 . 5) (2 . 6)) ((3 . 4) (3 . 5) (3 . 6)))) ((1 . 4) (1 . 5) (1 . 6) (2 . 4) (2 . 5) (2 . 6) (3 . 4) (3 . 5) (3 . 6))
よくよく考えたら「dash.el」に、そもそもそんな関数があるんじゃないか？ つらつら「 https://github.com/magnars/dash.el#functions」を見ていたら。
(-table-flat 'cons '(1 2 3) '(4 5 6)) ((1 . 4) (2 . 4) (3 . 4) (1 . 5) (2 . 5) (3 . 5) (1 . 6) (2 . 6) (3 . 6))
あった。
どのパッケージがきっかけでインストールされたのか、わからないけれど、「dash.el」がインストールされている。
;;; dash.el --- A modern list library for Emacs
だそうだ。
「-flatten」というのがあってお気に入り。
(-flatten '((1 2 3)(4 5 6))) (1 2 3 4 5 6)
で、素の ABCLを使っていて「flatten」が必要になった。
「alexandria」をインストールすれば、いいんだろうが、諸事情というものがある。
「dash.el」の「-flatten」が使えないもんだろうか。
「–map」「–mapcat」「-mapcat」「-flatten」を喰わせてみたところ。
(-flatten '((1 2 3)(4 5 6))) (1 2 3 4 5 6)
動いた。
helmをインストールすると、もれなくasync.elがついてくる。
Emacsの非同期ライブラリである。
バックグラウンドでEmacsをもうひとつ、立ち上げてそちらで処理させる、というもの。
( setq wrk (async-start ( lambda () 222))) -- 割愛 -- (async-get wrk) 222
システムモニタを立ち上げておくと、Emacsがもうひとつ、起動されるのがわかる。
100個とか、無理だろうけど 1。
( setq wrk ( loop for x from 1 to 10 collect (async-start `( lambda () ,x)))) -- 割愛 -- ( loop for x in wrk collect (async-get x)) (1 2 3 4 5 6 7 8 9 10)
カンマを使えば、変数の中身を展開できるけど、さすがにクロージャーでデータを渡すのは無理だろうなぁ。別プロセスだもんなぁ。スレッドならできるのだろうけど。
——と思ったけれど、やってみたらできた。
驚いた。
( setq lexical-binding t) t ( defun wrk (x) ( lambda() x)) wrk ( setq wrk ( loop for x from 1 to 10 collect (async-start (wrk x)))) -- 割愛 -- ( loop for x in wrk collect (async-get x)) (1 2 3 4 5 6 7 8 9 10)
なんで？
(wrk 1) (closure ((x . 1) t) nil x)
ああ、クロージャーはリストに展開されるんだ。
なるほど。それならpipe渡しでも可能だ。あれ？ ということはelispだからできるってこと？
ほえぇ。elispはあなどれない。
Emacs for Windowsでは10個でエラーになった。
たとえば
((1 2 3) (4 5 6) (7 8 9))
を
((1 4 7) (2 5 8) (3 6 9))
という風に縦横を変換したい。
パッと考えて二重ループで……とごちゃごちゃ考えたのだけれど、面倒臭い。きっとどこかにありそうだ。elisp、CommonLisp関連でググってもなかなか、見つからず、きっと名前に「tranpose」が入っているにちがいない、と考えてEmacsの「describe-function」で見つけた。
(slime-transpose-lists LIST-OF-LISTS) Not documented.
まさにこれ。ソースを見たら
( defun slime-transpose-lists (list-of-lists) ( let ((ncols (length (car list-of-lists)))) ( cl-loop for col-index below ncols collect ( cl-loop for row in list-of-lists collect (elt row col-index)))))
やはり二重ループ。
それでもLispだとたったこれだけの行数で書ける。
というか、簡単に書けてしまうから標準でなかったのかも。
ああ、知らなかっただよ。
(file-expand-wildcards "**/*.*")
で、カレントディレクトリの下のファイルが全部、取得できるとは。
eshellの「**/*.*」はこれは使っているんだろうなぁ。
今さら気づくおれ。
| -No- | 時刻 | 時間 | 帆走距離 | 最高速 | 平均時速 | Ｐ％ |
|---|---|---|---|---|---|---|
| 1 | 11:49-11:57 | 8分 | 1.1km | 29.59km/h | 8.23km/h | 25.62 |
| 2 | 12:28-12:36 | 8分 | 1.0km | 34.76km/h | 7.73km/h | 14.77 |
| 3 | 12:46-12:56 | 9分 | 1.1km | 16.94km/h | 6.84km/h | 0.56 |
| 4 | 13:22-13:35 | 13分 | 1.3km | 22.09km/h | 5.73km/h | 3.24 |
total 39分 4.5km 6.9km/h
夜中のうちにきちんとカメラの充電をしておいたのにハウジングを忘れてしまった。
何をやっておるのか。
海ほたる16m/sなのに、検見川は思ったよりも風が入っていない。沖合いに白波が見えるのだが。これでは最大サイズのセイルをだしても走らなそうだ。ここはやはり南総まで下るべきだったのだろうか。
しかし、午後には風があがるだろうし、昨年に引き続き、いきなり4.7コンディションかぁ。
とりあえず、目の前のコンディションにあわせて最大サイズのセイルをチョイスした。5.7である。
体力がない自覚はあるのでかなり緊張して海へ出た。死なないように、と。
毎年、体力の心配をしているけれど、今年は今までで一番、体力がない——三ヶ月絶対安静で入院していたときよりもない。あのときは退院して1週間ぐらいにそれなりに体力は回復した。今年はだめだ。
案の定、一往復しただけで突っ伏して喉が痛くなるほど、ゼーハーしてしまった。
たまたま、風に当たったらしく、プレーニングしたけれど。
大休止して二本目。
これもプレーニングできた。沈したけれど。
三本目はほとんど、走らず。沖で沈して溺れかける。水面に浮かんでいる状態で深呼吸できず、酸欠になりかける。気を失なうか、と思った。去年も同じだったなぁ。
ふたたび、風が上がってきたような気がしたけれど、出艇してみると、そんなことはなく、ふたたび、溺れかける。いかんじゃないか。
なんか、午前中よりも風がない。
夕方、吹き上がるパターンかな？
でもまぁ、今日は終わりでいいか。
もしかしたら。
threadとmutexの組み合わせたらキューっぽいことができるんじゃないだろうか？
( let ((lexical-binding t) (w (make-mutex))) (mutex-lock w) ( loop for x from 1 to 10 collect (make-thread ( let ((y x)) ( lambda() ( with-mutex w (insert (number-to-string y) " \n")))))) (mutex-unlock w)) nil 3 4 5 6 7 8 9 10 1 2
処理順序は保証されていないけど、キューっぽいよな、これ。
うん。
正月にUbuntuをいじっているときに気づいたのだけれど。
ssh -Y
が使えた。
きっとUbuntu Serverだからだろう、と思っていたのだけど、「Ubuntu 18.04.3 LTS」で試してみたら使えるようになっていた。以前、使えなかったのは何だったんだろう。
とても助かるけれど、それなら 机の上にBeelinkS1をもってくることはなかったなぁ。
終活、というわけではないのだけど、CD/DVDを処分しはじめた。
かつてハードディスクにはいり切らなくなったデータをCD/DVDへ焼きだしていたのである。当時のハードディスクは1Gとか、2Gとかそんなものでいい気になって保存していた。二十枚近くある。
それでもこれだけのデータが今の——一世代前のだけど——、ハードディスクに納まってしまう。いったいあの日々はなんだったんだろう。
しかも今はそもそもハードディスクに保存すること自体、なくなった。
ネットがあるから。
考えてみれば、かつてはフロッピィディスクが山ほどあったんだよな。処分してしまったけれど。DOS時代の遺物だ。データをフロッピィディスクへ吐き出していた。ハードディスクの容量が20Mで、むちゃくちゃ、大容量だと思っていた時代。
そういえば、山ほどあったカセットテープも捨ててしまった。
引っ越しで捨てざろう得なかったのだけど。
かつてレンタルレコード店というものがあったのだ。まだ、CDもなく、ビデオテープも存在しなかったころ。ウォークマンが時代をつくった時代。
そのあとに買い集めたビデオテープもすでに手元にはない。音楽CDもそうだ。iPhoneにいれてしまったので手元にもっておく意味がなくなってしまった……。
思えば、あの日々はなんだったんだろう。
それぞれの日々ではそれなりに一生懸命だったはずなのに。
いろんなものを手元に残そうとしていたのに。
今や何も残っていない。
不安はもろもろあったのだけれど、BeelinkS1の 内蔵ディスクを128Gにした。
それでようやく重い腰をあげて 本格的に使おうか、と26Gもあるファイルをscpでコピーしていたら突然、動かなくなった。sudoも効かない。何？ 何？ 何が起きたの？
何が起きているのか、さっぱりわからず、いろいろやってみていたら——あれ？ ホームディレクトリが空っぽになっている。
ZFSがまた、ぶっ壊れた。
ところが翌日になると、うまく動いた。
また、熱ダレだったか、と思って使っていると、ふたたび、おかしくなった。
やはりだめだ。
とりあえずBeelinkS1はWindows10として使うか。
でもhome editionなのでRDPが使えない。
クライアントとして使うしかない。しかたないのでマシン本体を机の上にもってきた。これがほんとのデスクトップ。なんちゃって。でももしかしたら使えるかもしれないので、FreeBSDをいれていたSSDにフォーマットをかけた。
20GのDドライブができた。
——？
128Gじゃない。
何度、見直してみても20G。やりなおしても20G。ほんとうに壊れてしまっていたらしい。
しかたがない。
問題はWindows10とMacのやりとりだ。
もちろんネット的にはつながる。けれど、26Gなんて馬鹿でかいファイルの転送はさすがに時間がかかりすぎるので外部記憶装置が必要だ。
昔、使っていたお立ち台をひっぱりだす。
160Gのハードディスクを突っ込んでNTFSでフォーマット。
これでMacとWindows10でやりとりできるはずだ。
Macにつなげて試した——ところがreadonlyだった。書きこめない。昔、読み書きができたように思っていたのだけど。どうやらかんちがいだったらしい。うーん、これはこまった。これじゃ、Windows10からMacへの一方通行しかできないじゃないか。今、やりたいのは逆方向のMacからWindows10なのだが。
なのでexFATでフォーマットしなおした。
これなら両方で読み書きできる。
FreeBSDのSSDを納めていたスロットにはもうひとつ余っている128GのSSDをいれた。
これはNTFSでフォーマットしてDドライブとして使うことにした。
ほか、いろいろと設定をしているうちに、Macから操作ができないことに嫌になって、思わず、以前いれた Ubuntuをインストールしてしまった。128GのSSDに。
UbuntuならVNCでMac上に表示できるからMacから操作できる。
いちいちディスプレイをスイッチする必要がなくなる。
いい考えだと思ったのだけれど、UbuntuはexFATを認識してくれなかった…… 1。
それで頭に来てお立ち台のハードディスクをNTFSでフォーマットしなおしてしまった。
UbuntuはNTFSを読み書きできるけど、Macはreadonlyなんだから、元の黙阿弥ではないか。
——なんでおれは後戻りのできない性格なんだろう……。
でも勝算はなくもなかった。
Windows10はできないけれど、UbuntuはHFS+を読めるのである。readonlyだとしても。
当然、MacはHFS+を読み書きできる。
実はお立ち台はもう一台あってそれは現役でMac用に使用中。フォーマットはHFS+。
２台あるお立ち台はいずれもMac、Ubuntu間では一方通行だけど、互い違いなのでデータの往復が可能なのである。
ちょっと面倒ではあるけれど。
きっと方法はあるのだろうけど、FreeBSDなら一生懸命探すのにUbuntuだと、見当らない、というだけであきらめてしまう。よくない傾向だ。
