peccu

> This is a Quix Command File
>
> For the syntax of this file, please refer to http://quixapp.com/syntax/
>

@Basic commands
@These are the most basic commands Quix offers, but possibly also the most powerful ones.
a       http://www.amazon.com/s/?field-keywords=%s							Amazon Search
d       http://www.google.com/search?q=define:%s							Google Define a word
dict	http://www.google.com/dictionary?langpair=en%7Cen&q=%s&hl=en&aq=f	Google Dictionary for a word

peccu

;;====================================
;;; 折り返し表示ON/OFF
;;====================================

(defun toggle-truncate-lines ()
  "折り返し表示をトグル動作します."
  (interactive)
  (if truncate-lines
      (progn ; 折り返さない
        (setq truncate-lines nil)

peccu

;; 以下のファイルに，自分なりの解釈をコメントしてみた by peccu
;; http://www.unixuser.org/~ysjj/emacs/lisp/keybind-config.el
;;; keybind-config --- keybind file

;; Copyright (C) 1999-2001 YAMASHITA Junji

;; Author: YAMASHITA Junji <[email protected]>
;; Keywords: config, keybind
;; Version: $Id: keybind-config.el,v 1.21 2002/02/04 08:18:42 ysjj Exp $

peccu

;; cf.http://d.hatena.ne.jp/grandVin/20080912/1221245359
;; どうもこれでできてるらしいけど，自分のためにも自作してみた

;; だいたい下のような設定になっていれば
;; `bm-repository'にbookmarkのリストが入っている
;; これをanythingで選択して，jumpできるようにする
;; (setq-default bm-buffer-persistence t)
;; (add-hook' after-init-hook 'bm-repository-load)
;; (add-hook 'find-file-hooks 'bm-buffer-restore)
;; (add-hook 'kill-buffer-hook 'bm-buffer-save)

peccu

;; cf.http://d.hatena.ne.jp/grandVin/20080912/1221245359
;; どうもこれでできてるらしいけど，自分のためにも自作してみた

;; だいたい下のような設定になっていれば
;; `bm-repository'にbookmarkのリストが入っている
;; これをanythingで選択して，jumpできるようにする
;; (setq-default bm-buffer-persistence t)
;; (add-hook' after-init-hook 'bm-repository-load)
;; (add-hook 'find-file-hooks 'bm-buffer-restore)
;; (add-hook 'kill-buffer-hook 'bm-buffer-save)

peccu

;; cf.http://d.hatena.ne.jp/grandVin/20080912/1221245359
;; どうもこれでできてるらしいけど，自分のためにも自作してみた

;; だいたい下のような設定になっていれば
;; `bm-repository'にbookmarkのリストが入っている
;; これをanythingで選択して，jumpできるようにする
;; (setq-default bm-buffer-persistence t)
;; (add-hook' after-init-hook 'bm-repository-load)
;; (add-hook 'find-file-hooks 'bm-buffer-restore)
;; (add-hook 'kill-buffer-hook 'bm-buffer-save)

peccu

;; cf.http://d.hatena.ne.jp/grandVin/20080912/1221245359
;; どうもこれでできてるらしいけど，自分のためにも自作してみた

;; だいたい下のような設定になっていれば
;; `bm-repository'にbookmarkのリストが入っている
;; これをanythingで選択して，jumpできるようにする
;; (setq-default bm-buffer-persistence t)
;; (add-hook' after-init-hook 'bm-repository-load)
;; (add-hook 'find-file-hooks 'bm-buffer-restore)
;; (add-hook 'kill-buffer-hook 'bm-buffer-save)

peccu

(require 'uniquify)
;; バッファ名
;; 設定
;; name.el name.el<2>：二つ目から番号がつく
;; (setq uniquify-buffer-name-style nil)
;; name.el<first> name.el<second>：英語で
;; (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
;; first/name.el second/name.el：ディレクトリから
(setq uniquify-buffer-name-style 'forward)
;; depth of dir：表示するディレクトリの数

peccu

(defun fib(n m)
  (let ((n1 n)(n2 m)(n3 (+ n m)))
    (while (<= n3 7110)
      (when (= n3 7110)
        (insert (format "\nfib(%d,%d) = %d" n m n3)))
      (setq n1 n2)
      (setq n2 n3)
      (setq n3 (+ n1 n2)))))
(loop
 for i from 1 to 100

peccu

;; これを評価するとことえりのon/offでkey-chord-modeがon/offする(ミニバッファにメッセージが表示される)．
;; でも実際は，一度key-chordがoffになると，onになってもkey-chordが動かない
(if (and (boundp 'input-method-activate-hook)
         (boundp 'input-method-inactivate-hook))
    (progn
      (add-hook 'input-method-activate-hook
                (function (lambda () (key-chord-mode 0)))) ;ことえりonでkey-chordをoff
      (add-hook 'input-method-inactivate-hook
                (function (lambda () (key-chord-mode 1)))) ;逆
      ))