diff --git a/core/cubes/scheme.el b/core/cubes/scheme.el new file mode 100644 index 0000000..5960f69 --- /dev/null +++ b/core/cubes/scheme.el @@ -0,0 +1,64 @@ +;;; SchemeCube --- Scheme support cube for FG42 -*- lexical-binding: t; -*- +;; +;; Copyright (c) 2010-2022 Sameer Rahmani & Contributors +;; +;; Author: Sameer Rahmani +;; URL: https://gitlab.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 . +;; +;;; Commentary: +;; Cubes are the building blocks of any `FG42' editor. Each `cube' is a +;; unit which defines different abilities in a deterministic and idempotent +;; way. Cubes are composable and a composition of cubes creates an editor. +;; +;;; Code: +(require 'fpkg) +(require 'fg42/cube) + +(defcube fg42/guile-cube + "This cube adds supports for GNU Guile Scheme via =geiser-guile= library. +For more info checkout [[https://www.nongnu.org/geiser/]]" + (:title "Guile Cube" + :flag guile + :flag-default t) + + (fg42/rainbow-delimiters-cube) + (fg42/paredit-cube) + + (fpkg/use geiser-guile)) + + +(defcube fg42/guix-cube + "This cube provides all the functionality necessary to use and develop +GNU Guix. It depends on the =fg42/guile-cube= and will execute it internally. + +If you want to develop guix pass the path to the guix source via =:src= +keyword (default is =~/src/guix=" + (:title "Guix Cube" + :flag guix + :flag-default t) + + (let ((src (or (plist-get fg42/guix-cube-params :src) + "~/src/guix"))) + (if-flag guile + (progn + (fg42/guile-cube) + (with-eval-after-load 'geiser-guile + (add-to-list 'geiser-guile-load-path src))) + (error "`fg42/guile-cube' cube in necessary to use `fg42/guix-cube'")))) + +(provide 'cubes/scheme) +;;; scheme.el ends here