mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs: Add some skeletons to nroff-mode

master
Pierre Neidhardt 2014-10-08 11:18:26 +02:00
parent 53aba0224b
commit 387ec65425
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.emacs.d/init.el
View File

@ -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)))

20
.emacs.d/mode-nroff.el Normal file
View File

@ -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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;