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 35F48139697 for ; Sun, 5 Mar 2017 17:51:48 +0000 (UTC) Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id 6E17421C03E; Sun, 5 Mar 2017 17:51:46 +0000 (UTC) Received: from smtp.gentoo.org (woodpecker.gentoo.org [IPv6:2001:470:ea4a:1:5054:ff:fec7:86e4]) (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 4AF2F21C03E for ; Sun, 5 Mar 2017 17:51:46 +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 615343417C1 for ; Sun, 5 Mar 2017 17:51:45 +0000 (UTC) Received: from localhost.localdomain (localhost [IPv6:::1]) by oystercatcher.gentoo.org (Postfix) with ESMTP id C0AB15D77 for ; Sun, 5 Mar 2017 17:51:43 +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: <1488663628.9cac3b80338e44d6b6406eae1d541617f9304c1e.ulm@gentoo> Subject: [gentoo-commits] proj/emacs-tools:ebuild-mode commit in: / X-VCS-Repository: proj/emacs-tools X-VCS-Files: ChangeLog ebuild-mode.el X-VCS-Directories: / X-VCS-Committer: ulm X-VCS-Committer-Name: Ulrich Müller X-VCS-Revision: 9cac3b80338e44d6b6406eae1d541617f9304c1e X-VCS-Branch: ebuild-mode Date: Sun, 5 Mar 2017 17:51:43 +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: 5969dc9a-b402-437b-b5f2-9de138c58e60 X-Archives-Hash: bec954daa9775d588e4b9510fb2c366f commit: 9cac3b80338e44d6b6406eae1d541617f9304c1e Author: Ulrich Müller gentoo org> AuthorDate: Sat Mar 4 21:40:28 2017 +0000 Commit: Ulrich Müller gentoo org> CommitDate: Sat Mar 4 21:40:28 2017 +0000 URL: https://gitweb.gentoo.org/proj/emacs-tools.git/commit/?id=9cac3b80 Add https:// to completions for HOMEPAGE and SRC_URI. * ebuild-mode.el (ebuild-mode-protocols-homepage) (ebuild-mode-protocols-src_uri): New variables. (ebuild-mode-insert-skeleton): Add https:// to completions for HOMEPAGE and SRC_URI. ChangeLog | 5 +++++ ebuild-mode.el | 15 ++++++++++++--- 2 files changed, 17 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4f8877b..63838a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2017-03-04 Ulrich Müller + * ebuild-mode.el (ebuild-mode-protocols-homepage) + (ebuild-mode-protocols-src_uri): New variables. + (ebuild-mode-insert-skeleton): Add https:// to completions + for HOMEPAGE and SRC_URI. + * ebuild-mode.el (ebuild-mode-update-copyright): Modify the buffer only if necessary. Warn about equal first and last year. diff --git a/ebuild-mode.el b/ebuild-mode.el index b11b5d9..859257f 100644 --- a/ebuild-mode.el +++ b/ebuild-mode.el @@ -141,6 +141,12 @@ of lines." (defvar ebuild-mode-cvs-header-regexp "^#[ \t]*\\$\\(Id\\|Header\\)\\(: .*\\)?\\$[ \t]*$") +(defvar ebuild-mode-protocols-homepage + '("http://" "https://" "ftp://")) + +(defvar ebuild-mode-protocols-src_uri + '("http://" "https://" "ftp://" "mirror://")) + (defvar ebuild-mode-licenses (condition-case nil (directory-files (concat ebuild-mode-portdir "/licenses") @@ -472,10 +478,13 @@ and `all-completions' for details." & -1 & "\n\n" | -8 ;; first variables block "DESCRIPTION=\"" (skeleton-read "Description: ") "\"\n" - "HOMEPAGE=\"" (completing-read "Homepage: " '(("http://"))) "\"\n" + "HOMEPAGE=\"" + (completing-read "Homepage: " + (mapcar 'list ebuild-mode-protocols-homepage)) + "\"\n" "SRC_URI=\"" - (completing-read - "Source URI: " (mapcar 'list '("http://" "ftp://" "mirror://"))) + (completing-read "Source URI: " + (mapcar 'list ebuild-mode-protocols-src_uri)) "\"\n" "\n" ;; second variables block