1. alex koval
  2. .emacs.d

Commits

alex koval  committed f684251

keep only those fonts which I use from time to time, added size specs to function interactive calls

  • Participants
  • Parent commits e52da42
  • Branches default

Comments (0)

Files changed (1)

File configs/cfg_default_face.el

View file
  • Ignore whitespace
-(defun fn_luxi ()
-  (interactive)
-  (set-face-font 'default "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
-  (set-face-font 'default "-b&h-Luxi Mono-bold-normal-normal-*-*-*-*-*-*-0-iso10646-1")
-)
-
-(defun fonttrick1 ()
-  (interactive)
-  (set-face-font 'default "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
-  (set-face-font 'default "-b&h-luxi mono-bold-r-normal--13-*-100-100-m-90-fontset-auto6")
-)
-
-(defun fn_terminus ()
-  (interactive)
-  (set-face-font 'default "-xos4-terminus-medium-r-normal--14-*-72-72-c-80-iso10646-1")
-)
-
-(defun fonttrick_luxi ()
-  (interactive)
-  (set-face-font 'default "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
-  (set-face-font 'default "-b&h-Luxi Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-(defun fonttrick_andale ()
-  (interactive)
-  (set-face-font 'default "-monotype-Andale Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-(defun fonttrick_terminus ()
-  (interactive)
-  (set-face-font 'default "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
-)
-
-(defun fonttrick_bitstream ()
-  (interactive)
-  (set-face-font 'default "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso10646-1")
-  (set-face-font 'default "-bitstream-Bitstream Vera Sans Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-(defun fonttrick_etl ()
-  (interactive)
-  (set-face-font 'default "-ETL-Fixed-normal-normal-normal-*-16-*-*-*-c-80-iso10646-1")
-)
-
-
-(defun fonttrick_neep ()
-  (interactive)
-  (set-face-font 'default "-jmk-Neep-bold-normal-normal-*-15-*-*-*-c-80-iso10646-1")
-)
-
-(defun fonttrick_inconsonata ()
-  (interactive)
-  (set-face-font 'default "-unknown-Inconsolata-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-
-(defun fonttrick_bitstream3 ()
-  (interactive)
-  (set-face-font 'default "-bitstream-Bitstream Vera Sans Mono-bold-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-(defun fonttrick_dejavu1 ()
-  (interactive )
-  (set-face-font 'default "-unknown-DejaVu Sans Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-(defun fonttrick_dejavu_bold ()
-  (interactive)
-  (set-face-font 'default "-unknown-DejaVu Sans Mono-bold-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-(defun fn_monofur ()
-  (interactive)
-  (set-face-font 'default "-unknown-monofur-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-)
-
-
-(defun fn-anonymous ()
-  (interactive)
-  (set-face-font 'default "-unknown-Anonymous Pro-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-  (custom-set-faces
-  '(default ((t (:height 130 ))))
-  )
-  ;(set-frame-parameter frame 'font "-unknown-Anonymous Pro-normal-normal-normal-*-*-*-*-*-m-0-iso10646-"1)
-)
-
-(defun fn-anonymous-130 ()
-  (interactive)
-  (set-face-font 'default "-unknown-Anonymous Pro-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1") 
-  (custom-set-faces
-   '(default ((t (:height 130 ))))
-   )
-)
-
+; fr- functions: set font for current frame only
 (defun fr-anonymous (size)
   (interactive "sFont size (17): ")
   (set-frame-parameter nil 'font (format "-unknown-Anonymous Pro-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
   (set-frame-parameter nil 'font (format "-unknown-Ubuntu Mono-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-
-(defun fn-ubuntu ()
-  (interactive)
-  (set-face-font 'default "-unknown-Ubuntu Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-  (custom-set-faces
-  '(default ((t (:height 120 ))))
-  )
+; fn- functions: set font for emacs globally
+(defun fn-ubuntu (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-unknown-Ubuntu Mono-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-
-(defun fn-ubuntu-130 ()
-  (interactive)
-  (set-face-font 'default "-unknown-Ubuntu Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-  (custom-set-faces
-   '(default ((t (:height 130 ))))
-   )
+(defun fn-dejavu (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-unknown-DejaVu Sans Mono-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-(defun fn-dejavu ()
-  (interactive )
-  (set-face-font 'default "-unknown-DejaVu Sans Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-  ;(set-frame-parameter nil 'font "-unknown-DejaVu Sans Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")
-  (custom-set-faces
-   '(default ((t (:height 110 ))))
-   )
+(defun fn-dejavu-bold (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-unknown-DejaVu Sans Mono-bold-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-(defun fontsize-97 ()
+(defun fn-2012_1 () ; size setting does not affect this font, so skipped
   (interactive)
-  (custom-set-faces
-   '(default ((t (:height 97 ))))
-   )
+  (set-face-font 'default "-Misc-Fixed-bold-normal-normal-*-18-*-*-*-c-90-iso10646-1")
+  (set-frame-parameter nil 'font "-Misc-Fixed-bold-normal-normal-*-18-*-*-*-c-90-iso10646-1")
 )
 
-(defun fontsize-110 ()
-  (interactive)
-  (custom-set-faces
-   '(default ((t (:height 110))))
-   )
+(defun fn-anonymous (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-unknown-Anonymous Pro-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-(defun fontsize-120 ()
-  (interactive)
-  (custom-set-faces
-   '(default ((t (:height 120))))
-   )
+(defun fn-etl (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-ETL-Fixed-normal-normal-normal-*-%s-*-*-*-c-80-iso10646-1" size))
 )
 
-(defun fontsize-125 ()
-  (interactive)
-  (custom-set-faces
-   '(default ((t (:height 125))))
-   )
+(defun fn-terminus (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-xos4-terminus-medium-r-normal--%s-*-72-72-c-80-iso10646-1" size))
 )
 
-(defun fontsize-130 ()
-  (interactive)
-  (custom-set-faces
-   '(default ((t (:height 130))))
-   )
+(defun fn-andale (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-monotype-Andale Mono-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-
-(defun fn-2012_1 ()
-  (interactive)
-  (set-face-font 'default "-Misc-Fixed-bold-normal-normal-*-18-*-*-*-c-90-iso10646-1")
-  (set-frame-parameter frame 'font "-Misc-Fixed-bold-normal-normal-*-18-*-*-*-c-90-iso10646-1")
+(defun fn-bitstream (size)
+  (interactive "sFont height: ")
+  (set-face-font 'default (format "-bitstream-Bitstream Vera Sans Mono-normal-normal-normal-*-%s-*-*-*-m-0-iso10646-1" size))
 )
 
-
-
-
 (defun color-theme-avk-light ()
   (interactive)
   (custom-set-faces