sluchin

;; 画面の解像度によりフレームサイズを変化させる
(when window-system
  (let ((height-gain))
    (cond ((>= (x-display-pixel-height) 900)
           (setq height-gain 0.9))
          ((>= (x-display-pixel-height) 768)
           (setq height-gain 0.8))
          (t
           (setq height-gain 0.7)))
    (message "%f" height-gain)

sluchin

(defun list-system-header-files ()
  (directory-files "/usr/include" nil "^.*\\.h$"))
(defvar system-header-files-cache (list-system-header-files))
(defvar ac-source-system-header-files
  '((candidates . system-header-files-cache)))

sluchin

;;; GDB
;; 有用なバッファを開くモード
(setq gdb-many-windows t)
;; 変数の上にマウスカーソルを置くと値を表示
(add-hook 'gdb-mode-hook '(lambda () (gud-tooltip-mode t)))
;; I/O バッファを表示
(setq gdb-use-separate-io-buffer t)
;; t にすると mini buffer に値が表示される
(setq gud-tooltip-echo-area nil)

sluchin

;; tar + gzip で圧縮
(when (and (executable-find "tar") (executable-find "gzip"))
  (defun dired-do-tar-gzip (arg)
    "Execute tar and gzip command"
    (interactive "P")
    (let ((files (dired-get-marked-files t current-prefix-arg)))
      (let ((filename (read-string (concat "Filename(" (car files) ".tar.gz): "))))
        (when (string= "" filename)
          (setq filename (concat (car files) ".tar.gz")))
        (when (not (string-match

sluchin

(when (locate-library "tomatinho")
  (autoload 'tomatinho "tomatinho" "Pomodoro Technique for emacs." t)
  (eval-after-load "tomatinho"
    '(progn
       (when (boundp 'tomatinho-bar-length)
         (setq tomatinho-bar-length 25))
       (when (boundp 'tomatinho-pomodoro-length)
         (setq tomatinho-pomodoro-length 25))           ; 25 分
       (defvar tomatinho-pomodoro-pause-length 5)       ;  5 分
       (defvar tomatinho-pomodoro-long-pause-length 20) ; 20 分

sluchin

;;; -*- mode: emacs-lisp; coding: utf-8; indent-tabs-mode: nil -*-
;;; Emacs 初期化ファイル

;;; バージョン
;; 2012-12-28
;; GNU Emacs 24.2.1 (i686-pc-linux-gnu, GTK+ Version 2.24.10)
;; 2012-11-27
;; GNU Emacs 23.3.1 (i686-pc-linux-gnu, GTK+ Version 2.24.10)

;;; 設定を読み込まない起動オプション

sluchin

  ;; (if (version< "24.0.0" emacs-version)
  ;;     (when (locate-library "notifications")
  ;;       (autoload 'notifications-notify "notifications" "Notify TITLE, BODY."))
  ;;   (when (locate-library "notify")
  ;;     (autoload 'notify "notify" "Notify TITLE, BODY.")))
  ;; bzr trunk の最新をコピー
  (autoload 'notifications-notify "notifications" "Notify TITLE, BODY.")

sluchin

;; 関数名表示をトグルする
(defun toggle-which-func-mode ()
  (interactive)
  (if which-function-mode
      (which-function-mode -1)
    (which-function-mode 1))
  (if which-function-mode
      (setq-default header-line-format
                    '(which-function-mode ("" which-func-format)))
    (setq-default header-line-format nil)))

sluchin

;;; sticky
(install-elisp-from-emacswiki "sticky.el")
(when (eval-and-compile (require 'sticky nil t))
  ;; 英語キーボード
  (when (fboundp 'use-sticky-key)
    (use-sticky-key (kbd "TAB") sticky-alist:en)))

sluchin

       ;; 個人辞書の文字コードを指定する
       ;(setq skk-jisyo-code 'utf-8)