181号Information

(!)
自宅設置サーバーのHDDがトんじゃったので,現在復旧作業中です...
Diary>0|1|[2]|3|4|5|
CONTENTS

じゆうちょう

42 あしたのこと   2011-08-13 15:54:23
いまさらですが,こんな感じのコピー本を出すよてい.とにかく,妖精さんをたくさん描きたかったのです. 初のエロ本なので,エロくなるように頑張りました.わっほう.
 
41 mewで,lgrepを使って日本語全文検索(途中) スクリプト 2011-03-21 17:09:01

mewで日本語全文検索しようとすると設定にひと手間かかっちゃいます. 以下の設定をするとgrepでなんちゃって日本語検索できます.横着.. lgrepを使うので元々のコードに2行だけ追加してます. ~/.mew.elに書いておくことで日本語全文検索できるようになります.

mew-prog-grep-opts-Isで入力コードを指定してるので,モチロンISO2022-JPで保存されてるファイルしか対象にならんです...Base64&UTF-8メールとかは,むりんぐ.げしょ

本気でやるなら,mew-grepとか作った方がいいとおもぅ.それよりサーチエンジンを入れよう.

環境に応じてmew-prog-grep-optsのオプションを変更して下さい.

-I入力コーディングのスイッチ
-O出力コーディングのスイッチ
-Kキーボードコーディングのスイッチ
aauto-select
jiso-2022-jp
ejeuc-japan
u8UTF-8
sshift-jis

ちなみに,追加した行はlgrepの-lオプションの動作がgrepと 同じでなかったのでその調整です.

emacs23.1,mew6.3,仮想端末は入出力キーボード全てUTF-8です.

(defun mew-summary-selection-by-pick-with-grep1 (prog opts pattern folder msgs)
  (let ((dir (mew-expand-folder folder))
  (file (mew-make-temp-name))
  (rttl 0) nxt)
    (if (= (length msgs) 1) (setq msgs (cons null-device msgs)))
    (if pattern (setq pattern (mew-cs-encode-arg pattern)))
    (with-temp-buffer
      (mew-set-buffer-multibyte t)
      (cd dir)
      (mew-piolet mew-cs-text-for-read mew-cs-text-for-write
  (mew-alet ;; xxx
   (while msgs
     (goto-char (point-max))
     (setq nxt (nthcdr mew-prog-grep-max-msgs msgs))
     (if nxt (mew-ntake mew-prog-grep-max-msgs msgs))
     (apply 'call-process prog nil t nil
      (append opts (and pattern (list pattern)) msgs))
     (setq msgs nxt)))
  (setq msgs nil)
  (while (re-search-forward ":.*$" nil t) ;; for lgrep 追加行
    (replace-match ""))                   ;; for lgrep 追加行
  (setq msgs nil)
  (goto-char (point-min))
  (while (re-search-forward mew-regex-message-files2 nil t)
    (setq msgs (cons (mew-match-string 1) msgs))
    (forward-line))
  (setq msgs (mew-uniq-list msgs))
  (setq msgs (mapcar 'string-to-number msgs))
  (setq msgs (sort msgs '<))
  (setq msgs (mapcar 'number-to-string msgs)))
      (mew-erase-buffer)
      (setq rttl (length msgs))
      (insert "CD: " folder "\n")
      (mapc (lambda (x) (insert (mew-msg-get-filename x) "\n")) msgs)
      (mew-frwlet mew-cs-text-for-read mew-cs-text-for-write
  (write-region (point-min) (point-max) file nil 'no-msg))
      (list file rttl))))

(setq mew-prog-grep "lgrep")
(setq mew-prog-grep-opts '("-l" "-Kj" "-Ou8" "-Is"))
 
40 linuxのOperaでCPU使用率がとても高い件   2010-11-27 14:00:36

CentOSのOpera10.63でCPU使用率がとても高い.具体的にいうと常に12.5%.ちなみに8コア載っているので常に1コアOpera専用な感じ.なにそれかっこいい.

で,いろいろ調べた結果Googleのタブが存在しているときだけCPU使用率がとても高い.Googleのタブが1つもなければ1,2%前後.

もうちょい調べた結果,サイトごとの設定で"google.com"と"google.co.jp"でjavascriptをオフにしておくと良い塩梅におさまった.うん,内部ウィンドウ操作が軽い.

ちなみにその他の頻繁に閲覧するサイトではjavascriptONでもとくにCPU使用率はあがらないみたい.akahukuplusが大丈夫だったので満足.

3シテオク.

 
39 pukiwiki-modeで日本語名のページが編集できない   2010-10-15 04:20:47
らんぼーだけどとりあえず.emacsに以下のように書いておけば,うごく.
(add-hook 'pukiwiki-mode-hook
          '(lambda ()
             (defun pukiwiki-index-edit-page-current-line ()
               "現在行のページを編集する。"
               (interactive)
               (pukiwiki-index-edit-page
                (nth 2 (pukiwiki-index-page-info-current-line)))
               )
             ))
 
38 emacsでのother-window   2010-08-22 19:28:20

画面の移動が簡単になるように (other-window 1)をC-tに,(other-window -1)をM-tに割り当ててるのですが, dired-modeだとC-tはimage-diredのプレフィックスになっていて衝突してしまします. 特に,画面移動でC-tを連打しているとdired-modeのキーマップでは C-t C-tにサムネイル作成が割り当てられていて,それが実行されてしまします.

そこで,マークされたファイルの中に(あるいは現在行のファイルに) 画像ファイルがあればサムネイル生成を,そうでなければ(other-window 1)を 実行するようにします. 状況に応じて動作が変わるようにキーアサインすると資源節約になるはず. C-tから急にC-t C-tになるのはどーかとも思うけど.まあ自分用だし... やぼったくてごめんなさい.

 (add-hook 'dired-load-hook
           (lambda ()
             ;; dired-xを有効にする
             (load "dired-x")
             ;; C-tに関するキーバインド
             (define-key dired-mode-map "\C-t\C-t"
             '(lambda ()
               (interactive)
               (if (not
                    (catch 'non-image-file-found
                      (dired-map-over-marks
                       (if (not (string-match
                                 (image-file-name-regexp)
                                 (dired-get-filename)))
                           (throw 'non-image-file-found nil)) nil)))
                   ;; 画像でないファイルが見つかった
                   (other-window 1)
                 ;; 全て画像ファイルだった
                 (image-dired-dired-insert-marked-thumbs)
                 )
               )
             )
             ))

こーすると,画像ファイル以外の場所にマークがあると C-t C-tで次のウィンドウへ行くようになります.

TODOとしては,diredのヘッダ行とかでC-t C-tするとNo file on this lineって 言われる.でもother-windowできるからいいや. あと,CUIでもうごきます.

夏コミで本買ってくれた方ありがとうございました! 冬はemacs本だしたいなあ.

 
35 Script-Fuとバッチでxcfからpngへ一括変換 スクリプト 2009-12-27 09:02:23
Script-Fuとバッチでxcfからpngへ一括変換

何を思ったかGIMPで伺かのsurfaceを描いてしまったので, PSDのように一括でpng変換できなくて不便! というわけで,xcf->pngの一括変換の巻ー

おもにこちら の劣化コピーとなっております.ありがとうございます.

;; xcf2png.scm
(define (xcf2png inFile outFile)
  ; Load an img
  (let*
    (
      (img (car (gimp-file-load 0 inFile inFile)))
      (drawable (car (gimp-image-active-drawable img)))
    )
    (gimp-image-merge-visible-layers img 0)
    (set! drawable (car (gimp-image-active-drawable img)))
    (file-png-save-defaults 1 img drawable outFile outFile)
  )
)


; Register our script with script-fu.
(script-fu-register "xcf2png"
    "<Toolbox>/Xtns/Script-Fu/Tutorials/xcf2png"
    "Converts a xcf file to png"
    ""
    ""
    "0000"
    ""
    SF-VALUE "Infile"       "\"\""
    SF-VALUE "Outfile"       "\"\""
    )    
あと,実行用のバッチファイル
setlocal enabledelayedexpansion
echo OFF
set a=
for %%i in (*.xcf) do (
  set a= !a! (xcf2png _body_quot;%%i_body_quot; _body_quot;%%i_.png_body_quot;^)
)
set a= !a! (gimp-quit 0)
echo "!a!"

start c:\programs\GIMP-2.0\bin\gimp-2.6.exe -i -b "!a!"
 
34 teratermと背景と反転色とemacsのこと さばめも 2009-12-07 02:10:26

TeraTermで背景画像を設定するとカッコ良いのは良いのですが, emacsとかの背景色やinverse-video-pの設定が無視されてしまうのです. emacsのmode-lineとかは,文字の背景色がないと複数ウィンドウで 作業しているときにぱっ,と,どのウィンドウにいるかわかりづらいので困っていました.

そんでまあ,いろいろ設定していたのですが, 以下の設定でうまくいきました.めでたし.

  (set-face-attribute
    'mode-line nil
    :inverse-video t
    :background "unspecified-bg"
    :foreground "yellow"
  )
  (set-face-attribute
    'wb-line-number-scroll-bar-face nil
    :inverse-video t
    :background "unspecified-bg"
    :foreground "yellow"
  )

上はmode-lineの,下はwb-line-numberの設定です. ヌキ色は黒固定っぽいですが,とりあえずこれでいいかな.

 
32 EASEUS Partition Masterとregeditを用いたシステムドライブレターの変更方法 スクリプト 2009-11-15 02:05:07

EASEUS Partition Master(EPM)と regeditを用いたシステムドライブレターの変更手順について記します. OSはXP-SP2です.おきまりですが,以下の手順を行って 「うわー,データが消えてしまったー」ってなってもなんともできませんので,ヒント程度にどうぞ.

で,なんというかまあ,画像のとおりです. 問題は2つくらいありまして,1つはパーティションコピーが2回発生するので ディスクに優しくないこと.もひとつは,どっかで手順をまちがえると そもそも起動しなくなること.うっひょひょー. 今回は必要なデータをまるっと別の場所へ移動済みだったので遊び半分で やってみましたが,重要なシステムで実行することはオススメしません.

さて,ここでのミソはCとXがドライブレターに関するレジストリ以外 多重化されていることと,常にEPM本体が固定位置(D)にいることです. おかげで,作業中にパスが通らなくてシステムがコケる事態を回避できて... いると思うのですが,正直くわしくないので良くわかりません.しむ~ん.

まあ,システムドライブレターの変更とかめったなことでは 無いと思いますが,単発のシステムディスクを,より大容量のディスクで RAID多重化したいときとかに使える..のかなぁ.とりあえず今回は なんとかなっちゃったので,参考までに.

 
30 IMEのちょっといいはなし   2009-09-29 01:24:33
どーにもこーにも評判のよろしくないIMEですが,なんといっても商用ソフトだけあって フリーのかな漢字変換ソフトよりはだいぶ使えるような気がします.
どっこい,最近emacs+Anthyに慣れちゃって,ついIME使ってる最中に [Ctrl+H]したらちゃんとBackSpaceするじゃん!ということに気がつきました.
よくよく調べてみたら,IMEはデフォルトのキーバインドでほぼ一通りの操作が ショートカットキーに割り当てられてることを発見ー! しかも結構emacs+Anthyに近い感じなので,この環境の人はすんなり 使えるというか...もしかして肩赤? かもしれないけど,一応自分用のまとめー.

[IMEのプロパティ]-> [全般タブ]-> [設定(V)]-> [Microsoft IMEの詳細プロパティ]-> [キー設定タブ]

で設定の確認,編集. default表記のあるものは初期設定,それ以外のは設定変更したものです.

IME ショートカットキー一覧
キー状態機能設定
変換入力/変換済み文字なし IME-オン/オフ
Ctrl+N候補一覧次候補群
Ctrl+P候補一覧前候補群
Ctrl+E候補一覧前候補(↑)default
Ctrl+HBackSpacedefault
Ctrl+S文節左(←)default
Ctrl+D文節右(→)default
Ctrl+K文節-1(shift+←)default
Ctrl+L文節+1(shift+→)default
Ctrl+M変換確定(Enter)default
Ctrl+T半角英数(F10)default
ついでにCapsLockをCtrlに割り当てておけば, キーバインドに関してはIMEでも結構幸せになれる.気がする.

TmF3と研究会が同時進行sl

 
29 コミケとか   2009-08-22 05:27:55
今年も
1日目:参加
2日目:研究室合宿@軽井沢
3日目:参加
というヒドいスケジュールでした.mixi日記とかぶってるけど まとめー
  • すずしい!らくちん!
  • 2日目は行かなくて正解だったらしい
  • らきすた減減・さき/けいおん増増・そらかけ(泣・破じわりじわり
  • べびプリ・放課後はベルトコンベア買い
あと,地味にgalleryこうしーん
現状:研究会うっへり
 
Diary>0|1|[2]|3|4|5|