Source of Nothingness - USB

* Menu

About | Profile | まとめ | オリジナル | xyzzy | あんてな | | buzz

* 2008-04-23 :

ステータスバーの表示をいじるね〜
どんな情報があったらうれしいのだろうか。
モード行もあるしな〜
(start-timer 1.0 #'(lambda ()
                     (when (string= "T" *status-bar-format*)
                       (winapi:SendMessage (winapi:FindWindowEx (get-window-handle) 0 (si:make-string-chunk "msctls_statusbar32") 0)
                                           #x0401 1 (si:make-string-chunk " --/--(--) --:-- ")))))

* 2008-04-13 :

;;; 消す
(progn
  (winapi:SetWindowLong (get-window-handle)
                        winapi:GWL_STYLE
                        (logand (winapi:GetWindowLong (get-window-handle) winapi:GWL_STYLE)
                                (lognot (logior winapi:WS_CAPTION winapi:WS_SYSMENU))))
  (winapi:SetWindowPos (get-window-handle) 0 0 0 0 0 (logior winapi:SWP_NOZORDER winapi:SWP_NOSIZE winapi:SWP_NOMOVE winapi:SWP_FRAMECHANGED)))

;;; 戻す
(progn
  (winapi:SetWindowLong (get-window-handle)
                        winapi:GWL_STYLE
                        (logior (winapi:GetWindowLong (get-window-handle) winapi:GWL_STYLE) winapi:WS_CAPTION winapi:WS_SYSMENU))
  (winapi:SetWindowPos (get-window-handle) 0 0 0 0 0 (logior winapi:SWP_NOZORDER winapi:SWP_NOSIZE winapi:SWP_NOMOVE winapi:SWP_FRAMECHANGED)))

;;; ちなみにステータスバーを消そうとする
(winapi:ShowWindow (winapi:FindWindowEx (get-window-handle) 0 (si:make-string-chunk "msctls_statusbar32") 0) winapi:SW_HIDE)
xyzzyだと^\fなんて入ってなくてそのまま^Lが入っているような気がするんだけど
$XYZZY/lisp/page.l を読んでいて、なぜ以下の部分(18行目)に気付かなかったのか不思議。xyzzy のリファレンスを参照していなさそうなのも不思議。
(or (boundp 'page-delimiter)
    (setq page-delimiter "^\f"))

* Scrapbook : 使いやすさ日記 『307. キャップをなくさないUSBメモリ』

http://usability.novas.co.jp/diary/307.html

* xyzzy topic : USBメモリからの起動に特化したxyzzy

http://blog.2310.net/contents/individual/000047.php
  • xyzzy.iniを$XYZZY/usrに保存(ユーザ名やOS名でフォルダ分けしない)
  • ダンプファイルをシステムのTempフォルダへ保存/読込
  • unlha32.dll等、各種アーカイバDLLがシステムフォルダや$XYZZY内に存在しない場合は$XYZZY/libも探してもらう
(2006-04-09)