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

exit from my-font-list on quit, remove aliases to removed functions

Browse Source
This commit is contained in:
Łukasz Pankowski 2018-09-01 17:42:40 +02:00
parent 9c749bd6f1
commit 66b1363c0a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
init.el
View File

@ -285,8 +285,6 @@
(interactive) (interactive)
(setq ispell-local-dictionary "polish")) (setq ispell-local-dictionary "polish"))
(defalias 'fi #'set-frame-font-inconsolata)
(defalias 'fm #'set-frame-font-go-mono)
(defalias 'st #'magit-status) (defalias 'st #'magit-status)
(defalias 'ir #'ispell-region) (defalias 'ir #'ispell-region)
(defalias 'md #'markdown-mode) (defalias 'md #'markdown-mode)
@ -918,10 +916,12 @@ inserted between the braces between the braces."
"Set font to one of the fonts from `my-font-list' "Set font to one of the fonts from `my-font-list'
Argument FRAMES has the same meaning as for `set-frame-font'" Argument FRAMES has the same meaning as for `set-frame-font'"
(interactive (interactive
(list (helm :prompt "Font name: " (list (or (helm :prompt "Font name: "
:resume 'noresume
:sources (helm-build-sync-source "Fonts" :sources (helm-build-sync-source "Fonts"
:candidates my-font-list) :candidates my-font-list)
:buffer "*font selection*") :buffer "*font selection*")
(signal 'quit nil))
(read-number "Font size: "))) (read-number "Font size: ")))
(set-frame-font (set-frame-font
(format "%s:pixelsize=%d:antialias=true:autohint=true" font-name size) (format "%s:pixelsize=%d:antialias=true:autohint=true" font-name size)