diff --git a/core/fg42/cube.el b/core/fg42/cube.el index 31f53e0..a723757 100644 --- a/core/fg42/cube.el +++ b/core/fg42/cube.el @@ -32,10 +32,55 @@ (defmacro defcube (cube-name props &rest body) "Define a cube with the given CUBE-NAME, a list of PROPS and a BODY." (let ((params-var (intern (format "%s-params" cube-name))) - (active-var (intern (format "%s-active-p" cube-name)))) + (active-var (intern (format "%s-active-p" cube-name))) + (pre-lang-server-up-hook (intern (format "%s-pre-lang-server-up-hook" cube-name))) + (post-lang-server-up-hook (intern (format "%s-post-lang-server-up-hook" cube-name))) + (pre-lang-server-down-hook (intern (format "%s-pre-lang-server-down-hook" cube-name))) + (post-lang-server-down-hook (intern (format "%s-post-lang-server-down-hook" cube-name)))) + `(progn + ;; Params variable contains the list of params the is passed to + ;; the current cube call (defvar ,params-var nil ,(format "Parameters for the '%s' cube." cube-name)) + + ;; * Hooks + + ;; This hook can be used by others to run code just before running that + ;; code body + (defvar ,pre-init-hook nil + ,(format "The hook that runs befor the '%s' cube initialization." cube-name)) + + + ;; This hook can be used by others to run code just after the body of + ;; the cube + (defvar ,post-init-hook nil + ,(format "The hook that runs after the '%s' cube initialization." cube-name)) + + + ;; TODO: Move language server related hooks to lang-server + ;; TODO: Provide a way to let different parts of the + ;; codebase to create cube hooks + + ;; ** Language Server + ;;; The hook that enables users to change the language server configuration + ;;; of the current cube before activating the server + (defvar ,pre-lang-server-up-hook nil + ,(format "The hook that runs befor the '%s' cube's language server activates ." cube-name)) + + ;;; The hook to do any post configuration for the lang server of the cube + (defvar ,post-lang-server-up-hook nil + ,(format "The hook that runs after the '%s' cube's language server activates." cube-name)) + + ;;; The hook to run code just before the language server is about to shutdown + (defvar ,pre-lang-server-down-hook nil + ,(format "The hook that runs befor the '%s' cube's language server shuts down." cube-name)) + + ;;; The hook to run code after the language server successfully shuts down + (defvar ,post-lang-server-down-hook nil + ,(format "The hook that runs after the '%s' cube's language server shuts down." cube-name)) + + (defun ,cube-name (&rest params) (when (not (boundp (quote ,active-var))) (progn diff --git a/core/fg42/lang-servers.el b/core/fg42/lang-servers.el new file mode 100644 index 0000000..2203c89 --- /dev/null +++ b/core/fg42/lang-servers.el @@ -0,0 +1,30 @@ +;;; Flags --- Flags library of FG42 -*- lexical-binding: t; -*- +;; +;; Copyright (c) 2010-2021 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: +;;; Code: + +(require 'fg42/flags) + + + +(provide 'lang-servers) +;;; lang-servers.el ends here