;;; FG42 --- The mighty editor for the emacsians -*- lexical-binding: t; -*-
;;
;; Copyright (c) 2010-2023 Sameer Rahmani <lxsameer@gnu.org>
;;
;; Author: Sameer Rahmani <lxsameer@gnu.org>
;; URL: https://devheroes.codes/FG42/FG42
;; Version: 3.0.0
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
;;
;;; Commentary:
;;; Code:
(require 'fg42/core)
(require 'fg42/utils)


(defvar fg42/-gc-cons-threshold 16777216
  "Value of GC threshold of FG42.")

(defvar fg42/initialized nil
  "A variable that indicates whether FG42 is passed initialization.")

(defun defer-garbage-collection ()
  "Disable garbage collection."
  (setq gc-cons-threshold fg42/-gc-cons-threshold))


(defun restore-garbage-collection ()
  "Restore garbage collection to it's default value."
  (run-at-time
   1 nil (lambda () (setq gc-cons-threshold most-positive-fixnum))))


(defun fg42/initialize ()
  "Initialize FG42 after the Emacs window is rendered by loading the user init file."
  ;; (fg42/-startup-optimization)
  (require 'fpkg/core)
  (fpkg/initialize)
  (when (file-exists-p user-init-file)
    (require 'fg42/cube)
    (load user-init-file))
  (add-hook 'emacs-startup-hook
            (lambda ()
              (run-hooks 'fg42/-cubes-body-hook)
              (run-hooks 'fg42/after-cubes-setup-hook)
              (run-hooks 'fg42/after-init-hook)
              (run-hooks 'fg42/after-initializing-theme-hook)
              (run-hooks 'fg42/ui-hook)
              (setq fg42/initialized t))))


(defun fg42/-startup-optimization ()
  "Optimized FG42 startup."
  ;; by setting gc threshold to the largest number
  ;; Emacs can understand we are basically disabling it :).
  (setq gc-cons-threshold most-positive-fixnum
        gc-cons-percentage 0.6)
  ;; after initilization phase restore cons threshold to normal
  (add-hook 'emacs-startup-hook
            (lambda ()
              (setq gc-cons-threshold fg42/-gc-cons-threshold ; 16mb
                    gc-cons-percentage 0.1)))

  ;; disable auto initilization of package.el
  (setq package-enable-at-startup nil)
  ;; disable gc when we are in minibuffer using the same method we
  ;; use for initilization time
  (add-hook 'minibuffer-setup-hook #'defer-garbage-collection)
  ;; just enable gc when exiting minibuffer
  (add-hook 'minibuffer-exit-hook #'restore-garbage-collection)
  ;; we dont need Emacs to check every file type and look for file
  ;; handlers when we are initializing so we backup the original
  ;; value and set it to nil
  (setq --file-name-handler-alist file-name-handler-alist)

  (setq file-name-handler-alist nil)
  ;; after initialization we can restore that file-name-handler-alist
  ;; to original value.
  (add-hook 'emacs-startup-hook
            (lambda ()
              (setq file-name-handler-alist
                    --file-name-handler-alist)))
  ;; initial mode for emacs can be fundamental mode we have nothing to lose
  (setq initial-major-mode 'fundamental-mode))


(provide 'fg42)
;;; fg42.el ends here