diff options
author | Ulrich Müller <ulm@gentoo.org> | 2017-03-08 20:31:01 +0100 |
---|---|---|
committer | Ulrich Müller <ulm@gentoo.org> | 2017-03-08 20:31:01 +0100 |
commit | a45bd2700a522744cb91e8b95233eb6a2929303d (patch) | |
tree | 1eef5e770a21ed7f31adb4ec8484f447129f9374 | |
parent | Version 1.34 released. (diff) | |
download | ebuild-mode-a45bd2700a522744cb91e8b95233eb6a2929303d.tar.gz ebuild-mode-a45bd2700a522744cb91e8b95233eb6a2929303d.tar.bz2 ebuild-mode-a45bd2700a522744cb91e8b95233eb6a2929303d.zip |
Re-indent all elisp files.
-rw-r--r-- | ebuild-mode.el | 120 | ||||
-rw-r--r-- | gentoo-newsitem-mode.el | 46 |
2 files changed, 83 insertions, 83 deletions
diff --git a/ebuild-mode.el b/ebuild-mode.el index 7e1be18..91c6969 100644 --- a/ebuild-mode.el +++ b/ebuild-mode.el @@ -167,7 +167,7 @@ of lines." (lambda (x) (substring x 0 (string-match "\\.eclass\\'" x))) (directory-files (concat ebuild-mode-portdir "/eclass") nil "\\.eclass\\'")) - (file-error nil)) + (file-error nil)) "List of eclasses, determined from the ebuild repository.") (defvar ebuild-mode-restrict-list @@ -226,7 +226,7 @@ Optional argument LIMIT restarts collection after that number of elements." (not (and limit (> (length (car e)) limit)))) (setcar e (append (car e) (car c))) (setq dst (cons (copy-sequence c) dst)))))) -) + ) (eval-when-compile (load "ebuild-mode-keywords" nil t)) @@ -467,63 +467,63 @@ and `all-completions' for details." (define-skeleton ebuild-mode-insert-skeleton "Insert a statement skeleton for a new ebuild." - nil - ;; standard header - "# Copyright 1999-" (format-time-string "%Y") " Gentoo Foundation\n" - "# Distributed under the terms of the GNU General Public License v2\n" - "\n" - "EAPI=" - (completing-read - "EAPI: " (mapcar 'list ebuild-mode-eapi-list) - nil nil (car (last ebuild-mode-eapi-list))) ; default to most recent EAPI - "\n" - "\n" - ;; inherited eclasses - "inherit " - ((completing-read "Eclass (null string to terminate): " - (mapcar 'list ebuild-mode-eclasses)) - str & " ") - & -1 & "\n\n" | -8 - ;; first variables block - "DESCRIPTION=\"" (skeleton-read "Description: ") "\"\n" - "HOMEPAGE=\"" - (completing-read "Homepage: " - (mapcar 'list ebuild-mode-protocols-homepage)) - "\"\n" - "SRC_URI=\"" - (completing-read "Source URI: " - (mapcar 'list ebuild-mode-protocols-src_uri)) - "\"\n" - "\n" - ;; second variables block - "LICENSE=\"" - ((completing-read "License (null string to terminate): " - (mapcar 'list ebuild-mode-licenses)) - str & " ") - & -1 "\"\n" - "SLOT=\"0\"\n" - "KEYWORDS=\"" - ((completing-read - "Keyword (null string to terminate): " - (nconc - (mapcar (lambda (x) (list (concat "~" x))) ebuild-mode-arch-list) - (mapcar 'list ebuild-mode-arch-stable-list))) - str & " ") - & -1 "\"\n" - "IUSE=\"" - ((completing-read "USE flag (null string to terminate): " - (mapcar 'list ebuild-mode-use-flags)) - str & " ") - & -1 & "\"\n" | -6 - "RESTRICT=\"" - ((completing-read "RESTRICT (null string to terminate): " - (mapcar 'list ebuild-mode-restrict-list)) - str & " ") - & -1 & "\"\n" | -10 - "\n" - ;; dependencies - "DEPEND=\"\"\n" - "RDEPEND=\"\$\{DEPEND\}\"\n") + nil + ;; standard header + "# Copyright 1999-" (format-time-string "%Y") " Gentoo Foundation\n" + "# Distributed under the terms of the GNU General Public License v2\n" + "\n" + "EAPI=" + (completing-read + "EAPI: " (mapcar 'list ebuild-mode-eapi-list) + nil nil (car (last ebuild-mode-eapi-list))) ; default to most recent EAPI + "\n" + "\n" + ;; inherited eclasses + "inherit " + ((completing-read "Eclass (null string to terminate): " + (mapcar 'list ebuild-mode-eclasses)) + str & " ") + & -1 & "\n\n" | -8 + ;; first variables block + "DESCRIPTION=\"" (skeleton-read "Description: ") "\"\n" + "HOMEPAGE=\"" + (completing-read "Homepage: " + (mapcar 'list ebuild-mode-protocols-homepage)) + "\"\n" + "SRC_URI=\"" + (completing-read "Source URI: " + (mapcar 'list ebuild-mode-protocols-src_uri)) + "\"\n" + "\n" + ;; second variables block + "LICENSE=\"" + ((completing-read "License (null string to terminate): " + (mapcar 'list ebuild-mode-licenses)) + str & " ") + & -1 "\"\n" + "SLOT=\"0\"\n" + "KEYWORDS=\"" + ((completing-read + "Keyword (null string to terminate): " + (nconc + (mapcar (lambda (x) (list (concat "~" x))) ebuild-mode-arch-list) + (mapcar 'list ebuild-mode-arch-stable-list))) + str & " ") + & -1 "\"\n" + "IUSE=\"" + ((completing-read "USE flag (null string to terminate): " + (mapcar 'list ebuild-mode-use-flags)) + str & " ") + & -1 & "\"\n" | -6 + "RESTRICT=\"" + ((completing-read "RESTRICT (null string to terminate): " + (mapcar 'list ebuild-mode-restrict-list)) + str & " ") + & -1 & "\"\n" | -10 + "\n" + ;; dependencies + "DEPEND=\"\"\n" + "RDEPEND=\"\$\{DEPEND\}\"\n") ;;; echangelog support. @@ -560,7 +560,7 @@ and `all-completions' for details." (and (< emacs-major-version 22) ;; make TAB key work (defadvice sh-must-be-shell-mode - (around ebuild-mode-sh-must-be-shell-mode activate) + (around ebuild-mode-sh-must-be-shell-mode activate) (or (eq major-mode 'ebuild-mode) ad-do-it))) diff --git a/gentoo-newsitem-mode.el b/gentoo-newsitem-mode.el index 52d669c..023fe79 100644 --- a/gentoo-newsitem-mode.el +++ b/gentoo-newsitem-mode.el @@ -48,29 +48,29 @@ (define-skeleton gentoo-newsitem-insert-skeleton "Insert a skeleton for a Gentoo GLEP 42 news item." - nil - "Title: " (skeleton-read "Title: ") "\n" - "Author: " (skeleton-read - "Author's real name and e-mail address: " - (concat user-full-name " <" user-mail-address ">")) - "\n" - ((skeleton-read "Further author (null string to terminate): ") - "Author: " str "\n") - ((skeleton-read "Translator (null string to terminate): ") - "Translator: " str "\n") - "Content-Type: text/plain\n" - "Posted: " (skeleton-read "Date of posting: " - (format-time-string "%Y-%m-%d")) - "\n" - "Revision: 1\n" - "News-Item-Format: 1.0\n" - ((skeleton-read "Display-If-Installed: (null string to terminate): ") - "Display-If-Installed: " str "\n") - ((skeleton-read "Display-If-Keyword: (null string to terminate): ") - "Display-If-Keyword: " str "\n") - ((skeleton-read "Display-If-Profile: (null string to terminate): ") - "Display-If-Profile: " str "\n") - "\n") + nil + "Title: " (skeleton-read "Title: ") "\n" + "Author: " (skeleton-read + "Author's real name and e-mail address: " + (concat user-full-name " <" user-mail-address ">")) + "\n" + ((skeleton-read "Further author (null string to terminate): ") + "Author: " str "\n") + ((skeleton-read "Translator (null string to terminate): ") + "Translator: " str "\n") + "Content-Type: text/plain\n" + "Posted: " (skeleton-read "Date of posting: " + (format-time-string "%Y-%m-%d")) + "\n" + "Revision: 1\n" + "News-Item-Format: 1.0\n" + ((skeleton-read "Display-If-Installed: (null string to terminate): ") + "Display-If-Installed: " str "\n") + ((skeleton-read "Display-If-Keyword: (null string to terminate): ") + "Display-If-Keyword: " str "\n") + ((skeleton-read "Display-If-Profile: (null string to terminate): ") + "Display-If-Profile: " str "\n") + "\n") (define-key gentoo-newsitem-mode-map |