Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as
authorOleksandr Gavenko <gavenkoa@gmail.com>
Mon, 26 Sep 2016 00:29:33 +0300
changeset 1436 bbc10fe15aa5
parent 1435 55307015efd0
child 1437 22f5b3cdf40f
Decide to use "DejaVu Sans Mono-11" as default font. It has same width as Terminus but has larger height and better readable especially from large distance.
.emacs-my file | annotate | diff | comparison | revisions
.emacs-obsolete file | annotate | diff | comparison | revisions 
--- a/.emacs-my	Sun Sep 25 22:56:05 2016 +0300
+++ b/.emacs-my	Mon Sep 26 00:29:33 2016 +0300
@@ -415,15 +415,8 @@
 
 (cond
  ((eq window-system 'x)
-  (set-frame-font "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
-  (setq-default line-spacing nil)
-  (set-fontset-font nil 'cyrillic "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
-  (set-fontset-font nil 'greek "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
-  (set-fontset-font nil nil "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
-  (set-fontset-font nil 'phonetic "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
-  (set-fontset-font nil 'symbol "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
-  ;; MODIFIER LETTER is not present in terminus, this includes ˌːˈ characters.
-  (set-fontset-font nil '(#x02C0 . #x02FF) "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") )
+  (when (find-font (font-spec :name "DejaVu Sans Mono-11:weight=normal"))
+    (set-frame-font "DejaVu Sans Mono-11")))
  ((eq window-system 'w32)
   (set-frame-font "Courier New-10:antialias=none") ))
 
--- a/.emacs-obsolete	Sun Sep 25 22:56:05 2016 +0300
+++ b/.emacs-obsolete	Mon Sep 26 00:29:33 2016 +0300
@@ -323,3 +323,21 @@
   (set-fontset-font "fontset-default" 'phonetic my-preferred-font)
   (set-fontset-font "fontset-default" 'cyrillic my-preferred-font)
   (set-fontset-font "fontset-default" 'greek my-preferred-font))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "font selection")
+
+(cond
+ ((eq window-system 'x)
+  (set-frame-font "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
+  (setq-default line-spacing nil)
+  (set-fontset-font nil 'cyrillic "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
+  (set-fontset-font nil 'greek "-*-terminus-*-*-*--14-*-*-*-c-*-*-*")
+  (set-fontset-font nil nil "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
+  (set-fontset-font nil 'phonetic "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
+  (set-fontset-font nil 'symbol "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*")
+  ;; MODIFIER LETTER is not present in terminus, this includes ˌːˈ characters.
+  (set-fontset-font nil '(#x02C0 . #x02FF) "-misc-fixed-*-*-*--13-*-*-*-*-*-*-*") )
+ ((eq window-system 'w32)
+  (set-frame-font "Courier New-10:antialias=none") ))
+
dot-emacs