Commits

Anonymous committed 3a6cea4

more keybindings for default face variations

  • Participants
  • Parent commits f085689

Comments (0)

Files changed (1)

File configs/cfg_default_face.el

-; darkslategray
-;; (cond (window-system 
-;; (custom-set-faces
-;;  '(default ((t (:stipple nil :background "#0f1a39" :foreground "wheat1" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 89 :width normal :family "xos4-terminus")))))
-;; ))
-;; (cond (window-system 
-;;        (set-default-font "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso10646-1")
-;;        (set-face-font 'default "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso10646-1")
-
-;;        ; experiment #1
-;;        (set-default-font "-b&h-Luxi Mono-bold-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-;;        (set-face-font 'default "-b&h-Luxi Mono-bold-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-       
-;;        ))
-
-;; this is not needed anymore after I found C-x C+, C-x C-
-;; (defun font20 ()
-;;    (interactive)
-;;    (set-default-font "-xos4-terminus-medium-r-normal--20-200-72-72-c-100-iso10646-1")
-;;    )
-
-;; (defun font16 ()
-;;    (interactive)
-;;    (set-default-font "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso10646-1")
-;;    )
-
-;; (defun font14 ()
-;;    (interactive)
-;;    (set-default-font "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
-;;    )
-
-;; (defun font12 ()
-;;    (interactive)
-;;    (set-default-font "-xos4-terminus-medium-r-normal--12-120-72-72-c-60-iso10646-1")
-;;    )
-
-;; (defun font24 ()
-;;    (interactive)
-;;    (set-default-font "-xos4-terminus-medium-r-normal--24-240-72-72-c-120-iso10646-1")
-;;    )
-
-
-
-;; (define-key global-map  "\C-x71" 'font12)
-;; (define-key global-map  "\C-x72" 'font14)
-;; (define-key global-map  "\C-x73" 'font16)
-;; (define-key global-map  "\C-x74" 'font20)
-;; (define-key global-map  "\C-x75" 'font24)
-
-
 (defun fn_luxi ()
   (interactive)
   (set-face-font 'default "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
 )
 
 
-(define-key global-map  "\C-cfs1" 'fn-normal)
-(define-key global-map  "\C-cfs2" 'fn-smaller)
-
 (set-cursor-color "red")
 (setq default-cursor-type '(bar . 2))
-;(setq default-cursor-type '(hollow))
-;(setq cursor-type '(hollow))
-;(setq default-cursor-type '(hbar . 2))
-;(blink-cursor-mode 1)
-;(setq default-cursor-type '(box))
-
 
 
 (defun color-theme-avk-light ()
    '(cursor ((t (:background "red"))))
    '(custom-state ((t (:foreground "deep pink"))))
    '(custom-variable-tag ((((class color) (background dark)) (:inherit variable-pitch :foreground "DarkOrange" :weight bold)) (t (:foreground "magenta4" :weight bold))))
-   '(default ((t (:inherit nil :stipple nil :background "gray96" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "unknown" :family "Anonymous Pro"))))
+   '(default ((t (:inherit nil :stipple nil :background "gray96" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal ))))
    '(diff-added ((t (:foreground "dark green"))))
    '(diff-removed ((t (:foreground "maroon"))))
    '(dired-directory ((t (:inherit font-lock-function-name-face))))
    '(fringe ((t (:background "#add8e6"))))
    )
   (mode-line-faces-light)
-  (fn-ubuntu)
 )
 
 
    '(compilation-line-number ((t (:foreground "orange red" :weight bold))))
    '(cursor ((t (:background "green"))))
    '(custom-variable-tag ((((class color) (background dark)) (:inherit variable-pitch :foreground "DarkOrange" :weight bold))))
-   '(default ((t (:inherit nil :stipple nil :background "#191935" :foreground "wheat1" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))))
+   '(default ((t (:inherit nil :stipple nil :background "#191935" :foreground "wheat1" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal ))))
    '(diff-added ((t (:foreground "lime green"))))
    '(diff-removed ((t (:foreground "light coral"))))
    '(dired-directory ((t (:foreground "sky blue"))))
    '(fringe ((t (:background "#0f1a39" :foreground "yellow"))))
    )
   (mode-line-faces-dark)
-  (fn-ubuntu)
 )
 
-(define-key global-map (kbd "C-x C-8") 'color-theme-avk-dark)
-(define-key global-map (kbd "C-x C-9") 'color-theme-avk-light)
+; my 2 color themes
+(define-key global-map (kbd "C-z t 1") 'color-theme-avk-dark)
+(define-key global-map (kbd "C-z t 2") 'color-theme-avk-light)
+
+; my choice of programmer fonts
+(global-unset-key (kbd "C-z f"))
+(define-key global-map (kbd "C-z f u") 'fn-ubuntu)
+(define-key global-map (kbd "C-z f d") 'fn-dejavu)
+(define-key global-map (kbd "C-z f a") 'fn-anonymous-130)
+
+; 2 comfortable font sizes
+(define-key global-map (kbd "C-z f +") 'fn-normal)
+(define-key global-map (kbd "C-z f -") 'fn-smaller)