引っ越しを機にemacs.elの設定に取り組む

移転しました。

引っ越しを機に、これまでやろうやろうと思っていた、CarbonEmacsの設定を行いました。備忘録です。

Before

emacs.el

CarbonEmacsのデフォルトですね。

After

emacs.el


半透明・黒背景・フルスクリーンと3拍子揃っております笑。

~/emacs.elに設定したもの

;; ロードパス
(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)