Skip to content

Commit d9e34e1

Browse files
committed
Update Beluga-mode to conform to Melpa restrictions
1 parent 5efb5c7 commit d9e34e1

File tree

1 file changed

+9
-11
lines changed

1 file changed

+9
-11
lines changed

tools/beluga-mode.el

Lines changed: 9 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,9 @@
55
;; Author: Stefan Monnier <[email protected]>
66
;; Maintainer: [email protected]
77
;; Version: 0
8-
;; Keywords:
8+
;; Package-Requires: ((emacs "24.4"))
9+
;; Keywords: languages
10+
;; URL: https://github.com/Beluga-lang/Beluga
911

1012
;; This program is free software; you can redistribute it and/or modify
1113
;; it under the terms of the GNU General Public License as published by
@@ -127,10 +129,9 @@ in unicode using Font Lock mode."
127129
("|-" [""])
128130
("\\not" ["¬"])
129131
("::" [""])
130-
("FN" ["Λ"])
131-
)
132+
("FN" ["Λ"]))
132133

133-
(defgroup beluga-mode ()
134+
(defgroup beluga ()
134135
"Editing support for the Beluga language."
135136
:group 'languages)
136137

@@ -520,7 +521,7 @@ returned. Else, nil is returned."
520521
;; These build off the basic commands, and will typically do something
521522
;; like parse the response or display it in a message.
522523

523-
(defun beli ()
524+
(defun beluga-beli ()
524525
"Start beli mode."
525526
(interactive)
526527
(beluga-start))
@@ -582,8 +583,7 @@ This will update `beluga--last-load-time' if a load is performed."
582583
(ol (beluga--create-overlay pos))
583584
(info (beluga--basic-printhole-n! i)))
584585
(overlay-put ol 'help-echo info)
585-
(push ol beluga--holes-overlays)
586-
))))
586+
(push ol beluga--holes-overlays)))))
587587

588588
(defun beluga--get-hole-overlay! (hole)
589589
"Get the overlay associated with HOLE."
@@ -774,8 +774,7 @@ Otherwise, `match-string' 1 will contain the name of the matched short.")
774774
(1 font-lock-type-face))
775775

776776
(,(concat beluga-syntax-fundec-re "\\s-+\\(" beluga-syntax-id-re "\\)")
777-
(2 font-lock-function-name-face))
778-
))
777+
(2 font-lock-function-name-face))))
779778

780779
(defcustom beluga-indent-basic 4
781780
"Basic amount of indentation."
@@ -1045,8 +1044,7 @@ Return the starting position of the short pragma; else, nil."
10451044
(`(:before
10461045
.
10471046
,(and "=" (guard `(smie-rule-parent-p ,@beluga-type-declaration-keywords))))
1048-
(smie-rule-parent))
1049-
))
1047+
(smie-rule-parent))))
10501048

10511049
;;---------------------------- Loading of the mode ----------------------------;;
10521050

0 commit comments

Comments
 (0)