;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;Emacs | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;load-path | |
(setq load-path (cons "~/.emacs.d/elisp" load-path)) | |
; | |
(setq scroll-step 1) | |
(cd "c:/programing/scheme/") | |
; 対応する括弧を表示する | |
(show-paren-mode t) | |
;起動するときに起動画面を表示しない | |
(setq inhibit-startup-message t) | |
; *.~ とかのバックアップファイルを作らない | |
(setq make-backup-files nil) | |
; .#* とかのバックアップファイルを作らない | |
(setq auto-save-default nil) | |
; ^H を バックスペースへ | |
(global-set-key "\C-h" 'delete-backward-char) | |
;fullscreen | |
(defun toggle-fullscreen () | |
(interactive) | |
(set-frame-parameter nil 'fullscreen | |
(if (frame-parameter nil 'fullscreen) | |
nil 'fullboth))) | |
(global-set-key | |
[f11] 'toggle-fullscreen) | |
; toolbar del | |
(tool-bar-mode nil) | |
;T-code | |
;(setq load-path (cons "~/emacs/lisp" load-path)) | |
;(require 'tc-setup) | |
;skk | |
(setq skk-jisyo "c:/Installed/Cygwin/usr/share/skk/SKK-JISYO.office.zipcode") | |
(setq skk-jisyo "c:/Installed/Cygwin/usr/share/skk/SKK-JISYO.zipcode") | |
(setq skk-large-jisyo "c:/Installed/Cygwin/usr/share/skk/SKK-JISYO.L") | |
;re-load | |
(global-set-key | |
[f12] 'eval-buffer) | |
;install-elisp | |
;(require 'install-elisp) | |
;(setq install-elisp-repository-directory "~/.emacs.d/") | |
;auto-install | |
;(require 'auto-install) | |
;(setq auto-install-directory "~/.emacs.d/elisp/auto-install.el") | |
;(setq auto-install-directory "c:\\Installed\\Cygwin\\home\1079\\.emacs.d\\elisp\\auto-install.el") | |
;(auto-install-update-emacswiki-package-name t) | |
;;anything:http://www24.atwiki.jp/anything/pages/1.html | |
;;http://www.emacswiki.org/cgi-bin/wiki/download/anything.el | |
;;http://www.emacswiki.org/cgi-bin/wiki/download/anything-config.el | |
;(require 'anything) | |
;(require 'anything-config) | |
;(add-to-list 'anything-sources 'anything-c-source-emacs-commands) | |
;(define-key global-map | |
; "\C-l" 'anything) | |
;;wb-line-number-toggle | |
;;http://homepage1.nifty.com/blankspace/emacs/wb-line-number.html | |
(require 'wb-line-number) | |
(wb-line-number-toggle) | |
;;goby | |
(add-to-list 'load-path "~/.emacs.d/elisp/Goby") | |
(load "goby") | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;org-mode | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;(add-to-list 'load-path "/usr/local/share/emacs/site-lisp") | |
;(add-to-list 'load-path "c:\\Installed\\Cygwin\\usr\\local\\share\\emacs\\site-lisp") | |
;(require 'org-install) | |
;(define-key global-map "\C-cl" 'org-store-link) | |
;(define-key global-map "\C-ca" 'org-agenda) | |
;(define-key global-map "\C-cr" 'org-remember) | |
;(add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) | |
;(add-hook 'org-mode-hook 'turn-on-font-lock) | |
;(setq org-log-done t) | |
;(setq org-hide-leading-stars t) | |
;(setq org-directory "~/home/1079/org/") | |
;(setq org-directory "c:\\Installed\\Cygwin\\home\1079\\org\\") | |
;(setq org-default-notes-file "notes.org") | |
;(custom-set-variables | |
;; custom-set-variables was added by Custom. | |
;; If you edit it by hand, you could mess it up, so be careful. | |
;; Your init file should contain only one such instance. | |
;; If there is more than one, they won't work right. | |
; '(org-agenda-files nil)) | |
;(custom-set-faces | |
;; custom-set-faces was added by Custom. | |
;; If you edit it by hand, you could mess it up, so be careful. | |
;; Your init file should contain only one such instance. | |
;; If there is more than one, they won't work right. | |
; ) | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;scheme | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;emacsでGauche | |
(setq process-coding-system-alist | |
(cons '("gosh" utf-8 . utf-8) process-coding-system-alist)) | |
;(setq scheme-program-name "/usr/local/bin/gosh -i") | |
(setq scheme-program-name "c:\\Installed\\Cygwin\\usr\\local\\bin\\gosh.exe -i") | |
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t) | |
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t) | |
; split window | |
(defun scheme-other-window () | |
"Run Gauche on other window" | |
(interactive) | |
(split-window-horizontally (/ (frame-width) 2)) | |
(let ((buf-name (buffer-name (current-buffer)))) | |
(scheme-mode) | |
(run-scheme scheme-program-name)) | |
;;ここを消さないとCygwin上のEmacsでわろす。 | |
; (switch-to-buffer-other-window | |
; (get-buffer-create "*scheme*")) | |
(switch-to-buffer-other-window | |
(get-buffer-create buf-name)) | |
) | |
(define-key global-map | |
"\C-cG" 'scheme-other-window) | |
;;swap screen | |
(defun swap-screen() | |
"Swap two screen,leaving cursor at current window." | |
(interactive) | |
(let ((thiswin (selected-window)) | |
(nextbuf (window-buffer (next-window)))) | |
(set-window-buffer (next-window) (window-buffer)) | |
(set-window-buffer thiswin nextbuf))) | |
(defun swap-screen-with-cursor() | |
"Swap two screen,with cursor in same buffer." | |
(interactive) | |
(let ((thiswin (selected-window)) | |
(thisbuf (window-buffer))) | |
(other-window 1) | |
(set-window-buffer thiswin (window-buffer)) | |
(set-window-buffer (selected-window) thisbuf))) | |
(global-set-key [f2] 'swap-screen) | |
(global-set-key [S-f2] 'swap-screen-with-cursor) | |
;;emacs-inertial-scroll | |
(require 'inertial-scroll) | |
(setq inertias-global-minor-mode-map | |
(inertias-define-keymap | |
'( | |
("<next>" . inertias-up) | |
("<prior>" . inertias-down) | |
("C-v" . inertias-up) | |
("M-v" . inertias-down) | |
) inertias-prefix-key)) | |
(inertias-global-minor-mode 1) | |
(setq inertias-initial-velocity 50) ; 初速(大きいほど一気にスクロールする) | |
(setq inertias-friction 120) ; 摩擦抵抗(大きいほどすぐ止まる) | |
(setq inertias-rest-coef 1.0) ; 画面端でのバウンド量(0はバウンドしない。1.0で弾性反発) | |
(setq inertias-update-time 60) ; 画面描画のwait時間(msec) | |
(put 'downcase-region 'disabled nil) | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;Emacs Window Edit | |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
;;カーソル行ハイライト | |
(defface hlline-face | |
'((((class color) | |
(background dark)) | |
(:background "dark slate gray")) | |
(((class color) | |
(background light)) | |
(:background "OliveDrab1")) | |
(t | |
())) | |
"*Face used by hl-line.") | |
(setq hl-line-face 'hlline-face) | |
;; (setq hl-line-face 'underline) ; 下線 | |
(global-hl-line-mode) | |
;;alpha | |
(add-to-list 'default-frame-alist '(alpha . 50)) | |
;;Window | |
(if window-system | |
(progn | |
;; 文字の色を設定します。 | |
(add-to-list 'default-frame-alist '(foreground-color . "VioletRed1")) | |
;; 背景色を設定します。 | |
(add-to-list 'default-frame-alist '(background-color . "black")) | |
;; カーソルの色を設定します。 | |
(add-to-list 'default-frame-alist '(cursor-color . "snow")) | |
;; マウスポインタの色を設定します。 | |
; (add-to-list 'default-frame-alist '(mouse-color . "SlateBlue2")) | |
;; モードラインの文字の色を設定します。 | |
; (set-face-foreground 'modeline "white") | |
;; モードラインの背景色を設定します。 | |
; (set-face-background 'modeline "MediumPurple2") | |
;; 選択中のリージョンの色を設定します。 | |
; (set-face-background 'region "LightSteelBlue1") | |
;; モードライン(アクティブでないバッファ)の文字色を設定します。 | |
; (set-face-foreground 'mode-line-inactive "gray30") | |
;; モードライン(アクティブでないバッファ)の背景色を設定します。 | |
; (set-face-background 'mode-line-inactive "gray85") | |
)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment