blob: d9cd47cef2710f5610d6c9a0722d75907da6aebf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
;; -*- mode: emacs-lisp -*-
;; This file contains code to set up Emacs to edit PostgreSQL source
;; code. Copy these snippets into your .emacs file or equivalent, or
;; use load-file to load this file directly.
;;
;; Note also that there is a .dir-locals.el file at the top of the
;; PostgreSQL source tree, which contains many of the settings shown
;; here (but not all, mainly because not all settings are allowed as
;; local variables). So for light editing, you might not need any
;; additional Emacs configuration.
;;; C files
;; Style that matches the formatting used by
;; src/tools/pgindent/pgindent. Many extension projects also use this
;; style.
(c-add-style "postgresql"
'("bsd"
(c-auto-align-backslashes . nil)
(c-basic-offset . 4)
(c-offsets-alist . ((case-label . +)
(label . -)
(statement-case-open . +)))
(fill-column . 78)
(indent-tabs-mode . t)
(tab-width . 4)))
(add-hook 'c-mode-hook
(defun postgresql-c-mode-hook ()
(when (string-match "/postgres\\(ql\\)?/" buffer-file-name)
(c-set-style "postgresql")
;; Don't override the style we just set with the style in
;; `dir-locals-file'. Emacs 23.4.1 needs this; it is obsolete,
;; albeit harmless, by Emacs 24.3.1.
(set (make-local-variable 'ignored-local-variables)
(append '(c-file-style) ignored-local-variables)))))
;;; Perl files
;; Style that matches the formatting used by
;; src/tools/pgindent/perltidyrc.
(defun pgsql-perl-style ()
"Perl style adjusted for PostgreSQL project"
(interactive)
(setq perl-brace-imaginary-offset 0)
(setq perl-brace-offset 0)
(setq perl-continued-brace-offset 4)
(setq perl-continued-statement-offset 4)
(setq perl-indent-level 4)
(setq perl-label-offset -2)
(setq indent-tabs-mode t)
(setq tab-width 4))
(add-hook 'perl-mode-hook
(defun postgresql-perl-mode-hook ()
(when (string-match "/postgres\\(ql\\)?/" buffer-file-name)
(pgsql-perl-style))))
;;; documentation files
(add-hook 'sgml-mode-hook
(defun postgresql-sgml-mode-hook ()
(when (string-match "/postgres\\(ql\\)?/" buffer-file-name)
(setq fill-column 78)
(setq indent-tabs-mode nil)
(setq sgml-basic-offset 1))))
;;; Makefiles
;; use GNU make mode instead of plain make mode
(add-to-list 'auto-mode-alist '("/postgres\\(ql\\)?/.*Makefile.*" . makefile-gmake-mode))
(add-to-list 'auto-mode-alist '("/postgres\\(ql\\)?/.*\\.mk\\'" . makefile-gmake-mode))
|
