🚀 go-pugleaf

This is a multi-part message in MIME format.
--------------C8C363BE2C2F8FC90C0436AA
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

$BF|86!w%d%^%O$H?=$7$^$9!#(B

UNUX USER9$B7n9f(B $B$N5-;v(B $B!X(BWindows$B$G$b(BUNIX$B$r;H$$$?$$!Y$rFI$s$G!":#!"3+H/(B
$B4D6-$r:n$C$F$$$k$H$3$m$J$N$G$9$,!#!#!#(B

$B$I$&$K$b2r7h$G$-$J$$;v$,$"$j$^$7$F!">/$7AjCL$K>h$C$FD:$1$J$$$G$7$g$&$+!)(B

(set-language-environment "Japanese")

$B$H$=$l$KB3$/ItJ,$r5-=R$7$^$9$H!"(B

(global-set-key "\e,"	'buffer-menu)
(global-set-key "\e-"	'other-window)

$B$H$$$C$?!"(BESC $B%-!<$r%;%C%H$9$k;v$,=PMh$J$/$J$k$N$G$9!#(B
mule for Win32 $B$d(B UNIX $B>e$N(B Mule2.3 $B$G$OL^O@$A$c$s$HF0$$$F$$$^$9!#(B
$B:G$b:$$k$N$O!"(B vip-mode $B$G(B ESC $B$,$^$C$?$/8z$+$J$$$N$G$9!#(B
$BF|K\8l$r<N$F$l$P!"(Bvip-mode $B$bLdBj$J$/;H$($^$9!#(B

$BITm?$G$O$"$j$^$9$,!"$3$N8=>]$K$D$$$F$4B8CN$G$7$?$i%]%$%s%?$G7k9=$G$9$N$G(B
$B65$($FD:$1$J$$$G$7$g$&$+!)(B

.emacs $B$rE:IU$7$^$9!#(B

----
Naohiro Hihara  hihara-n@post.yamaha.co.jp
--------------C8C363BE2C2F8FC90C0436AA
Content-Type: text/plain; charset=iso-2022-jp; name=".emacs"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline; filename=".emacs"

;; .emacs
;; Windows$B4D6-$N(Bemacs$B@_Dj!J(BMeadow$BBP>]!K(B
;; $Revision$ $Date$
;; $Author$
;
(setq load-path (cons (expand-file-name "c:/home/lisp") load-path))
(setq load-path (cons (expand-file-name "c:/home/lisp/cc-mode-5.25") load-path))
(setq load-path (cons (expand-file-name "c:/home/lisp/jde-2.1.5") load-path))
(setq load-path (cons (expand-file-name "c:/Meadow/1.00/lisp") load-path))

;(load "japanese")
(load "vip")
(load "cc-mode")

;; Japanese environment
(set-language-environment "Japanese")
(set-default-coding-systems 'sjis)
(set-keyboard-coding-system 'sjis)
(set-terminal-coding-system 'sjis)
(setq file-name-coding-system 'sjis)
(set-clipboard-coding-system 'sjis-dos)
(set-w32-system-coding-system 'sjis-dos)
(set-buffer-file-coding-system 'sjis-dos)
(setq network-coding-system-alist '(("nntp" . (junet-unix . junet-unix))
				    (110 . (no-conversion . no-conversion))
				    (25 . (no-conversion . no-conversion))))

;;; ime 
(select-input-method "MW32-IME")
(toggle-input-method)
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[$B$"(B]" "[--]"))
(mw32-ime-initialize)

;
;; SHELL$B$N@_Dj(B
;;(DOS$B%3%^%s%I%7%'%k$N>l9g!K(B
;(setq shell-file-name "command.com")
;(setq shell-command-switch "\\/c")
;
;; SHELL$B$N@_Dj(B(bash)
(setq shell-file-name "bash")
(setenv "SHELL" shell-file-name)
(setq explicit-shell-file-name shell-file-name)
(setq explicit-sh-args '("-login" "-i"))
(setq shell-command-switch "-c")
(setq win32-quote-process-args t)

;; screen setting
;  font
;(load "fixedsys-font.el")
;(load "terminal-font.el")
;(set-default-font "fixedsys-fontset")
;(set-default-font "terminal-fontset")

;  color
(set-foreground-color "black")
(set-background-color "AntiqueWhite")
(set-cursor-color "DarkGreen")
(set-border-color "black")

;;;;; font-lock $B$N@_Dj(B
(global-font-lock-mode t)

; frame size
(setq default-frame-alist
      (append (list '(width . 100)
		    '(height . 45)
		    '(left . 0)
		    '(top  . 0)
;                    '(font . "fixedsys-fontset")
;                    '(font . "terminal-fontset")
                    '(font . "default-fontset")
		    )
	      default-frame-alist))

;----------------------
;; Java mode setting
;  JDE loading
(require 'jde)

(fmakunbound 'c-mode)
(makunbound  'c-mode-map)
(fmakunbound 'c++-mode)
(makunbound  'c++-mode-map)
(makunbound  'c-style-alist)
(setq auto-mode-alist
      (append
       '(("\\.C$"    . c++-mode)
	 ("\\.H$"    . c++-mode)
	 ("\\.cc$"   . c++-mode)
	 ("\\.hh$"   . c++-mode)
	 ("\\.c$"    . c-mode)
	 ("\\.h$"    . c-mode)
	 ("\\.m$"    . objc-mode)
	 ("\\.java$" . java-mode)
	 ) auto-mode-alist))

(autoload 'c++-mode  "cc-mode" "C++ Editing Mode" t)
(autoload 'c-mode    "cc-mode" "C Editing Mode" t)
(autoload 'objc-mode "cc-mode" "Objective-C Editing Mode" t)
(autoload 'java-mode "cc-mode" "Java Editing Mode" t)

;;;;; java-compile $B$N@_Dj(B
;(load "java-compile")

;;;;; java style
;(c-add-style "jaba2"
;	     '((c-basic-offset . 4)
;	       (c-offset-alist .
;			       ((statement-block-intro . +)
;				(knr-argdecl-intro . 5)
;				(substatement-open . +)
;				(label . 0)
;				(statement-case-open . +)
;				(statement-cont . +)
;				(arglist-intro . +)
;				(arglist-close . 0)
;				(access-label . 0)))))
; style add to java-mode
;(setq java-mode-hook
;      (function (lambda ()
;		  (c-set-style "jaba2"))))
;(setq java-mode-hook
;      '(lambda ()
;         (cond (window-system
;               (load-library "hilit-java")))))

;       C & C++ Mode
(setq c-mode-hook
      '(lambda ()
	 (let () (define-key c-mode-map "{" 'elec-c-par))
	 (font-lock-mode 1)	; for font-lock
	 (setq c-auto-newline nil)
	 (setq c-tab-always-indent nil)
	 ;;
	 (setq c-brace-offset 0)			; { indent
	 (setq c-indent-level 2)			; { <NL> Statement indent
	 (setq c-continued-statement-offset 2)	; if () <NL> Statements indent
	 (setq c-brace-imaginary-offset 0)	; if () { <NL> Statements indent
	 (setq c-argdecl-indent 4)		; argument(parameter) indent
	 (setq c-label-offset -2)		; switch(){ case x:} indent
	 ))

(defun elec-c-par ()
  " Insert { and } after 2 line and back line "
  (interactive)
  (insert "{")
  (c-indent-line)
  (newline)
  (newline)
  (insert "}")
  (c-indent-line)
  (previous-line 1)
  (c-indent-line))

(setq c++-mode-hook
      '(lambda ()
	 (font-lock-mode 1)	; for font-lock
	 (local-set-key "\C-c>" 'indent-region)
	 (setq c-tab-always-indent nil)
	 (setq c-indent-level 4)
	 (setq c-argdecl-indent 0)
	 (setq c-brace-offset 0)
	 (setq c-label-offset -4)
	 (setq comment-column 4)
	 (setq comment-multi-line t)
	 (setq c-continued-statement-offset 4)
	 ))


(modify-syntax-entry ?: "." c-mode-syntax-table)

;;; for HTML
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.htm$" . html-helper-mode) auto-mode-alist))
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
(setq html-helper-mode-hook 'turn-on-auto-fill)
(defvar html-helper-new-buffer-template
  '("<HTML>\n<HEAD>\n<TITLE>" p "</TITLE>\n</HEAD>\n"
    "<BODY BGCOLOR=\"#0F0F0F\">\n"
    "<H1>" p "</H1>\n"
    "\n<HR>\n"
    "<ADDRESS><CENTER>\n"
    "<A HREF=\"mailto:Youji.Yamashita@plexus.co.jp\">"
    "Youji.Yamashita@plexus.co.jp</A>\n<P>\n"
    "</ADDRESS>\n"
    "<FONT COLOR=\"#ffffff\" SIZE=-1>Copyright (C) PLEXUS Corp.</FONT>\n"
    html-helper-timestamp-start
    html-helper-timestamp-end
    "\n</CENTER>"
    "\n</BODY>\n</HTML>\n")
  "*Template for new buffers, inserted by html-helper-insert-new-buffer-strings if html-helper-build-new-buffer is set to t" )

;(setq debug-on-error t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;	GNUS$B$N@_Dj(B
;;
;
;(load "gnus_load")
; GNUS $BMQ$N@_Dj$r9T$$$^$9!#(B
; $BCm(B:$BI,$:3F%5%$%HMQ$N@_Dj$K=q$-D>$7$F$/$@$5$$!#(B
(setq gnus-nntp-server "news")
;(autoload 'gnus "gnus" "Read network news." t)
;(autoload 'gnus-post-news "gnuspost" "Post a new news." t)
;(setq gnus-local-domain "post.yamaha.co.jp")
;(setq gnus-nntp-service "nntp")
;(setq gnus-use-generic-from t)
;(setq gnus-local-time-zone "JST")

;;--------------------------
;; local key bindings
;;--------------------------

;; Del as delete
(cond (window-system
	   (global-set-key [delete] 'delete-char)))

;;
;;  Function-keys mapping
;;
(global-set-key [f1] 	'undo)			;; F1  $B%"%s%I%%(B
(global-set-key [f2]	'split-window-vertically)
						;; F2  $B%9%W%j%C%H(B
;;(global-set-key [f3] 	'toggle-egg-mode)	;; F3  $B%(%C%0%b!<%I!JF|K\8lF~NO!K$N@ZBX$((B
(global-set-key [f4]	'special-symbol-input)	;; F4  $B5-9fF~NO(B
(global-set-key [f5]	'set-mark-command)	;; F5  $B%^!<%/$N%;%C%H(B
(global-set-key [f6]	'kill-region)		;; F6  $B%+%C%H(B
(global-set-key [f7]	'copy-region-as-kill)	;; F7  $B%3%T!<(B
(global-set-key [f8] 	'yank)			;; F8  $B%Z!<%9%H(B
;;(global-set-key [f9]	'zenkaku-word)		;; F9  $BA43QJQ49(B
(global-set-key [f10]	'goto-line)	        ;; F10 $B%8%c%s%W(B
(global-set-key [f11]	'nil)			;; F11
(global-set-key [f12]	'other-window)		;; F12 other-window

;;(global-set-key [f1] 'find-file)			;F1 : 	"Open"
;;(global-set-key [f2] 'switch-to-buffer)		;F2 : 	"Switch"
;;(global-set-key [f2] 'select-buffer)			;F2 : 	"Switch"
;;(global-set-key [f3] 'bookmark-jump)			;F3 : 	"Jump"
;;(global-set-key [f4] 'split-window-vertically)	;F4 : 	"Split"
;;(global-set-key [f5] 'set-mark-command)		;F5 : 	"Select"
;;(global-set-key [f6] 'kill-region)			;F6 : 	"Cut"
;;(global-set-key [f6] 'kill-region-to-clipboard)	;F6 : 	"Cut"
;;(global-set-key [f7] 'kill-ring-save)			;F7 : 	"Copy"
;;(global-set-key [f7] 'copy-region-to-clipboard)	;F7 : 	"Copy"
;;(global-set-key [f8] 'yank)				;F8 : 	"Paste"
;;(global-set-key [f8] 'yank-from-clipboard)		;F8 : 	"Paste"
;;(global-set-key [f9] 'find-tag)			;F9 : 	"Tag jump"
;;(global-set-key [f10] 'tags-apropos)			;F10 : 	"Tags apropos"
;;(global-set-key [f11] 'marked-find-tag)		;F11 : 	"Tag jump with PTR(p)[kbd-macro]"
;;(global-set-key [f12] 'other-window)
;;;;; shift + ;;;
;;(global-set-key [S-f1] 'find-file-read-only)	;s-F1 : "Open read only"
;;(global-set-key [S-f2] 'buffer-menu)			;s-F2 : "Buffur menu"
;;(global-set-key [S-f3] 'bookmark-set)			;s-F3 : "Mark"
;;(global-set-key [S-f4] 'delete-other-windows)	;s-F4 : "One window"
;;(global-set-key [S-f5] 'duplicate-line)			;s-F5 : "Duplicate line"
;;(global-set-key [S-f6] 'kill-rectangle)			;s-F6 : "Rect Cut"
;;(global-set-key [S-f7] 'clear-rectangle)		;s-F7 : "Rect Clear"
;;(global-set-key [S-f8] 'yank-rectangle)			;s-F8 : "Rect paste"
;;(global-set-key [S-f9] 'tags-search)			;s-F9 : "Tag-search"
;;(global-set-key [S-f11] 'tags-search)			;s-F11: "Tag-search"
;;(global-set-key [S-f12] 'other-frame)
;;;;; ctrl + ;;;
;;(global-set-key [C-f4] 'make-frame)				;c-F4 :   "Make Frame"
;;(global-set-key [C-S-f4] 'delete-frame)			;c-s-F4 : "Delete Frame"
;;;;
;;
;; Pause Key (for Undo)
;;
(global-set-key [pause] 'advertised-undo)
;;(global-set-key [scroll] 'advertised-undo)
;;(global-set-key [pause] 'other-window)
;;
;; Home & End key (rebind to C-a & C-e)
;;
(global-set-key [home]   'buffer-menu)
(global-set-key [end]    'other-window)
(global-set-key [S-home] 'beginning-of-buffer)
(global-set-key [S-end]  'end-of-buffer)
(global-set-key [C-home] 'beginning-of-line)
(global-set-key [C-end]  'end-of-line)
;;
;; Arrow Key
;;
(global-set-key [M-up] 'backward-list)
(global-set-key "\C-]" 'backward-list) ;; for VC++2.0 synonym/default quail-mode
(global-set-key [M-down] 'forward-list)
(global-set-key [M-left] 'backward-sexp)
(global-set-key [M-right] 'forward-sexp)
(global-set-key [C-up] 'previous-line)
(global-set-key [C-down] 'next-line)
(global-set-key [C-left] 'backward-char)
(global-set-key [C-right] 'forward-char)
;;
;; Tag operations
;;
;(global-set-key [C-kp-multiply] 'back-to-previous-point)	;; kp-*; for VC++2.0 synonym
;(global-set-key [C-kp-subtract] 'find-previous-tag)			;; kp--
;(global-set-key [C-kp-add] 'find-next-tag)					;; kp-+

;;
;; user define
;;
(global-set-key "\e,"	'buffer-menu)
(global-set-key "\e-"	'other-window)
(global-set-key "\e
"	'compile)
(global-set-key "\C-xn"	'gnus)		;$B%K%e!<%9$rFI$`(B
(global-set-key "\C-xr"	'mh-rmail)	;$B%a!<%k$rFI$`(B
(global-set-key "\C-xs"	'mh-smail)	;$B%a!<%k$r=P$9(B
(global-set-key "\C-xv"	'vip-mode)	;vi-mode
(global-set-key "\C-xw"	'gnus-summary-save-article)
					;$B%K%e!<%9$r%U%!%$%k$KJ]B8$9$k(B
(global-set-key "\C-xk"	'kill-buffer)	;$B6/@)=*N;(B
(global-set-key "\C-x3"	'split-window-horizontally)
(global-set-key "\C-x\C-q"	'toggle-read-only)

;;
;; Help map
;;
;;(setq-default help-char ?\C-\\)
(define-key help-map "y" 'list-kill-ring)
(define-key help-map "C" 'make-command-summary)
(define-key help-map "A" 'apropos)
(define-key help-map "K" 'list-coding-system)
(define-key help-map "u" 'unix-apropos)
(define-key help-map "U" 'manual-entry)

;;-------------------
;;  Variable setting
;;-------------------

;; case $BC5:w!JCV49!K;~$NBgJ8;z$H>.J8;z$N6hJL$r!P$9$k(B|$B$7$J$$!Q(B(nil|t)
(setq-default case-fold-search	nil)

;; hard TAB width ;;
(setq-default tab-width 8)

;; tab stop position (for tab-to-tab-stop) ;;
(setq-default tab-stop-list (list 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120))

;; for compilation
(setq compile-command "cd c:/prg0116/ref/ServLay/NaviDB/DIP/DGIP/gen/; nmake -f dgip.mak")

;; $B5/F0;~$N%G%U%)%k%H%G%#%l%/%H%j$r(BHOME$B$X0\F0(B
(cd "~/")

--------------C8C363BE2C2F8FC90C0436AA--