;; ロードパス
(setq load-path (cons "~/emacs/site-lisp" load-path))
;; 行数表示
(line-number-mode t)


;; スタートアップページを表示しない
(setq inhibit-startup-message t)


;; バックアップファイルを作らない
(setq backup-inhibited t)


;; ビープ音を消す
(setq visible-bell t)
(setq ring-bell-function 'ignore)


;; フルスクリーン M-Enter
(defun toggle-fullscreen ()
(interactive)
(set-frame-parameter nil 'fullscreen (if (frame-parameter nil 'fullscreen)
nil
'fullboth)))
(global-set-key [(meta return)] 'toggle-fullscreen)


;; ウィンドウ設定
(if window-system (progn
(setq initial-frame-alist ’((width . 110) (height . 40) (top . 50)))
(set-background-color "Black")
(set-foreground-color "White")
(set-cursor-color "Gray")
))


;; ウィンドウを透明化
(add-to-list 'default-frame-alist ’(alpha . (0.85 0.85)))


;; シフト + 矢印で範囲選択
1(setq pc-select-selection-keys-only t)
(pc-selection-mode 1)


;; 対応する括弧を光らせる。
(show-paren-mode 1)


;; 編集行のハイライト
(global-hl-line-mode)


;; anything
(require 'anything-config)
(setq anything-sources (list anything-c-source-buffers
anything-c-source-bookmarks
anything-c-source-recentf
anything-c-source-file-name-history
anything-c-source-locate))
(define-key anything-map (kbd "C-p") 'anything-previous-line)
(define-key anything-map (kbd "C-n") 'anything-next-line)
(define-key anything-map (kbd "C-v") 'anything-next-source)
(define-key anything-map (kbd "M-v") 'anything-previous-source)
(global-set-key (kbd "C-;") 'anything)