branch: externals/beardbolt
commit 98cea6e8e0c84249e2d045f5384562153812c0a8
Author: Jay Kamat <jaygka...@gmail.com>
Commit: Jay Kamat <jaygka...@gmail.com>
Simplify creation of new starters with a macro
---
rmsbolt.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/rmsbolt.el b/rmsbolt.el
index 67ebb96fae..d897288f75 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -546,16 +546,16 @@ int main() {
(insert
(rmsbolt-l-starter-file lang-def))
(save-buffer))
-
(unless rmsbolt-mode
- (rmsbolt-mode 1)))
- )
-(defun rmsbolt-c ()
- (interactive)
- (rmsbolt-starter 'c-mode))
-(defun rmsbolt-c++ ()
- (interactive)
- (rmsbolt-starter 'c++-mode))
+ (rmsbolt-mode 1))))
+(defmacro rmsbolt-defstarter (lang mode)
+ "Defines a starter for LANG and MODE."
+ `(defun ,(intern (concat "rmsbolt-" lang)) ()
+ ,(concat "Open a rmsbolt starter file for " lang ".")
+ (interactive)
+ (rmsbolt-starter ,mode)))
+(rmsbolt-defstarter "c" 'c-mode)
+(rmsbolt-defstarter "c++" 'c++-mode)
;;;; Mode Definition:
