[emacs] don't fail if secrets file not found, but show warning
[~bandali/configs] / lisp / bbdb / bbdb-site.el
1 ;;; bbdb-site.el --- site-specific variables for BBDB -*- lexical-binding: t -*-
2
3 ;; Copyright (C) 2010-2017 Free Software Foundation, Inc.
4
5 ;; This file is part of the Insidious Big Brother Database (aka BBDB),
6
7 ;; BBDB is free software: you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation, either version 3 of the License, or
10 ;; (at your option) any later version.
11
12 ;; BBDB is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
16
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with BBDB. If not, see <http://www.gnu.org/licenses/>.
19
20 ;;; Code:
21
22 (defconst bbdb-version "@PACKAGE_VERSION@" "Version of BBDB.")
23
24 (if (< emacs-major-version 24)
25 (error "BBDB %s requires GNU Emacs 24 or later" bbdb-version))
26
27 (defcustom bbdb-tex-path
28 (let* ((default "@pkgdatadir@")
29 (dir (cond ((file-accessible-directory-p default)
30 default)
31 (load-file-name
32 (expand-file-name "tex/" (file-name-directory load-file-name)))
33 (t
34 (let ((f (locate-file "tex/bbdb.sty" load-path)))
35 (if f (file-name-directory f)))))))
36 (if dir (list dir)))
37 "List of directories with the BBDB TeX files.
38 If this is t assume that these files reside in directories
39 that are part of the regular TeX search path."
40 :group 'bbdb-utilities-tex
41 :type '(choice (const :tag "Files in TeX path" t)
42 (repeat (directory :tag "Directory"))))
43
44 (provide 'bbdb-site)
45
46 ;;; bbdb-site.el ends here