53 lines
1.8 KiB
EmacsLisp
53 lines
1.8 KiB
EmacsLisp
;;; earnemacs-vars.el --- Variables for earnemacs -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2020-2021 earnest ma
|
|
;; SPDX-License-Identifier: MIT
|
|
;; Author: earnest ma <me@earne.link>
|
|
|
|
;;; Commentary:
|
|
|
|
;; This file defines variables for earnemacs.
|
|
|
|
;;; Code:
|
|
|
|
(defconst earnemacs-root-dir user-emacs-directory
|
|
"Typically the ~/.config/emacs or ~/.emacs.d directory earnemacs is being
|
|
loaded from, although this can differ if you are using chemacs2.")
|
|
|
|
(defconst earnemacs-core-dir (concat earnemacs-root-dir "core/")
|
|
"Path to the earnemacs core directory.")
|
|
|
|
(defconst earnemacs-modules-dir (concat earnemacs-root-dir "modules/")
|
|
"Path to the earnemacs modules directory.")
|
|
|
|
(defvar earnemacs-initialized-p nil
|
|
"Non-nil if earnemacs has been initialized.")
|
|
|
|
;; What OS are we using?
|
|
(defconst *sys-linux* (eq system-type 'gnu/linux))
|
|
(defconst *sys-windows* (memq system-type '(windows-nt cygwin ms-dos)))
|
|
(defconst *sys-mac* (eq system-type 'darwin))
|
|
(defconst *sys-bsd* (or *sys-mac* (eq system-type 'berkeley-unix)))
|
|
|
|
;; Daemon identification
|
|
(cond ((eq (daemonp) nil)
|
|
(defconst earnemacs-daemon-name "indiv")) ; emacs
|
|
((eq (daemonp) t)
|
|
(defconst earnemacs-daemon-name "daemon")) ; emacs --daemon
|
|
((defconst earnemacs-daemon-name (daemonp)))) ; emacs --daemon="..."
|
|
|
|
;; Config options that must be set very early
|
|
|
|
(defvar earnemacs-default-face-height 110
|
|
"If you want to adjust it, it must be done in `pre-load.el'.")
|
|
(defvar earnemacs-fixed-face-height 110
|
|
"If you want to adjust it, it must be done in `pre-load.el'.")
|
|
(defvar earnemacs-variable-face-height 115
|
|
"If you want to adjust it, it must be done in `pre-load.el'.")
|
|
(defvar earnemacs-transparent-frame t
|
|
"Enables a semi-transparent frame by default. Set to nil to disable in
|
|
`pre-load.el'.")
|
|
|
|
(provide 'earnemacs-vars)
|
|
;;; earnemacs-vars.el ends here
|