summaryrefslogtreecommitdiff
path: root/.config
diff options
context:
space:
mode:
Diffstat (limited to '.config')
-rw-r--r--.config/emacs/libraries/copyright.el35
-rw-r--r--.config/emacs/modules/bd--devel.el1
2 files changed, 36 insertions, 0 deletions
diff --git a/.config/emacs/libraries/copyright.el b/.config/emacs/libraries/copyright.el
new file mode 100644
index 0000000..112512d
--- /dev/null
+++ b/.config/emacs/libraries/copyright.el
@@ -0,0 +1,35 @@
+;;; copyright.el --- Insert a Guix copyright. -*- lexical-binding: t; -*-
+
+;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
+
+;; This file is part of GNU Guix.
+
+;; GNU Guix 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.
+
+;; GNU Guix 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:
+
+;; This package provides skeleton to insert a copyright with `guix-copyright'.
+
+;;; Code:
+
+(define-skeleton guix-copyright
+ "Insert a copyright by $USER notice at cursor."
+ "FULL_NAME <MAIL_ADDRESS>: "
+ comment-start
+ ";; Copyright © " `(format-time-string "%Y") " "
+ (or (format "%s <%s>" user-full-name user-mail-address) str)
+ comment-end)
+
+(provide 'copyright)
+;;; copyright.el ends here
diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el
index dc68b4b..0c17367 100644
--- a/.config/emacs/modules/bd--devel.el
+++ b/.config/emacs/modules/bd--devel.el
@@ -223,6 +223,7 @@ Otherwise, open the repository's main page."
'paredit-backward-delete
'paredit-close-round))
+(use-package copyright)
(provide 'bd--devel)
;;; bd--devel.el ends here