49 lines
1.2 KiB
EmacsLisp
49 lines
1.2 KiB
EmacsLisp
;;; common.el --- base configuration
|
|
;;; COMMENTARY:
|
|
;;; Code:
|
|
|
|
(require 'packages-config)
|
|
(require 'basic-settings)
|
|
|
|
(defun start-server-on-unix ()
|
|
"If OS is Linux or MacOS start server."
|
|
(defun system-is-linux()
|
|
(string-equal system-type "gnu/linux"))
|
|
|
|
(defun system-is-darwin()
|
|
(string-equal system-type "darwin"))
|
|
|
|
;; Start Emacs as server. Linux and MacOS support
|
|
(when (or (system-is-linux) (system-is-darwin))
|
|
(require 'server)
|
|
(message "Run as server.")
|
|
(unless (server-running-p)
|
|
(server-start))))
|
|
|
|
(defun use-package-setup ()
|
|
"Configure MELPA and install use-package."
|
|
;; Repo configuration
|
|
(configure-repos)
|
|
|
|
;; Install use-package
|
|
(when (not (require 'use-package nil 'noerror))
|
|
(and (message "Installing ")
|
|
(package-install 'use-package)))
|
|
|
|
;; Verbosity
|
|
(setq use-package-verbose t)
|
|
;; Always download packages
|
|
(setq use-package-always-ensure t))
|
|
|
|
(defun common-setup ()
|
|
"Setup base GNU Emacs configuration."
|
|
(start-server-on-unix)
|
|
(use-package-setup)
|
|
(basic-setup)
|
|
;; Set indent to 4 space
|
|
(configure-base 4))
|
|
|
|
(provide 'common)
|
|
|
|
;;; common.el ends here
|