@@ -1593,16 +1593,29 @@ When you make a new package, the =auto-insert= command will insert a set of stan
1593
1593
;; Copyright (C) 2017 First Last
1594
1594
1595
1595
;; Author: First Last <
[email protected] >
1596
- ;; URL: http ://example.com/package-name.el
1596
+ ;; URL: https ://example.com/package-name.el
1597
1597
;; Version: 0.1-pre
1598
1598
;; Package-Requires: ((emacs "25.2"))
1599
1599
;; Keywords: something
1600
1600
1601
1601
;; This file is not part of GNU Emacs.
1602
1602
1603
+ ;; This program is free software; you can redistribute it and/or modify
1604
+ ;; it under the terms of the GNU General Public License as published by
1605
+ ;; the Free Software Foundation, either version 3 of the License, or
1606
+ ;; (at your option) any later version.
1607
+
1608
+ ;; This program is distributed in the hope that it will be useful,
1609
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
1610
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1611
+ ;; GNU General Public License for more details.
1612
+
1613
+ ;; You should have received a copy of the GNU General Public License
1614
+ ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
1615
+
1603
1616
;;; Commentary:
1604
1617
1605
- ;; This is my package. It is nice. You should try it .
1618
+ ;; This package allows flanges to be easily frobnicated .
1606
1619
1607
1620
;;;; Installation
1608
1621
@@ -1641,21 +1654,6 @@ When you make a new package, the =auto-insert= command will insert a set of stan
1641
1654
;; [1] https://example.com/foo.el
1642
1655
;; [2] https://example.com/bar.el
1643
1656
1644
- ;;; License:
1645
-
1646
- ;; This program is free software; you can redistribute it and/or modify
1647
- ;; it under the terms of the GNU General Public License as published by
1648
- ;; the Free Software Foundation, either version 3 of the License, or
1649
- ;; (at your option) any later version.
1650
-
1651
- ;; This program is distributed in the hope that it will be useful,
1652
- ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
1653
- ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1654
- ;; GNU General Public License for more details.
1655
-
1656
- ;; You should have received a copy of the GNU General Public License
1657
- ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
1658
-
1659
1657
;;; Code:
1660
1658
1661
1659
;;;; Requirements
@@ -1667,7 +1665,7 @@ When you make a new package, the =auto-insert= command will insert a set of stan
1667
1665
1668
1666
(defgroup package-name nil
1669
1667
"Settings for `package-name'."
1670
- :link '(url-link "http ://example.com/package-name.el"))
1668
+ :link '(url-link "https ://example.com/package-name.el"))
1671
1669
1672
1670
(defcustom package-name-something nil
1673
1671
"This setting does something."
@@ -1680,7 +1678,8 @@ When you make a new package, the =auto-insert= command will insert a set of stan
1680
1678
1681
1679
;;;;; Keymaps
1682
1680
1683
- ;; This technique makes it easier and less verbose to define keymaps.
1681
+ ;; This technique makes it easier and less verbose to define keymaps
1682
+ ;; that have many bindings.
1684
1683
1685
1684
(defvar package-name-map
1686
1685
;; This makes it easy and much less verbose to define keys
@@ -1697,22 +1696,28 @@ When you make a new package, the =auto-insert= command will insert a set of stan
1697
1696
(define-key map key fn)))
1698
1697
map))
1699
1698
1700
- ;;;; Functions
1701
-
1702
- ;;;;; Commands
1699
+ ;;;; Commands
1703
1700
1704
1701
;;;###autoload
1705
1702
(defun package-name-command (args)
1706
1703
"Frobnicate the flange."
1707
1704
(interactive)
1708
- (package-name--something)
1709
- (bar))
1705
+ (package-name-foo
1706
+ (package-name--bar args)))
1707
+
1708
+ ;;;; Functions
1709
+
1710
+ ;;;;; Public
1711
+
1712
+ (defun package-name-foo (args)
1713
+ "Return foo for ARGS."
1714
+ (foo args))
1710
1715
1711
- ;;;;; Support
1716
+ ;;;;; Private
1712
1717
1713
- (defun package-name--something (args)
1714
- "This function helps frobnicate the flange ."
1715
- (foo ))
1718
+ (defun package-name--bar (args)
1719
+ "Return bar for ARGS ."
1720
+ (bar args ))
1716
1721
1717
1722
;;;; Footer
1718
1723
0 commit comments