Skip to content

Put autodetected coq version in modeline? #864

@SkySkimmer

Description

@SkySkimmer

This would be nice for people who switch somewhat frequently between versions.

This patch seems to work but IDK if it's the right way to do things

modified   coq/coq-mode.el
@@ -188,8 +188,10 @@ Near here means PT is either inside or just aside of a comment."
 (defalias 'coq--parent-mode
   (if coq-use-pg 'proof-mode 'prog-mode))
 
+(defvar coq-mode-line-version "")
+
 ;;;###autoload
-(define-derived-mode coq-mode coq--parent-mode "Coq"
+(define-derived-mode coq-mode coq--parent-mode `("Coq" coq-mode-line-version)
   "Major mode for Coq scripts.
 
 \\{coq-mode-map}"
modified   coq/coq-system.el
@@ -162,6 +162,7 @@ Interactively (with INTERACTIVE-P), show that number."
     (when mtch
       (setq coq-autodetected-version (match-string 1 str))))
   (when interactive-p (coq-show-version))
+  (setq coq-mode-line-version coq-autodetected-version)
   coq-autodetected-version)
 
 (defun coq-autodetect-help (&optional _interactive-p)

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type
    No fields configured for issues without a type.

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions