init.el

;;; init.el -*- lexical-binding: t; -*-

;; Profile emacs startup
(add-hook 'emacs-startup-hook
          (lambda ()
            (message "Crafted Emacs loaded in %s."
                     (emacs-init-time))))

;; Define customization group for Crafted Emacs.
(defgroup crafted '()
  "A sensible starting point for hacking your own Emacs configuration."
  :tag "Crafted Emacs"
  :link '(url-link "https://github.com/SystemCrafters/crafted-emacs")
  :group 'emacs)

(when (eq crafted-package-system 'package)
  (crafted-package-initialize))

;; Add the modules folder to the load path
(add-to-list 'load-path (expand-file-name "modules/" user-emacs-directory))

;; Add the user's custom-modules to the top of the load-path
;; so any user custom-modules take precedence.
(when (file-directory-p (expand-file-name "custom-modules/" crafted-config-path))
  (setq load-path
        (append (let ((load-path (list))
                      (default-directory (expand-file-name "custom-modules/" crafted-config-path)))
                  (add-to-list 'load-path (expand-file-name "custom-modules/" crafted-config-path))
                  ;;(normal-top-level-add-to-load-path '("."))
                  (normal-top-level-add-subdirs-to-load-path)
                  load-path)
                load-path)))

;; Set default coding system (especially for Windows)
(set-default-coding-systems 'utf-8)
(customize-set-variable 'visible-bell 1)  ; turn off beeps, make them flash!
(customize-set-variable 'large-file-warning-threshold 100000000) ;; change to ~100 MB


(defun crafted-ensure-package (package &optional args)
  "Ensure that PACKAGE is installed on the system, either via
package.el or Guix depending on the value of
`crafted-prefer-guix-packages'."
  (if crafted-prefer-guix-packages
      (unless (featurep package)
        (message "Package '%s' does not appear to be installed by Guix: " package))
    (crafted-package-install-package package)))

;; Check the system used
(defconst ON-LINUX   (eq system-type 'gnu/linux))
(defconst ON-MAC     (eq system-type 'darwin))
(defconst ON-BSD     (or ON-MAC (eq system-type 'berkeley-unix)))
(defconst ON-WINDOWS (memq system-type '(cygwin windows-nt ms-dos)))

;; Find the user configuration file
(defvar crafted-config-file (expand-file-name "config.el" crafted-config-path)
  "The user's configuration file.")

;; Defines the user configuration var and etc folders
;; and ensure they exist.
(defvar crafted-config-etc-directory (expand-file-name "etc/" crafted-config-path)
  "The user's configuration etc/ folder.")
(defvar crafted-config-var-directory (expand-file-name "var/" crafted-config-path)
  "The user's configuration var/ folder.")

(mkdir crafted-config-etc-directory t)
(mkdir crafted-config-var-directory t)

;; Load the user configuration file if it exists
(when (file-exists-p crafted-config-file)
  (load crafted-config-file nil 'nomessage))

;; When writing crafted-modules, insert header from skeleton
(auto-insert-mode)
(with-eval-after-load "autoinsert"
  (define-auto-insert
    (cons (concat (expand-file-name user-emacs-directory) "modules/crafted-.*\\.el")
          "Crafted Emacs Lisp Skeleton")
    '("Crafted Emacs Module Description: "
      ";;;; " (file-name-nondirectory (buffer-file-name)) " --- " str
      (make-string (max 2 (- 80 (current-column) 27)) ?\s)
      "-*- lexical-binding: t; -*-" '(setq lexical-binding t)
      "

;; Copyright (C) " (format-time-string "%Y") "
;; SPDX-License-Identifier: MIT

;; Author: System Crafters Community

;;; Commentary:

;; " _ "

;;; Code:

(provide '"
      (file-name-base (buffer-file-name))
      ")
;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n")))

;;   The file used by the Customization UI to store value-setting
;; forms in a customization file, rather than at the end of the
;; `init.el' file, is called `custom.el' in Crafted Emacs. The file
;; is loaded after this `init.el' file, and after the user `config.el'
;; file has been loaded. Any variable values set in the user
;; `config.el' will be overridden with the values set with the
;; Customization UI and saved in the custom file.
(customize-set-variable 'custom-file
  (expand-file-name "custom.el" crafted-config-path))

;; The custom file will only be loaded if `crafted-load-custom-file'
;; is set to a non-nil value in the user's `config.el'.
(when crafted-load-custom-file
  (load custom-file t))

(require 'crafted-startup)
(unless crafted-startup-inhibit-splash
  (setq initial-buffer-choice #'crafted-startup-screen))

;; Make GC pauses faster by decreasing the threshold.
(setq gc-cons-threshold (* 2 1000 1000))

(let ((crafted-info-dir (expand-file-name "docs/dir" user-emacs-directory)))
  (when (file-exists-p crafted-info-dir)
    (require 'info)
    (info-initialize)
    (push (file-name-directory crafted-info-dir) Info-directory-list)))