From 387ec6542500cf79de9a5627d8bd6b946a8b4d62 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Wed, 8 Oct 2014 11:18:26 +0200 Subject: [PATCH] Emacs: Add some skeletons to nroff-mode --- .emacs.d/init.el | 1 + .emacs.d/mode-nroff.el | 20 ++++++++++++++++++++ 2 files changed, 21 insertions(+) create mode 100644 .emacs.d/mode-nroff.el diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 5e1f9c6f..1f6119b1 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -52,6 +52,7 @@ Example: to assign some-function to C-i, use (add-hook 'c-mode-hook (lambda () (require 'mode-cc))) (add-hook 'latex-mode-hook (lambda () (require 'mode-latex))) (add-hook 'makefile-mode-hook (lambda () (require 'mode-makefile))) +(add-hook 'nroff-mode-hook (lambda () (require 'mode-nroff))) (add-hook 'perl-mode-hook (lambda () (require 'mode-perl))) (add-hook 'python-mode-hook (lambda () (require 'mode-python))) (add-hook 'sh-mode-hook (lambda () (require 'mode-sh))) diff --git a/.emacs.d/mode-nroff.el b/.emacs.d/mode-nroff.el new file mode 100644 index 00000000..b17caf58 --- /dev/null +++ b/.emacs.d/mode-nroff.el @@ -0,0 +1,20 @@ +;;============================================================================== +;; Nroff +;;============================================================================== + +(add-hook-and-eval + 'latex-mode-hook + (lambda () + (local-set-key (kbd "C-c C-b") 'nroff-bold) + (local-set-key (kbd "C-c C-i") 'nroff-italic) + )) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Skeletons + +(define-skeleton nroff-bold "Bold text." nil "\\fB" @ _ "\\fR" @) +(define-skeleton nroff-italic "Italic text." nil "\\fI" @ _ "\\fR" @) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(provide 'mode-nroff) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;