wilderjds
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make fixup-faces interactive

Browse Source
master
Jacopo De Simoi 5 years ago
parent e080570131
commit 4906e986bb
1 changed files with 4 additions and 3 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 7
      global.org

7
global.org
Unescape View File

@ -92,10 +92,11 @@
This is a hack to remove slant and bold from all faces This is a hack to remove slant and bold from all faces
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun wilder/fixup-faces () (defun wilder/fixup-faces ()
(interactive)
(mapc (lambda (face) (mapc (lambda (face)
(set-face-attribute face nil :weight 'normal) (set-face-attribute face nil :weight 'normal)
(set-face-attribute face nil :slant 'normal)) (set-face-attribute face nil :slant 'normal))
(face-list)) (face-list))
(set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")) (set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1"))
#+end_src #+end_src
** Cosmetics ** Cosmetics

Write Preview
Loading…
Cancel
Save