tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add things for macos

Browse source
This commit is contained in:
trémeur 2020-07-04 10:21:29 +01:00
parent e23453c989
commit f2c99f7ee0
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
init.el
View file

@ -36,6 +36,11 @@
(string-equal system-type "windows-nt") (string-equal system-type "windows-nt")
) )
(defun ismac ()
"Return true if on macos"
(string-equal system-type "darwin")
)
(setq completion-ignore-case t) (setq completion-ignore-case t)
(setq read-file-name-completion-ignore-case t) (setq read-file-name-completion-ignore-case t)
(setq read-buffer-completion-ignore-case t) (setq read-buffer-completion-ignore-case t)
@ -313,6 +318,9 @@
;; shows nice icons in modeline + neotree ;; shows nice icons in modeline + neotree
:config :config
(when (islin) (when (islin)
(when (not (member "all-the-icons" (font-family-list)))
(all-the-icons-install-fonts t)))
(when (ismac)
(when (not (member "all-the-icons" (font-family-list))) (when (not (member "all-the-icons" (font-family-list)))
(all-the-icons-install-fonts t)))) ; need to install fonts manually on windows (all-the-icons-install-fonts t)))) ; need to install fonts manually on windows
@ -359,6 +367,12 @@
")) "))
(when (ismac)
(setq initial-scratch-message "\
# ｏｔｔａ ｎｅｉ ｇｅｎ ｅｍａｃｓ
"))
(when (iswin) (when (iswin)
(setq initial-scratch-message "\ (setq initial-scratch-message "\
# obma emacs war microsoft beistry # obma emacs war microsoft beistry