This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+fun/emoji/funcs.el

31 lines
1.1 KiB
EmacsLisp
Raw Normal View History

;;; funcs.el --- Emoji Layer functions File for Spacemacs
;;
2018-01-04 07:00:25 +00:00
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
;; From https://github.com/dunn/company-emoji/README.md for Linux, or on
;; macOS and using the Cocoa version of Emacs
(defun spacemacs//set-emoji-font (frame)
"Adjust the font settings of FRAME so Emacs can display emoji properly."
(when (fboundp 'set-fontset-font)
(cond
((spacemacs/system-is-mac)
(set-fontset-font t 'symbol
(font-spec :family "Apple Color Emoji")
frame 'prepend))
((spacemacs/system-is-linux)
(set-fontset-font t 'symbol
(font-spec :family "Symbola")
frame 'prepend)))))
(defun spacemacs//set-emoji-font-for-current-frame ()
"Adjust the font settings of current frame so Emacs can display emoji
properly."
(spacemacs//set-emoji-font (selected-frame)))