591 ;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1) |
591 ;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1) |
592 ;; ) |
592 ;; ) |
593 ;; ) |
593 ;; ) |
594 |
594 |
595 ;; ====================================================================== |
595 ;; ====================================================================== |
596 ;; VCS, version control, cvs, svn. |
596 ;; Organize, todo mode. |
597 |
597 |
598 (if (equal window-system 'w32) |
598 ;; ---------------------------------------------------------------------- |
|
599 ;; org-mode |
|
600 |
|
601 (if (featurep 'org) |
599 (progn |
602 (progn |
600 (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos)) |
603 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) |
601 (modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos)) |
604 (setq org-agenda-files "~/todo.org" |
602 )) |
605 org-default-notes-file "~/notes.org" |
603 |
606 org-agenda-ndays 20 |
604 ;; (setq-default vc-svn-register-switches "--encoding cp1251") |
607 org-deadline-warning-days 14 |
605 (setq-default vc-svn-register-switches nil) |
608 org-agenda-show-all-dates t |
606 |
609 org-agenda-skip-deadline-if-done t |
607 (setq my-svn-dir (concat my-el-dir "/svn")) |
610 org-agenda-skip-scheduled-if-done t |
608 (if (file-exists-p my-svn-dir) |
611 org-agenda-start-on-weekday nil |
609 (progn |
612 org-reverse-note-order t |
610 (add-to-list 'load-path my-svn-dir) |
613 org-remember-store-without-prompt t))) |
611 (require 'vc-svn) |
|
612 ) |
|
613 ) |
|
614 |
|
615 (if (file-exists-p (concat my-el-dir "/mercurial.el")) |
|
616 (require 'mercurial) |
|
617 ) |
|
618 |
|
619 (if window-system |
|
620 (setq-default vc-annotate-background "white") |
|
621 ) |
|
622 |
|
623 ;; ====================================================================== |
|
624 ;; Devel, prog |
|
625 |
|
626 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
|
627 |
|
628 (setq-default show-trailing-whitespace t) |
|
629 ;; (add-hook 'c-mode-hook '(lambda () |
|
630 ;; (setq show-trailing-whitespace t))) |
|
631 |
614 |
632 ;; ---------------------------------------------------------------------- |
615 ;; ---------------------------------------------------------------------- |
633 ;; TODO, XXX, FIXME highlight. |
616 ;; TODO, XXX, FIXME highlight. |
634 ;; Show blanks and FIXME |
617 ;; Show blanks and FIXME |
635 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
618 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
655 '( |
638 '( |
656 ("\t+" 0 'my-tab-face t) |
639 ("\t+" 0 'my-tab-face t) |
657 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t) |
640 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t) |
658 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t) |
641 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t) |
659 )))))) |
642 )))))) |
|
643 |
|
644 ;; ====================================================================== |
|
645 ;; VCS, version control, cvs, svn. |
|
646 |
|
647 (if (equal window-system 'w32) |
|
648 (progn |
|
649 (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos)) |
|
650 (modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos)) |
|
651 )) |
|
652 |
|
653 ;; (setq-default vc-svn-register-switches "--encoding cp1251") |
|
654 (setq-default vc-svn-register-switches nil) |
|
655 |
|
656 (setq my-svn-dir (concat my-el-dir "/svn")) |
|
657 (if (file-exists-p my-svn-dir) |
|
658 (progn |
|
659 (add-to-list 'load-path my-svn-dir) |
|
660 (require 'vc-svn) |
|
661 ) |
|
662 ) |
|
663 |
|
664 (if (file-exists-p (concat my-el-dir "/mercurial.el")) |
|
665 (require 'mercurial) |
|
666 ) |
|
667 |
|
668 (if window-system |
|
669 (setq-default vc-annotate-background "white") |
|
670 ) |
|
671 |
|
672 ;; ====================================================================== |
|
673 ;; Devel, prog |
|
674 |
|
675 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode)) |
|
676 |
|
677 (setq-default show-trailing-whitespace t) |
|
678 ;; (add-hook 'c-mode-hook '(lambda () |
|
679 ;; (setq show-trailing-whitespace t))) |
660 |
680 |
661 ;; ---------------------------------------------------------------------- |
681 ;; ---------------------------------------------------------------------- |
662 ;; Diff, patch |
682 ;; Diff, patch |
663 (setq diff-switches "-u") |
683 (setq diff-switches "-u") |
664 |
684 |