;; -*- coding: utf-8 -*- ;TODO ; необходимо разобраться с fly-spell ; необходимо добавить в русский регистр - обратную черту. ; Personal settings for Emacs. ; Personal X resources for Emacs can be set in ~/.Xdefaults. ; Look also at the global configuration in /etc/emacs/. ; Emacs has a customization menu, changes done there are written ; into this file. ; For example, to turn off the autostart of Flyspell, customize ; Data->"Text Mode Hook" item. (defmacro GNULinux (&rest x) (list 'if (string-match "linux" (prin1-to-string system-type)) (cons 'progn x))) (defmacro Windows (&rest x) (list 'if (string-match "windows" (prin1-to-string system-type)) (cons 'progn x))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Minimal settings for users of Emacs working in ; Russian (KOI8-R) environment. ; ; ALT Linux Team, February 2002. ;(XEmacs ; (set-language-environment "Cyrillic-KOI8") ; (set-input-method "cyrillic-jcuken") ;) ;(GNUEmacs ;; (set-language-environment "Cyrillic-KOI8") ;;(require 'russian-utf8-env) ;;(set-language-environment "Russian UTF-8") ;;(setq current-language-environment "UTF-8") ;;(setq default-input-method "russian-computer") ;;(setq x-select-enable-clipboard t) ;;(set-input-method "russian-computer" nil) ;; (set-language-environment "Russian") (set-language-environment "UTF-8") ;; (setq default-buffer-file-coding-system 'utf-8) (set-input-method "russian-computer") (setq x-select-enable-clipboard t) ;; чтобы знало, что копируется utf (setq x-select-request-type 'UTF8_STRING) ;; (set-selection-coding-system 'utf-8) ;; (set-keyboard-coding-system 'utf-8) ;; (modify-coding-system-alist 'file "\\.txt\\'" 'utf-8) ; The following lines make the corresponding ; parameters independent of the current language-environment: ; if you change language-environment, they won't be changed; ; but if you comment out some of them, they will follow the ; language-environment parameter: ;; (set-terminal-coding-system 'koi8-r) ;; (set-keyboard-coding-system 'koi8-r) ; This could help for transferring data from bad old apps ;;;(set-selection-coding-system 'koi8-r) ;; (set-selection-coding-system 'compound-text-with-extensions) ;) ;;; Подстановка шрифтов ;;(cond (window-system ;; (create-fontset-from-fontset-spec ;;-b&h-lucidatypewriter-medium-r-normal-*-20-*-*-*-*-*-iso10646-1 ;; "-rfx-fixed-*-*-*-*-20-*-*-*-*-*-fontset-Evgueni" t) ;;; "-rfx-courier-medium-r-*-*-17-*-*-*-*-*-fontset-Evgueni" t) ;; "-rfx-serene-medium-r-*-*-18-*-*-*-*-*-fontset-Evgueni" t) ;;; "-rfx-fixed-medium-r-*-*-18-*-*-*-*-*-fontset-Evgueni" t) ; ;; по умолчанию ;; (set-default-font "fontset-Evgueni") ;; (set-fontset-font "fontset-default" 'cyrillic '("rfx" . "ISO10646-1")) ;; (set-default-font "10x20") ;; (set-frame-font "-b&h-lucidatypewriter-medium-r-normal-*-20-*-*-*-*-*-iso10646-1") ; ;; по умолчанию для фреймов ;; (add-to-list 'default-frame-alist '(font . "fontset-Evgueni")) ;; (add-to-list 'default-frame-alist '(font . "10x20")) ;; ) ;; ) ;;(modify-coding-system-alist 'file "\\.txt\\'" 'koi8) ;; ;; Чтобы раскладка соответствовала раскладке русских букв на виндовых (а теперь ;; таких большинство) клавиатурах, можно добавить еще следующие строки: ;; ;; redefine some orginal keybindings под MS - можно ли попроще? ;; ;; кнопка \| => \/ при переключения регистра (для моего удобства) ;; (require 'quail) (require 'cyrillic) (quail-define-package "russian-computer" "Cyrillic" "RU" nil "ЙЦУКЕH keyboard layout widely used in Russia (ISO 8859-5 encoding)" nil t t t t nil nil nil nil nil t) (quail-define-rules ("1" ?1) ("2" ?2) ("3" ?3) ("4" ?4) ("5" ?5) ("6" ?6) ("7" ?7) ("8" ?8) ("9" ?9) ("0" ?0) ("-" ?-) ("=" ?=) ("`" ?ё) ("q" ?й) ("w" ?ц) ("e" ?у) ("r" ?к) ("t" ?е) ("y" ?н) ("u" ?г) ("i" ?ш) ("o" ?щ) ("p" ?з) ("[" ?х) ("]" ?ъ) ("a" ?ф) ("s" ?ы) ("d" ?в) ("f" ?а) ("g" ?п) ("h" ?р) ("j" ?о) ("k" ?л) ("l" ?д) (";" ?ж) ("'" ?э) ("\\" ?\\) ("z" ?я) ("x" ?ч) ("c" ?с) ("v" ?м) ("b" ?и) ("n" ?т) ("m" ?ь) ("," ?б) ("." ?ю) ("/" ?.) ("!" ?!) ("@" ?\") ("#" ?#) ("$" ?\;) ("%" ?%) ("^" ?:) ("&" ??) ("*" ?*) ("(" ?() (")" ?)) ("_" ?_) ("+" ?+) ("~" ?~) ("Q" ?Й) ("W" ?Ц) ("E" ?У) ("R" ?К) ("T" ?Е) ("Y" ?Н) ("U" ?Г) ("I" ?Ш) ("O" ?Щ) ("P" ?З) ("{" ?Х) ("}" ?Ъ) ("A" ?Ф) ("S" ?Ы) ("D" ?В) ("F" ?А) ("G" ?П) ("H" ?Р) ("J" ?О) ("K" ?Л) ("L" ?Д) (":" ?Ж) ("\"" ?Э) ("|" ?/) ("Z" ?Я) ("X" ?Ч) ("C" ?С) ("V" ?М) ("B" ?И) ("N" ?Т) ("M" ?Ь) ("<" ?Б) (">" ?Ю) ("?" ?,)) (setq quail-keyboard-layout-type 'russian-computer) ;========================== ; End of the language environment settings. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;rus<->lat (require 'cl) (defvar usr:*en/ru-table* '((?q . ?й) (?w . ?ц) (?e . ?у) (?r . ?к) (?t . ?е) (?y . ?н) (?u . ?г) (?i . ?ш) (?o . ?щ) (?p . ?з) (?\[ . ?х) (?\] . ?ъ) (?a . ?ф) (?s . ?ы) (?d . ?в) (?f . ?а) (?g . ?п) (?h . ?р) (?j . ?о) (?k . ?л) (?l . ?д) (?\; . ?ж) (?' . ?э) (?z . ?я) (?x . ?ч) (?c . ?с) (?v . ?м) (?b . ?и) (?n . ?т) (?m . ?ь) (?, . ?б) (?. . ?ю) (?Q . ?Й) (?W . ?Ц) (?E . ?У) (?R . ?К) (?T . ?Е) (?Y . ?Н) (?U . ?Г) (?I . ?Ш) (?O . ?Щ) (?P . ?З) (?{ . ?Х) (?} . ?Ъ) (?A . ?Ф) (?S . ?Ы) (?D . ?В) (?F . ?А) (?G . ?П) (?H . ?Р) (?J . ?О) (?K . ?Л) (?L . ?Д) (?: . ?Ж) (?\" . ?Э) (?Z . ?Я) (?X . ?Ч) (?C . ?С) (?V . ?М) (?B . ?И) (?N . ?Т) (?M . ?Ь) (?< . ?Б) (?> . ?Ю) (?` . ?ё) (?~ . ?Ё) (?@ . ?\") (?# . ?\') (?$ . ?*) (?% . ?:) (?^ . ?,) (?& . ?.) (?* . ?\;))) (defun lat<->rus (beg end &optional arg) "Recode region that contains russain text typed in english into russian. With ARG given recode region in the other direction." (interactive "*r\nP") (save-excursion (goto-char beg) (do () ((>= (point) end)) (let* ((en-char (char-after (point))) (ru-char (if arg (car (rassoc en-char usr:*en/ru-table*)) (cdr (assoc en-char usr:*en/ru-table*))))) (delete-char 1) (insert (if ru-char ru-char en-char)))))) (defun rus<->lat (beg end &optional arg) "Recode region that contains russain text typed in english into russian. With ARG given recode region in the other direction." (interactive "*r\nP") (save-excursion (goto-char beg) (do () ((>= (point) end)) (let* ((en-char (char-after (point))) (ru-char (if arg (cdr (assoc en-char usr:*en/ru-table*)) (car (rassoc en-char usr:*en/ru-table*))))) (delete-char 1) (insert (if ru-char ru-char en-char)))))) ;; ;; Подсветка синтаксиса и подсветка блока -автомат ;; (cond (window-system (global-font-lock-mode t);подсветка синтаксиса (transient-mark-mode t); подсветка блока ;(setq font-lock-support-mode 'lazy-lock-mode) (setq font-lock-maximum-decoration t); максимально возможная раскрасска (tool-bar-mode nil);убрать линейку с картинками )) ;; ;; speedbar в меню Tools и запуск по F4 ;; (cond (window-system (define-key-after (lookup-key global-map [menu-bar tools]) [speedbar] '("Speedbar" . speedbar-frame-mode) [calendar]) (global-set-key [f4] 'speedbar-get-focus) )) ;; хотим subversion - не понятно, правда зачем ; (require 'psvn) ; (require 'vc-svn) ;; подключаем поддержку mercurial ;;(require 'mercurial) ;; подключаем ESS (require 'ess-site) ;; ;; Переопределение горячих клавиш ;; ;; We want compression support, entering tgz files etc.. :) ;(auto-compression-mode t) ;; !!! slows startup !!! ;; setting some f[1-12] keys (global-set-key [f1] 'woman) (global-set-key [f2] 'goto-line) ;;(global-set-key [f1] 'help) ;;(global-set-key [f2] 'save-buffer) ;;(global-set-key [f3] 'isearch-forward) ;;(global-set-key [f4] 'buffer-menu) ;;(global-set-key [C-f4] 'kill-buffer) ;;(global-set-key [S-f6] 'other-window) (global-set-key [f5] 'compile) ;;(global-set-key [f6] 'first-error) ;;(global-set-key [f7] 'previous-error) ;;(global-set-key [f8] 'next-error) ;;(global-set-key [f9] 'new-frame) ;;(global-set-key [S-f9] 'delete-frame) ;; ;;Режим auto-fill (автоматический перенос) для text-mode режимов ;; (add-hook 'text-mode-hook '(lambda () (auto-fill-mode 1))) ;;Автоматический пренос в 79 ой позиции - по умолчанию 70 (setq fill-column 79) ;; ;;Режим fly-spell - автоматический спеллинг ;; (add-hook 'text-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'latex-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'LaTeX-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'c++-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'c-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'perl-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'cperl-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'fortran-mode-hook '(lambda () (flyspell-mode 1))) ;;==================================== ;; emacsclient ;;==================================== (server-start) ;;==================================== ;; LaTeX ;;==================================== ;; ;; auctex - очень круто !!! - LaTeX, однако ;; ;; Если текст разбит на несколько частей, то во всех файлах ;;следует добавить строчку типа: ;;% -*- mode: latex; TeX-master: "<Главный файл>"; -*- ;; (require 'tex-site) (setq TeX-auto-save t) (setq TeX-parse-self t) (setq-default TeX-master nil) ;; forward search (xdvi only?) (setq TeX-source-specials-mode 1) (setq TeX-source-specials-view-start-server t) ;; определяем кодировку по latexenc (add-to-list 'file-coding-system-alist '("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system)) ;; Добавляем shell-escape для minted (eval-after-load "tex" '(setcdr (assoc "LaTeX" TeX-command-list) '("%`%l%(mode) -shell-escape%' %t" TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX") ) ) ;;(add-to-list 'TeX-command-list '("View" "%V" TeX-run-discard nil t)) ;;(add-to-list 'TeX-output-view-style ;; '("^dvi$" "." ;; "%(o?)xdvi -watchfile 1 %dS %d")) ;; x-symbol ;;(require 'x-symbol) ;; Переопределение функции из font-latex.el (auctex) ;; для того, чтобы правильно выделялись русские кавычки ,,лапки`` (defun font-latex-match-quotation (limit) "Used for patterns like: ``this is a normal quote'' and these are multilingual quoted strings: \"< french \"> and \"`german\"' quotes, << french >> and 8-bit french." (when (re-search-forward (eval-when-compile (concat "\\(,,\\)\\|\\(``\\)\\|\\(\"<\\)\\|\\(\"`\\)\\|\\(<<\\)\\|" "\\(" (char-to-string 171) "\\)")) ; An 8-bit "<<" limit t) (let ((beg (match-beginning 0))) (search-forward (cond ((match-beginning 1) "``") ((match-beginning 2) "''") ((match-beginning 3) "\">") ((match-beginning 4) "\"'") ((match-beginning 5) ">>") ((match-beginning 6) (eval-when-compile (char-to-string 187)))) limit 'move) (store-match-data (list beg (point))) t))) ;; Автовставка кавычек по нажатию клавиши " ;;(setq TeX-open-quote "«") ;;(setq TeX-close-quote "»") (setq TeX-open-quote "<<") (setq TeX-close-quote ">>") ;; ;; reftex - ref, labels и т.д. в LaTeX ;; (add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode ;(add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode (setq reftex-plug-into-AUCTeX t) ;plug in AucTex ;; ;; Если нет auctex ;; ;; Подстановка dvi вьюера ;;(setq tex-dvi-view-command ;; (if (eq window-system 'x) "xdvi" "dvi2tty * | cat -s")) ;; ;;====================================== ;; ;; Автовставка для пустого TeX файла ;;"% -*- mode: latex; TeX-master: \"" ;; (file-name-nondirectory f-name) ;; "\"; -*-\n" ;; "%Created: " (current-time-string) "\n" (add-hook 'find-file-not-found-hooks 'AutoInsertLaTeXHeader) (defun AutoInsertLaTeXHeader () (let ((f-name (buffer-file-name))) (if (string-match "\\.tex$" f-name) (insert "%% -*- coding: utf-8 -*-\n" "\\documentclass[a4paper,12pt]{scrartcl} \n" "\\usepackage[T2A]{fontenc}\n" "\\usepackage[utf8]{inputenc}\n" "\\usepackage[english,russian]{babel}\n" "\\usepackage{indentfirst}%first paragraph indent\n" "\\usepackage{misccorr}\n" "\\usepackage{cmap}\n" "\\usepackage[unicode=true]{hyperref}\n" "\\usepackage{graphicx}\n" "\\usepackage{amssymb}\n" "\\usepackage{amsmath}\n" "\\usepackage{srcltx}\n" "\\usepackage{textcomp}\n" "\\usepackage{wrapfig}\n" "\\usepackage{afterpage}\n" "\\usepackage{ccaption}\n" "\\captiondelim{. }\n" "\\usepackage{xspace}\n" "%научные символы и смайлики \\smiley \\frownie\n" "\\usepackage{wasysym}\n" "%подавление висячих строк.\n" "\\clubpenalty=10000 \\widowpenalty=10000\n" "\n" "%backslash\n" "\\newcommand{\\bs}{\\symbol{'134}}\n" "%degree\n" "\\newcommand{\\grad}{\\ensuremath{{}^{\\circ}}\\xspace}\n" "\\begin{document}\n\n\n" "%\\begin{thebibliography}{9}\n" "%\\bibitem{}\n" "%\\newblock\n" "%\\end{thebibliography}\n" "\\end{document}\n" )))) ;;========================================== ;; ;; Make all "yes or no" prompts show "y or n" instead ;; (fset 'yes-or-no-p 'y-or-n-p) ;; This tells emacs to show the column number in each modeline. ;; Not enabled by default (column-number-mode 1) ;; ;; Frame title bar formatting to show full path of file ;; (setq-default frame-title-format (list '((buffer-file-name " %f" (dired-directory dired-directory (revert-buffer-function " %b" ("%b - Dir: " default-directory))))))) (setq-default icon-title-format (list '((buffer-file-name " %f" (dired-directory dired-directory (revert-buffer-function " %b" ("%b - Dir: " default-directory))))))) ;;Словарь для ispell - подставьте свой ;;Проверить что есть можно M-x ispell-change-dictionary TAB ;;(require 'path-util) (load-library "ispell") ;;(setq ispell-program-name "aspell") (setq ispell-dictionary "russian") (setq flyspell-default-dictionary "russian") ;;(setq ispell-local-dictionary "russian") ;;Словарь для ispell - подставьте свой ;;Проверить что есть можно M-x ispell-change-dictionary TAB ;;(setq ispell-dictionary "localbaldin") ;; ;; Customize the calendar ;; (setq european-calendar-style 't) (setq calendar-week-start-day 1) ;; ;; Кастомизация woman - without man - man смотрелка ;; (setq woman-cache-filename "~/.wmncach.el") ;;cash file (setq woman-cache-level 3);; размер кэша ;; ;; Языки программирования ;; ;; hs-minor-mode - скрывает функции ;; Для фортрана autofill (add-hook 'fortran-mode-hook '(lambda () (fortran-auto-fill-mode 1))) ;;Добавляем расширение inc для фортрана (setq auto-mode-alist (append '(("\\.inc\\'" . fortran-mode)) auto-mode-alist)) ;; ;; cperl - альтернативная perl - мода ;; (setq cperl-hairy t) (defalias 'perl-mode 'cperl-mode) ;; Добавляем cperl моду для pl и pm файлов (setq auto-mode-alist (append '(("\\.pm\\'" . cperl-mode)) auto-mode-alist)) (setq auto-mode-alist (append '(("\\.pl\\'" . cperl-mode)) auto-mode-alist)) ;; ;; maxima ;; (autoload 'maxima-mode "maxima" "Maxima mode" t) (autoload 'maxima "maxima" "Maxima interaction" t) (setq auto-mode-alist (cons '("\\.max" . maxima-mode) auto-mode-alist)) ;; ;; Полезные установки ;; ;;Размер окна компиляции в десять строчек (setq compilation-window-height 10) ;; Убить Startup Message (setq inhibit-startup-message t) ;; Установить формат времени (setq time-stamp-format "%02d-%02m-%Y %02H:%02M:%02S") ;; C^x C^l - чтобы не задавала дурных вопросов (put 'downcase-region 'disabled nil) ;; C^x C^u - чтобы не задавала дурных вопросов (put 'upcase-region 'disabled nil) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Try to read mouse events in Linux console and Xterm: ;(TTYlaunch ; (if (and ; (require 't-mouse nil "no error") ; (t-mouse-tty)) ; (t-mouse-run) ; (xterm-mouse-mode t))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Turn on mouse wheel support. ; This function is compatible with XEmacs: (mwheel-install) (setq mouse-wheel-follow-mouse t) ; Mouse wheel support should be turned on now ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; There is a special mouse-sel mode ; It offres alternaitve bindings for ; selection manipulation with mouse. ; This setting fits better to the rest of selection handling ; (it should be set already in mouse-sel.el): ; ALT's GNU Emacs by default works with X clippoard, ; not the primary selection. ;(Windows ; (if x-select-enable-clipboard ; (setq mouse-sel-default-bindings 'interprogram-cut-paste))) ; And here you can actually load the mode (uncomment the next line): ;(require 'mouse-sel) ; End of the mouse-sel section ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;Windows setup start;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (Windows ;; ;; setting coding systems ;; (set-w32-system-coding-system 'cp1251) ;; ;; Setting italic fonts ;; ;; This must be done before setting other font properties! (Emacs 20) ;; (setq w32-enable-italics t) ;; (set-face-font ;; 'italic "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-*") ;; (set-face-font ;; 'bold-italic "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-*")) ;; Всякая всячена ;; Hе показывать рекламку (setq inhibit-startup-message t) ;; ;;Сохранение десктопа (редактировать то же, что и до закрытия редактора) ;; Запускать из того же каталога, в котором emacs работал раньше ;; Сохраняеть desktop можно с помощью команды M-x desktop-save - ;; первый раз это сделать необходимо ;;(desktop-load-default) ;;(desktop-read) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;; Useful functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;convert a buffer from dos ^M end of lines to unix end of lines (defun dos2unix () (interactive) (goto-char (point-min)) (while (search-forward "\r" nil t) (replace-match ""))) ;vice versa (defun unix2dos () (interactive) (goto-char (point-min)) (while (search-forward "\n" nil t) (replace-match "\r\n"))) ;; Inserts the date in the format (defun insert-date () "Insert date at point." (interactive) (insert (format-time-string "%d.%m.%Y %H:%M"))) ;; (defun egoge-wash-out-colour (colour &optional degree) ;; "Return a colour string specifying a washed-out version of COLOUR." ;; (let ((basec (color-values ;; (face-attribute 'default :foreground))) ;; (col (color-values colour)) ;; (list nil)) ;; (unless degree (setq degree 2)) ;; (while col ;; (push (/ (/ (+ (pop col) ;; (* degree (pop basec))) ;; (1+ degree)) ;; 256) ;; list)) ;; (apply 'format "#%02x%02x%02x" (nreverse list)))) ;; (defun egoge-wash-out-face (face &optional degree) ;; "Make the foreground colour of FACE appear a bit more pale." ;; (let ((colour (face-attribute face :foreground))) ;; (unless (eq colour 'unspecified) ;; (set-face-attribute face nil ;; :foreground (egoge-wash-out-colour colour degree))))) ;; (defun egoge-find-faces (regexp) ;; "Return a list of all faces whose names match REGEXP." ;; (delq nil ;; (mapcar (lambda (face) ;; (and (string-match regexp ;; (symbol-name face)) ;; face)) ;; (face-list)))) ;; (defun egoge-wash-out-fontlock-faces (&optional degree) ;; (mapc (lambda (elt) ;; (egoge-wash-out-face elt degree)) ;; (delq 'font-lock-warning-face ;; (egoge-find-faces "^font-lock")))) ;; (when (> (length (defined-colors)) 16) ;; (egoge-wash-out-fontlock-faces 2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;; Customization from menu ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; '(current-language-environment "Cyrillic-KOI8") ; '(default-input-method "cyrillic-jcuken") ; '(face-font-registry-alternatives (quote (("iso8859-5" "koi8-r" "koi8" "microsoft-cp1251")))) ; '(flyspell-delay 2) ; '(jit-lock-chunk-size 2000) ; '(jit-lock-stealth-time 2) ;; (custom-set-faces ;; ;; custom-set-faces was added by Custom. ;; ;; If you edit it by hand, you could mess it up, so be careful. ;; ;; Your init file should contain only one such instance. ;; ;; If there is more than one, they won't work right. ;; '(background "blue") ;; '(font-latex-verbatim-face ((((class color) (background dark)) (:inherit fixed-pitch :foreground "burlywood" :family "fixed")))) ;; '(font-lock-builtin-face ((((class color) (background dark)) (:foreground "Turquoise")))) ;; '(font-lock-comment-face ((t (:foreground "MediumAquamarine")))) ;; '(font-lock-constant-face ((((class color) (background dark)) (:bold t :foreground "DarkOrchid")))) ;; '(font-lock-doc-string-face ((t (:foreground "green2")))) ;; '(font-lock-function-name-face ((t (:foreground "SkyBlue")))) ;; '(font-lock-keyword-face ((t (:bold t :foreground "CornflowerBlue")))) ;; '(font-lock-preprocessor-face ((t (:italic nil :foreground "CornFlowerBlue")))) ;; '(font-lock-reference-face ((t (:foreground "DodgerBlue")))) ;; '(font-lock-string-face ((t (:foreground "LimeGreen")))) ;; '(font-lock-type-face ((t (:foreground "#9290ff")))) ;; '(font-lock-variable-name-face ((t (:foreground "PaleGreen")))) ;; '(font-lock-warning-face ((((class color) (background dark)) (:foreground "yellow" :background "red")))) ;; '(highlight ((t (:background "CornflowerBlue")))) ;; '(list-mode-item-selected ((t (:background "gold")))) ;; '(makefile-space-face ((t (:background "wheat"))) t) ;; '(mode-line ((t nil))) ;; '(org-level-1 ((t (:inherit outline-1 :underline t)))) ;; '(org-level-2 ((t (:inherit outline-1 :box nil)))) ;; '(paren-match ((t (:background "darkseagreen4")))) ;; '(region ((t (:background "DarkSlateBlue")))) ;; '(show-paren-match ((t (:foreground "black" :background "wheat")))) ;; '(show-paren-mismatch ((((class color)) (:foreground "white" :background "red")))) ;; '(speedbar-button-face ((((class color) (background dark)) (:foreground "green4")))) ;; '(speedbar-directory-face ((((class color) (background dark)) (:foreground "khaki")))) ;; '(speedbar-file-face ((((class color) (background dark)) (:foreground "cyan")))) ;; '(speedbar-tag-face ((((class color) (background dark)) (:foreground "Springgreen")))) ;; '(vhdl-speedbar-architecture-selected-face ((((class color) (background dark)) (:underline t :foreground "Blue")))) ;; '(vhdl-speedbar-entity-face ((((class color) (background dark)) (:foreground "darkGreen")))) ;; '(vhdl-speedbar-entity-selected-face ((((class color) (background dark)) (:underline t :foreground "darkGreen")))) ;; '(vhdl-speedbar-package-face ((((class color) (background dark)) (:foreground "black")))) ;; '(vhdl-speedbar-package-selected-face ((((class color) (background dark)) (:underline t :foreground "black")))) ;; '(widget-field ((((class grayscale color) (background light)) (:background "DarkBlue"))))) (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(TeX-source-correlate-mode t) '(column-number-mode t) '(scroll-bar-mode nil) '(show-paren-mode t) '(speedbar-frame-parameters (quote ((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (set-background-color "black")))) '(utf-fragment-on-decoding t) '(version-control nil)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. )