PCいろいろ - 覚え書き@ ウィキ

vista とか使ってるソフトとかの覚え書きとかを

---

---

vista関連

インストールしたばかりのときにやること

• 「視覚効果」→「パフォーマンスを優先する」を選択。
• 隠しファイルとかを見えるようにする。
• デスクトップのアイコンは、デスクトップを右クリックで変更できる。

googleツール

Gmail

ソフト関連

ATOK

• 単語登録
• 確定のアンドゥ
• 再変換

xyzzy

「.xyyzy」の記述内容

;;;;;本体以外の追加外部Lispが不要なもの;;;;;
 
; Ctrl-S のサーチを Emacs のようにする
(require "isearch")
 
;;; Emacs風キーバインドに近づける
; undo
(global-set-key #\C-/ 'undo)
 
; dynamic abbreviation
;(require "dabbrev")
;(global-set-key #\M-/ 'dabbrev-expand)
 
; write-file
; バッファーの名前や割り付けられているファイル名も新しく指定
; されたファイルに変える
(define-key ctl-x-map #\C-w 'emacs-write-file)
 
 
;find-file(C-x C-f)の後F7で.xyzzy、F8でsiteinit.lをロード
(define-key minibuffer-local-completion-map #\F7
            #'(lambda () (interactive)
                (delete-region (point-min) (point-max))
                (insert (concat
                         (merge-pathnames ".xyzzy" (si:system-root))))))
 
(define-key minibuffer-local-completion-map #\F8
            #'(lambda () (interactive)
                (delete-region (point-min) (point-max))
                (insert (concat
                         (merge-pathnames "site-lisp" (si:system-root)) "/siteinit.l"))))
 
 
;現在のファイルをバイトコンパイル
;ここではC-c C-bに割り当て
(defun my-file-bytecompile () (interactive)
  (byte-compile-file (get-buffer-file-name)))
(define-key spec-map #\C-b 'my-file-bytecompile)
 
; Fundamental モード対応
(add-hook '*fundamental-mode-hook*
          #'(lambda()
              (set-syntax-match (syntax-table) #\( #\))
              (set-syntax-match (syntax-table) #\{ #\})
              (set-syntax-match (syntax-table) #\[ #\])
              ))
 
;; .xyzzy を lisp-mode で編集する
(pushnew '("\\.xyzzy$" . lisp-mode) *auto-mode-alist*)
 
;; C-F8で一発でインデント
(defun indent-current-buffer ()
  (interactive)
  (indent-region (point-min) (point-max))
  (message "indent buffer"))
(global-set-key #\C-F8 'indent-current-buffer)
 
;;バックアップファイルを別のところに作る
; $XYZZY/lisp/backup.l に詳しく書かれている
(require "backup")
(setq *backup-directory* "D:/xyzzy/backup-files/")
(setq *hierarchic-backup-directory* t)
 
 
; ヤンク、キルにクリップボードを使う
(global-set-key '(#\C-w) 'kill-region-to-clipboard)
(global-set-key '(#\M-w) 'copy-region-to-clipboard)
(global-set-key '(#\C-y) 'paste-from-clipboard)
 
; kill-line-to-clipboard を定義する
(defun kill-line-to-clipboard (&optional lines)
  (interactive "*p")
  (kill-line lines)
  (copy-to-clipboard (apply #'concat (car ed::*kill-ring*))))
; C-k に割り当て
(global-set-key '(#\C-k) 'kill-line-to-clipboard )
 
 
;;lisp-modeで関数や変数を色づけするためには
(in-package "editor")
(defvar *lisp-keyword-hash-table* nil)
(defun use-lisp-keyword ()
  "キーワード色付け"
  (if (null *lisp-keyword-hash-table*)
      (setq *lisp-keyword-hash-table*
            (load-keyword-file "lisp")))
  (when *lisp-keyword-hash-table*
    (make-local-variable 'keyword-hash-table)
    (setq keyword-hash-table *lisp-keyword-hash-table*)))
(add-hook '*lisp-mode-hook*
          #'(lambda ()
              (use-lisp-keyword)
              (define-key *lisp-mode-map* #\C-. 'lisp-complete-symbol)))
(add-hook '*lisp-interaction-mode-hook*
          #'(lambda ()
              (use-lisp-keyword)
              (define-key *lisp-interaction-mode-map* #\C-. 'lisp-complete-symbol)))
(in-package "user")
 
 
;;;;;本体以外の追加外部Lispが必要なもの;;;;;
 
;comment.l
;各種編集モードに応じて、リージョンをコメントアウトしたり、逆にリージョンのコメント記号を外したり
;セレクションがある状態で C-; すると，セレクションをコメントアウトする。
;セレクションがある状態で C-u C-; すると，セレクションをアンコメントする。
(autoload 'comment-out-region "comment" t nil)
(global-set-key #\C-\; 'comment-out-region)
 
 
;リージョンを反転表示
(require "rv-region")
(global-set-key #\C-@ 'rv-set-mark-command)
 
 
; paren.l 改造版とのこと
(require "paren")
(turn-on-global-paren)
;; paren強調前の強調を常に
(setq-default *paren-continue-original-attribute* t)
;; tagは強調しない (<とか>とか)
(setq-default *paren-tag-highlight* nil)
 
 
;;NetInstallerの設定
(require "ni/setup")
;; 自動設定を利用する
(ni-autoload)
 
 
;;;
;;; favorites --- お気に入り管理
(require "favorites")
 
 
;;; outline 関係
(require "color")
(require "win-window")
(require "treeview/setup")
(require "buf2html")
(require "outline-tree/outline-tree")
 
;; extended-key-translate-table 設定
(set-extended-key-translate-table exkey-C-tab #\F23)
(set-extended-key-translate-table exkey-C-return #\F20)
 
;; Editor <-> TreeView (Ctrl+TAB)
; Editor -> TreeView
(require "treeview/setup")
(global-set-key #\F23 'treeview::treeview-focus-treeview)
; TreeView (outline-tree) -> Editor
(require "outline-tree/outline-tree")
(define-key outline-tree2::*outline-tree-map*
            #\F23 'treeview::treeview-focus-editor)
 
;; outline 更新 (Ctrl+Return)
(global-set-key #\F20 'outline-tree2::outline-tree-create-outline-and-select-node)
(define-key outline-tree2::*outline-tree-map*
            #\F20 'outline-tree2::outline-tree-create-outline-and-select-node)
 
;;拡張子「txt」に「階層付テキスト」を設定するには
;「アウトラインタイプ」で自動的に「階層的テキスト」の設定にする
(in-package "outline-tree2")
(defun my-outline-tree-get-create-outline-function (buffer)
  (let ((buffer-name (buffer-name buffer))
        (buffer-mode (save-excursion (set-buffer buffer) buffer-mode))
        (mode-name (save-excursion (set-buffer buffer) mode-name)))
    (cond
     ((and (symbolp 'outline-tree2::outline-tree-create-outline-hierarchy-dot)
           (fboundp 'outline-tree2::outline-tree-create-outline-hierarchy-dot)
           (string-matchp "\\.txt$" buffer-name))
      'outline-tree2::outline-tree-create-outline-hierarchy-dot)
     (t nil))))
(setq *outline-tree-get-default-create-outline-function-advice-func*
      'my-outline-tree-get-create-outline-function)
 
 
 
; remember.lを導入 C-c m で作動
; C-c C-c で閉じる
(autoload 'remember "remember" t)
(autoload 'remember-region "remember" t)
(global-set-key '(#\C-c #\m) 'remember)
;(global-set-key #\F8 'remember)
(global-set-key #\F10 'remember-clipboard)
(global-set-key #\F11 'remember-region)
;find-file(C-x C-f)の後F6で.notesをロード
(define-key minibuffer-local-completion-map #\F6
            #'(lambda () (interactive)
                (delete-region (point-min) (point-max))
                (insert (concat
                         (merge-pathnames ".notes" (si:system-root))))))
 
 
; clickable-uriを導入
(require "clickable-uri")
 

HP Pavilion 関連

四角の中のキーを使うにはfnキーを押しながら。

リンク

---