拡張一覧
テーマ
以上でSleipnir2に(個人的な使用法では)負けない機能が十分に揃う
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 検索ワード、等…
browser.search.openintab => true
異なるPCで1つのキーボード、マウス、クリップボードを共有するソフトウェア
Synergy日本語キーパッチ
デフォルトでは、半角/全角キーが通らないので上記からバイナリ落とす
でもAlt+半角/全角じゃないとIME on/offできない
JISキーボードだと辛い
HHKライクなASCIIキーボードが欲しい
qemu create -f vmdk PATH SIZE
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 = ""
ide1:0.fileName = "auto detect" ide1:0.deviceType = "cdrom-raw"
ちなみに、私の持ち歩きノートにインストールした途端に ネットワーク切り替えソフトが意図した通りに自動切換えしてくれなくなりました どうやらVMware Playerインストール時にネットワークカードが 2つ追加されていたのが原因のようで それぞれのTCP/IPのプロパティの中から"自動メトリック"を解除して 適当な値(100くらい)に設定してあげると解決しました もし同じような症状に悩む方は一度お試しあれ。
.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 正しい文字コードを指定して開き直し