-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathbug.el
63 lines (57 loc) · 1.99 KB
/
bug.el
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
;;; bug.el --- work with bug trackers from within emacs
;;
;; Copyright (c) 2010-2015 bug-mode developers
;;
;; See the AUTHORS.md file for a full list:
;; https://raw.githubusercontent.com/bwachter/bug-mode/master/AUTHORS.md
;;
;; Keywords: tools
;;
;; COPYRIGHT NOTICE
;;
;; 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. http://www.gnu.org/copyleft/gpl.html
;;
;;; History:
;;
;; This file is maintained at https://github.com/bwachter/bug-mode/
;; Check the git history for details.
;;
;;; Code:
(unless (or (> emacs-major-version 24)
(and (= emacs-major-version 24)
(>= emacs-minor-version 3)))
(error "Your emacs is too old, you need at least 24.3"))
(add-to-list 'load-path
(directory-file-name
(concat
(file-name-directory (or load-file-name (buffer-file-name)))
"lisp")))
(defvar bug--available-backends
(let (backends)
(dolist (backend-file
(directory-files
(concat (file-name-directory (or load-file-name
(buffer-file-name)))
"/lisp/")
nil "bug-backend-.*.el$"))
(let (backend)
(setq backend (replace-regexp-in-string "^bug-backend-" "" backend-file))
(setq backend (replace-regexp-in-string ".el$" "" backend))
(push backend backends)))
backends))
(require 'bug-autoloads)
(require 'bug-custom)
(require 'bug-persistent-data)
;;;;;;
;; startup code to read persistent data
(bug--read-data-file)
(provide 'bug)
;;; bug.el ends here