この文書の現在のバージョンと選択したバージョンの差分を表示します。
Both sides previous revision Previous revision Next revision | Previous revision | ||
cygwin [2009/08/20 16:01] 130.54.130.236 |
cygwin [2009/08/24 16:21] (現在) 10.249.204.157 |
||
---|---|---|---|
ライン 122: | ライン 122: | ||
Liblaryパスを通すなり、一緒にコンパイルするなりして使う。 | Liblaryパスを通すなり、一緒にコンパイルするなりして使う。 | ||
+ | ===== pgplot ===== | ||
+ | 書きかけ | ||
+ | <code bash> | ||
+ | #!/usr/bin/sh | ||
+ | g77 #1 /usr/local/pgplot/libpgplot.a -X11 -Xm | ||
+ | </code> | ||
+ | |||
+ | ===== .emacs.el ===== | ||
+ | <code lisp> | ||
+ | ;;; -*- mode: emacs-lisp; syntax: elisp -*- | ||
+ | ;;; | ||
+ | ;;; .emacs.el | ||
+ | ;;; | ||
+ | |||
+ | (setenv "LANG" "C") | ||
+ | (setenv "TZ" "JST-9") | ||
+ | (setenv "RCSINIT" "-z+09:00") | ||
+ | |||
+ | ;;; cygwin "df" always checks the floppy drives, which is annoying | ||
+ | ;;; in the dired mode. | ||
+ | |||
+ | (setq directory-free-space-program nil) | ||
+ | |||
+ | ;;; misc settings | ||
+ | |||
+ | (setq tooltip-use-echo-area t) | ||
+ | (blink-cursor-mode nil) | ||
+ | (tool-bar-mode 0) | ||
+ | (menu-bar-mode 0) | ||
+ | (setq next-line-add-newlines t) | ||
+ | (setq ls-lisp-dirs-first t) | ||
+ | (setq resize-mini-windows nil) | ||
+ | (setq cursor-in-non-selected-windows nil) | ||
+ | (auto-image-file-mode) | ||
+ | (setq-default line-spacing 0) | ||
+ | (scroll-bar-mode nil) | ||
+ | (setq default-frame-alist | ||
+ | (cons '(cursor-type . box) default-frame-alist)) | ||
+ | (setq visible-bell t) | ||
+ | |||
+ | ;;; font-lock-mode | ||
+ | |||
+ | (setq default-frame-alist | ||
+ | (append '((font . "fontset-12")) default-frame-alist)) | ||
+ | (global-font-lock-mode t) | ||
+ | |||
+ | ;;;;;; japanese environment (input method, encoding, and fonts) | ||
+ | ;;; | ||
+ | ;;;(set-language-environment "Japanese") | ||
+ | ;;;(set-default-coding-systems 'sjis) | ||
+ | ;;;(set-keyboard-coding-system 'sjis) | ||
+ | ;;;(set-terminal-coding-system 'sjis) | ||
+ | ;;;(setq network-coding-system-alist | ||
+ | ;;; '(("nntp" . (junet-unix . junet-unix)) | ||
+ | ;;; (110 . (no-conversion . no-conversion)) | ||
+ | ;;; (25 . (no-conversion . no-conversion)))) | ||
+ | ;;; | ||
+ | ;;;;;; no need for mule-ucs! | ||
+ | ;;; | ||
+ | ;;;(utf-translate-cjk-mode 1) | ||
+ | ;;; | ||
+ | ;;;;;; ime | ||
+ | ;;; | ||
+ | ;;;(if (not (null window-system)) | ||
+ | ;;; (progn | ||
+ | ;;; (setq default-input-method "japanese-egg-canna") | ||
+ | ;;; (setq canna-hostname "localhost") | ||
+ | ;;; (setq its-hira-comma ",") | ||
+ | ;;; (setq its-hira-period "。") | ||
+ | ;;; (load-library "egg"))) | ||
+ | ;;; | ||
+ | ;;;;;; shell | ||
+ | |||
+ | (setq exec-path | ||
+ | (mapcar | ||
+ | 'expand-file-name | ||
+ | (list | ||
+ | "~/bin" | ||
+ | "/usr/local/bin" | ||
+ | "/usr/bin" | ||
+ | "/bin" | ||
+ | "/usr/X11R6/bin" | ||
+ | ))) | ||
+ | (setenv "MAKE_MODE" "unix") | ||
+ | (setenv "MANPATH" "/usr/local/netpbm/man:/usr/local/man:/usr/X11R6/man:/usr/share/man:/usr/man") | ||
+ | (setq explicit-shell-file-name "bash") | ||
+ | |||
+ | ;;; clipboard | ||
+ | |||
+ | (global-set-key "\C-cw" 'cb-copy) | ||
+ | (global-set-key "\C-cy" 'cb-paste) | ||
+ | (defun cb-copy () | ||
+ | (interactive) | ||
+ | (let ((coding-system-for-write 'shift_jis-dos)) | ||
+ | (shell-command-on-region (region-beginning) (region-end) "cat > /dev/clipboard" nil nil nil)) | ||
+ | (message "")) | ||
+ | (defun cb-paste () | ||
+ | (interactive) | ||
+ | (let ((coding-system-for-read 'shift_jis-dos)) | ||
+ | (goto-char | ||
+ | (+ (point) (cadr (insert-file-contents "/dev/clipboard")))))) | ||
+ | |||
+ | ;;; emacsclient | ||
+ | |||
+ | (server-start) | ||
+ | |||
+ | ;;; make splash-screen visible, which is not shown if server-start is | ||
+ | ;;; used. please refer | ||
+ | ;;; http://tsukuba.m17n.org/mule-ja-archive/2002-3/msg00006.html. | ||
+ | |||
+ | (add-hook | ||
+ | 'emacs-startup-hook | ||
+ | '(lambda nil | ||
+ | (if (and (string-equal "*scratch*" (buffer-name)) | ||
+ | (zerop (buffer-size))) | ||
+ | (display-splash-screen)))) | ||
+ | |||
+ | ;;; custom (use M-x customize-option) | ||
+ | |||
+ | (load-library "custom") | ||
+ | (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. | ||
+ | '(archive-zip-use-pkzip nil) | ||
+ | '(auto-compression-mode t nil (jka-compr)) | ||
+ | '(diff-switches "-u")) | ||
+ | (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. | ||
+ | ) | ||
+ | |||
+ | (put 'narrow-to-region 'disabled nil) | ||
+ | |||
+ | (mouse-wheel-mode t) | ||
+ | (setq mouse-wheel-follow-mouse t) | ||
+ | |||
+ | (set-terminal-coding-system 'sjis-dos) | ||
+ | (set-keyboard-coding-system 'sjis-dos) | ||
+ | (set-language-environment "Japanese") | ||
+ | (set-buffer-file-coding-system 'sjis-dos) | ||
+ | (set-selection-coding-system 'sjis-dos) | ||
+ | (set-next-selection-coding-system 'sjis-dos) | ||
+ | |||
+ | </code> |