My configuration files

Here are some configuration files from my computer.

I use Debian GNU/Linux, xmonad, GNU Emacs, and rxvt-unicode (see the corresponding list in my collection of links).

`~/.xmonad/xmonad.hs`

import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.DynamicLog

main = xmonad defaultConfig
              { modMask = mod4Mask
              , normalBorderColor = "#006"
              , focusedBorderColor = "#09f"
              , borderWidth = 2
              , terminal = "urxvt -pe tabbed -tr -sh 10"
              , manageHook = manageDocks <+> manageHook defaultConfig
              , layoutHook = avoidStruts $ layoutHook defaultConfig
              , logHook = dynamicLogDzen }

`~/.xinitrc`

xpmroot ~/.img/wallpaper.png
xsetroot -cursor_name left_ptr

setxkbmap -option ''
setxkbmap -layout 'us,ru' -option 'grp:caps_toggle'

~/.xmonad/xmonad | ~/dzen.pl | dzen2 -h 24 -fg '#fff' -bg '#069' -ta r

~/dzen.pl is a tiny script that shows current time, ACPI data, etc.

`~/.Xdefaults`

Emacs*font: 8x13

URxvt.cursorColor:  #003366
URxvt.pointerColor: #003366
URxvt.background:   #ffffff
URxvt.foreground:   #000000
URxvt.color0:       #000099
URxvt.color1:       #0099cc
URxvt.font: xft:DejaVu Sans Mono:pixelsize=12

`~/.emacs`

(display-time)
(show-paren-mode)
(setq inhibit-startup-message t)
(setq inhibit-startup-echo-area-message t)
(blink-cursor-mode nil)
(setq indent-tabs-mode nil)
(setq-default show-trailing-whitespace t)
(if window-system (set-default-font "9x15"))


;; Input method
(setq default-input-method "cyrillic-translit")
(global-set-key [Scroll_Lock] 'toggle-input-method)

(defvar cyrillic-text nil)
(setq cyrillic-text nil)
(make-variable-buffer-local 'cyrillic-text)

(defun toggle-cyrillic ()
  (interactive)
  (toggle-input-method)
  (setq cyrillic-text
	(equal current-input-method "cyrillic-translit")))

; add (if cyrillic-text (toggle-input-method))
; to (defun TeX-insert-dollar ...)
; in /usr/share/emacs/site-lisp/auctex/tex.el


;; Autofill
(setq-default fill-column 60)
(defun autofill () "turns on/off autofill" (interactive) (auto-fill-mode))

(global-set-key [f5] 'autofill)


;; AUCTeX
(custom-set-faces
 '(font-latex-sectioning-0-face ((t (:inherit font-latex-sectioning-1-face :height 1.1 :family "12x24"))))
 '(font-latex-sectioning-1-face ((t (:inherit font-latex-sectioning-2-face :height 1.1 :family "11x18"))))
 '(font-latex-sectioning-2-face ((t (:inherit font-latex-sectioning-3-face :height 1.1 :family "10x20"))))
 '(font-latex-sectioning-3-face ((t (:inherit font-latex-sectioning-4-face :height 1.1 :family "9x15"))))
 '(font-latex-sectioning-4-face ((t (:inherit font-latex-sectioning-5-face :height 1.1 :family "9x15")))))

(add-hook 'LaTeX-mode-hook (lambda ()
			     (TeX-PDF-mode)
			     (LaTeX-add-environments "theorem"
						     "lemma"
						     "proposition"
						     "definition"
						     "note"
						     "corollary"
						     "example"
						     "align"
						     "gather"
						     "proof"
						     "remark"
						     "exercise")))

(put 'upcase-region 'disabled nil)