# HG changeset patch # User Oleksandr Gavenko # Date 1249626861 -10800 # Node ID 9b7a17b841e93ad8712d3070270d56f6c58beaaf # Parent 6a2edc852b4adbc4c0e489bf91f201b8bd871ba6# Parent 55aed5f25591014408f93123c451f19f03d0ec85 Automated merge with file:///d:\srv\hg\dot-emacs diff -r 55aed5f25591 -r 9b7a17b841e9 .emacs-my --- a/.emacs-my Fri Aug 07 09:32:01 2009 +0300 +++ b/.emacs-my Fri Aug 07 09:34:21 2009 +0300 @@ -27,9 +27,10 @@ ;; Настройка внешнего вида редактора. ;; View. -(menu-bar-mode -1) ; 1/-1 -(tool-bar-mode -1) ; 1/-1 -(tooltip-mode -1) ; 1/-1 +(menu-bar-mode -1) +(tool-bar-mode -1) +(tooltip-mode -1) +(scroll-bar-mode 1) (if window-system ;; Для X-window и Win @@ -75,10 +76,6 @@ ;; ====================================================================== ;; Standart settings -;прикрепляет к каждому окну полоску прокрутки t/nil -(scroll-bar-mode t) - -;; удаляем строку целиком (setq kill-whole-line t) ;; show column & line numbers in status bar @@ -114,8 +111,6 @@ ;; Scrolling (setq-default - ;; 2 - default value - next-screen-context-lines 2 ;; The number of lines to try scrolling a window by when point moves out. scroll-step 1 scroll-conservatively 100 @@ -139,12 +134,19 @@ ;; ---------------------------------------------------------------------- ;; highlight selected text -(transient-mark-mode 1) ; 1/-1, when the mark is active, the region is highlighted. +;; 1/-1, when the mark is active, the region is highlighted. +(transient-mark-mode 1) (delete-selection-mode 1) ; 1/-1 ;; Order of next item is important. -(setq pc-select-selection-keys-only t) ; To avoid some key bindings as F6, etc. -(pc-selection-mode) +(require 'pc-select) +;; To avoid some key bindings as F6, etc. Must set before 'pc-selection-mode' invoke. +(setq pc-select-selection-keys-only t) +(pc-selection-mode 1) + +(when (eq window-system 'x) + (setq x-select-enable-clipboard t) ; from Emacs 21.2.1 and newer + ) ;; ---------------------------------------------------------------------- ;; line @@ -181,7 +183,7 @@ ;; Scroll Bar gets dragged by mouse butn 1 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag) ;; Paste at point NOT at cursor -(setq mouse-yank-at-point 't) +(setq mouse-yank-at-point t) (mouse-wheel-mode 1) ;; ---------------------------------------------------------------------- @@ -305,10 +307,6 @@ (if (fboundp 'auto-compression-mode) (auto-compression-mode 1)) -;; ====================================================================== -;; Save -(setq auto-save-default nil) - ;; ---------------------------------------------------------------------- ;; *Recentf* @@ -331,15 +329,16 @@ ;; ---------------------------------------------------------------------- ;; Completion + (require 'icomplete) ; Interactive completion in minibuffer. -(icomplete-mode) ; Toggle incremental minibuffer completion for this Emacs session. -;; может дополнять несколько слов одновременно -(load "complete") -(setq completion-ignored-extensions (quote ("CVS/" ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc" - ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf" - ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" - ".fns" ".kys" ".pgs" ".tps" ".vrs"))) +(icomplete-mode 1) +(setq completion-ignored-extensions + '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/" + ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc" + ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf" + ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" + ".fns" ".kys" ".pgs" ".tps" ".vrs")) ;; ---------------------------------------------------------------------- ;; *grep* @@ -402,10 +401,13 @@ ;; ====================================================================== ;; *auto-fill* +;; To enable/disable auto-fill mode type ESC M-f. + (setq-default fill-column 78) +;; By default used American convention - sentence and with two spaces. Change +;; it to one space. Has affect on filling and M-a, M-e commands. (setq sentence-end-double-space nil) -(global-set-key (kbd "\e\ef") 'auto-fill-mode) ;; Turn on auto-fill mode (add-hook 'html-mode-hook 'turn-on-auto-fill) @@ -478,11 +480,9 @@ ;; (require 'discography) ; variant of BibTeX mode for discographies. ;; ====================================================================== -;; ;; unNOVICEd commands... ;; -;; The following commands are usually disabled by default. Enable -;; them... +;; The following commands are usually disabled by default. Enable them... (put 'eval-expression 'disabled nil) (put 'downcase-region 'disabled nil) @@ -498,9 +498,6 @@ ;; ====================================================================== ;; AUC TeX -;; (load "tex-site") - -;(require 'tex-mik) ;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar) ;; (setq TeX-parse-self t) ; Enable parse on load. ;; (setq TeX-auto-save t) ; Enable parse on save. @@ -509,8 +506,6 @@ ;(setq TeX-PDF-mode t) ;(setq TeX-interactive-mode t) ;(setq TeX-source-specials-mode 1) -;(load "tex-site") -;(load "tex-mik") ;;модифицируем меню ;;; some more menu entries in the command list: @@ -700,9 +695,14 @@ "Font for showing conflicts." :group 'basic-faces) +(defvar my-devel-mode-list + '(sh-mode script-mode java-mode c-mode outline-mode text-mode + lisp-mode makefile-mode makefile-gmake-mode python-mode) + "List of development modes." ) + (add-hook 'font-lock-mode-hook (function (lambda () (when (or - (member major-mode '(sh-mode script-mode java-mode c-mode outline-mode text-mode lisp-mode)) + (member major-mode my-devel-mode-list) ) (font-lock-add-keywords nil '( @@ -1033,18 +1033,25 @@ ;(setq cua-overwrite-cursor-color "red") ;(setq cua-read-only-cursor-color "green") - ;; ====================================================================== ;; Backup (setq - ;; backup-by-copying t ; don't clobber symlinks + backup-by-copying t ; don't clobber symlinks backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree delete-old-versions t ; delete excess backup versions silently kept-old-versions 1 ; store first original version kept-new-versions 3 ; store last 3 version version-control t) ; use versioned backups +;; ====================================================================== +;; auto save + +(setq auto-save-default t) +;; If nil autosave to different than original to buffer file. +(setq auto-save-visited-file-name nil) +;; Note: if you kill unsaved file auto save file not deleted. +(setq delete-auto-save-files t) ;; ====================================================================== ;; Setup user info. diff -r 55aed5f25591 -r 9b7a17b841e9 INSTALL --- a/INSTALL Fri Aug 07 09:32:01 2009 +0300 +++ b/INSTALL Fri Aug 07 09:34:21 2009 +0300 @@ -37,3 +37,13 @@ ln -s /home/other-user/.emacs-post /home/user/.emacs-post ln -s /home/other-user/.el /home/sasha/.el +* GTD (org-mode). + +In home dir create .gtd subdir with todo.org file. Put sinple content in top +of them: + + -*- coding: utf-8 -*- + + #+STARTUP: overview + #+STARTUP: hidestars + #+ARCHIVE: %s_done::