Tools


FrontPage

Tools

Firefox

拡張一覧

テーマ

  • macfox
  • SphereGnome
  • Mostly Crystal
    SphereGnome?じゃFirefox2上で多段タブ化している時の挙動がやや不信なので最近はこっちを
  • rein
    TMPのタブクローズボタンをマウスオーバーで表示させる設定にしていた場合
    対応しているテーマはこれぐらいしか知らない
    シンプルなデザインでとても好き

以上でSleipnir2に(個人的な使用法では)負けない機能が十分に揃う

赤福

Tab Mix Plus

All-In-One Sidebar


Google Toolbar

検索バーにフォーカスを移すにはAlt+S

クイックサーチ

Youtube
http://youtube.com/results?search_query=%s&search_type=search_videos&search_sort=relevance
Wikipedia ja
http://ja.wikipedia.org/wiki/Special:Search?search=%s

適当な検索のフォームで右クリックから「この検索にキーワードを設定」から登録
C-lでロケーションバーにフォーカスを移してy 検索ワード、等…

Firefox2

  • TMPで設定してても、検索結果が新しいタブで開かない
    browser.search.openintab => true
  • BXが使えない
    • Autoclose Bookmark&History Folders使え

Synergy

異なるPCで1つのキーボード、マウス、クリップボードを共有するソフトウェア
Synergy日本語キーパッチ
デフォルトでは、半角/全角キーが通らないので上記からバイナリ落とす

でもAlt+半角/全角じゃないとIME on/offできない
JISキーボードだと辛い

HHKライクなASCIIキーボードが欲しい

VM Player

  1. VMPlayerをインストール
  2. QEMUをインストール
    qemu create -f vmdk PATH SIZE
  3. *.vmxを作成
    config.version = "8"
    virtualHW.version = "3"
    memsize = "256"
    ide0:0.present = "TRUE"
    ide0:0.fileName = "debian.vmdk"
    ide1:0.present = "TRUE"
    ide1:0.fileName = "debian-31r2-i386-netinst.iso"
    ide1:0.deviceType = "cdrom-image"
    ethernet0.present = "TRUE"
    ethernet0.connectionType = "nat"
    usb.present = "TRUE"
    sound.present = "TRUE"
    sound.virtualDev = "es1371"
    displayName = "Debian GNU/Linux"
    guestOS = "other26xlinux"
    nvram = "debian.nvram"
    scsi0:0.redo = ""
    ethernet0.addressType = "generated"
    uuid.location = "56 4d 66 ce 39 a4 bd 06-86 74 8c ea 04 ab 35 56"
    uuid.bios = "56 4d 66 ce 39 a4 bd 06-86 74 8c ea 04 ab 35 56"
    ide1:0.autodetect = "TRUE"
    ethernet0.generatedAddress = "00:0c:29:ab:35:56"
    ethernet0.generatedAddressOffset = "0"
    checkpoint.vmState = "debian.vmss"
    tools.remindInstall = "TRUE"
    ide0:0.redo = ""
  4. VMPlayerを起動してF2でBIOS設定
  5. インストール
  6. CDドライブの設定を直す
    ide1:0.fileName = "auto detect"
    ide1:0.deviceType = "cdrom-raw"

ネットワーク切り替えアプリケーションが正常に動作しなくなる?

ちなみに、私の持ち歩きノートにインストールした途端に
ネットワーク切り替えソフトが意図した通りに自動切換えしてくれなくなりました
どうやらVMware Playerインストール時にネットワークカードが
2つ追加されていたのが原因のようで
それぞれのTCP/IPのプロパティの中から"自動メトリック"を解除して
適当な値(100くらい)に設定してあげると解決しました
もし同じような症状に悩む方は一度お試しあれ。

xyzzy

.xyzzyとsiteinit.lの設定

;.xyzzy
;; KaTeX Setting
(push "C:/Program Files/xyzzy/site-lisp/katex" *load-path*)
(require "elisp")
(push '("\\.tex$" . elisp::katex-mode) *auto-mode-alist*)
(autoload 'elisp::katex-mode "katex" t)

;; バックアップファイルはカレントに作られると困る
(require "backup")
(setq *backup-directory* "D:/backup")
(setq *hierarchic-backup-directory* t)
; siteinit.l
;; インクリメンタルサーチ
(require "isearch")

;; 一発インデント
(defun indent-current-buffer ()
  (interactive)
  (indent-region (point-min) (point-max))
  (message "indent buffer"))
(global-set-key #\C-F8 'indent-current-buffer)

;; Cのインデント変更
(setq c-indent-level 4)
(setq c-continued-statement-offset 4)
(setq c-argdecl-indent 4)
(setq c-brace-offset -4)
(setq c-brace-imaginary-offset 0)
(setq c-label-offset -4)
(setq c-comment-indent 4)
(setq *c-indent-tabs-mode* t)

;; C++のインデント変更
(setq c++-indent-level 4)
(setq c++-continued-statement-offset 4)
(setq c++-argdecl-indent 4)
(setq c++-brace-offset -4)
(setq c++-brace-imaginary-offset 0)
(setq c++-label-offset -4)
(setq c++-comment-indent 4)
(setq *c++-indent-tabs-mode* t)

;; Javaのインデント変更
(setq java-indent-level 4)
(setq java-continued-statement-offset 4)
(setq java-argdecl-indent 4)
(setq java-brace-offset -4)
(setq java-brace-imaginary-offset 0)
(setq java-label-offset -4)
(setq java-comment-indent 4)
(add-hook 'ed::*java-mode-hook*
		  #'(lambda ()
			  (ed::set-buffer-local 'indent-tabs-mode t)))
 
; Emacs key bind
(global-set-key #\C-/ 'undo)
(global-set-key #\M-v 'previous-page)
(global-set-key #\M-% 'replace-string)
(global-set-key #\C-M-% 'replace-regexp)
(global-set-key #\C-M-\\ 'indent-region)
(global-set-key '(#\C-x #\h) 'mark-page)
(global-set-key '(#\C-x #\u) 'undo)
(global-set-key '(#\C-x #\r #\d) 'delete-rectangle)
(global-set-key '(#\C-x #\r #\k) 'kill-rectangle)
(global-set-key '(#\C-x #\r #\o) 'open-rectangle)
(global-set-key '(#\C-x #\r #\t) 'string-rectangle)
(global-set-key '(#\C-x #\r #\y) 'yank-rectangle)
(global-set-key '(#\C-x #\r #\w) 'copy-rectangle)
(global-set-key #\Home 'beginning-of-buffer)
(global-set-key #\End 'end-of-buffer)

;; C-x h で バッファ内全範囲指定
(defun mark-whole-buffer ()
  (interactive)
  (end-of-buffer)
  (set-mark (point-max))
  (beginning-of-buffer))
(global-set-key '(#\C-x #\h) 'mark-whole-buffer)

;; カレントバッファを閉じる
(global-set-key #\C-F4 'close-selected-buffer)

;; リージョンとクリップボードの完全同期
(global-set-key #\C-w 'kill-region-to-clipboard)
;; Copy-region-to-clipboard[M-w]
(global-set-key #\M-w 'copy-region-to-clipboard)
;; Clipboardからコピー[C-y]
(global-set-key #\C-y 'paste-from-clipboard)
;; kill-line-to-clipboard を定義する(ついでにクリップボードに溜め込む)
(defun kill-line-to-clipboard (&optional arg)
  (interactive "*p")
  (cond ((bolp)
		 (let ((point (point))
			   (lines (cond ((or (null arg)
							(<= arg 1))
							 0)
							(t
							 (- arg 1)))))
		   (kill-region point
						(progn
						  (forward-line lines)
						  (goto-eol)
						  (forward-char)
						  (point)))))
		(t
		 (kill-line arg)))
  (copy-to-clipboard (apply #'concat (car ed::*kill-ring*))))
;; C-k に割り当て
(global-set-key '(#\C-k) 'kill-line-to-clipboard)

;; 新Ruby-mode
(load-library "ruby-mode")
(push '("\\.rb$" . ruby-mode) *auto-mode-alist*)
;; インデント量を変える。nilの時はタブを挿入
(setq *ruby-indent-column* 3)
;; endでインデントレベルを下げる
(defun ruby-end (&optional (arg 1))
  (interactive "*p")
  (insert "d")
  (if (and (not (eq (parse-point-syntax) :string)) (looking-back "end"))
	  (ed::ruby-indent-line)))
(defun set-keybind()
  (define-key *ruby-mode-map* #\d 'ruby-end))
(add-hook 'editor::*ruby-mode-hook* 'set-keybind)
;(setq *ruby-information-command* "G:/binbin/ri")

;; PHP-mode
(load-library "php-mode")
(pushnew '("\\.php$" . php-mode) *auto-mode-alist*)

;; jscript-mode
(load-library "jscript-mode")
(export '(ed::*jscript-mode-map*
		  ed::*jscript-mode-hook*
		  ed::*jscript-indent-tabs-mode*
		  ed::*jscript-comment-column*
		  ed::*jscript-mode-script-host*
		  ed::jscript-mode
		  ed::jscript-comment-indent
		  ed::jscript-mode-execute
		  ed::jscript-mode-toggle-script-host) "ed")
(autoload 'jscript-mode "jscript-mode" t)
(push '("\\.js$" . jscript-mode) *auto-mode-alist*)

;; html+-mode
(export 'ed::html+-mode "ed")
(autoload 'html+-mode "html+-mode" t)
(pushnew '("\\.s?html?$" . html+-mode) *auto-mode-alist* :test 'equal)
(setq ed::*html+-use-html-kwd* t)
; space indent in html+-mode
(add-hook 'ed::*html+-mode-hook*
		  #'(lambda ()
			  (ed::set-buffer-local 'indent-tabs-mode nil)))
;; html+-modeはインデント2
(defvar ed::*html+-indent-column* 2)

;; xml-mode
(require "xml/xml-mode")
(use-package 'xml)
; (require "xml/xhtml")
(require "xml/xyzref")

;; csv-mode
(in-package "editor")
(export '(csv-mode tsv-mode))
(autoload 'csv-mode "csv-mode" t)
(autoload 'tsv-mode "csv-mode" t)
(pushnew '("\\.csv$" . csv-mode) *auto-mode-alist* :test 'equal)
(pushnew '("\\.tsv$" . csv-mode) *auto-mode-alist* :test 'equal)
(in-package "user")

;;PATH for TeX Compiler (default is jlatex)
(setq tex-command "d:/cygwin/usr/local/bin/platex")
;;PATH for dviout
(setq dvi2-command "d:/cygwin/usr/local/bin/dviout &") 

;; ディレクトリにあるファイルの文字コードを変換する(コピペ)
;;; Code
(defun conv-fileio-code-dir (dir wild code)
  (interactive "DDir: \nsWild: \nnCode(s-jis=0, jis=1, euc=2): ")
  (let ((files (directory dir
						  :wild wild
						  :file-only t))
		nl-code)
	(setq nl-code (if (= code 0) 1 0))
	(set-buffer (create-new-buffer "*WORK*"))
	(set-default-directory dir)
	(dolist (file files)
	  (erase-buffer (selected-buffer))
	  (ed::insert-file-contents file t)
	  (set-buffer-file-name file)
	  (unless (and (= (buffer-kanji-fileio-code) code)
				   (= (buffer-newline-code) nl-code))
		(set-buffer-kanji-fileio-code code)
		(set-buffer-newline-code nl-code)
		(set-buffer-modified-p t)
		(save-buffer)))
	(delete-buffer (selected-buffer))
	))

;; デフォルトの文字コードをEUC-JPに
(setq *default-fileio-encoding* *encoding-euc-jp*
	  *default-eol-code* *eol-lf*)
(save-excursion
  (set-buffer "*scratch*")
  (change-fileio-encoding *encoding-euc-jp*)
  (change-eol-code *eol-lf*))

;; 以下browser-mode.lよりコピペ
(require "win-window")
(require "browserex")
(setq bx:*browser-width* 300)
(setq bx:*browser-height* 200)
(setq bx:*browser-start-page* "http://www.google.com/search?hl=ja&lr=lang_ja&num=100&q=")
(setq bx:*browser-temp-file* (merge-pathnames "tmp/browser-temp.html" (si:system-root)))
;(setq bx:*browser-syslistview-style* bx:LVS_LIST)
;(setq bx:*browser-use-refresh* t)

(global-set-key #\M-F9 'bx:navigate-current-buffer)
(set-function-bar-label #\M-F9 "OpenBrowser")
(global-set-key #\M-F10 'bx:navigate-current-buffer-directory)
(set-function-bar-label #\M-F10 "OpenDir")
(global-set-key #\M-F11 'bx:rotate-browser)
(set-function-bar-label #\M-F11 "RotateBrowser")
(global-set-key #\M-F12 'bx:close-browser)
(set-function-bar-label #\M-F12 "CloseBrowser")
;(global-set-key #\RBtnUp 'bx:browserex-mouse-menu-popup)
;(global-set-key #\Apps 'bx:browserex-apps-popup)

;; ndiary-mode から拝借。
(require "wip/winapi")
(defun toggle-navigate-current-buffer ()
  (interactive)
  (cond
   ((bx:browser-open-p)
	(bx:close-browser)
	(winapi:ShowWindow (get-window-handle) 9))
   (t
	(winapi:ShowWindow (get-window-handle) 3)
	(bx:navigate-current-buffer :position bx:XPIS_LEFT
								:size 480))))
(global-set-key #\M-F8 'toggle-navigate-current-buffer)
(set-function-bar-label #\M-F8 "ToggleBrowser") 
(global-set-key #\M-Up 'bx:browserex-scroll-up)
(global-set-key #\M-Down 'bx:browserex-scroll-down)
(global-set-key #\M-Left 'bx:browserex-scroll-left)
(global-set-key #\M-Right 'bx:browserex-scroll-right)
(global-set-key #\M-PageUp #'(lambda () (interactive) (bx:browserex-scroll-up :unit :page)))
(global-set-key #\M-PageDown #'(lambda () (interactive) (bx:browserex-scroll-down :unit :page)))
(global-set-key #\M-Home #'(lambda () (interactive) (bx:browserex-scroll-up :unit :all)))
(global-set-key #\M-End #'(lambda () (interactive) (bx:browserex-scroll-down :unit :all))) 

;; いまいたけを さん拡張版
(global-set-key #\M-F7 'bx:show-location-browser)
(set-function-bar-label #\M-F7 "ShowLocation")
(global-set-key #\S-M-Left 'bx:go-back-browser)
(global-set-key #\S-M-Right 'bx:go-forward-browser)
(global-set-key #\S-M-Home 'bx:go-home-browser)

;; browser.l もどき設定。
(defun navigate (url)
  (interactive "sURL: ")
  (bx:navigate url))
(defun refresh-browser ()
  (interactive)
  (bx:refresh-browser))
(defun close-browser ()
  (interactive)
  (bx:close-browser))

(defun my-html+-mode-hook ()
  ; ------------------------------------------------------------
  ;; browser が開いていたら現在のファイルを表示
  (bx:navigate-current-buffer-if-open)

  ;; 保存と同時に navigate
  ;; auto-time-stamp.l の save-buffer-with-time-stamp を使っている場合に対応
  (define-key ed::*html+-mode-map* '(#\C-x #\C-s)
			  #'(lambda ()
				  (interactive)
				  (if (fboundp 'save-buffer-with-time-stamp)
					  (save-buffer-with-time-stamp)
					(save-buffer))
				  (bx:navigate-current-buffer-if-open)))

  ; ------------------------------------------------------------
  ; html+-mode で htmllint を使って構文チェック (CGI)
  (defvar *htmllint-url* "http://localhost/htmllint/htmllint.cgi?V;X=w3m;URL=")
  (defun htmllint-cgi ()
	(interactive)
	(let ((file (get-buffer-file-name)))
	  (when file
		(bx:close-browser)
		(bx:navigate (concat *htmllint-url* file)))))
  (define-key ed::*html+-mode-map* '(#\C-c #\C-l) 'htmllint-cgi)
  (define-key ed::*html+-mode-map* #\M-F7 'htmllint-cgi)
  (set-function-bar-label #\M-F7 "htmllint")

  ; ------------------------------------------------------------
  ; html+-mode で htmllint を使って構文チェック
  (defvar *htmllint-file* "D:/cygwin/home/sayless/htdocs/htmllint")
  (defun htmllint-exec ()
	(interactive)
	(let ((file (get-buffer-file-name)))
	  (when file
		(pipe-command
		 (format nil "perl \"~A\" \"~A\""
				 (map-slash-to-backslash *htmllint-file*)
				 (map-slash-to-backslash file))))))
  (define-key ed::*html+-mode-map* '(#\C-c #\l) 'htmllint-exec))
(add-hook 'ed::*html+-mode-hook* 'my-html+-mode-hook)

正しい文字コードで開きなおし

C-u M-x revert-buffer [sjis/euc-jp/utf8]
C-u C-x C-v
正しい文字コードを指定して開き直し

最新の20件

2015-02-27
  • Tools
2007-06-03 2007-05-21 2007-02-19 2006-12-05 2006-11-29 2006-10-26 2006-09-22 2006-09-14 2006-08-30 2006-08-23

  • counter: 951
  • today: 1
  • yesterday: 0
  • online: 1