.emacs-my
changeset 102 25585e240b4a
parent 101 5b5afd97d6f8
child 104 e921a5d906ca
child 106 0591d06cf752
equal deleted inserted replaced
101:5b5afd97d6f8 102:25585e240b4a
    81 
    81 
    82 ;; show column & line numbers in status bar
    82 ;; show column & line numbers in status bar
    83 (setq column-number-mode t)
    83 (setq column-number-mode t)
    84 (setq line-number-mode t)
    84 (setq line-number-mode t)
    85 
    85 
       
    86 (setq view-read-only t)
       
    87 
    86 ;; ----------------------------------------------------------------------
    88 ;; ----------------------------------------------------------------------
    87 ;; Switching, creating, selecting buffers.
    89 ;; Switching, creating, selecting buffers.
    88 (iswitchb-mode 1)
    90 (iswitchb-mode 1)
    89 (setq iswitchb-buffer-ignore '("^ " "*Buffer"))
    91 (setq iswitchb-buffer-ignore '("^ " "*Buffer"))
    90 
    92 
   104 ;; (setq scroll-margin 2)
   106 ;; (setq scroll-margin 2)
   105 
   107 
   106 ;; ----------------------------------------------------------------------
   108 ;; ----------------------------------------------------------------------
   107 ;; *Text*
   109 ;; *Text*
   108 (setq default-major-mode 'text-mode)
   110 (setq default-major-mode 'text-mode)
   109 (add-hook 'text-mode-hook 'turn-on-auto-fill)
       
   110 
   111 
   111 ;; ----------------------------------------------------------------------
   112 ;; ----------------------------------------------------------------------
   112 ;; syntax highlighting
   113 ;; syntax highlighting
   113 (setq font-lock-maximum-decoration t)
   114 (setq font-lock-maximum-decoration t)
   114 (global-font-lock-mode 1 t)
   115 (global-font-lock-mode 1 t)
   122 ;; Order of next item is important.
   123 ;; Order of next item is important.
   123 (setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
   124 (setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
   124 (pc-selection-mode)
   125 (pc-selection-mode)
   125 
   126 
   126 ;; ----------------------------------------------------------------------
   127 ;; ----------------------------------------------------------------------
   127 ;; Line
   128 ;; line
   128 (if window-system
   129 (if window-system
   129     (progn
   130     (progn
   130       (global-hl-line-mode t)
   131       (global-hl-line-mode t)
   131       (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
   132       (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
   132       )
   133       )
   133   )
   134   )
   134 
   135 
   135 ;; ----------------------------------------------------------------------
   136 ;; ----------------------------------------------------------------------
   136 ;; Paren
   137 ;; paren, brace
   137 
   138 
   138 (show-paren-mode 1) ; Parenthesis matching via highlighting.
   139 (show-paren-mode 1) ; Parenthesis matching via highlighting.
   139 ;; (setq show-paren-style 'expression) ; выделять все выражение в скобках
   140 ;; (setq show-paren-style 'expression) ; выделять все выражение в скобках
   140 (setq show-paren-style (quote parenthesis))
   141 (setq show-paren-style (quote parenthesis))
   141 
   142 
   369 (add-hook 'write-file-hooks 'time-stamp)
   370 (add-hook 'write-file-hooks 'time-stamp)
   370 
   371 
   371 ;; ======================================================================
   372 ;; ======================================================================
   372 ;; *auto-fill*
   373 ;; *auto-fill*
   373 
   374 
   374 (setq-default fill-column 90)
   375 (setq-default fill-column 78)
       
   376 
       
   377 (setq sentence-end-double-space nil)
       
   378 (global-set-key (kbd "\e\ef") 'auto-fill-mode)
       
   379 
   375 ;; Turn on auto-fill mode
   380 ;; Turn on auto-fill mode
   376 (add-hook 'html-mode-hook 'turn-on-auto-fill)
   381 (add-hook 'html-mode-hook 'turn-on-auto-fill)
   377 (global-set-key (kbd "\e\ef") 'auto-fill-mode)
   382 (add-hook 'text-mode-hook 'turn-on-auto-fill)
   378 
   383 
   379 ;; ----------------------------------------------------------------------
   384 ;; ----------------------------------------------------------------------
   380 ;; DESIRE
   385 ;; DESIRE
   381 
   386 
   382 ;; (require 'desire)
   387 ;; (require 'desire)
   432 ;; (desire 'php-mode)
   437 ;; (desire 'php-mode)
   433 ;; (desire 'ps-print)
   438 ;; (desire 'ps-print)
   434 ;; (desire 'psgml)
   439 ;; (desire 'psgml)
   435 ;; (desire 'sh-script)
   440 ;; (desire 'sh-script)
   436 ;; (desire 'shell)
   441 ;; (desire 'shell)
   437 ;;; (desire 'sql-mode)
       
   438 ;; (desire 'tex)
   442 ;; (desire 'tex)
   439 ;; (desire 'w3)
   443 ;; (desire 'w3)
   440 
   444 
   441 ;; ======================================================================
   445 ;; ======================================================================
   442 ;;
   446 ;;
   880 
   884 
   881 ;; ********************
   885 ;; ********************
   882 ;; ECB
   886 ;; ECB
   883 ;; *******************
   887 ;; *******************
   884 
   888 
   885 ;; load ECB
   889 (setq ecb-tip-of-the-day nil)
   886 ;; (add-to-list 'load-path  "~/emacs/site/ecb-2.32")
   890 ;; (add-to-list 'load-path  "~/emacs/site/ecb-2.32")
   887 ;; (require 'ecb)
   891 ;; (require 'ecb)
   888 
   892 
   889 ;; load ECB
   893 ;; (global-set-key (kbd "\e\eE") 'ecb-activate)
   890 ;(add-to-list 'load-path  "~/emacs/site/ecb-2.32")
       
   891 ;(require 'ecb)
       
   892 ;'(ecb-options-version "2.32")
       
   893 ;'(ecb-wget-setup (quote cons))
       
   894 ;(global-set-key (kbd "\e\eE") 'ecb-activate)
       
   895 
   894 
   896 ;; ======================================================================
   895 ;; ======================================================================
   897 ;; Printing
   896 ;; Printing
   898 
   897 
   899 ;; Use Notepad to print plain text files to the default Windows printer
   898 ;; Use Notepad to print plain text files to the default Windows printer
   929 ;     (add-to-list 'TeX-command-list
   928 ;     (add-to-list 'TeX-command-list
   930 ;         (list "All Texify run-viewer"
   929 ;         (list "All Texify run-viewer"
   931 ;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
   930 ;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
   932 ;           'TeX-run-command nil t))))
   931 ;           'TeX-run-command nil t))))
   933 
   932 
       
   933 ;; ----------------------------------------------------------------
       
   934 ;; SQL
       
   935 
       
   936 ;; (desire 'sql-mode)
       
   937 (setq sql-password "")
   934 
   938 
   935 ;; ======================================================================
   939 ;; ======================================================================
   936 ;;
   940 ;;
   937 ;; Установка режима CUA - все как в Windows
   941 ;; Установка режима CUA - все как в Windows
   938 ;; поддержка Ctr-c,v,x,d как в windows через пакет CUA
   942 ;; поддержка Ctr-c,v,x,d как в windows через пакет CUA