FG42/lisp/fg42/cubes/fg42.el

84 lines
2.6 KiB
EmacsLisp

;;; FG42Cube --- The meta cube for FG42 -*- lexical-binding: t; -*-
;;
;; Copyright (c) 2010-2024 Sameer Rahmani & Contributors
;;
;; Author: Sameer Rahmani <lxsameer@gnu.org>
;; URL: https://ziglab.com/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/cube)
(require 'fg42/utils)
(require 'fg42/cubes/editor)
(require 'fg42/cubes/org)
(require 'fg42/cubes/elisp)
(require 'fg42/cubes/region-expansion)
(require 'fg42/cubes/wm)
(require 'fg42/cubes/modeline)
(require 'fg42/cubes/autocompletion)
(require 'fg42/cubes/golang)
(require 'fg42/cubes/project)
(require 'fg42/cubes/irc)
(require 'fg42/cubes/terminal)
(require 'fg42/cubes/java)
(require 'fg42/cubes/python)
(require 'fg42/cubes/cpp)
(require 'fg42/cubes/snippets)
(require 'fg42/cubes/rust)
(require 'fg42/cubes/mastodon)
(require 'fg42/cubes/git)
(require 'fg42/cubes/bookmark)
(require 'fg42/cubes/terraform)
(require 'fg42/cubes/graph)
(require 'fg42/cubes/clojure)
(require 'fg42/cubes/scheme)
(require 'fg42/cubes/meson)
(require 'fg42/cubes/godot3d)
(require 'fg42/cubes/meissa)
(require 'fg42/cubes/proof)
(require 'fg42/cubes/agda)
(require 'fg42/cubes/notifications)
(require 'fg42/cubes/noether)
(require 'fg42/cubes/nix)
(require 'fg42/cubes/julia)
(require 'fg42/cubes/themes)
(defcube fg42/editor
"A meta cube that contains all the cubes in the system. Calling
This cube is enough to load everything and control what cube to execute
via flags."
:title "Editor cube"
:flag-default t
:flag fg42-editor-cube
:init-hook (lambda (params)
(mapc
(lambda (cube)
(when (not (string= (symbol-name cube)
"fg42/editor"))
(let ((cube-params (plist-get
params
(intern (concat ":" (symbol-name cube))))))
(eval `(funcall #',cube ,@cube-params)))))
fg42/available-cubes)))
(provide 'fg42/cubes/fg42)
;;; fg42.el ends here