comeega-poly-elisp.el

;;; comeega-poly-elisp.el --- Comeega-polymode for emacs-lisp-mode  -*- lexical-binding: t; -*-
;;
;; Copyright (C) 2021-2022 Mohsen BANAN - http://mohsen.1.banan.byname.net/contact
;;
;; Author: Mohsen BANAN <emacs@mohsen.1.banan.byname.net>
;; Maintainer: Mohsen BANAN <emacs@mohsen.1.banan.byname.net>
;; Created: February 03, 2022
;; Keywords: languages lisp
;; Homepage: https://github.com/bx-blee/comment-block
;; Package-Requires: ((emacs "26.1"))
;; Package-Version: 0.1
;;
;; This file is not part of GNU Emacs.
;; This file is part of Blee (ByStar Libre-Halaal Emacs Environment).
;;
;; This is Libre-Halaal Software intended to perpetually remain Libre-Halaal.
;; See http://mohsen.1.banan.byname.net/PLPC/120033 for details.
;; _Copyleft_: GNU AFFERO GENERAL PUBLIC LICENSE --- [[file:../LICENSE]]
;;
;;; Commentary:
;;
;;  Comeega-polymode for emacs-lisp-mode enhanced with org-mode.
;;
;;  Inculsion of block comments in elisp file is based on the
;;  [[https://github.com/bx-blee/comment-block][comment-block]] package.
;;
;;  Comeega-poly-elisp-org block-comment open tag is: "(orgCmntBegin"
;;  Comeega-poly-elisp-org block-comment close tag is: "orgCmntEnd)"
;;
;;  Comeega-poly-elisp-org doc-string open tag is: "#+org_begin"
;;  Comeega-poly-elisp-org doc-string close tag is: "#+org_end"
;;
;;  Smoke test file for this comeega-polymode is: [[file: ./examples/NOTYET ]]
;;
;;; Code:

(require 'polymode)
(require 'org)
(require 'org-src)

(define-hostmode comeega-poly-emacs-lisp-hostmode
  :mode 'emacs-lisp-mode
  ;; temporary
  :protect-font-lock t
  :protect-syntax t
  :protect-indent t)

(define-innermode comeega-poly-elisp-org-cmnt-innermode nil
  "Innermode for matching comeega fragments in `org-mode'"
  :mode 'org-mode
  :head-matcher "[ \t]*#\\+begin_org.*\n"
  :tail-matcher "[ \t]*#\\+end_org.*\n"
  :head-mode 'host
  :tail-mode 'host)

(define-innermode comeega-poly-elisp-org-docStr-innermode nil
  "Innermode for matching comeega fragments in `org-mode'"
  :mode 'org-mode
  :head-matcher "(orgCmntBegin.*\n"
  :tail-matcher "orgCmntEnd).*\n"
  :head-mode 'host
  :tail-mode 'host)


(define-polymode comeega-poly-emacs-lisp-mode
  :hostmode 'comeega-poly-emacs-lisp-hostmode
  :innermodes '(comeega-poly-elisp-org-cmnt-innermode comeega-poly-elisp-org-docStr-innermode)
  (setq-local org-src-fontify-natively nil)
  (setq-local polymode-move-these-minor-modes-from-old-buffer
              (append '(org-indent-mode)
                      polymode-move-these-minor-modes-from-old-buffer))
  (setq-local polymode-run-these-before-change-functions-in-other-buffers
              (append '(org-before-change-function
                        org-element--cache-before-change
                        org-table-remove-rectangle-highlight)
                      polymode-run-these-before-change-functions-in-other-buffers))
  (setq-local polymode-run-these-after-change-functions-in-other-buffers
              (append '(org-element--cache-after-change)
                      polymode-run-these-after-change-functions-in-other-buffers)))

;; (add-to-list 'auto-mode-alist '("\\.el\\'" . comeega-poly-emacs-lisp-mode))

(provide 'comeega-poly-elisp)
;;; comeega-poly-elisp.el ends here