Commits

Alexander Dinu  committed 0d72e3d

UPD: xmobar и emacs теперь в теме tomorrow-night;
добавлены скрипты xrandr для одного экрана и двух (работает и дома и на работе, фак е)

  • Participants
  • Parent commits c11d64b
  • Branches dotfiles

Comments (0)

Files changed (14)

 (add-to-list 'load-path "~/.emacs.d/contrib/haskell-mode")
 (add-to-list 'load-path "~/.emacs.d/contrib/emacs-w3m")
 (add-to-list 'load-path "~/.emacs.d/contrib/twittering-mode")
+(add-to-list 'load-path "~/.emacs.d/contrib/tomorrow-theme")
 
 (load-file "/home/aluuu/.emacs.d/conf.d/base.el")
 (load-file "/home/aluuu/.emacs.d/conf.d/appearance.el")
-;; (load-file "/home/aluuu/.emacs.d/conf.d/auto-complete.el")
+(load-file "/home/aluuu/.emacs.d/conf.d/auto-complete.el")
 (load-file "/home/aluuu/.emacs.d/conf.d/lisp.el")
 (load-file "/home/aluuu/.emacs.d/conf.d/flymake.el")
 (load-file "/home/aluuu/.emacs.d/conf.d/haskell.el")
-(require 'twittering-mode)
 
 (setq browse-url-browser-function 'browse-url-generic
       browse-url-generic-program "google-chrome")
-(require 'ipython)
-(require 'anything)
-(require 'anything-config)
-(require 'anything-match-plugin)
-(require 'anything-ipython)
-(require 'anything-show-completion)
-(use-anything-show-completion 'anything-ipython-complete
-                              '(length initial-pattern))

File emacs.d/conf.d/appearance.el

 ;; (set-face-bold-p 'tabbar-selected nil)
 ;; (set-face-attribute 'tabbar-button nil :box '(:line-width 1 :color "#002b36"))
 
-(require 'color-theme-solarized)
-(color-theme-solarized-light)
-(set-face-foreground 'tabbar-default "#586e75")
-(set-face-background 'tabbar-default "#fdf6e3")
-(set-face-foreground 'tabbar-selected "#073642")
-(set-face-bold-p 'tabbar-selected nil)
-(set-face-attribute 'tabbar-button nil :box '(:line-width 1 :color "#073642"))
+;; (require 'color-theme-solarized)
+;; (color-theme-solarized-light)
+;; (set-face-foreground 'tabbar-default "#586e75")
+;; (set-face-background 'tabbar-default "#fdf6e3")
+;; (set-face-foreground 'tabbar-selected "#073642")
+;; (set-face-bold-p 'tabbar-selected nil)
+;; (set-face-attribute 'tabbar-button nil :box '(:line-width 1 :color "#073642"))
 
 ;; (require 'color-theme-gruber-darker)
 ;; (color-theme-gruber-darker)
+(require 'color-theme-tomorrow)
+(color-theme-tomorrow-night)

File emacs.d/conf.d/lisp.el

   (hs-minor-mode 1)
   ;; (paredit-mode 1)
   (highlight-symbol-mode)
+  (slime-mode)
   (setq highlight-symbol-face '((:underline t)))
   (custom-set-faces '(highlight-symbol-face ((((class color) (background dark)) (:background "yellow"))))))
 
      (global-set-key "\C-x \C-e" 'slime-eval-last-expression)
      (global-set-key "\C-c \C-r" 'slime-eval-region)
      (global-set-key "\C-c \C-c" 'slime-compile-file)
-     (slime-setup '(slime-fancy))
+     (slime-setup '(slime-fancy slime-indentation slime-tramp slime-asdf slime-sprof))
      (custom-set-variables
       '(slime-complete-symbol*-fancy t)
       '(slime-net-coding-system 'utf-8-unix)

File emacs.d/contrib/tomorrow-theme/color-theme-tomorrow.el

+;;; color-theme-tomorrow.el --- GNU Emacs port of the Tomorrow Theme.
+
+;;; Commentary:
+;;
+;;; Tomorrow Theme
+;;
+;; Originally by Chris Kempson https://github.com/ChrisKempson/Tomorrow-Theme
+;; Ported to GNU Emacs by Chris Charles
+
+(require 'color-theme)
+
+;;; Code:
+
+(defun color-theme-tomorrow-real (&optional variant)
+  "Enable the appropriate Tomorrow theme based on VARIANT.
+
+VARIANT can be 'night, 'night-eighties, 'night-blue or
+'night-bright.  If VARIANT is not present, the light Tomorrow
+theme will be used."
+
+  (let ((background "#ffffff")
+        (current-line "#e9efff")
+        (selection "#c5cce9")
+        (foreground "#4d4d4c")
+        (comment "#8e908c")
+        (cursor "#aeafad")
+        (red "#c82829")
+        (orange "#f5871f")
+        (yellow "#eab700")
+        (green "#718c00")
+        (aqua "#3e999f")
+        (blue "#4271ae")
+        (purple "#8959a8"))
+
+    (cond ((eq variant 'night)
+           (setq background "#1d1f21"
+                 current-line "#282a2e"
+                 selection "#373b41"
+                 foreground "#c5c8c6"
+                 comment "#969896"
+                 cursor "#aeafad"
+                 red "#cc6666"
+                 orange "#de935f"
+                 yellow "#f0c674"
+                 green "#b5bd68"
+                 aqua "#8abeb7"
+                 blue "#81a2be"
+                 purple "#b294bb"))
+
+          ((eq variant 'night-eighties)
+           (setq background "#2d2d2d"
+                 current-line "#393939"
+                 selection "#515151"
+                 foreground "#cccccc"
+                 comment "#999999"
+                 cursor "#cccccc"
+                 red "#f2777a"
+                 orange "#f99157"
+                 yellow "#ffcc66"
+                 green "#99cc99"
+                 aqua "#009999"
+                 blue "#99cccc"
+                 purple "#cc99cc"))
+
+          ((eq variant 'night-blue)
+           (setq background "#002451"
+                 current-line "#00346e"
+                 selection "#003f8e"
+                 foreground "#ffffff"
+                 comment "#7285b7"
+                 cursor "#ffffff"
+                 red "#ff9da4"
+                 orange "#ffc58f"
+                 yellow "#ffeead"
+                 green "#d1f1a9"
+                 aqua "#99ffff"
+                 blue "#bbdaff"
+                 purple "#ebbbff"))
+
+          ((eq variant 'night-bright)
+           (setq background "#000000"
+                 current-line "#2a2a2a"
+                 selection "#424242"
+                 foreground "#dedede"
+                 comment "#969896"
+                 cursor "#9f9f9f"
+                 red "#d54e53"
+                 orange "#e78c45"
+                 yellow "#e7c547"
+                 green "#b9ca4a"
+                 aqua "#70c0b1"
+                 blue "#7aa6da"
+                 purple "#c397d8")))
+
+    (color-theme-install
+     `(color-theme-tomorrow-real
+       ((background . ,background)
+        (background-mode . dark)
+        (border-color . ,cursor)
+        (cursor-color . ,cursor)
+        (foreground-color . ,foreground))
+
+       ;; Built-in stuff (Emacs 23)
+       (default ((t (:background ,background :foreground ,foreground))))
+       (fringe ((t (:background ,current-line))))
+       (minibuffer-prompt ((t (:foreground ,blue))))
+       (mode-line ((t (:background ,current-line :foreground ,foreground))))
+       (region ((t (:background ,selection))))
+
+       ;; Font-lock stuff
+       (font-lock-comment-face ((t (:foreground ,comment))))
+       (font-lock-constant-face ((t (:foreground ,green))))
+       (font-lock-doc-string-face ((t (:foreground ,comment))))
+       (font-lock-function-name-face ((t (:foreground ,blue))))
+       (font-lock-keyword-face ((t (:foreground ,purple))))
+       (font-lock-string-face ((t (:foreground ,green))))
+       (font-lock-type-face ((t (:foreground ,yellow))))
+       (font-lock-variable-name-face ((t (:foreground ,red))))
+       (font-lock-warning-face ((t (:foreground ,red))))
+
+       ;; hl-line-mode
+       (hl-line ((t (:background ,current-line))))
+
+       ;; linum-mode
+       (linum ((t (:background ,current-line :foreground ,foreground))))
+
+       ;; org-mode
+       (org-date ((t (:foreground ,purple))))
+       (org-done ((t (:foreground ,green))))
+       (org-hide ((t (:foreground ,current-line))))
+       (org-link ((t (:foreground ,blue))))
+       (org-todo ((t (:foreground ,red))))
+
+       ;; show-paren-mode
+       (show-paren-match-face ((t (:background ,blue :foreground ,current-line))))
+       (show-paren-mismatch-face ((t (:background ,orange :foreground ,current-line))))))))
+
+(defun color-theme-tomorrow ()
+  "Base light Tomorrow theme."
+  (interactive)
+  (color-theme-tomorrow-real))
+(provide 'color-theme-tomorrow)
+
+(defun color-theme-tomorrow-night ()
+  "Dark Tomorrow theme."
+  (interactive)
+  (color-theme-tomorrow-real 'night))
+(provide 'color-theme-tomorrow-night)
+
+(defun color-theme-tomorrow-night-eighties ()
+  "Somewhat lighter dark Tomorrow theme."
+  (interactive)
+  (color-theme-tomorrow-real 'night-eighties))
+(provide 'color-theme-tomorrow-night-eighties)
+
+(defun color-theme-tomorrow-night-blue ()
+  "Dark Tomorrow theme with a blue background."
+  (interactive)
+  (color-theme-tomorrow-real 'night-blue))
+(provide 'color-theme-tomorrow-night-blue)
+
+(defun color-theme-tomorrow-night-bright ()
+  "Dark Tomorrow theme with a brighter, higher-contrast look."
+  (interactive)
+  (color-theme-tomorrow-real 'night-bright))
+(provide 'color-theme-tomorrow-night-bright)
+
+
+(add-to-list 'color-themes
+             '(color-theme-tomorrow
+               "Tomorrow" "Chris Kempson (ported by Chris Charles)"))
+(add-to-list 'color-themes
+             '(color-theme-tomorrow-night
+               "Tomorrow Night" "Chris Kempson (ported by Chris Charles)"))
+(add-to-list 'color-themes
+             '(color-theme-tomorrow-night-eighties
+               "Tomorrow Night Eighties" "Chris Kempson (ported by Chris Charles)"))
+(add-to-list 'color-themes
+             '(color-theme-tomorrow-night-blue
+               "Tomorrow Night Blue" "Chris Kempson (ported by Chris Charles)"))
+(add-to-list 'color-themes
+             '(color-theme-tomorrow-night-bright
+               "Tomorrow Night Bright" "Chris Kempson (ported by Chris Charles)"))
+
+;;; color-theme-tomorrow.el ends here

File emacs.d/contrib/tomorrow-theme/tomorrow-night-blue-theme.el

+;;; tomorrow-night-blue-theme.el --- custom theme for faces
+
+;;; Commentary:
+;;
+;;; Tomorrow Night Blue Theme
+;;
+;; Originally by Chris Kempson https://github.com/ChrisKempson/Tomorrow-Theme
+;; Ported to GNU Emacs by Chris Charles
+;; Ported to GNU Emacs 24's built-in theme system by Jim Myhrberg (@jimeh)
+
+;;; Code:
+
+(deftheme tomorrow-night-blue
+  "A Pastel Coloured Theme")
+
+(let ((background "#002451")
+      (current-line "#00346e")
+      (selection "#003f8e")
+      (foreground "#ffffff")
+      (comment "#7285b7")
+      (cursor "#ffffff")
+      (red "#ff9da4")
+      (orange "#ffc58f")
+      (yellow "#ffeead")
+      (green "#d1f1a9")
+      (aqua "#99ffff")
+      (blue "#bbdaff")
+      (purple "#ebbbff"))
+
+  (custom-theme-set-faces
+   'tomorrow-night-blue
+
+   ;; Built-in stuff (Emacs 23)
+   `(default ((t (:background ,background :foreground ,foreground))))
+   `(fringe ((t (:background ,current-line))))
+   `(minibuffer-prompt ((t (:foreground ,blue))))
+   `(mode-line ((t (:background ,current-line :foreground ,foreground))))
+   `(region ((t (:background ,selection))))
+
+   ;; Font-lock stuff
+   `(font-lock-comment-face ((t (:foreground ,comment))))
+   `(font-lock-constant-face ((t (:foreground ,green))))
+   `(font-lock-doc-string-face ((t (:foreground ,comment))))
+   `(font-lock-function-name-face ((t (:foreground ,blue))))
+   `(font-lock-keyword-face ((t (:foreground ,purple))))
+   `(font-lock-string-face ((t (:foreground ,green))))
+   `(font-lock-type-face ((t (:foreground ,yellow))))
+   `(font-lock-variable-name-face ((t (:foreground ,red))))
+   `(font-lock-warning-face ((t (:foreground ,red))))
+
+   ;; hl-line-mode
+   `(hl-line ((t (:background ,current-line))))
+
+   ;; linum-mode
+   `(linum ((t (:background ,current-line :foreground ,foreground))))
+
+   ;; org-mode
+   `(org-date ((t (:foreground ,purple))))
+   `(org-done ((t (:foreground ,green))))
+   `(org-hide ((t (:foreground ,current-line))))
+   `(org-link ((t (:foreground ,blue))))
+   `(org-todo ((t (:foreground ,red))))
+
+   ;; show-paren-mode
+   `(show-paren-match ((t (:background ,blue :foreground ,current-line))))
+   `(show-paren-mismatch ((t (:background ,orange :foreground ,current-line)))))
+
+  (custom-theme-set-variables
+   'tomorrow-night-blue
+
+   `(ansi-color-names-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])
+   `(ansi-term-color-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [unspecified ,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])))
+
+(provide-theme 'tomorrow-night-blue)
+
+;;; tomorrow-night-blue-theme.el ends here

File emacs.d/contrib/tomorrow-theme/tomorrow-night-bright-theme.el

+;;; tomorrow-night-bright-theme.el --- custom theme for faces
+
+;;; Commentary:
+;;
+;;; Tomorrow Night Bright Theme
+;;
+;; Originally by Chris Kempson https://github.com/ChrisKempson/Tomorrow-Theme
+;; Ported to GNU Emacs by Chris Charles
+;; Ported to GNU Emacs 24's built-in theme system by Jim Myhrberg (@jimeh)
+
+;;; Code:
+
+(deftheme tomorrow-night-bright
+  "A Pastel Coloured Theme")
+
+(let ((background "#000000")
+      (current-line "#2a2a2a")
+      (selection "#424242")
+      (foreground "#dedede")
+      (comment "#969896")
+      (cursor "#9f9f9f")
+      (red "#d54e53")
+      (orange "#e78c45")
+      (yellow "#e7c547")
+      (green "#b9ca4a")
+      (aqua "#70c0b1")
+      (blue "#7aa6da")
+      (purple "#c397d8"))
+
+  (custom-theme-set-faces
+   'tomorrow-night-bright
+
+   ;; Built-in stuff (Emacs 23)
+   `(default ((t (:background ,background :foreground ,foreground))))
+   `(fringe ((t (:background ,current-line))))
+   `(minibuffer-prompt ((t (:foreground ,blue))))
+   `(mode-line ((t (:background ,current-line :foreground ,foreground))))
+   `(region ((t (:background ,selection))))
+
+   ;; Font-lock stuff
+   `(font-lock-comment-face ((t (:foreground ,comment))))
+   `(font-lock-constant-face ((t (:foreground ,green))))
+   `(font-lock-doc-string-face ((t (:foreground ,comment))))
+   `(font-lock-function-name-face ((t (:foreground ,blue))))
+   `(font-lock-keyword-face ((t (:foreground ,purple))))
+   `(font-lock-string-face ((t (:foreground ,green))))
+   `(font-lock-type-face ((t (:foreground ,yellow))))
+   `(font-lock-variable-name-face ((t (:foreground ,red))))
+   `(font-lock-warning-face ((t (:foreground ,red))))
+
+   ;; hl-line-mode
+   `(hl-line ((t (:background ,current-line))))
+
+   ;; linum-mode
+   `(linum ((t (:background ,current-line :foreground ,foreground))))
+
+   ;; org-mode
+   `(org-date ((t (:foreground ,purple))))
+   `(org-done ((t (:foreground ,green))))
+   `(org-hide ((t (:foreground ,current-line))))
+   `(org-link ((t (:foreground ,blue))))
+   `(org-todo ((t (:foreground ,red))))
+
+   ;; show-paren-mode
+   `(show-paren-match ((t (:background ,blue :foreground ,current-line))))
+   `(show-paren-mismatch ((t (:background ,orange :foreground ,current-line)))))
+
+  (custom-theme-set-variables
+   'tomorrow-night-bright
+
+   `(ansi-color-names-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])
+   `(ansi-term-color-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [unspecified ,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])))
+
+(provide-theme 'tomorrow-night-bright)
+
+;;; tomorrow-night-bright-theme.el ends here

File emacs.d/contrib/tomorrow-theme/tomorrow-night-eighties-theme.el

+;;; tomorrow-night-eighties-theme.el --- custom theme for faces
+
+;;; Commentary:
+;;
+;;; Tomorrow Night Eighties Theme
+;;
+;; Originally by Chris Kempson https://github.com/ChrisKempson/Tomorrow-Theme
+;; Ported to GNU Emacs by Chris Charles
+;; Ported to GNU Emacs 24's built-in theme system by Jim Myhrberg (@jimeh)
+
+;;; Code:
+
+(deftheme tomorrow-night-eighties
+  "A Pastel Coloured Theme")
+
+(let ((background "#2d2d2d")
+      (current-line "#393939")
+      (selection "#515151")
+      (foreground "#cccccc")
+      (comment "#999999")
+      (cursor "#cccccc")
+      (red "#f2777a")
+      (orange "#f99157")
+      (yellow "#ffcc66")
+      (green "#99cc99")
+      (aqua "#009999")
+      (blue "#99cccc")
+      (purple "#cc99cc"))
+
+  (custom-theme-set-faces
+   'tomorrow-night-eighties
+
+   ;; Built-in stuff (Emacs 23)
+   `(default ((t (:background ,background :foreground ,foreground))))
+   `(fringe ((t (:background ,current-line))))
+   `(minibuffer-prompt ((t (:foreground ,blue))))
+   `(mode-line ((t (:background ,current-line :foreground ,foreground))))
+   `(region ((t (:background ,selection))))
+
+   ;; Font-lock stuff
+   `(font-lock-comment-face ((t (:foreground ,comment))))
+   `(font-lock-constant-face ((t (:foreground ,green))))
+   `(font-lock-doc-string-face ((t (:foreground ,comment))))
+   `(font-lock-function-name-face ((t (:foreground ,blue))))
+   `(font-lock-keyword-face ((t (:foreground ,purple))))
+   `(font-lock-string-face ((t (:foreground ,green))))
+   `(font-lock-type-face ((t (:foreground ,yellow))))
+   `(font-lock-variable-name-face ((t (:foreground ,red))))
+   `(font-lock-warning-face ((t (:foreground ,red))))
+
+   ;; hl-line-mode
+   `(hl-line ((t (:background ,current-line))))
+
+   ;; linum-mode
+   `(linum ((t (:background ,current-line :foreground ,foreground))))
+
+   ;; org-mode
+   `(org-date ((t (:foreground ,purple))))
+   `(org-done ((t (:foreground ,green))))
+   `(org-hide ((t (:foreground ,current-line))))
+   `(org-link ((t (:foreground ,blue))))
+   `(org-todo ((t (:foreground ,red))))
+
+   ;; show-paren-mode
+   `(show-paren-match ((t (:background ,blue :foreground ,current-line))))
+   `(show-paren-mismatch ((t (:background ,orange :foreground ,current-line)))))
+
+  (custom-theme-set-variables
+   'tomorrow-night-eighties
+
+   `(ansi-color-names-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])
+   `(ansi-term-color-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [unspecified ,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])))
+
+(provide-theme 'tomorrow-night-eighties)
+
+;;; tomorrow-night-eighties-theme.el ends here

File emacs.d/contrib/tomorrow-theme/tomorrow-night-theme.el

+;;; tomorrow-night-theme.el --- custom theme for faces
+
+;;; Commentary:
+;;
+;;; Tomorrow Night Theme
+;;
+;; Originally by Chris Kempson https://github.com/ChrisKempson/Tomorrow-Theme
+;; Ported to GNU Emacs by Chris Charles
+;; Ported to GNU Emacs 24's built-in theme system by Jim Myhrberg (@jimeh)
+
+;;; Code:
+
+(deftheme tomorrow-night
+  "A Pastel Coloured Theme")
+
+(let ((background "#1d1f21")
+      (current-line "#282a2e")
+      (selection "#373b41")
+      (foreground "#c5c8c6")
+      (comment "#969896")
+      (cursor "#aeafad")
+      (red "#cc6666")
+      (orange "#de935f")
+      (yellow "#f0c674")
+      (green "#b5bd68")
+      (aqua "#8abeb7")
+      (blue "#81a2be")
+      (purple "#b294bb"))
+
+  (custom-theme-set-faces
+   'tomorrow-night
+
+   ;; Built-in stuff (Emacs 23)
+   `(default ((t (:background ,background :foreground ,foreground))))
+   `(fringe ((t (:background ,current-line))))
+   `(minibuffer-prompt ((t (:foreground ,blue))))
+   `(mode-line ((t (:background ,current-line :foreground ,foreground))))
+   `(region ((t (:background ,selection))))
+
+   ;; Font-lock stuff
+   `(font-lock-comment-face ((t (:foreground ,comment))))
+   `(font-lock-constant-face ((t (:foreground ,green))))
+   `(font-lock-doc-string-face ((t (:foreground ,comment))))
+   `(font-lock-function-name-face ((t (:foreground ,blue))))
+   `(font-lock-keyword-face ((t (:foreground ,purple))))
+   `(font-lock-string-face ((t (:foreground ,green))))
+   `(font-lock-type-face ((t (:foreground ,yellow))))
+   `(font-lock-variable-name-face ((t (:foreground ,red))))
+   `(font-lock-warning-face ((t (:foreground ,red))))
+
+   ;; hl-line-mode
+   `(hl-line ((t (:background ,current-line))))
+
+   ;; linum-mode
+   `(linum ((t (:background ,current-line :foreground ,foreground))))
+
+   ;; org-mode
+   `(org-date ((t (:foreground ,purple))))
+   `(org-done ((t (:foreground ,green))))
+   `(org-hide ((t (:foreground ,current-line))))
+   `(org-link ((t (:foreground ,blue))))
+   `(org-todo ((t (:foreground ,red))))
+
+   ;; show-paren-mode
+   `(show-paren-match ((t (:background ,blue :foreground ,current-line))))
+   `(show-paren-mismatch ((t (:background ,orange :foreground ,current-line)))))
+
+  (custom-theme-set-variables
+   'tomorrow-night
+
+   `(ansi-color-names-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])
+   `(ansi-term-color-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [unspecified ,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])))
+
+(provide-theme 'tomorrow-night)
+
+;;; tomorrow-night-theme.el ends here

File emacs.d/contrib/tomorrow-theme/tomorrow-theme.el

+;;; tomorrow-theme.el --- custom theme for faces
+
+;;; Commentary:
+;;
+;;; Tomorrow Theme
+;;
+;; Originally by Chris Kempson https://github.com/ChrisKempson/Tomorrow-Theme
+;; Ported to GNU Emacs by Chris Charles
+;; Ported to GNU Emacs 24's built-in theme system by Jim Myhrberg (@jimeh)
+
+;;; Code:
+
+(deftheme tomorrow
+  "A Pastel Coloured Theme")
+
+(let ((background "#ffffff")
+      (current-line "#e9efff")
+      (selection "#c5cce9")
+      (foreground "#4d4d4c")
+      (comment "#8e908c")
+      (cursor "#aeafad")
+      (red "#c82829")
+      (orange "#f5871f")
+      (yellow "#eab700")
+      (green "#718c00")
+      (aqua "#3e999f")
+      (blue "#4271ae")
+      (purple "#8959a8"))
+
+  (custom-theme-set-faces
+   'tomorrow
+
+   ;; Built-in stuff (Emacs 23)
+   `(default ((t (:background ,background :foreground ,foreground))))
+   `(fringe ((t (:background ,current-line))))
+   `(minibuffer-prompt ((t (:foreground ,blue))))
+   `(mode-line ((t (:background ,current-line :foreground ,foreground))))
+   `(region ((t (:background ,selection))))
+
+   ;; Font-lock stuff
+   `(font-lock-comment-face ((t (:foreground ,comment))))
+   `(font-lock-constant-face ((t (:foreground ,green))))
+   `(font-lock-doc-string-face ((t (:foreground ,comment))))
+   `(font-lock-function-name-face ((t (:foreground ,blue))))
+   `(font-lock-keyword-face ((t (:foreground ,purple))))
+   `(font-lock-string-face ((t (:foreground ,green))))
+   `(font-lock-type-face ((t (:foreground ,yellow))))
+   `(font-lock-variable-name-face ((t (:foreground ,red))))
+   `(font-lock-warning-face ((t (:foreground ,red))))
+
+   ;; hl-line-mode
+   `(hl-line ((t (:background ,current-line))))
+
+   ;; linum-mode
+   `(linum ((t (:background ,current-line :foreground ,foreground))))
+
+   ;; org-mode
+   `(org-date ((t (:foreground ,purple))))
+   `(org-done ((t (:foreground ,green))))
+   `(org-hide ((t (:foreground ,current-line))))
+   `(org-link ((t (:foreground ,blue))))
+   `(org-todo ((t (:foreground ,red))))
+
+   ;; show-paren-mode
+   `(show-paren-match ((t (:background ,blue :foreground ,current-line))))
+   `(show-paren-mismatch ((t (:background ,orange :foreground ,current-line)))))
+
+  (custom-theme-set-variables
+   'tomorrow
+
+   `(ansi-color-names-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])
+   `(ansi-term-color-vector
+     ;; black, red, green, yellow, blue, magenta, cyan, white
+     [unspecified ,background ,red ,green ,yellow ,blue ,purple ,blue ,foreground])))
+
+(provide-theme 'tomorrow)
+
+;;; tomorrow-theme.el ends here
 verbose = True
 
 [extensions]
-graphlog =
+graphlog =
+color =
+progress =
+mq =

File screenlayout/one.sh

+#!/bin/sh
+xrandr --output LVDS1 --mode 1024x600 --pos 0x0 --rotate normal --output VGA1 --off

File screenlayout/work.sh

+#!/bin/sh
+xrandr --output LVDS1 --mode 1024x600 --pos 0x1080 --rotate normal --output VGA1 --mode 1920x1080 --pos 0x0 --rotate normal
 Config { font = "xft:Andale Mono-8:normal:antialias=true"
-       , bgColor = "#fdf6e3"
-       , fgColor = "#073642"
-       , position = BottomSize C 100 20
+       , border = NoBorder
+       , borderColor = "#000000"
+       , bgColor = "#1d1f21"
+       , fgColor = "#f0c674"
+       , position = TopSize L 90 20
        , lowerOnStart = True
-       , commands = [ Run StdinReader
---                      Run Cpu ["-L","3","-H","50","--normal","#385e08","--high","#b22f0e"] 10,
---                      Run Memory ["-t","Mem: <usedratio>%"] 10,
+       , commands = [ Run StdinReader,
+                      Run Cpu ["-L","3","-H","50","--normal","#f0c674","--high","#cc6666"] 10,
+                      Run Memory ["-t","Mem: <usedratio>%"] 10
 --                      Run Date "%_d.%_m.%Y %H:%M" "date" 10,
---                      Run Battery ["-L","10","-H","40","--low","#b22f0e","--normal","#385e08","--high","#268bd2","--minwidth","2","--template","Batt <left>% <timeleft>","--","-O","+","-o","-"] 10
+--                      Run Battery ["-L","10","-H","40","--low","#cc6666","--normal","#f0c674","--high","#b5bd68","--minwidth","2","--template","Batt <left>% <timeleft>","--","-O","+","-o","-"] 10
                     ]
        , sepChar = "%"
        , alignSep = "}{"
-       , template = "%StdinReader%"
+       , template = "%StdinReader% | <fc=#f0c674>%cpu%</fc> | <fc=#f0c674>%memory%</fc>"
        }

File xmonad/xmonad.hs

     -- Swap the focused window and the master window
     , ((modm .|. shiftMask, xK_Return), windows W.swapMaster)
 
-    -- Swap the focused window with the next window
-    , ((modm .|. shiftMask, xK_j     ), windows W.swapDown  )
+    -- -- Swap the focused window with the next window
+    -- , ((modm .|. shiftMask, xK_j     ), windows W.swapDown)
 
-    -- Swap the focused window with the previous window
-    , ((modm .|. shiftMask, xK_k     ), windows W.swapUp    )
+    -- -- Swap the focused window with the previous window
+    -- , ((modm .|. shiftMask, xK_k     ), windows W.swapUp)
 
     -- Shrink the master area
     , ((modm,               xK_h     ), sendMessage Shrink)
     -- Quit xmonad
     , ((modm .|. shiftMask, xK_q     ), io (exitWith ExitSuccess))
 
+    , ((modm .|. shiftMask, xK_k), nextScreen)
+
+    , ((modm .|. shiftMask, xK_l),  prevScreen)
+
     -- Restart xmonad
     , ((modm              , xK_q     ), spawn "xmonad --recompile; xmonad --restart")
     ]
     [ ((modm,               xK_Right),  nextWS)
     , ((modm,               xK_Left),    prevWS)
     ]
+
+
     --
     -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
     -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
                [resource  =? "desktop_window" --> doIgnore,
                 className =? "xfce4-notifyd" --> doIgnore,
                 className =? "Pidgin" --> doF (W.shift "im"),
-                className =? "google-chrome" --> doF (W.shift "web"),
                 className =? "Firefox" --> doF (W.shift "web"),
+                className =? "Google-chrome" --> doF (W.shift "web"),
                 className =? "Sonata" --> doF (W.shift "audio"),
                 className =? "Emacs" --> doF (W.shift "code")]
 
 --
 -- By default, do nothing.
 myStartupHook = do
-  spawn "pkill nm-applet"
-  spawn "pkill xxkb"
-  spawn "trayer --edge bottom --align right --height 18 --padding 1 --widthtype request"
+  spawn "/home/aluuu/.screenlayout/work.sh"
+  spawn "pkill trayer || trayer --edge top --align right --height 20 --padding 1 --widthtype percent --width 10 --transparent true --tint 0x1d1f21"
   spawn "setxkbmap -model evdev -layout us,ru -option lv3:ralt_switch,grp:caps_toggle,misc:typo,grp_led:caps"
   spawn "xsetroot -cursor_name left_ptr"
-  spawn "nm-applet"
-  spawn "xxkb"
+  spawn "pkill nm-applet || nm-applet"
+  spawn "pkill xxkb || xxkb"
 
 -- Command to launch the bar.
 myBar = "xmobar"
 
 -- Custom PP, configure it as you like. It determines what is being written to the bar.
-myPP = xmobarPP { ppCurrent = xmobarColor "#cb4b16" "" . wrap "(" ")",
-                  ppUrgent = xmobarColor "#cb4b16" "" . wrap "*" "*",
-                  ppHidden = xmobarColor "#268bd2" "" . wrap "" "",
-                  ppHiddenNoWindows = xmobarColor "#002b36" "" . wrap "" "",
+myPP = xmobarPP { ppCurrent = xmobarColor "#f0c674" "" . wrap "(" ")",
+                  ppUrgent = xmobarColor "#cc6666" "" . wrap "*" "*",
+                  ppHidden = xmobarColor "#b294bb" "" . wrap "" "",
+                  ppHiddenNoWindows = xmobarColor "#373b41" "" . wrap "" "",
                   ppSep = " | ",
                   ppWsSep = " ",
-                  ppLayout = xmobarColor "#268bd2" "" . myShorten 6,
+                  ppLayout = xmobarColor "#f0c674" "" . myShorten 6,
                   ppOrder = id,
-                  ppTitle = xmobarColor "#268bd2"  "" . myShorten 20,
+                  ppTitle = xmobarColor "#f0c674"  "" . myShorten 20,
                   ppExtras = [
-                   xmobarColorL "#dc322f" "" dateLogger,
-                   xmobarColorL "#268bd2" "" battery
+                   xmobarColorL "#f0c674" "" dateLogger,
+                   xmobarColorL "#f0c674" "" battery
                   ]}
        where
          dateLogger = date "%d.%m.%Y %H:%M"