Skip to content

Instantly share code, notes, and snippets.

@tomoya
Forked from kiwanami/gihyo-inao-mode.el
Created June 20, 2012 07:40
Show Gist options
  • Save tomoya/2958656 to your computer and use it in GitHub Desktop.
Save tomoya/2958656 to your computer and use it in GitHub Desktop.
;;; inao-mode.el --- major mode for writing inao manuscripts
;; Copyright (C) 2010 SAKURAI Masashi
;; Author: SAKURAI Masashi <m.sakurai at kiwanami.net>
;; Keywords: outlines, convenience
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;;; Code:
(require 'cl)
(require 'imenu)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ### Macro / Utilities
(defun inao:define-keymap (keymap-list)
(let ((map (make-sparse-keymap)))
(mapc
(lambda (i)
(define-key map
(if (stringp (car i))
(read-kbd-macro (car i)) (car i))
(cdr i)))
keymap-list)
map))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ### Imenu
(defun inao:outline-imenu-prev-index-position ()
(re-search-backward "^\\(■\\|●\\|□\\)+.+$" (point-min) t))
(defun inao:outline-imenu-extract-index-name ()
(if (looking-at "^\\(\\(■\\|●\\|□\\)+.+\\)$")
(let ((bg (background-color-at-point)) (s "_"))
(put-text-property 0 (length s) 'face `(foreground-color . ,bg) s)
(replace-regexp-in-string "\\(■\\|●\\|□\\)" s (match-string 1) t)
)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ### Font-lock
(loop for i in '(inao:face-title-3 inao:face-title-2 inao:face-title-1 inao:face-title-0 inao:face-edit-tag) do (plist-put (symbol-plist i) 'face-defface-spec nil))
(defface inao:face-title-3
'((((type tty pc) (class color)) :foreground "lightblue" :weight bold)
(t :foreground "lightgreen" :inherit variable-pitch))
"節:level 3.")
(defface inao:face-title-2
'((((type tty pc) (class color)) :foreground "lightblue" :weight bold)
(t :foreground "#4186be" :underline t :weight bold :inherit variable-pitch))
"節:level 2.")
(defface inao:face-title-1
'((((type tty pc) (class color) (background light))
:foreground "green" :weight bold)
(((type tty pc) (class color) (background dark))
:foreground "yellow" :weight bold)
(t :foreground "yellow" :underline t :inherit inao:face-title-2))
"節:level 1.")
(defface inao:face-title-0
'((((type tty pc) (class color) (background light))
:foreground "green" :weight bold)
(((type tty pc) (class color) (background dark))
:foreground "yellow" :weight bold)
(t :foreground "black" :height 1.2 :inherit inao:face-title-1))
"章のタイトル:level 0.")
(defface inao:face-edit-tag
'((((type tty pc) (class color)) :foreground "gray20")
(t :foreground "gray20" :inherit variable-pitch))
"編集記号")
(defconst inao:font-lock-keywords-1
'(
("^□.+$" . 'inao:face-title-0)
("^■■■[^■\n\r]+$" . 'inao:face-title-1)
("^■■[^■\n\r]+$" . 'inao:face-title-2)
("^■[^■\n\r]+$" . 'inao:face-title-3)
;; ("◆[^◆\n\r]+◆" . font-lock-keyword-face)
("^●.+$" . font-lock-variable-name-face)
("^[((][0-90-9]+[))].+$" . 'bold)
("^・.+$" . 'bold)
("^\\(注\\|※\\).+$" . font-lock-function-name-face)
("\\((注\\|(※\\).+?)" . font-lock-function-name-face)
("^-+$" . font-lock-variable-name-face)
("^=+.*$" . font-lock-variable-name-face)
("(#.+?)" . font-lock-comment-face)
("^#.+$" . font-lock-comment-face)
("◆.+?◆" . 'inao:face-edit-tag)
))
(defconst inao:font-lock-keywords-2 inao:font-lock-keywords-1)
(defconst inao:font-lock-keywords-3 inao:font-lock-keywords-1)
(defconst inao:font-lock-keywords
'(inao:font-lock-keywords-3 inao:font-lock-keywords-1 inao:font-lock-keywords-2
inao:font-lock-keywords-3)
"See `font-lock-keywords'.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ### Major Mode
(setq inao-mode-hook nil)
(setq inao-mode-map
(inao:define-keymap
'(
)))
(define-derived-mode inao-mode
text-mode
"Inao"
"Major mode for inao manuscripts.
\\{inao-mode-map}"
(setq case-fold-search nil)
(setq imenu-create-index-function 'imenu-default-create-index-function
imenu-prev-index-position-function 'inao:outline-imenu-prev-index-position
imenu-extract-index-name-function 'inao:outline-imenu-extract-index-name)
(set (make-local-variable 'font-lock-defaults) (list inao:font-lock-keywords))
)
(defun inao-insert-image ()
(interactive)
(insert "●図 
----------------------------------------
----------------------------------------
")
(previous-line 4)
(move-end-of-line 1))
(defun inao-insert-list ()
(interactive)
(insert "●リスト 
========================リストここまで
")
(previous-line 3)
(move-end-of-line 1))
(defun inao-insert-table ()
(interactive)
(insert "●表 
========================表ここまで
")
(previous-line 3)
(move-end-of-line 1))
(defun inao-insert-comment ()
(interactive)
(insert "◆comment/◆◆/comment◆")
(backward-char 10))
(provide 'inao-mode)
;;; inao-mode.el ends here
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment