Export purescript-literate from a shared location

This gets rid of repeated "defvar"s in different files by instead
importing the variable from a shared location.

Author: Hi-Angel

Makefile

@@ -25,6 +25,7 @@ ELFILES = \
 	purescript-utils.el \
 	purescript-decl-scan.el \
 	purescript-yas.el \
+	purescript-vars.el \
 	tests/purescript-sort-imports-tests.el \
 	tests/purescript-indentation-tests.el \
 	tests/purescript-font-lock-tests.el \

purescript-font-lock.el

@@ -69,6 +69,7 @@
 
 (require 'font-lock)
 (require 'cl-lib)
+(require 'purescript-vars)
 
 (defcustom purescript-font-lock-prettify-symbols-alist
   `(("/\\" . ,(decode-char 'ucs #X2227))
@@ -263,8 +264,6 @@ Returns keywords suitable for `font-lock-keywords'."
   :type 'boolean
   :group 'purescript)
 
-(defvar purescript-literate)
-
 (defun purescript-syntactic-face-function (state)
   "`font-lock-syntactic-face-function' for PureScript."
   (cond

purescript-indent.el

@@ -88,11 +88,10 @@
 
 ;;; Code:
 
+(require 'purescript-vars)
 (require 'purescript-string)
 (require 'cl-lib)
 
-(defvar purescript-literate)
-
 (defgroup purescript-indent nil
   "PureScript indentation."
   :group 'purescript

purescript-indentation.el

@@ -34,6 +34,7 @@
 
 (require 'syntax)
 (require 'cl-lib)
+(require 'purescript-vars)
 
 (defvar delete-active-region)
 
@@ -47,7 +48,6 @@
 (defvar parse-line-number)
 (defvar possible-indentations)
 (defvar indentation-point)
-(defvar purescript-literate)
 
 (defgroup purescript-indentation nil
   "PureScript indentation."

purescript-mode.el

@@ -34,6 +34,7 @@
 (require 'dabbrev)
 (require 'compile)
 (require 'outline)
+(require 'purescript-vars)
 (require 'purescript-align-imports)
 (require 'purescript-sort-imports)
 (require 'purescript-string)
@@ -101,16 +102,6 @@ sure all purescript customize definitions have been loaded."
           purescript-yas))
   (customize-browse 'purescript))
 
-;; Are we looking at a literate script?
-(defvar-local purescript-literate nil
-  "*If not nil, the current buffer contains a literate PureScript script.
-Possible values are: `bird' and `tex', for Bird-style and LaTeX-style
-literate scripts respectively.  Set by `purescript-mode' and
-`literate-purescript-mode'.  For an ambiguous literate buffer -- i.e. does
-not contain either \"\\begin{code}\" or \"\\end{code}\" on a line on
-its own, nor does it contain \">\" at the start of a line -- the value
-of `purescript-literate-default' is used.")
-(put 'purescript-literate 'safe-local-variable 'symbolp)
 ;; Default literate style for ambiguous literate buffers.
 (defcustom purescript-literate-default 'bird
   "Default value for `purescript-literate'.

purescript-vars.el

@@ -0,0 +1,33 @@
+;;; purescript-vars.el --- Variable definitions for PureScript Mode -*- lexical-binding: t -*-
+
+;; Author: 1997-1998 Graeme E Moss <gem@cs.york.ac.uk>
+;;         1997-1998 Tommy Thorn <thorn@irisa.fr>
+;;         2003      Dave Love <fx@gnu.org>
+;;         2025      Konstantin Kharlamov <Hi-Angel@yandex.ru>
+
+;; This file is not part of GNU Emacs.
+
+;; This file 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, or (at your option)
+;; any later version.
+
+;; This file 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/>.
+
+(defvar-local purescript-literate nil
+  "If not nil, the current buffer contains a literate PureScript script.
+Possible values are: `bird' and `tex', for Bird-style and LaTeX-style
+literate scripts respectively.  Set by `purescript-mode' and
+`literate-purescript-mode'.  For an ambiguous literate buffer -- i.e. does
+not contain either \"\\begin{code}\" or \"\\end{code}\" on a line on
+its own, nor does it contain \">\" at the start of a line -- the value
+of `purescript-literate-default' is used.")
+(put 'purescript-literate 'safe-local-variable 'symbolp)
+
+(provide 'purescript-vars)