Nokia Lumia 920 を購入

去年初めに購入したタブレット (A01SH) のバッテリーがやらてしまったらしく、アダプタをつなぎっ放しでないと10分ともたない半据え置き状態になってしまいました。他にも処理速度が遅いとか色々あって、そろそろ替え時かなということで前から気になっていた Windows Phone 端末である Nokia Lumia 920 を買ってみました。比較的値段の安かった1shopmobileから取り寄せして、休日を含めて4～5日かけて届きました。

上の写真を見てわかるとおり、本体カラー黄色はけっこう目立ちます。今まで重量のあるタブレットを持ち歩いていたせいか、重さ185gはあまり気にならないです。あと、カメラレンズが優秀で暗所での撮影や接写がキレイに撮れます。

「設定＞エキストラ+情報」を覗くと製造元の名前が「RM-821_eu_italy_310」とあるので、どうやらイタリア版らしいです。とはいえ設定すれば日本語表示もキーボード入力もそれなりに使えますし、日常用途には問題ないと思います。

Lumia 920はLTE対応のsimフリー端末ということで、試しにIIJmioのデータ通信専用simも追加で購入。 APN設定をしてしばらく待つとちゃんと電波を拾ってくれるようになりました。場所によっては4G表示も現れるんですが、Speedtestの結果が3Gの時と変わらないのでLTEが利用できているかは微妙な感じでした。また、セルスタンバイ問題に引っかかったらしく、自宅付近では通信可能なのにアンテナピクトが圏外表示になる状態に… (参考: てくろぐ: アンテナピクト問題・セルスタンバイ問題とは何か)。それ以前に技適で引っかかるということならばsimをポケットWiFiに差し替えて利用する形になるかも。

Windows Phoneのデザインは個人的にかなり好みで使いやすいと思うんですけど、日本のキャリアでほとんど展開されていないおかげでアプリの数が圧倒的に少なくて、色々かゆい所に手が届かないのがどうも痛いです。標準地図アプリはアレだし、Flashも使えないしね。でもまあ、それらのマイナス面を補えるくらい弄っていて面白い端末だと思います。

newLISP部屋@Lingr

なんとなく作ってみました。

http://lingr.com/room/newlisp

newlisp に関して質問があれば、どなたでも気軽にどうぞ。

はたしてメンバーが増えるのだろうか

newLISP for Windows x64

年明けに言っていた、Win64向けに対応させたnewLISPのソースコードとバイナリを試験的に公開してみます。ライセンスは配布元と同じくGPLv3です。

newLISP for Windows x64

また、最近になって本家の v.10.4.7 からWin64をサポートする動きが見られるため、それが叶ってしまえばこのページはお役御免ということになります（参考）。

英数字を180度回転した文字を表示

twitter→ɹəʇʇɪʍʇのように英数字を180度回転して表示する方法 という記事を見かけたのでxyzzyに移植してみました。ネタ被ってないよね？

やってることはROT13などと同じで、連想リストを利用した単純な文字の相互変換です。 ただし、xyzzyではバッファに出力すると化けてしまう文字が幾つかあるので、その辺は適当に作ってます。

おまけとして、Emacsから移植したzone.lと組み合わせたコードも載せてあります。下の実行例を見てみると、なぜか特定の文字が変換されなかったりするようですが…。まあ書き捨てのコードですので勘弁してください。

newLISP版もあります。こっちはUnicode文字列を直接扱えるので若干コードがさっぱりしてます。

使い方

• M-x: flippy - ミニバッファに入力した文字がステータスラインに反転して表示される
• M-x: flippy-region - リージョンに対してFlippyを実行する

---

	;;; -*- Mode: Lisp; Encoding: Shift_JIS -*-
	;;; 英数字を180度回転した文字を表示するプログラム
	;;; 元ネタ: http://id.fnshr.info/2013/01/25/upsidedowntext/
	(provide "flippy")
	(in-package "user")
	(defvar *flippy-alist* nil)
	(unless *flippy-alist*
	(setq *flippy-alist*
	'((#\A . #\∀) (#\B . #\B) (#\C . #\C) (#\D . #\D) (#\E . #\∃)
	(#\F . #\x0df6) (#\G . #\G) (#\H . #\H) (#\I . #\I) (#\J . #\x15ae)
	(#\K . #\x5277) (#\L . #\7) (#\M . #\W) (#\N . #\N)
	(#\O . #\O) (#\P . #\d) (#\Q . #\x03bc) (#\R . #\R) (#\S . #\5)
	(#\T . #\⊥) (#\U . #\∩) (#\V . #\Λ) (#\W . #\M) (#\X . #\X)
	(#\Y . #\Y) (#\Z . #\2)
	(#\a . #\x1580) (#\b . #\q) (#\c . #\x1584) (#\d . #\p) (#\e . #\x1589)
	(#\f . #\x158f) (#\g . #\x1583) (#\h . #\x1595) (#\i . #\!) (#\j . #\x15ae)
	(#\k . #\x15ce) (#\l . #\1) (#\m . #\x159f) (#\n . #\u) (#\o . #\o)
	(#\p . #\d) (#\q . #\b) (#\r . #\x15a9) (#\s . #\s)
	(#\t . #\x15b7) (#\u . #\n) #|(#\v . #\x15bc)|# (#\v . #\^) (#\w . #\x15bd) (#\x . #\x)
	(#\y . #\x15be) (#\z . #\z)
	(#\0 . #\0) (#\1 . #\l) (#\2 . #\Z) (#\3 . #\ε) (#\4 . #\4)
	(#\5 . #\S) (#\6 . #\9) (#\7 . #\L) (#\8 . #\8) (#\9 . #\6)
	(#\. . #\.) (#\, . #\') (#\+ . #\+) (#\- . #\-) (#\: . #\:) (#\; . #\;)
	(#\! . #\i) (#\? . #\x013f) (#\& . #\&) (#\^ . #\v)
	)))
	(defun flippy-char (c)
	(or (cdr (assoc c *flippy-alist*))
	(car (rassoc c *flippy-alist*))
	c))
	(defun %flippy (in &optional out)
	(do ((c #1=(read-char in nil :eof) #1#))
	((eq c :eof))
	(write-char (flippy-char c) out)))
	(defun flippy-string (str)
	(with-input-from-string (in str)
	(with-output-to-string (out)
	(%flippy in out))))
	(defun flippy ()
	(interactive)
	(let ((line (make-vector 16 :element-type 'character :fill-pointer 0 :adjustable t)))
	(loop
	(minibuffer-prompt "Flippy: ~a" line)
	(message "~a" (flippy-string line))
	(let ((c (read-char *keyboard*)))
	(case c
	(#\RET (clear-message) (return))
	(#\C-g (quit))
	(#\C-h (or (zerop (length line))
	(vector-pop line)))
	(t (vector-push-extend c line)))))))
	(defun flippy-region (from to)
	(interactive "*r")
	(ed::text-decode-region #'%flippy from to))
	#|
	;; zone.l と組み合わせてみる
	;; こちらを参照: https://github.com/kosh04/xyzzy-lisp/blob/master/site-lisp/zone.l
	(require "zone")
	(defun zone-pgm-flippy ()
	"一文字ごとに Flippy"
	(interactive)
	(when (interactive-p)
	(zone 'zone-pgm-flippy)
	(return-from zone-pgm-flippy t))
	(goto-char (point-min))
	(while (and (not (ed::input-pending-p))
	(not (ed::zone-timeout-p)))
	(when (eobp)
	(goto-char (point-min)))
	(let ((c (following-char)))
	(delete-char)
	(insert (flippy-char c)))
	(forward-char)
	(sit-for 0.025)
	))
	(defun zone-pgm-flippy2 ()
	"一行ごとに Flippy"
	(interactive)
	(when (interactive-p)
	(zone 'zone-pgm-flippy2)
	(return-from zone-pgm-flippy2 t))
	(goto-char (point-min))
	(while (and (not (ed::input-pending-p))
	(not (ed::zone-timeout-p)))
	(let* ((a (save-excursion (goto-bol) (point)))
	(z (save-excursion (goto-eol) (point)))
	(line (buffer-substring a z)))
	(delete-region a z)
	(insert (flippy-string line)))
	(unless (forward-line)
	(goto-char (point-min)))
	(sit-for 0.05)
	))
	;; M-x: zone-pgm-flippy
	;; C-u M-x: zone -> Zone program: zone-pgm-flippy
	(push 'zone-pgm-flippy ed::zone-programs)
	(push 'zone-pgm-flippy2 ed::zone-programs)
	|#

view raw flippy.l hosted with ❤ by GitHub

あけまして

おめでとうございます。一月がもう三週間経ったとか信じたくないわー…。

去年のことを振り返ってみると、ほとんど外に出て活動しなかったなあと反省する次第ですね。

とりあえず、newLISPのソースコードをおもちゃにして遊んでいるのに区切りをつけて、どこかに纏めて公開したい。というのが当面の目標です。