rpl-tools/sysrpl-mode.el

;;; -*- mode: emacs-lisp; lexical-binding: t -*-

;;; sysrpl-mode.el -- Major mode for the SysRPL programming language

;; Copyright (C) 2014 Paul Onions

;; Author: Paul Onions <paul.onions@acm.org>
;; Keywords: RPL, SysRPL, HP48, HP49, HP50, calculator

;; This file is free software, see the LICENCE file in this directory
;; for copying terms.

;;; Commentary:

;; A major mode for the SysRPL language, the system programming
;; language of HP48/49/50-series calculators.

;;; Code:
(require 'cl-lib)
(require 'rpl-base)

(defcustom rpl-sysrpl-default-calculator :48G
  "Default calculator type for SysRPL mode."
  :type '(radio :38G :39G :48G :49G)
  :group 'rpl)

(defface sysrpl-name '((t (:foreground "blue")))
  "Face used for displaying SysRPL names."
  :group 'rpl)

(defvar sysrpl-mode-syntax-table
  (let ((table (make-syntax-table prog-mode-syntax-table)))
    (modify-syntax-entry ?:  "w" table)
    (modify-syntax-entry ?!  "w" table)
    (modify-syntax-entry ?@  "w" table)
    (modify-syntax-entry ?#  "w" table)
    (modify-syntax-entry ?$  "w" table)
    (modify-syntax-entry ?%  "w" table)
    (modify-syntax-entry ?^  "w" table)
    (modify-syntax-entry ?&  "w" table)
    (modify-syntax-entry ?\? "w" table)
    (modify-syntax-entry ?-  "w" table)
    (modify-syntax-entry ?_  "w" table)
    (modify-syntax-entry ?=  "w" table)
    (modify-syntax-entry ?+  "w" table)
    (modify-syntax-entry ?*  "w" table)
    (modify-syntax-entry ?/  "w" table)
    (modify-syntax-entry ?<  "w" table)
    (modify-syntax-entry ?>  "w" table)
    (modify-syntax-entry ?|  "w" table)
    table)
  "The SysRPL syntax table.")

(defvar sysrpl-keyword-face 'sysrpl-name)

(defun sysrpl-font-lock-compile-keywords (names)
  "Construct a list of keyword matcher clauses suitable for ``font-lock-keywords''."
  (mapcar (lambda (str) (list (concat "\\<" (regexp-quote str) "\\>")
                              (list 0 'sysrpl-keyword-face)))
          names))

(defvar sysrpl-font-lock-keywords
  (sysrpl-font-lock-compile-keywords (rpl-sysrpl-names rpl-sysrpl-default-calculator)))

(defvar sysrpl-selected-calculator rpl-sysrpl-default-calculator
  "Currently selected calculator model.")

(defun sysrpl-select-38g ()
  "Set the currently selected calculator model to be the 38G."
  (interactive)
  (setq sysrpl-selected-calculator :38G)
  (setq sysrpl-font-lock-keywords (sysrpl-font-lock-compile-keywords (rpl-sysrpl-names :38G)))
  (sysrpl-mode))

(defun sysrpl-select-39g ()
  "Set the currently selected calculator model to be the 39G."
  (interactive)
  (setq sysrpl-selected-calculator :39G)
  (setq sysrpl-font-lock-keywords (sysrpl-font-lock-compile-keywords (rpl-sysrpl-names :39G)))
  (sysrpl-mode))

(defun sysrpl-select-48g ()
  "Set the currently selected calculator model to be the 48G."
  (interactive)
  (setq sysrpl-selected-calculator :48G)
  (setq sysrpl-font-lock-keywords (sysrpl-font-lock-compile-keywords (rpl-sysrpl-names :48G)))
  (sysrpl-mode))

(defun sysrpl-select-49g ()
  "Set the currently selected calculator model to be the 49G."
  (interactive)
  (setq sysrpl-selected-calculator :49G)
  (setq sysrpl-font-lock-keywords (sysrpl-font-lock-compile-keywords (rpl-sysrpl-names :49G)))
  (sysrpl-mode))

(defvar sysrpl-mode-map
  (let ((map (make-sparse-keymap))
        (menu-map (make-sparse-keymap)))
    (set-keymap-parent map rpl-common-keymap)
    ;; Menu items
    (define-key map [menu-bar rpl-menu] (cons "RPL" menu-map))
    (define-key menu-map [sysrpl-menu-separator-1]
      '(menu-item "--"))
    (define-key menu-map [sysrpl-menu-select-49g]
      '(menu-item "HP49G" sysrpl-select-49g
                  :button (:radio . (eql :49G sysrpl-selected-calculator))))
    (define-key menu-map [sysrpl-menu-select-48g]
      '(menu-item "HP48G" sysrpl-select-48g
                  :button (:radio . (eql :48G sysrpl-selected-calculator))))
    (define-key menu-map [sysrpl-menu-select-39g]
      '(menu-item "HP39G" sysrpl-select-39g
                  :button (:radio . (eql :39G sysrpl-selected-calculator))))
    (define-key menu-map [sysrpl-menu-select-38g]
      '(menu-item "HP38G" sysrpl-select-38g
                  :button (:radio . (eql :38G sysrpl-selected-calculator))))
    map)
  "The SysRPL mode local keymap.")

(defvar sysrpl-mode-hook nil
  "Hook for customizing SysRPL mode.")

(define-derived-mode sysrpl-mode prog-mode "SysRPL"
  "Major mode for the SysRPL language."
  :group 'rpl
  (setq font-lock-defaults (list 'sysrpl-font-lock-keywords))
  (setq rpl-menu-compile-file-enable nil))

(provide 'sysrpl-mode)