10sr
/
dotfiles-mirror
ミラー元 https://github.com/10sr/dotfiles.git
1
0
フォーク 0
コード 課題 0 リリース 0 Wiki アクティビティ
ソースを参照

Supress some warnings

pull/5/head
10sr 9年前
親
2685e9ad83
コミット
c35ff8cb2f
2個のファイルの変更、86行の追加、66行の削除
分割表示
差分オプション
統計情報を表示 Patchファイルをダウンロード Diffファイルをダウンロード
  1. +5
    -0
      Makefile
  2. +81
    -66
      emacs.el

+ 5
- 0
Makefile ファイルの表示

@@ -395,3 +395,8 @@ sexp_elisp_syntax_check := \
$(test_syntax_els): test-syntax-%: $(dotfiles_dir)/%
$(emacs) -Q --debug-init --batch \
--eval '(let ((file "$<")) $(sexp_elisp_syntax_check))' --kill



run-emacs:
$(emacs) -nw

+ 81
- 66
emacs.el ファイルの表示

@@ -33,11 +33,13 @@
(defmacro defvar-set (symbol value &optional docstring)
"Define SYMBOL as a variable and set to VALUE.

Variable will be defined with DOCSTRING."
`(set (defvar ,symbol
nil
,(or docstring
(symbol-name symbol)))
Variable will be defined with DOCSTRING if given, otherwise do not set even
VALUE when defining SYMBOL."
`(set (if ,docstring
(defvar ,symbol
nil
,docstring)
(defvar ,symbol))
,value))

(defmacro safe-require-or-eval (feature)
@@ -362,8 +364,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(expand-file-name "~/dbx/apps/bin"))

(when window-system
(setq w32-enable-synthesized-fonts t))
(setq w32-apps-modifier 'meta)
(defvar-set w32-enable-synthesized-fonts t))
(defvar-set w32-apps-modifier 'meta)
(setq file-name-coding-system 'sjis))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -403,9 +405,9 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; if TERM is not screen use default value
(if (getenv "TMUX")
;; if use tmux locally just basename of current dir
(setq terminal-title-format
'((file-name-nondirectory (directory-file-name
default-directory))))
(defvar-set terminal-title-format
'((file-name-nondirectory (directory-file-name
default-directory))))
(if (and (let ((tty-type (frame-parameter nil
'tty-type)))
(and tty-type
@@ -413,18 +415,18 @@ IF OK-IF-ALREADY-EXISTS is true force download."
"-"))
"screen")))
(not (getenv "SSH_CONNECTION")))
(setq terminal-title-format
'((file-name-nondirectory (directory-file-name
default-directory))))
(defvar-set terminal-title-format
'((file-name-nondirectory (directory-file-name
default-directory))))
;; seems that TMUX is used locally and ssh to remote host
(setq terminal-title-format
`("em:"
,user-login-name
"@"
,(car (split-string system-name
"\\."))
":"
default-directory))
(defvar-set terminal-title-format
`("em:"
,user-login-name
"@"
,(car (split-string system-name
"\\."))
":"
default-directory))
)
)
(terminal-title-mode))
@@ -633,8 +635,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(defvar-set hl-line-face 'my-hl-line) ;; (setq hl-line-face nil)
(global-hl-line-mode 1) ;; (hl-line-mode 1)
(defvar-set hl-line-global-modes
'(not
term-mode))
'(not
term-mode))

(set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
(set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
@@ -727,6 +729,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
"bmk"))
(add-hook 'recentf-load-hook
(lambda ()
(defvar recentf-exclude)
(add-to-list 'recentf-exclude
(regexp-quote bookmark-default-file))))

@@ -822,7 +825,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(when (safe-require-or-eval 'scim-bridge)
;; Turn on scim-mode automatically after loading .emacs
(add-hook 'after-init-hook 'scim-mode-on)
(setq scim-cursor-color "red")
(defvar-set scim-cursor-color "red")
(scim-define-preedit-key ?\^h t)
(scim-define-common-key ?\* nil)
(scim-define-common-key ?\^/ nil)))
@@ -835,7 +838,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(kbd "<muhenkan>") (lambda () (interactive) (anthy-mode-off)))
(global-set-key (kbd "<henkan>") (lambda () (interactive) (anthy-mode-on)))
(when (>= emacs-major-version 23)
(setq anthy-accept-timeout 1))))
(defvar-set anthy-accept-timeout 1))))

;; quail
;; aproposs input-method for some information
@@ -843,8 +846,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(defun my-load-mozc-el ()
"Use mozc.el as japanese im."
(when (safe-require-or-eval 'mozc)
(setq defauit-input-method "japanese-mozc")
(setq mozc-leim-title "[MZ]")
(defvar-set defauit-input-method "japanese-mozc")
(defvar-set mozc-leim-title "[MZ]")
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1127,9 +1130,9 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(add-hook 'sh-mode-hook
(lambda ()
(local-set-key
(kbd "C-x C-e")
'my-execute-shell-command-current-line)))
(setq sh-here-document-word "__EOC__")
(kbd "C-x C-e")
'my-execute-shell-command-current-line)))
(defvar-set sh-here-document-word "__EOC__")

(defun my-execute-shell-command-current-line ()
"Run current line as shell command."
@@ -1216,6 +1219,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; http://seesaawiki.jp/whiteflare503/d/Emacs%20%a5%a4%a5%f3%a5%c7%a5%f3%a5%c8
(when (autoload-eval-lazily 'cc-vars
nil
(defvar c-default-style)
(add-to-list 'c-default-style
'(c-mode . "k&r"))
(add-to-list 'c-default-style
@@ -1223,8 +1227,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(add-hook 'c-mode-common-hook
(lambda ()
;; why c-basic-offset in k&r style defaults to 5 ???
(setq c-basic-offset 4
indent-tabs-mode nil)
(defvar-set c-basic-offset 4)
(defvar-set indent-tabs-mode nil)
;; (set-face-foreground 'font-lock-keyword-face "blue")
(c-toggle-hungry-state -1)
;; (and (require 'gtags nil t)
@@ -1255,7 +1259,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
)))

(eval-after-load "js"
(setq js-indent-level 2))
(defvar-set js-indent-level 2))

(add-to-list 'interpreter-mode-alist
'("node" . js-mode))
@@ -1277,6 +1281,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."

(add-hook 'view-mode-hook
(lambda()
(defvar view-mode-map)
(define-key view-mode-map "j" 'scroll-up-line)
(define-key view-mode-map "k" 'scroll-down-line)
(define-key view-mode-map "v" 'toggle-read-only)
@@ -1312,11 +1317,11 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(lambda ()
(view-mode 1)
(setq truncate-lines nil)))
(setq Man-notify-method (if window-system
'newframe
'aggressive))
(defvar-set Man-notify-method (if window-system
'newframe
'aggressive))

(setq woman-cache-filename (expand-file-name (concat user-emacs-directory
(defvar-set woman-cache-filename (expand-file-name (concat user-emacs-directory
"woman_cache.el")))
(defalias 'man 'woman)

@@ -1324,8 +1329,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; python

(when (autoload-eval-lazily 'python '(python-mode))
(setq python-python-command (or (executable-find "python3")
(executable-find "python")))
(defvar-set python-python-command (or (executable-find "python3")
(executable-find "python")))
;; (defun my-python-run-as-command ()
;; ""
;; (interactive)
@@ -1333,6 +1338,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(defun my-python-display-python-buffer ()
""
(interactive)
(defvar python-buffer)
(set-window-text-height (display-buffer python-buffer
t)
7))
@@ -1404,11 +1410,13 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; (setq term-ansi-default-program shell-file-name)
(add-hook 'term-setup-hook
(lambda ()
(setq term-display-table (make-display-table))))
(defvar-set term-display-table (make-display-table))))
(add-hook 'term-mode-hook
(lambda ()
(defvar term-raw-map)
(unless (memq (current-buffer)
(and (featurep 'multi-term)
(defvar multi-term-buffer-list)
;; current buffer is not multi-term buffer
multi-term-buffer-list))
;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
@@ -1448,7 +1456,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; (local-unset-key (kbd "C-c")))
;; (define-key cua--prefix-override-keymap
;;"\C-c" 'term-interrupt-subjob)
(set (make-local-variable 'hl-line-range-function)
(set (make-local-variable (defvar hl-line-range-function))
(lambda ()
'(0 . 0)))
))
@@ -1458,6 +1466,7 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; buffer switching

(defvar bs-configurations)
(when (autoload-eval-lazily 'bs '(bs-show)
;; (add-to-list 'bs-configurations
;; '("processes" nil get-buffer-process ".*" nil nil))
@@ -1477,8 +1486,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
)
;; (global-set-key "\C-x\C-b" 'bs-show)
(defalias 'list-buffers 'bs-show)
(setq bs-default-configuration "files-and-terminals")
(setq bs-default-sort-name "by nothing")
(defvar-set bs-default-configuration "files-and-terminals")
(defvar-set bs-default-sort-name "by nothing")
(add-hook 'bs-mode-hook
(lambda ()
;; (setq bs-default-configuration "files")
@@ -1846,7 +1855,7 @@ the list."
(if (file-executable-p file)
(start-process file nil file)
(when (y-or-n-p
"this file cant be executed. mark as executable and go? : ")
"This file cant be executed. Mark as executable and go? ")
(set-file-modes file
(file-modes-symbolic-to-number "u+x" (file-modes file)))
(start-process file nil file)))))
@@ -1867,7 +1876,7 @@ the list."
(put 'dired-find-alternate-file 'disabled nil)
;; when using dired-find-alternate-file
;; reuse current dired buffer for the file to open
(setq dired-ls-F-marks-symlinks t)
(defvar-set dired-ls-F-marks-symlinks t)

(when (safe-require-or-eval 'ls-lisp)
(setq ls-lisp-use-insert-directory-program nil) ; always use ls-lisp
@@ -1877,9 +1886,9 @@ the list."
'("%Y-%m-%d %H:%M"
"%Y-%m-%d ")))

(setq dired-dwim-target t)
(setq dired-hide-details-hide-symlink-targets nil)
(setq dired-hide-details-hide-information-lines nil)
(defvar-set dired-dwim-target t)
(defvar-set dired-hide-details-hide-symlink-targets nil)
(defvar-set dired-hide-details-hide-information-lines nil)

;; (add-hook 'dired-after-readin-hook
;; 'my-replace-nasi-none)
@@ -1925,8 +1934,8 @@ the list."
(dired-hide-details-mode t)
(local-set-key "l" 'dired-hide-details-mode))
(let ((file "._Icon\015"))
(when nil (file-readable-p file)
(delete-file file)))))
(when nil (file-readable-p file)
(delete-file file)))))

(and (fetch-library "https://raw.github.com/10sr/emacs-lisp/master/pack.el"
t)
@@ -1948,6 +1957,7 @@ the list."

;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html

(defvar dired-marker-char)
(defun my-dired-toggle-mark()
(let ((cur (cond ((eq (following-char) dired-marker-char) ?\040)
(t dired-marker-char))))
@@ -1987,7 +1997,7 @@ Optional prefix ARG says how many lines to unflag; default is one line."

(autoload-eval-lazily 'eshell nil

(setq eshell-banner-message (format "Welcome to the Emacs shell
(defvar-set eshell-banner-message (format "Welcome to the Emacs shell
%s
C-x t to toggling emacs-text-mode

@@ -2142,20 +2152,21 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(setq eshell-history-index nil))
ad-do-it))

(setq eshell-directory-name (concat user-emacs-directory
"eshell/"))
(setq eshell-term-name "eterm-color")
(setq eshell-scroll-to-bottom-on-input t)
(setq eshell-cmpl-ignore-case t)
(setq eshell-cmpl-cycle-completions nil)
(setq eshell-highlight-prompt nil)
(setq eshell-ls-initial-args '("-hCFG"
"--color=auto"
"--time-style=long-iso")) ; "-hF")

(setq eshell-prompt-function
'my-eshell-prompt-function)

(defvar-set eshell-directory-name (concat user-emacs-directory
"eshell/"))
(defvar-set eshell-term-name "eterm-color")
(defvar-set eshell-scroll-to-bottom-on-input t)
(defvar-set eshell-cmpl-ignore-case t)
(defvar-set eshell-cmpl-cycle-completions nil)
(defvar-set eshell-highlight-prompt nil)
(defvar-set eshell-ls-initial-args '("-hCFG"
"--color=auto"
"--time-style=long-iso")) ; "-hF")

(defvar-set eshell-prompt-function
'my-eshell-prompt-function)

(defvar eshell-last-command-status)
(defun my-eshell-prompt-function()
"Prompt function.

@@ -2224,9 +2235,10 @@ It looks like:
;; (eshell/export "GIT_EDITOR=")
(eshell/export "LC_MESSAGES=C")
(switch-to-buffer (current-buffer)) ; move buffer top of list
(set (make-local-variable 'hl-line-range-function)
(set (make-local-variable (defvar hl-line-range-function))
(lambda ()
'(0 . 0)))
(defvar eshell-virtual-targets)
(add-to-list 'eshell-virtual-targets
'("/dev/less"
(lambda (str)
@@ -2237,6 +2249,9 @@ It looks like:

(add-hook 'eshell-mode-hook
(lambda ()
(defvar eshell-visual-commands)
(defvar eshell-output-filter-functions)
(defvar eshell-command-aliases-list)
(add-to-list 'eshell-visual-commands "vim")
;; (add-to-list 'eshell-visual-commands "git")
(add-to-list 'eshell-output-filter-functions


書き込み プレビュー
読み込み中…
キャンセル
保存