106 lines
3.5 KiB
EmacsLisp
106 lines
3.5 KiB
EmacsLisp
|
;;; gitconfig-mode.el --- Major mode for editing .gitconfig files -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;; Copyright (c) 2012, 2013 Sebastian Wiesner <lunaryorn@gmail.com>
|
||
|
|
;;
|
||
|
|
;; Author: Sebastian Wiesner <lunaryorn@gmail.com>
|
||
|
|
;; URL: https://github.com/lunaryorn/git-modes
|
||
|
|
;; Version: 0.3
|
||
|
|
;; Keywords: convenience vc git
|
||
|
|
|
||
|
|
;; This file is not part of GNU Emacs.
|
||
|
|
|
||
|
|
;; 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 2 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, write to the Free Software Foundation, Inc., 51
|
||
|
|
;; Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
|
||
|
|
;; A major mode for editing .gitconfig files.
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(require 'conf-mode)
|
||
|
|
|
||
|
|
(defun gitconfig-line-indented-p ()
|
||
|
|
"Determine whether the current line is indented correctly.
|
||
|
|
|
||
|
|
Return t if so, or nil otherwise."
|
||
|
|
(save-excursion
|
||
|
|
(beginning-of-line)
|
||
|
|
(or (looking-at "^\\[\\_<.*?\\]")
|
||
|
|
(looking-at "^\t\\_<\\(?:\\sw|\\s_\\)"))))
|
||
|
|
|
||
|
|
(defun gitconfig-point-in-indentation-p ()
|
||
|
|
"Determine whether the point is in the indentation of the current line.
|
||
|
|
|
||
|
|
Return t if so, or nil otherwise."
|
||
|
|
(save-excursion
|
||
|
|
(let ((pos (point)))
|
||
|
|
(back-to-indentation)
|
||
|
|
(< pos (point)))))
|
||
|
|
|
||
|
|
(defun gitconfig-indent-line ()
|
||
|
|
"Indent the current line."
|
||
|
|
(interactive)
|
||
|
|
(unless (gitconfig-line-indented-p)
|
||
|
|
(let ((old-point (point-marker))
|
||
|
|
(was-in-indent (gitconfig-point-in-indentation-p)))
|
||
|
|
(beginning-of-line)
|
||
|
|
(delete-horizontal-space)
|
||
|
|
(unless (= (char-after) ?\[)
|
||
|
|
(insert-char ?\t 1))
|
||
|
|
(if was-in-indent
|
||
|
|
(back-to-indentation)
|
||
|
|
(goto-char (marker-position old-point))))))
|
||
|
|
|
||
|
|
(defvar gitconfig-mode-syntax-table
|
||
|
|
(let ((table (make-syntax-table conf-unix-mode-syntax-table)))
|
||
|
|
;; ; is a comment in .gitconfig
|
||
|
|
(modify-syntax-entry ?\; "<" table)
|
||
|
|
table)
|
||
|
|
"Syntax table to use in .gitconfig buffers.")
|
||
|
|
|
||
|
|
(defvar gitconfig-mode-font-lock-keywords
|
||
|
|
`(
|
||
|
|
;; Highlight section and subsection gitconfig headers, and override
|
||
|
|
;; syntactic fontification in these.
|
||
|
|
("^\\s-*\\[\\_<\\(\\(?:\\sw\\|\\s_\\)+\\)\\_>\\(?:\\s-+\\(\\s\".+?\\s\"\\)\\)?\\]\\s-*"
|
||
|
|
(1 'font-lock-type-face t nil)
|
||
|
|
(2 'font-lock-function-name-face t t))
|
||
|
|
("^\\s-*\\_<\\(\\(?:\\sw\\|\\s_\\)+\\)\\_>\\s-*\\(?:=.*\\)?$"
|
||
|
|
(1 'font-lock-variable-name-face))
|
||
|
|
;; Highlight booleans and numbers
|
||
|
|
(,(format "=\\s-*%s\\s-*$"
|
||
|
|
(regexp-opt '("yes" "no" "true" "false" "on" "off") 'words))
|
||
|
|
(1 'font-lock-keyword-face))
|
||
|
|
("=\\s-*\\<\\([0-9]+\\)\\>\\s-*$" (1 'font-lock-constant-face))))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(define-derived-mode gitconfig-mode conf-unix-mode "Gitconfig"
|
||
|
|
"A major mode for editing .gitconfig files."
|
||
|
|
;; .gitconfig is indented with tabs only
|
||
|
|
(conf-mode-initialize "#" gitconfig-mode-font-lock-keywords)
|
||
|
|
(setq indent-tabs-mode t)
|
||
|
|
(set (make-local-variable 'indent-line-function)
|
||
|
|
'gitconfig-indent-line))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(setq auto-mode-alist
|
||
|
|
(append '(("/\\.gitconfig\\'" . gitconfig-mode)
|
||
|
|
("/\\.git/config\\'" . gitconfig-mode))
|
||
|
|
auto-mode-alist))
|
||
|
|
|
||
|
|
(provide 'gitconfig-mode)
|
||
|
|
|
||
|
|
;;; gitconfig-mode.el ends here
|