From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from lists.gentoo.org (pigeon.gentoo.org [208.92.234.80]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by finch.gentoo.org (Postfix) with ESMTPS id 15C4D139695 for ; Thu, 9 Mar 2017 09:51:27 +0000 (UTC) Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id 2D9C5E0AC9; Thu, 9 Mar 2017 09:51:24 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by pigeon.gentoo.org (Postfix) with ESMTPS id E9D8FE0AC9 for ; Thu, 9 Mar 2017 09:51:23 +0000 (UTC) Received: from oystercatcher.gentoo.org (oystercatcher.gentoo.org [148.251.78.52]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by smtp.gentoo.org (Postfix) with ESMTPS id 6B436341265 for ; Thu, 9 Mar 2017 09:51:22 +0000 (UTC) Received: from localhost.localdomain (localhost [IPv6:::1]) by oystercatcher.gentoo.org (Postfix) with ESMTP id CA3CB61FE for ; Thu, 9 Mar 2017 09:51:20 +0000 (UTC) From: "Ulrich Müller" To: gentoo-commits@lists.gentoo.org Content-Transfer-Encoding: 8bit Content-type: text/plain; charset=UTF-8 Reply-To: gentoo-dev@lists.gentoo.org, "Ulrich Müller" Message-ID: <1489001461.a45bd2700a522744cb91e8b95233eb6a2929303d.ulm@gentoo> Subject: [gentoo-commits] proj/emacs-tools:ebuild-mode commit in: / X-VCS-Repository: proj/emacs-tools X-VCS-Files: ebuild-mode.el gentoo-newsitem-mode.el X-VCS-Directories: / X-VCS-Committer: ulm X-VCS-Committer-Name: Ulrich Müller X-VCS-Revision: a45bd2700a522744cb91e8b95233eb6a2929303d X-VCS-Branch: ebuild-mode Date: Thu, 9 Mar 2017 09:51:20 +0000 (UTC) Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: List-Id: Gentoo Linux mail X-BeenThere: gentoo-commits@lists.gentoo.org X-Archives-Salt: f828ca9f-31b7-4846-914e-4553e57cf828 X-Archives-Hash: 760bd1b03f526744b0f948b085a7511a commit: a45bd2700a522744cb91e8b95233eb6a2929303d Author: Ulrich Müller gentoo org> AuthorDate: Wed Mar 8 19:31:01 2017 +0000 Commit: Ulrich Müller gentoo org> CommitDate: Wed Mar 8 19:31:01 2017 +0000 URL: https://gitweb.gentoo.org/proj/emacs-tools.git/commit/?id=a45bd270 Re-indent all elisp files. ebuild-mode.el | 120 ++++++++++++++++++++++++------------------------ 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