dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:7faba42a825d
+:7cb8a2dc4a53
 ;; -*- mode: lisp; coding: cp1251 -*-
 ;;
-;; Copyright (C) 2008 by Gavenko Oleksandr
+;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Copyright (C) 2008 by Гавенко Алескандр
 ;;
 ;; ~/.emacs file for GNU Emacs 21.
 ;; silent runing
 (setq inhibit-startup-message t)
 (if window-system
 ;; Для X-window и Win
 (progn
 ;; size of emacs area and position
-(set-frame-height (selected-frame) 52)
+(set-frame-height (selected-frame) 60)
-(set-frame-width (selected-frame) 130)
+(set-frame-width (selected-frame) 120)
-(set-frame-position (selected-frame) 30 15)
+(set-frame-position (selected-frame) 10 25)
 ;;установка цветов экрана
 (set-background-color "white")
 (set-foreground-color "black")
 ;;установка режимов работы курсора
 (setq show-paren-style (quote parenthesis))
 ;; ======================================================================
 ;; Keyboard, mouse and selection
-(setq default-input-method 'cyrillic-jcuken)
+;; cyrillic-jcuken  for 567 is :,.
+;; russian-computer for 567 is %^&
+(setq default-input-method 'russian-computer)
 ;; (pc-bindings-mode) ; Myself define keybinding, see
 ;; Настройка выделения "как в Windows"
 (setq pc-select-selection-keys-only t)  ; to avoid some key bindings as F6, etc
 (pc-selection-mode)     ; This mode enables Delete Selection mode and Transient Mark mode.
 (transient-mark-mode t)        ; t/nil, when the mark is active, the region is highlighted
 ; Подготовка к использованию соответствующих кодовых страниц.
 (codepage-setup 866)
 (codepage-setup 1251)
-;; (setq-default coding-system-for-read  'cp1251-dos) ; comment because prefer-coding-system will be ignored
+;; Comment because prefer-coding-system will be ignored.
-;; (setq-default coding-system-for-write 'cp1251-dos) ;
+;; (setq-default coding-system-for-read  'cp1251-dos)
+;; (setq-default coding-system-for-write 'cp1251-dos)
 ;; (setq locale-coding-system  'cp1251-dos)
 ;; (set-terminal-coding-system 'cp1251)
 ;; (set-keyboard-coding-system 'cp1251)
 ;; XXXXXXXXXXXXXXXXXXXXXXXX
 ;; To open from command line file, which names has extended opcode
 ;; (set-file-name-coding-system 'cp1251)
-;; (set-language-environment "Russian")
+;; (set-language-environment "Russian") ; XXX not used as set default coding system to koi8-r.
 ;; ======================================================================
 ;;
 ;; NON-STANDARD VARIABLES
-(defvar emacs-base-dir
-(expand-file-name "~/emacs")
-"*Name of directory where emacs instaled.")
 ;; ======================================================================
 ;;
 ;; STANDARD VARIABLES
 ;; Try to speed things up, especially in VM.
 (setq gc-cons-threshold 2000000)
 ;; Don't beep in my headphones!
 ;; (setq visible-bell t) ; XXX in text terminal revert screen if press [end] or [home]
-(setq ange-ftp-generate-anonymous-password
-user-mail-address)
 ;; Prompt before evaluating local bits of lisp.  This stops people
 ;; putting things at the end of files which delete all your files!
 (setq enable-local-variables t
 enable-local-eval      1)
 ;; Calendar
 ;; (setq mark-holidays-in-calendar t)
 ;; (setq all-christian-calendar-holidays t)
 ;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))
 ;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
-;; (setq calendar-week-start-day 1)
+(setq calendar-week-start-day 1)
-;; (setq european-calendar-style t)
+(setq european-calendar-style t)
 ;; ======================================================================
 ;;
 ;; STANDARD HOOKS
 ;;        may perform special configuration if BBDB is present.
 ;;
 ;; (desire 'bbdb "bbdb")
 ;; ----------------------------------------------------------------------
-;; Appointments, diary, calendar.
-;;
-;; Use "M-x calendar RET" to display the calendar and start
-;; appointment warnings.
-;; (desire 'appt)
-;; (desire 'calendar)
-;; (desire 'todo-mode)
-;; (desire 'diary "diary-lib")
-;; ----------------------------------------------------------------------
 ;; These provide options for the various message handling packages.
 ;; (desire 'browse-url)
 ;; (desire 'mailcrypt)
-;; (desire 'supercite)
 ;; Message handing packages.
 ;; (desire 'gnus)
 ;; (desire 'message)
-;; (desire 'vm)
 ;; (desire 'sendmail)
 ;; ----------------------------------------------------------------------
 ;; Miscellaneous
 ;;      "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1)
 ;;    )
 ;; )
 ;; ======================================================================
-;; VCS, version control, cvs, svn.
+;; Organize, todo mode.
-(if (equal window-system 'w32)
+;; ----------------------------------------------------------------------
+;; org-mode
+(if (featurep 'org)
 (progn
-(modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos))
+(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
-(modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos))
+(setq org-agenda-files "~/todo.org"
-))
+org-default-notes-file "~/notes.org"
+org-agenda-ndays 20
-;; (setq-default vc-svn-register-switches "--encoding cp1251")
+org-deadline-warning-days 14
-(setq-default vc-svn-register-switches nil)
+org-agenda-show-all-dates t
+org-agenda-skip-deadline-if-done t
-(setq my-svn-dir (concat my-el-dir "/svn"))
+org-agenda-skip-scheduled-if-done t
-(if (file-exists-p my-svn-dir)
+org-agenda-start-on-weekday nil
-(progn
+org-reverse-note-order t
-(add-to-list 'load-path my-svn-dir)
+org-todo-keywords '((sequence "TODO" "START" "|" "DONE"))
-(require 'vc-svn)
+org-remember-store-without-prompt t)))
-)
-)
-(if (file-exists-p (concat my-el-dir "/mercurial.el"))
-(require 'mercurial)
-)
-(if window-system
-(setq-default vc-annotate-background "white")
-)
-;; ======================================================================
-;; Devel, prog
-(add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
-(setq-default show-trailing-whitespace t)
-;; (add-hook 'c-mode-hook '(lambda ()
-;;                           (setq show-trailing-whitespace t)))
 ;; ----------------------------------------------------------------------
 ;; TODO, XXX, FIXME highlight.
 ;; Show blanks and FIXME
 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
 ("\t+" 0 'my-tab-face t)
 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t)
 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
 ))))))
-;; ----------------------------------------------------------------------
+;; ======================================================================
-;; org-mode
+;; VCS, version control, cvs, svn.
-(setq org-agenda-skip-scheduled-if-done t)
+(if (equal window-system 'w32)
+(progn
+(modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos))
+(modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos))
+))
+;; (setq-default vc-svn-register-switches "--encoding cp1251")
+(setq-default vc-svn-register-switches nil)
+(setq my-svn-dir (concat my-el-dir "/svn"))
+(if (file-exists-p my-svn-dir)
+(progn
+(add-to-list 'load-path my-svn-dir)
+(require 'vc-svn)
+)
+)
+(if (file-exists-p (concat my-el-dir "/mercurial.el"))
+(require 'mercurial)
+)
+(if window-system
+(setq-default vc-annotate-background "white")
+)
+;; ======================================================================
+;; Devel, prog
+(add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
+(setq comment-style (quote indent))
+(setq-default show-trailing-whitespace t)
 ;; ----------------------------------------------------------------------
 ;; Diff, patch
 (setq diff-switches "-u")
 ;; TAB (tab settings)
 (setq-default tab-width 4)
 (setq-default indent-tabs-mode nil)     ; t - будут вставляться \t
 (setq tab-always-indent t)
-(setq tab-stop-list (quote (0 4 8 12 16 20 24 28 32 36 40)))
 (setq c-tab-always-indent t)
+(loop for x downfrom 40 to 1 do
-(setq comment-style (quote indent))
+(setq tab-stop-list (cons (* x 4) tab-stop-list)))
 ;; ----------------------------------------------------------------------
 ;; Diff.
 (setq ediff-diff-options "")
 (setq compilation-scroll-output 1)
 ;; My funny error messages.
 ;; XXX нужно реализовать через hook.
 (require 'compile)
-(add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
+(add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
-(add-to-list 'compilation-error-regexp-alist 'nant)
+(add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
-(add-to-list 'compilation-error-regexp-alist-alist '(msvc "^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
+;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
-(add-to-list 'compilation-error-regexp-alist 'msvc)
+;; (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
-(add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
-(add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
 ;; ----------------------------------------------------------------------
 ;; asm
 ;; (setq-default asm-comment-char 59)
 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t)
 ;; Customizations for all modes in CC Mode.
 ;; (defun my-c-mode-common-hook ()
 ;;   ;; add my personal style and set it for the current buffer
 ;;   (c-add-style "PERSONAL" my-c-style t)
 ;;   ;; other customizations
-;;   (setq tab-width 8
-;;         ;; this will make sure spaces are used instead of tabs
-;;         indent-tabs-mode nil)
 ;;   ;; we like auto-newline and hungry-delete
 ;;   (c-toggle-auto-hungry-state 1)
 ;;   ;; key bindings for all supported languages.  We can put these in
 ;;   ;; c-mode-base-map because c-mode-map, c++-mode-map, objc-mode-map,
 ;;   ;; java-mode-map, idl-mode-map, and pike-mode-map inherit from it.
 ;(setq version-control t);нумерованный бэкап - 2 первых и 2 последних
 ;(setq delete-old-versions t);удаление промежуточных бэкапов
 ;; ======================================================================
+;; Setup user info.
 (cd "~/")
-(setq my-author-name (getenv "USER"))
+(setq user-full-name "Oleksandr Gavenko")
-(setq user-full-name (getenv "USER"))
+(setq user-mail-address "gavenkoa@gmail.com")
-(setenv "ORGANIZATION" "Oleksandr Gavenko <gavenkoa@gmail.com>")
+(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
 (message ".emacs loaded OK.")
 ;;
 ;; End loading...

changeset 56	7cb8a2dc4a53
parent 55	7faba42a825d
parent 54	d8b07256d33c
child 57	635e1a8a3ed9