190 ;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ") |
190 ;; Also useful such format: (setq display-time-format " %H:%M %d-%m-%y ") |
191 (setq display-time-24hr-format t) |
191 (setq display-time-24hr-format t) |
192 (setq display-time-default-load-average nil) |
192 (setq display-time-default-load-average nil) |
193 (display-time) ; display-time-mode |
193 (display-time) ; display-time-mode |
194 |
194 |
195 (if window-system |
195 (when window-system |
196 ;; For graphical environment. |
196 (set-background-color "white") |
197 (progn |
197 (set-foreground-color "black") |
198 (set-background-color "white") |
198 (set-cursor-color "brown") |
199 (set-foreground-color "black") |
199 ;; (set-mouse-color "white") |
200 (set-cursor-color "brown") |
200 (setq cursor-type 'box) ; box, hollow, bar, hbar |
201 ;; (set-mouse-color "white") |
201 ;;(setq blink-matching-delay 0.01) |
202 (setq cursor-type 'box) ; box, hollow, bar, hbar |
202 (blink-cursor-mode 1) |
203 ;;(setq blink-matching-delay 0.01) |
203 ;; (set-face-font 'default "7x14") |
204 (blink-cursor-mode 1) |
204 ) |
205 ;; (set-face-font 'default "7x14") |
|
206 ) |
|
207 ;; For tty. |
|
208 (progn |
|
209 ) |
|
210 ) |
|
211 |
205 |
212 ;; See what I am typing immediately (for keystroke in minibuffer). |
206 ;; See what I am typing immediately (for keystroke in minibuffer). |
213 (setq echo-keystrokes 0.2) |
207 (setq echo-keystrokes 0.2) |
214 |
208 |
215 ;;; ---------------------------------------------------------------- |
209 ;;; ---------------------------------------------------------------- |
521 ;; (set-keyboard-coding-system 'cp1251) |
516 ;; (set-keyboard-coding-system 'cp1251) |
522 |
517 |
523 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
518 (modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit) |
524 (cond |
519 (cond |
525 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
520 ((equal window-system 'w32) ; also (string-equal system-type "windows-nt") |
526 (progn |
521 (set-selection-coding-system 'utf-16-le-dos) |
527 (set-selection-coding-system 'utf-16-le-dos) |
522 (setq-default buffer-file-coding-system 'cp1251) |
528 (setq-default buffer-file-coding-system 'cp1251) |
523 (setq default-file-name-coding-system 'cp1251) |
529 (setq default-file-name-coding-system 'cp1251) |
524 (setq default-process-coding-system '(cp1251 . cp1251)) |
530 (setq default-process-coding-system '(cp1251 . cp1251)) |
525 ) |
531 )) |
|
532 ((equal window-system 'x) |
526 ((equal window-system 'x) |
533 (progn |
527 (prefer-coding-system 'utf-8-unix) |
534 (prefer-coding-system 'utf-8-unix) |
528 (setq selection-coding-system 'compound-text-with-extensions) |
535 (setq selection-coding-system 'compound-text-with-extensions) |
529 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
536 (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) |
530 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
537 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
531 ) |
538 )) |
|
539 (t |
532 (t |
540 (progn |
533 (prefer-coding-system 'cp1251-dos) |
541 (prefer-coding-system 'cp1251-dos) |
534 (prefer-coding-system 'utf-8-unix) |
542 (prefer-coding-system 'utf-8-unix) |
535 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
543 (modify-coding-system-alist 'process ".*" 'utf-8-unix) |
536 ) |
544 )) |
537 ) |
545 ) |
|
546 |
538 |
547 ;;; ---------------------------------------------------------------- |
539 ;;; ---------------------------------------------------------------- |
548 (message "open file, ffap, dired") |
540 (message "open file, ffap, dired") |
549 |
541 |
550 (setq-default save-place t) |
542 (setq-default save-place t) |
903 (when (>= emacs-major-version 22) |
895 (when (>= emacs-major-version 22) |
904 (require 'org)) |
896 (require 'org)) |
905 |
897 |
906 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c |
898 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c |
907 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b |
899 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b |
908 (if (or (featurep 'org) (featurep 'org-install)) |
900 (when (or (featurep 'org) (featurep 'org-install)) |
909 (progn |
901 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) |
910 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) |
902 (setq |
911 (setq |
903 org-directory "~/.gtd" |
912 org-directory "~/.gtd" |
904 org-default-notes-file nil |
913 org-default-notes-file nil |
905 org-agenda-ndays 31 |
914 org-agenda-ndays 31 |
906 org-deadline-warning-days 7 |
915 org-deadline-warning-days 7 |
907 org-agenda-show-all-dates t |
916 org-agenda-show-all-dates t |
908 org-agenda-format-date "%Y-%m-%d, %A %e %B" |
917 org-agenda-format-date "%Y-%m-%d, %A %e %B" |
909 org-agenda-skip-deadline-if-done t |
918 org-agenda-skip-deadline-if-done t |
910 org-agenda-skip-scheduled-if-done t |
919 org-agenda-skip-scheduled-if-done t |
911 org-agenda-start-on-weekday nil |
920 org-agenda-start-on-weekday nil |
912 org-reverse-note-order t |
921 org-reverse-note-order t |
913 org-hide-leading-stars t |
922 org-hide-leading-stars t |
914 org-tags-column 64 |
923 org-tags-column 64 |
915 ) |
924 ) |
916 (setq my-org-agenda-todo-file "~/.gtd/TODO.org") |
925 (setq my-org-agenda-todo-file "~/.gtd/TODO.org") |
917 (setq my-org-agenda-note-file "~/.gtd/NOTE.org") |
926 (setq my-org-agenda-note-file "~/.gtd/NOTE.org") |
918 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) |
927 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) |
919 (define-key global-map "\C-ca" 'org-agenda) |
928 (define-key global-map "\C-ca" 'org-agenda) |
920 (define-key global-map "\C-ct" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
929 (define-key global-map "\C-ct" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
921 |
930 |
922 (when (or (featurep 'remember) (fboundp 'remember)) |
931 (when |
923 (setq remember-annotation-functions '(org-remember-annotation)) |
932 (or (featurep 'remember) (fboundp 'remember)) |
924 (setq remember-handler-functions '(org-remember-handler)) |
933 (progn |
925 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
934 (setq remember-annotation-functions '(org-remember-annotation)) |
926 (define-key global-map "\C-cr" 'org-remember) |
935 (setq remember-handler-functions '(org-remember-handler)) |
927 (setq org-remember-templates |
936 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
928 ;; With one item org-mode do not prompt choose template. |
937 (define-key global-map "\C-cr" 'org-remember) |
929 `( |
938 (setq org-remember-templates |
930 ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file) |
939 ;; With one item org-mode do not prompt choose template. |
931 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
940 `( |
932 )) |
941 ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file) |
933 (setq org-remember-store-without-prompt t) |
942 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
934 (org-remember-insinuate) |
943 )) |
935 ) |
944 (setq org-remember-store-without-prompt t) |
936 |
945 (org-remember-insinuate) |
937 ;; (setq org-todo-keyword-faces |
946 )) |
938 ;; '(("TODO" . (:foreground "red" :weight bold)) |
947 |
939 ;; ("WAIT" . (:foreground "orange" :weight bold)) |
948 ;; (setq org-todo-keyword-faces |
940 ;; ("DONE" . (:foreground "green" :weight bold))) ) |
949 ;; '(("TODO" . (:foreground "red" :weight bold)) |
941 ) |
950 ;; ("WAIT" . (:foreground "orange" :weight bold)) |
|
951 ;; ("DONE" . (:foreground "green" :weight bold))) ) |
|
952 )) |
|
953 |
942 |
954 ;;; ---------------------------------------------------------------- |
943 ;;; ---------------------------------------------------------------- |
955 (message "TODO, XXX, FIXME highlight") |
944 (message "TODO, XXX, FIXME highlight") |
956 ;; Show blanks and FIXME |
945 ;; Show blanks and FIXME |
957 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
946 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
1075 (setq erc-server-coding-system 'utf-8) |
1064 (setq erc-server-coding-system 'utf-8) |
1076 |
1065 |
1077 ;;; ---------------------------------------------------------------- |
1066 ;;; ---------------------------------------------------------------- |
1078 (message "VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
1067 (message "VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil") |
1079 |
1068 |
1080 (if (equal window-system 'w32) |
1069 (when (equal window-system 'w32) |
1081 (progn |
1070 (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos)) |
1082 (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos)) |
1071 (modify-coding-system-alist 'process "svn" '(cp1251 . cp1251)) |
1083 (modify-coding-system-alist 'process "svn" '(cp1251 . cp1251)) |
1072 (setq vc-svn-checkin-switches '("--encoding" "UTF-8")) |
1084 (setq vc-svn-checkin-switches '("--encoding" "UTF-8")) |
1073 ) |
1085 )) |
1074 |
1086 |
1075 (when window-system |
1087 (if window-system |
1076 (setq |
1088 (progn |
1077 vc-annotate-very-old-color "#0b5b20" |
1089 (setq |
1078 vc-annotate-background "white" |
1090 vc-annotate-very-old-color "#0b5b20" |
1079 vc-annotate-color-map |
1091 vc-annotate-background "white" |
1080 '( |
1092 vc-annotate-color-map |
1081 (20 . "#EE0000") |
1093 '( |
1082 (40 . "#E0800D") |
1094 (20 . "#EE0000") |
1083 (60 . "#D3001A") |
1095 (40 . "#E0800D") |
1084 (80 . "#C68027") |
1096 (60 . "#D3001A") |
1085 (100 . "#B90034") |
1097 (80 . "#C68027") |
1086 (120 . "#AB8042") |
1098 (100 . "#B90034") |
1087 (140 . "#9E004F") |
1099 (120 . "#AB8042") |
1088 (160 . "#91805C") |
1100 (140 . "#9E004F") |
1089 (180 . "#840069") |
1101 (160 . "#91805C") |
1090 (200 . "#778077") |
1102 (180 . "#840069") |
1091 (220 . "#690084") |
1103 (200 . "#778077") |
1092 (240 . "#5C8091") |
1104 (220 . "#690084") |
1093 (260 . "#4F009E") |
1105 (240 . "#5C8091") |
1094 (280 . "#4280AB") |
1106 (260 . "#4F009E") |
1095 (300 . "#3400B9") |
1107 (280 . "#4280AB") |
1096 (320 . "#2780C6") |
1108 (300 . "#3400B9") |
1097 (340 . "#1A00D3") |
1109 (320 . "#2780C6") |
1098 (360 . "#0D80E0"))) |
1110 (340 . "#1A00D3") |
|
1111 (360 . "#0D80E0"))) |
|
1112 ) |
|
1113 ) |
1099 ) |
1114 |
1100 |
1115 ;;; ---------------------------------------------------------------- |
1101 ;;; ---------------------------------------------------------------- |
1116 (message "psvn") |
1102 (message "psvn") |
1117 |
1103 |