miyamuko

;; どんな人でも瞬時に凄腕ハッカーになれる方法・・・ for #xyzzy
;; 
;;   * M-x hacker-typer で開始
;;     何かキー入力するたびにすごい勢いでコードを書いていく
;;   * C-g で終了
;;   * ハックするコードは *hacker-typer-dir* と *hacker-typer-file-pattern*
;;     で指定
;;
;; http://duiker101.tk/hackertyper/
;; http://developer.cybozu.co.jp/akky/2011/04/post-a879.html

miyamuko

; -*- mode: lisp; package: power-usage -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 続きは GitHub で。
;; https://github.com/miyamuko/power-usage
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

miyamuko

;; http://doko.in/micro/ から取得した放射線量をチェックして
;; 200 ミリシーベルト以上ならブブゼラを鳴らして警告します。
;;
;; Usage:
;;
;;   1. *radioactivity-prefecture-id* にチェックしたい県の ID を設定
;;      (デフォルトは東京の 13)
;;   2. *radioactivity-watch-interval* で監視間隔を設定
;;      (デフォルトは 1 時間)
;;   3. *radioactivity-warn-threshold* でブブゼラを鳴らす閾値を設定

miyamuko

;; 超暫定対処版。
;; cygwin 1.7 からマウント情報をレジストリじゃなくて /etc/fstab および /etc/fstab.d/$USER に
;; 記録するようになったので cygwin-mount は動かなくなっています。

;; とりあえず以下のモンキーパッチで最低限の動作はすると思います。
;; ただ、独自のマウントポイントを定義している場合などには対応していません。

(require "cygwin-mount")

(defun cygmount-point-info (&key type path)

miyamuko

;; region 内の HTML を escape/unescape。
;; 何回目の車輪の再発名かわからないけど、ググっても見つからなかったので書いた。

(defun auto-link-region (s e)
  (interactive "*r")
  (if (< e s) (rotatef s e))
  (save-excursion
    (save-restriction
      (narrow-to-region s e)
      (goto-char s)

miyamuko

;; hit-a-hint を xyzzy でつくろうとして挫折した記録。
;;
;; きっかけ:
;;   http://twitter.com/takets/status/26264120538
;;
;; 方式:
;;   1. 画面に表示している分だけ buffer-substring して新しいバッファを作成
;;   2. overlay っぽくバッファを書き換え
;;   3. キー入力を呼んでバッファを切り替え
;; とやろうとしたけど、2 の段階で キーワードの色が付かなくなることに気づいてやめた。

miyamuko

diff --git a/src/init.cc b/src/init.cc
index e596287..268e6ed 100644
--- a/src/init.cc
+++ b/src/init.cc
@@ -296,10 +296,10 @@ init_math_symbols ()
     make_single_float (FLT_MIN);
   xsymbol_value (Qleast_negative_normalized_single_float) =
     make_single_float (-FLT_MIN);
-  for (fl = 1.0F, fe = 1.1F; 1.0F + fl != 1.0F && fe > fl; fe = fl, fl /= 2.0F)
+  for (fl = 1.0F, fe = 1.1F; (float)(1.0F + fl) != 1.0F && fe > fl; fe = fl, fl /= 2.0F)

miyamuko

;; xyzzy の epsilon 周りがおかしい
;;
;; http://twitter.com/TwilightClover/status/26251344464
;; http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/convar_short-_tive-epsilon.html

(dolist (sym '((double-float-epsilon t)
               (double-float-negative-epsilon nil)
               (long-float-epsilon t)
               (long-float-negative-epsilon nil)
               (short-float-epsilon t)

miyamuko

;; M-x trac-escape-wikiname-buffer
;; M-x trac-escape-wikiname-region
;;   Trac の WikiName がリンクにならないように !WikiName という形式にエスケープする。
;; 
;; M-x trac-unescape-wikiname-buffer
;; M-x trac-unescape-wikiname-region
;;   !WikiName を WikiName に戻す。
;;   C-u M-x で実行すると {{{ }}} やリンクの中の !WikiName も元に戻す。
;;

miyamuko

;; detect-environment-changes
;;   指定したコマンド実行後に変更された環境変数を取得する
;;
;; environment
;;   現在のプロセスの環境変数を取得する
;;
;; system
;;   指定したコマンドを実行し、実行結果と実行後の環境変数を取得する

(defconstant +boundary+ "--- pik --- pik --- pik --- pik ---")