- - GNU Free Documentation License - Version 1.3, 3 November 2008 - - - Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. - - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - -0. PREAMBLE - -The purpose of this License is to make a manual, textbook, or other -functional and useful document "free" in the sense of freedom: to -assure everyone the effective freedom to copy and redistribute it, -with or without modifying it, either commercially or noncommercially. -Secondarily, this License preserves for the author and publisher a way -to get credit for their work, while not being considered responsible -for modifications made by others. - -This License is a kind of "copyleft", which means that derivative -works of the document must themselves be free in the same sense. It -complements the GNU General Public License, which is a copyleft -license designed for free software. - -We have designed this License in order to use it for manuals for free -software, because free software needs free documentation: a free -program should come with manuals providing the same freedoms that the -software does. But this License is not limited to software manuals; -it can be used for any textual work, regardless of subject matter or -whether it is published as a printed book. We recommend this License -principally for works whose purpose is instruction or reference. - - -1. APPLICABILITY AND DEFINITIONS - -This License applies to any manual or other work, in any medium, that -contains a notice placed by the copyright holder saying it can be -distributed under the terms of this License. Such a notice grants a -world-wide, royalty-free license, unlimited in duration, to use that -work under the conditions stated herein. The "Document", below, -refers to any such manual or work. Any member of the public is a -licensee, and is addressed as "you". You accept the license if you -copy, modify or distribute the work in a way requiring permission -under copyright law. - -A "Modified Version" of the Document means any work containing the -Document or a portion of it, either copied verbatim, or with -modifications and/or translated into another language. - -A "Secondary Section" is a named appendix or a front-matter section of -the Document that deals exclusively with the relationship of the -publishers or authors of the Document to the Document's overall -subject (or to related matters) and contains nothing that could fall -directly within that overall subject. (Thus, if the Document is in -part a textbook of mathematics, a Secondary Section may not explain -any mathematics.) The relationship could be a matter of historical -connection with the subject or with related matters, or of legal, -commercial, philosophical, ethical or political position regarding -them. - -The "Invariant Sections" are certain Secondary Sections whose titles -are designated, as being those of Invariant Sections, in the notice -that says that the Document is released under this License. If a -section does not fit the above definition of Secondary then it is not -allowed to be designated as Invariant. The Document may contain zero -Invariant Sections. If the Document does not identify any Invariant -Sections then there are none. - -The "Cover Texts" are certain short passages of text that are listed, -as Front-Cover Texts or Back-Cover Texts, in the notice that says that -the Document is released under this License. A Front-Cover Text may -be at most 5 words, and a Back-Cover Text may be at most 25 words. - -A "Transparent" copy of the Document means a machine-readable copy, -represented in a format whose specification is available to the -general public, that is suitable for revising the document -straightforwardly with generic text editors or (for images composed of -pixels) generic paint programs or (for drawings) some widely available -drawing editor, and that is suitable for input to text formatters or -for automatic translation to a variety of formats suitable for input -to text formatters. A copy made in an otherwise Transparent file -format whose markup, or absence of markup, has been arranged to thwart -or discourage subsequent modification by readers is not Transparent. -An image format is not Transparent if used for any substantial amount -of text. A copy that is not "Transparent" is called "Opaque". - -Examples of suitable formats for Transparent copies include plain -ASCII without markup, Texinfo input format, LaTeX input format, SGML -or XML using a publicly available DTD, and standard-conforming simple -HTML, PostScript or PDF designed for human modification. Examples of -transparent image formats include PNG, XCF and JPG. Opaque formats -include proprietary formats that can be read and edited only by -proprietary word processors, SGML or XML for which the DTD and/or -processing tools are not generally available, and the -machine-generated HTML, PostScript or PDF produced by some word -processors for output purposes only. - -The "Title Page" means, for a printed book, the title page itself, -plus such following pages as are needed to hold, legibly, the material -this License requires to appear in the title page. For works in -formats which do not have any title page as such, "Title Page" means -the text near the most prominent appearance of the work's title, -preceding the beginning of the body of the text. - -The "publisher" means any person or entity that distributes copies of -the Document to the public. - -A section "Entitled XYZ" means a named subunit of the Document whose -title either is precisely XYZ or contains XYZ in parentheses following -text that translates XYZ in another language. (Here XYZ stands for a -specific section name mentioned below, such as "Acknowledgements", -"Dedications", "Endorsements", or "History".) To "Preserve the Title" -of such a section when you modify the Document means that it remains a -section "Entitled XYZ" according to this definition. - -The Document may include Warranty Disclaimers next to the notice which -states that this License applies to the Document. These Warranty -Disclaimers are considered to be included by reference in this -License, but only as regards disclaiming warranties: any other -implication that these Warranty Disclaimers may have is void and has -no effect on the meaning of this License. - -2. VERBATIM COPYING - -You may copy and distribute the Document in any medium, either -commercially or noncommercially, provided that this License, the -copyright notices, and the license notice saying this License applies -to the Document are reproduced in all copies, and that you add no -other conditions whatsoever to those of this License. You may not use -technical measures to obstruct or control the reading or further -copying of the copies you make or distribute. However, you may accept -compensation in exchange for copies. If you distribute a large enough -number of copies you must also follow the conditions in section 3. - -You may also lend copies, under the same conditions stated above, and -you may publicly display copies. - - -3. COPYING IN QUANTITY - -If you publish printed copies (or copies in media that commonly have -printed covers) of the Document, numbering more than 100, and the -Document's license notice requires Cover Texts, you must enclose the -copies in covers that carry, clearly and legibly, all these Cover -Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on -the back cover. Both covers must also clearly and legibly identify -you as the publisher of these copies. The front cover must present -the full title with all words of the title equally prominent and -visible. You may add other material on the covers in addition. -Copying with changes limited to the covers, as long as they preserve -the title of the Document and satisfy these conditions, can be treated -as verbatim copying in other respects. - -If the required texts for either cover are too voluminous to fit -legibly, you should put the first ones listed (as many as fit -reasonably) on the actual cover, and continue the rest onto adjacent -pages. - -If you publish or distribute Opaque copies of the Document numbering -more than 100, you must either include a machine-readable Transparent -copy along with each Opaque copy, or state in or with each Opaque copy -a computer-network location from which the general network-using -public has access to download using public-standard network protocols -a complete Transparent copy of the Document, free of added material. -If you use the latter option, you must take reasonably prudent steps, -when you begin distribution of Opaque copies in quantity, to ensure -that this Transparent copy will remain thus accessible at the stated -location until at least one year after the last time you distribute an -Opaque copy (directly or through your agents or retailers) of that -edition to the public. - -It is requested, but not required, that you contact the authors of the -Document well before redistributing any large number of copies, to -give them a chance to provide you with an updated version of the -Document. - - -4. MODIFICATIONS - -You may copy and distribute a Modified Version of the Document under -the conditions of sections 2 and 3 above, provided that you release -the Modified Version under precisely this License, with the Modified -Version filling the role of the Document, thus licensing distribution -and modification of the Modified Version to whoever possesses a copy -of it. In addition, you must do these things in the Modified Version: - -A. Use in the Title Page (and on the covers, if any) a title distinct - from that of the Document, and from those of previous versions - (which should, if there were any, be listed in the History section - of the Document). You may use the same title as a previous version - if the original publisher of that version gives permission. -B. List on the Title Page, as authors, one or more persons or entities - responsible for authorship of the modifications in the Modified - Version, together with at least five of the principal authors of the - Document (all of its principal authors, if it has fewer than five), - unless they release you from this requirement. -C. State on the Title page the name of the publisher of the - Modified Version, as the publisher. -D. Preserve all the copyright notices of the Document. -E. Add an appropriate copyright notice for your modifications - adjacent to the other copyright notices. -F. Include, immediately after the copyright notices, a license notice - giving the public permission to use the Modified Version under the - terms of this License, in the form shown in the Addendum below. -G. Preserve in that license notice the full lists of Invariant Sections - and required Cover Texts given in the Document's license notice. -H. Include an unaltered copy of this License. -I. Preserve the section Entitled "History", Preserve its Title, and add - to it an item stating at least the title, year, new authors, and - publisher of the Modified Version as given on the Title Page. If - there is no section Entitled "History" in the Document, create one - stating the title, year, authors, and publisher of the Document as - given on its Title Page, then add an item describing the Modified - Version as stated in the previous sentence. -J. Preserve the network location, if any, given in the Document for - public access to a Transparent copy of the Document, and likewise - the network locations given in the Document for previous versions - it was based on. These may be placed in the "History" section. - You may omit a network location for a work that was published at - least four years before the Document itself, or if the original - publisher of the version it refers to gives permission. -K. For any section Entitled "Acknowledgements" or "Dedications", - Preserve the Title of the section, and preserve in the section all - the substance and tone of each of the contributor acknowledgements - and/or dedications given therein. -L. Preserve all the Invariant Sections of the Document, - unaltered in their text and in their titles. Section numbers - or the equivalent are not considered part of the section titles. -M. Delete any section Entitled "Endorsements". Such a section - may not be included in the Modified Version. -N. Do not retitle any existing section to be Entitled "Endorsements" - or to conflict in title with any Invariant Section. -O. Preserve any Warranty Disclaimers. - -If the Modified Version includes new front-matter sections or -appendices that qualify as Secondary Sections and contain no material -copied from the Document, you may at your option designate some or all -of these sections as invariant. To do this, add their titles to the -list of Invariant Sections in the Modified Version's license notice. -These titles must be distinct from any other section titles. - -You may add a section Entitled "Endorsements", provided it contains -nothing but endorsements of your Modified Version by various -parties--for example, statements of peer review or that the text has -been approved by an organization as the authoritative definition of a -standard. - -You may add a passage of up to five words as a Front-Cover Text, and a -passage of up to 25 words as a Back-Cover Text, to the end of the list -of Cover Texts in the Modified Version. Only one passage of -Front-Cover Text and one of Back-Cover Text may be added by (or -through arrangements made by) any one entity. If the Document already -includes a cover text for the same cover, previously added by you or -by arrangement made by the same entity you are acting on behalf of, -you may not add another; but you may replace the old one, on explicit -permission from the previous publisher that added the old one. - -The author(s) and publisher(s) of the Document do not by this License -give permission to use their names for publicity for or to assert or -imply endorsement of any Modified Version. - - -5. COMBINING DOCUMENTS - -You may combine the Document with other documents released under this -License, under the terms defined in section 4 above for modified -versions, provided that you include in the combination all of the -Invariant Sections of all of the original documents, unmodified, and -list them all as Invariant Sections of your combined work in its -license notice, and that you preserve all their Warranty Disclaimers. - -The combined work need only contain one copy of this License, and -multiple identical Invariant Sections may be replaced with a single -copy. If there are multiple Invariant Sections with the same name but -different contents, make the title of each such section unique by -adding at the end of it, in parentheses, the name of the original -author or publisher of that section if known, or else a unique number. -Make the same adjustment to the section titles in the list of -Invariant Sections in the license notice of the combined work. - -In the combination, you must combine any sections Entitled "History" -in the various original documents, forming one section Entitled -"History"; likewise combine any sections Entitled "Acknowledgements", -and any sections Entitled "Dedications". You must delete all sections -Entitled "Endorsements". - - -6. COLLECTIONS OF DOCUMENTS - -You may make a collection consisting of the Document and other -documents released under this License, and replace the individual -copies of this License in the various documents with a single copy -that is included in the collection, provided that you follow the rules -of this License for verbatim copying of each of the documents in all -other respects. - -You may extract a single document from such a collection, and -distribute it individually under this License, provided you insert a -copy of this License into the extracted document, and follow this -License in all other respects regarding verbatim copying of that -document. - - -7. AGGREGATION WITH INDEPENDENT WORKS - -A compilation of the Document or its derivatives with other separate -and independent documents or works, in or on a volume of a storage or -distribution medium, is called an "aggregate" if the copyright -resulting from the compilation is not used to limit the legal rights -of the compilation's users beyond what the individual works permit. -When the Document is included in an aggregate, this License does not -apply to the other works in the aggregate which are not themselves -derivative works of the Document. - -If the Cover Text requirement of section 3 is applicable to these -copies of the Document, then if the Document is less than one half of -the entire aggregate, the Document's Cover Texts may be placed on -covers that bracket the Document within the aggregate, or the -electronic equivalent of covers if the Document is in electronic form. -Otherwise they must appear on printed covers that bracket the whole -aggregate. - - -8. TRANSLATION - -Translation is considered a kind of modification, so you may -distribute translations of the Document under the terms of section 4. -Replacing Invariant Sections with translations requires special -permission from their copyright holders, but you may include -translations of some or all Invariant Sections in addition to the -original versions of these Invariant Sections. You may include a -translation of this License, and all the license notices in the -Document, and any Warranty Disclaimers, provided that you also include -the original English version of this License and the original versions -of those notices and disclaimers. In case of a disagreement between -the translation and the original version of this License or a notice -or disclaimer, the original version will prevail. - -If a section in the Document is Entitled "Acknowledgements", -"Dedications", or "History", the requirement (section 4) to Preserve -its Title (section 1) will typically require changing the actual -title. - - -9. TERMINATION - -You may not copy, modify, sublicense, or distribute the Document -except as expressly provided under this License. Any attempt -otherwise to copy, modify, sublicense, or distribute it is void, and -will automatically terminate your rights under this License. - -However, if you cease all violation of this License, then your license -from a particular copyright holder is reinstated (a) provisionally, -unless and until the copyright holder explicitly and finally -terminates your license, and (b) permanently, if the copyright holder -fails to notify you of the violation by some reasonable means prior to -60 days after the cessation. - -Moreover, your license from a particular copyright holder is -reinstated permanently if the copyright holder notifies you of the -violation by some reasonable means, this is the first time you have -received notice of violation of this License (for any work) from that -copyright holder, and you cure the violation prior to 30 days after -your receipt of the notice. - -Termination of your rights under this section does not terminate the -licenses of parties who have received copies or rights from you under -this License. If your rights have been terminated and not permanently -reinstated, receipt of a copy of some or all of the same material does -not give you any rights to use it. - - -10. FUTURE REVISIONS OF THIS LICENSE - -The Free Software Foundation may publish new, revised versions of the -GNU Free Documentation License from time to time. Such new versions -will be similar in spirit to the present version, but may differ in -detail to address new problems or concerns. See -https://www.gnu.org/licenses/. - -Each version of the License is given a distinguishing version number. -If the Document specifies that a particular numbered version of this -License "or any later version" applies to it, you have the option of -following the terms and conditions either of that specified version or -of any later version that has been published (not as a draft) by the -Free Software Foundation. If the Document does not specify a version -number of this License, you may choose any version ever published (not -as a draft) by the Free Software Foundation. If the Document -specifies that a proxy can decide which future versions of this -License can be used, that proxy's public statement of acceptance of a -version permanently authorizes you to choose that version for the -Document. - -11. RELICENSING - -"Massive Multiauthor Collaboration Site" (or "MMC Site") means any -World Wide Web server that publishes copyrightable works and also -provides prominent facilities for anybody to edit those works. A -public wiki that anybody can edit is an example of such a server. A -"Massive Multiauthor Collaboration" (or "MMC") contained in the site -means any set of copyrightable works thus published on the MMC site. - -"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0 -license published by Creative Commons Corporation, a not-for-profit -corporation with a principal place of business in San Francisco, -California, as well as future copyleft versions of that license -published by that same organization. - -"Incorporate" means to publish or republish a Document, in whole or in -part, as part of another Document. - -An MMC is "eligible for relicensing" if it is licensed under this -License, and if all works that were first published under this License -somewhere other than this MMC, and subsequently incorporated in whole or -in part into the MMC, (1) had no cover texts or invariant sections, and -(2) were thus incorporated prior to November 1, 2008. - -The operator of an MMC Site may republish an MMC contained in the site -under CC-BY-SA on the same site at any time before August 1, 2009, -provided the MMC is eligible for relicensing. - - -ADDENDUM: How to use this License for your documents - -To use this License in a document you have written, include a copy of -the License in the document and put the following copyright and -license notices just after the title page: - - Copyright (c) YEAR YOUR NAME. - Permission is granted to copy, distribute and/or modify this document - under the terms of the GNU Free Documentation License, Version 1.3 - or any later version published by the Free Software Foundation; - with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. - A copy of the license is included in the section entitled "GNU - Free Documentation License". - -If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, -replace the "with...Texts." line with this: - - with the Invariant Sections being LIST THEIR TITLES, with the - Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. - -If you have Invariant Sections without Cover Texts, or some other -combination of the three, merge those two alternatives to suit the -situation. - -If your document contains nontrivial examples of program code, we -recommend releasing these examples in parallel under your choice of -free software license, such as the GNU General Public License, -to permit their use in free software. -

" - And I go to point "12" - And I press "C-@" - And I press "C-@" - Then the region should be "id="5"" - - Scenario: Mark html tags, part 1 - Given I turn on html-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - Then the region should be "" - - Scenario: Mark html tags, part 2 - Given I turn on html-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - Then the region should be "" - - Scenario: Mark html tags, part 3 - Given I turn on html-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "before " - - Scenario: Mark html tags, part 4 - Given I turn on html-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "

before

" - - Scenario: Mark html tags, part 5 - Given I turn on html-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "

before

after" - - Scenario: Mark html tags, part 6 - Given I turn on html-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "

before

after

" - - Scenario: Text mode expansions shouldn't be here - Given I turn on html-mode - And there is no region selected - When I insert "Sentence the first. Sentence the second" - And I place the cursor between "first. " and "Sentence" - And I press "C-@" - And I press "C-@" - Then the region should be "Sentence the first. Sentence the second" blob - a3ac8146380733256b6918ee19712fc8a68a4685 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/latex-mode-expansions.feature +++ /dev/null @@ -1,14 +0,0 @@ -Feature: latex-mode expansions - Background: - Given there is no region selected - And I turn on latex-mode - - Scenario: Mark simple math - When I insert "$E=mc^2$" - And I place the cursor before "=" - And I press "C-@" - Then the region should be "E" - And I press "C-@" - Then the region should be "E=mc" - And I press "C-@" - Then the region should be "$E=mc^2$" blob - 431004950d62581fbcae60dc32e7d251278ffc2c (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/mark-pairs.feature +++ /dev/null @@ -1,70 +0,0 @@ -Feature: Mark pairs - In order to quickly and precisely mark pairs - As an Emacs user - I want to expand to them - - Scenario: Mark pair when looking at it - Given there is no region selected - When I insert "... (some parens) ..." - And I go to point "5" - And I press "C-@" - Then the region should be "(some parens)" - - Scenario: Mark pair when looking behind at it - Given there is no region selected - When I insert "... (some parens) ..." - And I go to point "18" - And I press "C-@" - Then the region should be "(some parens)" - - Scenario: Mark inside pairs - Given there is no region selected - When I insert "... (some parens) ..." - And I go to point "10" - And I press "C-@" - And I press "C-@" - Then the region should be "some parens" - - Scenario: Mark child in nested pairs - Given there is no region selected - When I insert "... (some (more parens)) ..." - And I go to point "11" - And I press "C-@" - Then the region should be "(more parens)" - - Scenario: Mark inner parent in nested pairs - Given there is no region selected - When I insert "... (some (more parens)) ..." - And I go to point "11" - And I press "C-@" - And I press "C-@" - Then the region should be "some (more parens)" - - Scenario: Mark outer parent in nested pairs - Given there is no region selected - When I insert "... (some (more parens)) ..." - And I go to point "11" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "(some (more parens))" - - Scenario: Mark outer parent in nested pairs (leftie) - Given there is no region selected - When I insert "... ((some more) parens) ..." - And I go to point "6" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "((some more) parens)" - - Scenario: Mark from behind multiline - Given there is no region selected - When I insert: - """ - (let ((test :test)) - (testing)) - """ - And I place the cursor after ":test))" - And I press "C-@" - Then the region should be "((test :test))" blob - 5ab323a6e7234f818568856f94a852990d3a49a4 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/nxml-mode-expansions.feature +++ /dev/null @@ -1,112 +0,0 @@ -Feature: nxml-mode expansions - In order to quickly and precisely mark xml units - As an Emacs user - I want to expand to them - - Scenario: Mark xml attribute inside quotes - Given I turn on nxml-mode - And there is no region selected - When I insert "" - And I place the cursor after "my" - And I press "C-@" - Then the region should be "myAttr" - - Scenario: Mark xml attribute with quotes - Given I turn on nxml-mode - And there is no region selected - When I insert "" - And I place the cursor after "my" - And I press "C-@" - And I press "C-@" - Then the region should be ""myAttr"" - - Scenario: Mark xml attribute with xpath inside quotes - Given I turn on nxml-mode - And there is no region selected - When I insert "" - And I place the cursor after "a/" - And I press "C-@" - And I press "C-@" - Then the region should be "a/b/c" - - Scenario: Mark xml attribute with xpath inside quotes - Given I turn on nxml-mode - And there is no region selected - When I insert "" - And I place the cursor after "a/" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be ""a/b/c"" - - Scenario: Mark xml attribute from start - Given I turn on nxml-mode - And there is no region selected - When I insert "

" - And I place the cursor between " " and "id" - And I press "C-@" - And I press "C-@" - Then the region should be "id="5"" - - Scenario: Mark xml tags, part 1 - Given I turn on nxml-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - Then the region should be "" - - Scenario: Mark xml tags, part 2 - Given I turn on nxml-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - Then the region should be "" - - Scenario: Mark xml tags, part 3 - Given I turn on nxml-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "before " - - Scenario: Mark xml tags, part 4 - Given I turn on nxml-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "

before

" - - Scenario: Mark xml tags, part 5 - Given I turn on nxml-mode - And there is no region selected - When I insert "...

before

after

..." - And I place the cursor between "before " and "" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be "

before

after" - - Scenario: Mark xml tags, part 6 - Given I turn on nxml-mode - And there is no region selected - When I insert "...

before

after

before

after

" blob - c56d89be567079044b79ab319b37a49306f8a71c (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/octave-mode-expansions.feature +++ /dev/null @@ -1,99 +0,0 @@ -Feature: octave-mod expansions - In order to quickly and precisely mark octave units - As an Emacs user - I want to expand to them - - Scenario: Mark block from inside - Given I turn on octave-mode - And there is no region selected - When I insert: - """ - exprBefore; - for i=1:n, - something; - end; - exprAfter; - """ - And I go to point "26" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - for i=1:n, - something; - end - """ - - - Scenario: Mark block when looking at it - Given I turn on octave-mode - And there is no region selected - When I insert: - """ - exprBefore; - for i=1:n, - something; - end; - exprAfter; - """ - And I go to point "13" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - for i=1:n, - something; - end - """ - - - Scenario: Mark block when looking at it inside another block - Given I turn on octave-mode - And there is no region selected - When I insert: - """ - exprBefore; - for i=1:n, - for j=i:k, - something; - end; - end; - exprAfter; - """ - And I go to point "26" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - for j=i:k, - something; - end - """ - - - Scenario: Mark block from inside while looking at another - Given I turn on octave-mode - And there is no region selected - When I insert: - """ - exprBefore; - for i=1:n, - for j=i:k, - something; - end; - end; - exprAfter; - """ - And I go to point "26" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - for i=1:n, - for j=i:k, - something; - end; - end - """ - blob - b161153f2420829ca612e2e0ddbf73f2c2a16de1 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/org-mode-expansions.feature +++ /dev/null @@ -1,55 +0,0 @@ -Feature: org-mode expansions - In order to quickly and precisely mark org mode sections - As an Emacs user - I want to expand to them - - Scenario: Org level 3 - Given I turn on org-mode - When I insert: - """ - * lvl 1 - ** lvl 2 - *** lvl 3 - """ - And I place the cursor before "*** lvl 3" - And I press "C-@" - And I press "C-@" - Then the region should be "*** lvl 3" - - Scenario: Org level 2 - Given I turn on org-mode - When I insert: - """ - * lvl 1 - ** lvl 2 - *** lvl 3 - """ - And I place the cursor before "*** lvl 3" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - ** lvl 2 - *** lvl 3 - """ - - Scenario: Org level 1 - Given I turn on org-mode - When I insert: - """ - * lvl 1 - ** lvl 2 - *** lvl 3 - """ - And I place the cursor before "*** lvl 3" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - * lvl 1 - ** lvl 2 - *** lvl 3 - """ blob - 59442d0c8ee344bc728d221d38721376b15c87a4 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/ruby-mode-expansions.feature +++ /dev/null @@ -1,313 +0,0 @@ -Feature: ruby-mode expansions - In order to quickly and precisely mark ruby code blocks - As an Emacs user - I want to expand to them - - Scenario: Mark instance variable - Given I turn on ruby-mode - When I insert: - """ - class Bar - def initialize - @foo = 123 - end - end - """ - And I place the cursor before "@foo" - And I press "C-@" - Then the region should be "@foo" - - Scenario: Mark ruby block - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - something do - foo - end - end - """ - And I place the cursor after "something" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - something do - foo - end - - """ - - Scenario: Mark ruby block from end - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - something do - foo - end - end - """ - And I place the cursor after "end" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - something do - foo - end - - """ - - Scenario: Mark ruby block from within - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - something do - foo - end - end - """ - And I go to line "2" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - something do - foo - end - - """ - - Scenario: Mark empty ruby block from within - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - something do - - end - end - """ - And I go to line "3" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - something do - - end - - """ - - Scenario: Mark ruby block with using curly brackets - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - something { - foo - } - end - """ - And I go to line "3" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - something { - foo - } - - """ - - Scenario: Mark ruby function at the beginning - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - def foo - bar - end - end - """ - And I go to word "def" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - def foo - bar - end - - """ - - Scenario: Mark ruby function at definition - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - module Bar - def foo - bar - end - end - """ - And I go to line "3" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - def foo - bar - end - - """ - - Scenario: Mark ruby expand up 1 level - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - #comment foo - module Bar - def foo - bar - end - end - - """ - And I go to line "3" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - module Bar - def foo - bar - end - end - - """ - - Scenario: Mark ruby expand up 3 levels - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - #comment foo - module Bar - - attr_reader :blah - - foo_arr.each do |element| - blah { - puts something - } - end - - def foo - bar - end - end - - """ - And I go to line "8" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - module Bar - - attr_reader :blah - - foo_arr.each do |element| - blah { - puts something - } - end - - def foo - bar - end - end - - """ - - Scenario: Mark ruby expand heredoc - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - def foo - blah(<<-end_block) - CONTENT - end_block - end - """ - And I place the cursor before "CONTENT" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - CONTENT - - """ - - Scenario: Mark ruby expand to whole buffer - Given I turn on ruby-mode - And there is no region selected - When I insert: - """ - class Foo - def blah - [1,2,3].each do |num| - puts num - end - end - end - - #comment foo - module Bar - def foo - bar - end - end - - """ - And I go to line "12" - And I press "C-@" - And I press "C-@" - And I press "C-@" - And I press "C-@" - Then the region should be: - """ - class Foo - def blah - [1,2,3].each do |num| - puts num - end - end - end - - #comment foo - module Bar - def foo - bar - end - end - - """ blob - 97302cc9ea4ec6a23b8cba8b349c03b883519f3f (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/step-definitions/expand-region-steps.el +++ /dev/null @@ -1,91 +0,0 @@ -;; Copyright (C) 2012-2023 Free Software Foundation, Inc -*- lexical-binding: t; -*- - -(Given "^mark is inactive by default$" - (lambda () - (setq set-mark-default-inactive t))) - -(Given "^cursor behaviour is set to smart$" - (lambda () - (setq expand-region-smart-cursor t))) - -(When "^I expand the region$" - (lambda () - (cl-flet ((message (&rest args) nil)) - (er/expand-region 1)))) - -(When "^I quit$" - (lambda () - (cl-flet ((signal (&rest args) nil)) - (keyboard-quit)))) - -(When "^I expand the region \$[0-9]+\$ times$" - (lambda (arg) - (cl-flet ((message (&rest args) nil)) - (er/expand-region (string-to-number arg))))) - -(And "^I contract the region$" - (lambda () - (er/contract-region 1))) - -(When "^I place the cursor after \"\$.+\$\"$" - (lambda (arg) - (goto-char (point-min)) - (let ((search (search-forward arg nil t)) - (message "Can not place cursor after '%s', because there is no such point: '%s'")) - (cl-assert search nil message arg (espuds-buffer-contents))))) - -(When "^I place the cursor before \"\$.+\$\"$" - (lambda (arg) - (goto-char (point-max)) - (let ((search (search-backward arg nil t)) - (message "Can not place cursor before '%s', because there is no such point: '%s'")) - (cl-assert search nil message arg (espuds-buffer-contents))))) - -(When "^I pop the mark$" - (lambda () - (set-mark-command 4))) - -(When "^I deactivate the mark$" - (lambda () - (deactivate-mark))) - -(When "^I activate the mark$" - (lambda () - (activate-mark))) - -(Then "^the region should not be active$" - (lambda () - (should - (not (region-active-p))))) - -(Then "^cursor should be at point \"\$.+\$\"$" - (lambda (arg) - (should - (= - (string-to-number arg) - (point))))) - -(And "^autocopy-register is \"\$.\$\"$" - (lambda (reg) - (setq expand-region-autocopy-register reg) - (set-register (aref reg 0) nil))) - -(Then "^register \"\$.\$\" should be \"\$.+\$\"$" - (lambda (reg contents) - (should - (equal contents (get-register (aref reg 0)))))) - -(When "^I go to the \$front\\|end\$ of the word \"\$.+\$\"$" - (lambda (pos word) - (goto-char (point-min)) - (let ((search (re-search-forward (format "%s" word) nil t)) - (message "Can not go to character '%s' since it does not exist in the current buffer: %s")) - (cl-assert search nil message word (espuds-buffer-contents)) - (if (string-equal "front" pos) (backward-word))))) - -(When "^I set \$.+\$ to \$.+\$$" - (lambda (var val) - (set (intern var) (read val)))) -;; Local Variables: -;; no-byte-compile: t -;; End: blob - 00aa858a3f5aa215f50bd68f09f84a86c21ce08a (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/support/env.el +++ /dev/null @@ -1,34 +0,0 @@ -;; Copyright (C) 2012-2023 Free Software Foundation, Inc -*- lexical-binding: t; -*- - -(let* ((current-directory (file-name-directory load-file-name)) - (features-directory (expand-file-name ".." current-directory)) - (project-directory (expand-file-name ".." features-directory))) - (setq expand-region-root-path project-directory)) - -(add-to-list 'load-path expand-region-root-path) - -(require 'undercover) -(undercover "*.el") - -(require 'expand-region) -(require 'espuds) -(require 'ert) - -(Before - (global-set-key (kbd "C-@") 'er/expand-region) - (global-set-key (kbd "C-S-@") 'er/contract-region) - (switch-to-buffer - (get-buffer-create "*expand-region*")) - (erase-buffer) - (fundamental-mode) - (transient-mark-mode 1) - (cua-mode 0) - (setq er--show-expansion-message t) - (setq expand-region-smart-cursor nil) - (setq set-mark-default-inactive nil) - (deactivate-mark)) - -(After) -;; Local Variables: -;; no-byte-compile: t -;; End: blob - 13515b66426981809429f5992fa9bec85e6bef93 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/features/text-mode-expansions.feature +++ /dev/null @@ -1,97 +0,0 @@ -Feature: Text-mode expansions - Background: - Given there is no region selected - And I turn on text-mode - And I insert: - """ - Lorem ipsum dolor sit amet, consectetur adipiscing elit. - Here is a sentence. Here is another. And one with Dr. Baker. - - Another paragraph. With 2 sentences. - - "We're on a different page," said the man. - """ - - Scenario: Mark sentence ending on a line - When I place the cursor after "consectetur" - And I press "C-@" - Then the region should be "consectetur" - And I press "C-@" - Then the region should be "Lorem ipsum dolor sit amet, consectetur adipiscing elit." - And I press "C-@" - Then the region should be: - """ - Lorem ipsum dolor sit amet, consectetur adipiscing elit. - Here is a sentence. Here is another. And one with Dr. Baker. - - """ - - Scenario: Mark sentence ending on a line 2 - When I place the cursor before "Lorem" - And I press "C-@" - Then the region should be "Lorem" - And I press "C-@" - Then the region should be "Lorem ipsum dolor sit amet, consectetur adipiscing elit." - And I press "C-@" - Then the region should be: - """ - Lorem ipsum dolor sit amet, consectetur adipiscing elit. - Here is a sentence. Here is another. And one with Dr. Baker. - - """ - - Scenario: Mark sentence beginning a line - When I place the cursor after "sentence." - And I press "C-@" - Then the region should be "sentence." - And I press "C-@" - Then the region should be "Here is a sentence." - And I press "C-@" - Then the region should be: - """ - Lorem ipsum dolor sit amet, consectetur adipiscing elit. - Here is a sentence. Here is another. And one with Dr. Baker. - - """ - - Scenario: Mark sentence in the middle of a line - When I place the cursor before "is another" - And I press "C-@" - Then the region should be "is" - And I press "C-@" - Then the region should be "Here is another." - And I press "C-@" - Then the region should be: - """ - Lorem ipsum dolor sit amet, consectetur adipiscing elit. - Here is a sentence. Here is another. And one with Dr. Baker. - - """ - - Scenario: Mark sentence in the middle of a line - When I place the cursor after "Baker." - And I press "C-@" - Then the region should be "Baker." - And I press "C-@" - Then the region should be "And one with Dr. Baker." - And I press "C-@" - Then the region should be: - """ - Lorem ipsum dolor sit amet, consectetur adipiscing elit. - Here is a sentence. Here is another. And one with Dr. Baker. - - """ - - Scenario: Sentence endings - When I place the cursor before "Dr." - And I set sentence-end-double-space to nil - And I press "C-u 3 C-@" - Then the region should be "And one with Dr." - - Scenario: Sentence endings 2 - When I place the cursor before "Dr." - And I set sentence-end-double-space to t - And I press "C-u 3 C-@" - Then the region should be "And one with Dr. Baker." - # I turned sentence-end-double-space back to the default here in - # case it comes into play in other tests. blob - 19b4d028ee689d79bf140b2b80abe9e58fbfd25b (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/html-mode-expansions.el +++ /dev/null @@ -1,104 +0,0 @@ -;;; html-mode-expansions.el --- HTML-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2011-2023 Free Software Foundation, Inc - -;; Author: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Extra expansions for HTML that I've found useful so far: -;; -;; er/mark-html-attribute -;; er/mark-inner-tag -;; er/mark-outer-tag -;; -;; Feel free to contribute any other expansions for HTML at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(require 'sgml-mode) - -(defun er/mark-html-attribute () - "Mark html-attribute. -Presumes that point is at the assignment part of attr=\"value\". -If point is inside the value-string, the quotes will be marked -first anyway. Does not support html-attributes with spaces -around the equal sign or unquoted attributes atm." - (interactive) - (when (or (looking-at "\$\\s_\\|\\sw\$*=") - (er/looking-back-exact "=")) - (search-backward " ") - (forward-char 1) - (set-mark (point)) - (search-forward "=") - (forward-sexp 1) - (exchange-point-and-mark))) - -(defun er--looking-at-marked-tag () - "Is point looking at a tag that is entirely marked?" - (and (looking-at "<") - (>= (mark) - (save-excursion - (sgml-skip-tag-forward 1) - (point))))) - -(defun er--inside-tag-p () - "Is point inside a tag?" - (save-excursion - (not (null (sgml-get-context))))) - -(defun er/mark-outer-tag () - "Mark from opening to closing tag, including the tags." - (interactive) - (when (and (er--inside-tag-p) - (or (not (looking-at "<")) - (er--looking-at-marked-tag))) - (goto-char (aref (car (last (sgml-get-context))) 2))) - (when (looking-at "<") - (set-mark (point)) - (sgml-skip-tag-forward 1) - (exchange-point-and-mark))) - -(defun er/mark-inner-tag () - "Mark the contents of an open tag, not including the tags." - (interactive) - (goto-char (aref (car (last (sgml-get-context))) 3)) - (set-mark (point)) - (backward-char 1) - (sgml-skip-tag-forward 1) - (search-backward " -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Extra expansions for JavaScript that I've found useful so far: -;; -;; er/mark-js-function -;; er/mark-js-object-property-value -;; er/mark-js-object-property -;; er/mark-js-if -;; er/mark-js-inner-return -;; er/mark-js-outer-return -;; -;; Feel free to contribute any other expansions for JavaScript at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(require 'er-basic-expansions) - -(defun er/mark-js-function () - "Mark the current JavaScript function." - (interactive) - (condition-case nil - (forward-char 8) - (error nil)) - (word-search-backward "function") - (while (or (er--point-inside-string-p) - (er--point-is-in-comment-p)) - (word-search-backward "function")) - (set-mark (point)) - (while (not (looking-at "{")) - (forward-char)) - (forward-list) - (exchange-point-and-mark)) - -(defun er/mark-js-outer-return () - "Mark the current return statement, including return and ending semi-colon" - (interactive) - (condition-case nil - (forward-char 6) - (error nil)) - (word-search-backward "return") - (while (or (er--point-inside-string-p) - (er--point-is-in-comment-p)) - (word-search-backward "return")) - (set-mark (point)) - (while (not (looking-at ";")) - (if (looking-at "\\s(") - (forward-list) - (forward-char))) - (forward-char) - (exchange-point-and-mark)) - -(defun er/mark-js-inner-return () -` "Mark contents of the current return statement. -Does not include return or semi-colon." - (interactive) - (condition-case nil - (forward-char 6) - (error nil)) - (word-search-backward "return") - (while (or (er--point-inside-string-p) - (er--point-is-in-comment-p)) - (word-search-backward "return")) - (search-forward " ") - (set-mark (point)) - (while (not (looking-at ";")) - (if (looking-at "\\s(") - (forward-list) - (forward-char))) - (exchange-point-and-mark)) - -(defun er/mark-js-if () - "Mark the current if-statement." - (interactive) - (condition-case nil - (forward-char 2) - (error nil)) - (word-search-backward "if") - (while (or (er--point-inside-string-p) - (er--point-is-in-comment-p)) - (word-search-backward "if")) - (set-mark (point)) - (while (not (looking-at "(")) - (forward-char)) - (forward-list) - (while (not (looking-at "{")) - (forward-char)) - (forward-list) - (exchange-point-and-mark)) - -(defun er/mark-js-object-property-value () - "Mark the current object property value, ie. from : to , or }" - (interactive) - (unless (er--point-inside-pairs-p) - (error "Point is not inside an object")) - (search-backward ":") - (forward-char) - (search-forward-regexp "[^\s]") - (backward-char) - (set-mark (point)) - (while (not (looking-at "[},]")) - (if (looking-at "\\s(") - (forward-list) - (forward-char))) - (when (er/looking-back-max "[\s\n]" 400) - (search-backward-regexp "[^\s\n]") - (forward-char)) - (exchange-point-and-mark)) - -(defun er/mark-js-object-property () - "Mark js-object-property. -Presumes that point is at the assignment part of key: value. -If point is inside the value, that will be marked first anyway." - (interactive) - (when (or (looking-at "\"?\$\\s_\\|\\sw\\| \$*\":") - (looking-at "\$\\s_\\|\\sw\$*:") - (er/looking-back-max ": ?" 2)) - (search-backward-regexp "[{,]") - (forward-char) - (search-forward-regexp "[^\s\n]") - (backward-char) - (set-mark (point)) - (search-forward ":") - (while (or (not (looking-at "[},]")) - (er--point-inside-string-p)) - (if (looking-at "\\s(") - (forward-list) - (forward-char))) - (when (er/looking-back-max "[\s\n]" 400) - (search-backward-regexp "[^\s\n]") - (forward-char)) - (exchange-point-and-mark))) - -(defun er/mark-js-call () - "Mark the current symbol (including dots) and then parens or squares." - (interactive) - (let ((symbol-regexp "\$\\s_\\|\\sw\\|\\.\$+")) - (when (or (looking-at symbol-regexp) - (er/looking-back-on-line symbol-regexp)) - (skip-syntax-backward "_w.") - (when (looking-at "!") - (forward-char 1)) - (set-mark (point)) - (when (looking-at symbol-regexp) - (goto-char (match-end 0))) - (if (looking-at "\\[\\|(") - (forward-list)) - (exchange-point-and-mark)))) - -(defun er/add-js-mode-expansions () - "Adds JS-specific expansions for buffers in js-mode" - (set (make-local-variable 'er/try-expand-list) (append - er/try-expand-list - '(er/mark-js-function - er/mark-js-object-property-value - er/mark-js-object-property - er/mark-js-if - er/mark-js-inner-return - er/mark-js-outer-return - er/mark-js-call)))) - -(er/enable-mode-expansions 'js-mode #'er/add-js-mode-expansions) -(er/enable-mode-expansions 'js2-mode #'er/add-js-mode-expansions) -(er/enable-mode-expansions 'js3-mode #'er/add-js-mode-expansions) - -(provide 'js-mode-expansions) - -;; js-mode-expansions.el ends here blob - 122d65d0128789b232c6002d326736fdfb9a427f (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/js2-mode-expansions.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; js2-mode-expansions.el --- Additional expansions for js2-mode -*- lexical-binding: t; -*- - -;; Copyright (C) 2011-2023 Free Software Foundation, Inc - -;; Author: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Extra expansions specifically for js2-mode, since it has -;; a semantic parser. -;; -;; Feel free to contribute any other expansions for JavaScript at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(declare-function js2-node-parent-stmt "js2-mode") -(declare-function js2-node-at-point "js2-mode") -(declare-function js2-node-abs-pos "js2-mode") -(declare-function js2-node-len "js2-mode") - -(defun js2-mark-parent-statement () - (interactive) - (let* ((parent-statement (if (not (er/looking-back-exact ";")) - (js2-node-parent-stmt (js2-node-at-point)) - (forward-char -1) - (js2-node-at-point))) - (beg (js2-node-abs-pos parent-statement)) - (end (+ beg (js2-node-len parent-statement)))) - (goto-char beg) - (set-mark end))) - -(defun er/add-js2-mode-expansions () - "Adds expansions for buffers in js2-mode" - (set (make-local-variable 'er/try-expand-list) (append - er/try-expand-list - '(js2-mark-parent-statement)))) - -(er/enable-mode-expansions 'js2-mode #'er/add-js2-mode-expansions) - -(provide 'js2-mode-expansions) - -;; js2-mode-expansions.el ends here blob - 23309d36d4b18a9c23330fde51e39554f4f7d259 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/jsp-expansions.el +++ /dev/null @@ -1,64 +0,0 @@ -;;; jsp-expansions.el --- JSP-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2011-2023 Free Software Foundation, Inc - -;; Author: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Extra expansions for editing JSP files. To be used in conjunction -;; with the html-mode expansions -;; -;; er/mark-jstl-escape -;; -;; These expansions aren't loaded by default, so you'll have to explicitly -;; ask for them in your init file with: -;; -;; (eval-after-load 'sgml-mode '(require 'jsp-expansions)) -;; -;; Feel free to contribute any other expansions for JSP at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) - -(defun er/mark-jstl-escape () - "Mark jstl-escape presumes that point is outside the brackets. -If point is inside the brackets, they will be marked first anyway." - (interactive) - (when (or (looking-at "\\${") - (er/looking-back-exact "$")) - (forward-char 1) - (search-backward "\$") - (set-mark (point)) - (forward-char 1) - (forward-list) - (exchange-point-and-mark))) - -(defun er/add-jsp-expansions () - "Adds JSP-specific expansions to the buffer" - (set (make-local-variable 'er/try-expand-list) (append - er/try-expand-list - '(er/mark-jstl-escape)))) - -(er/enable-mode-expansions 'html-mode #'er/add-jsp-expansions) - -(provide 'jsp-expansions) - -;; jsp-expansions.el ends here blob - 48cc71308250de41b1ba1bde37c2aa6f410ea258 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/latex-mode-expansions.el +++ /dev/null @@ -1,104 +0,0 @@ -;;; latex-mode-expansions.el --- LaTeX-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Ivan Andrus -;; Based on js-mode-expansions by: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; This is for AUCTeX, not the builtin latex-mode. - -;; Feel free to contribute any other expansions for LaTeX at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -;referenced free variables and functions defined in mode -(defvar texmathp-why) -(defvar texmathp-tex-commands1) -(defvar texmathp-onoff-regexp) -(defvar LaTeX-mode-hook) -(declare-function LaTeX-mark-environment "latex") -(declare-function texmathp "texmathp") - -(defun er/mark-LaTeX-inside-environment () - "Like `LaTeX-mark-environment' but marks the inside of the environment. -Skips past [] and {} arguments to the environment." - (interactive) - (LaTeX-mark-environment) - (when (looking-at "\\\\begin{") - (forward-sexp 2) - ;; Assume these are arguments - (while (looking-at "[ \t\n]*[{[]") - (forward-sexp 1)) - ;; Go to next line if there is nothing interesting on this one - (skip-syntax-forward " ") ;; newlines are ">" i.e. end comment - (when (looking-at "%\\|$") - (forward-line)) - ;; Clean up the end portion - (exchange-point-and-mark) - (backward-sexp 2) - (skip-syntax-backward " ") - (exchange-point-and-mark))) - -(defun er/mark-LaTeX-math () - "Mark current math environment." - (interactive) - (when (texmathp) - (let* ((string (car texmathp-why)) - (pos (cdr texmathp-why)) - (reason (assoc string texmathp-tex-commands1)) - (type (cadr reason))) - (cond - ((eq type 'env-on) ;; environments equation, align, etc. - (er/mark-LaTeX-inside-environment)) - ((eq type 'arg-on) ;; \ensuremath etc. - (goto-char pos) - (set-mark (point)) - (forward-sexp 2) - (exchange-point-and-mark)) - ((eq type 'sw-toggle) ;; $ and $$ - (goto-char pos) - (set-mark (point)) - (forward-sexp 1) - (exchange-point-and-mark)) - ((eq type 'sw-on) ;; \( and \[ - (re-search-forward texmathp-onoff-regexp) - (set-mark pos) - (exchange-point-and-mark)) - (t (error (format "Unknown reason to be in math mode: %s" type))))))) - -(defun er/add-latex-mode-expansions () - "Adds expansions for buffers in latex-mode" - (set (make-local-variable 'er/try-expand-list) - (append - er/try-expand-list - '(LaTeX-mark-environment - LaTeX-mark-section - er/mark-LaTeX-inside-environment - er/mark-LaTeX-math)))) - -(let ((latex-mode-hook LaTeX-mode-hook)) - (er/enable-mode-expansions 'latex-mode #'er/add-latex-mode-expansions) - (setq LaTeX-mode-hook latex-mode-hook)) - -(provide 'latex-mode-expansions) - -;; latex-mode-expansions.el ends here blob - 7fe2deedd3e043af7485d685f1d15fa5d275deca (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/nxml-mode-expansions.el +++ /dev/null @@ -1,125 +0,0 @@ -;;; nxml-mode-expansions.el --- Nxml-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Ivan Andrus -;; Based on js-mode-expansions by: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Feel free to contribute any other expansions for Nxml at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'cl-lib) -(require 'expand-region-core) -(require 'html-mode-expansions) -(require 'nxml-mode) - -(defun er/mark-nxml-tag () - "Marks one nxml element e.g.

" - (interactive) - (cond ((looking-at "<") - (nxml-mark-token-after)) - ((er/looking-back-exact ">") - (backward-char 1) - (nxml-mark-token-after)) - ((er/looking-back-max "<[^<>]*" 1000) - (nxml-mark-token-after)))) - -(defun er/mark-nxml-element () - "Marks one nxml element e.g.

...

" - (interactive) - (if (not (looking-at "<[^/]")) - (er/mark-nxml-containing-element) - (set-mark (point)) - (nxml-forward-element) - (exchange-point-and-mark))) - -(defun er/mark-nxml-containing-element () - "Marks one nxml element, but always e.g.

...

" - (interactive) - (nxml-up-element) - (set-mark (point)) - (nxml-backward-element)) - -(defun er/mark-nxml-inside-element () - "Marks the inside Nxml statement, eg.

...

" - (interactive) - (let ((nxml-sexp-element-flag nil)) - (nxml-up-element) - (nxml-forward-balanced-item -1) - (set-mark (point)) - (nxml-backward-up-element) - (nxml-forward-balanced-item 1))) - -(defun er/inside-nxml-attribute-string? () - "Returns the attribute from `xmltok-attributes' array that -point is in, or otherwise nil" - (save-excursion - (forward-char 1) - (nxml-token-before)) - (cl-find-if (lambda (att) - (and (<= (xmltok-attribute-value-start att) (point)) - (>= (xmltok-attribute-value-end att) (point)))) - xmltok-attributes)) - -(defun er/mark-nxml-attribute-inner-string () - "Marks an attribute string" - (interactive) - (let ((attr (er/inside-nxml-attribute-string?))) - (when attr - (set-mark (xmltok-attribute-value-start attr)) - (goto-char (xmltok-attribute-value-end attr)) - (exchange-point-and-mark)))) - -(defun er/mark-nxml-attribute-string () - "Marks an attribute string inside quotes." - (interactive) - (let ((attr (er/inside-nxml-attribute-string?))) - (when attr - (set-mark (1- (xmltok-attribute-value-start attr))) - (goto-char (1+ (xmltok-attribute-value-end attr))) - (exchange-point-and-mark)))) - -(defun er/add-nxml-mode-expansions () - "Adds Nxml-specific expansions for buffers in nxml-mode" - (interactive) - (set (make-local-variable 'er/try-expand-list) - (append - '(nxml-mark-paragraph - ;; nxml-mark-token-after ;; Marks the current tag, etc. It's a bit schizophrenic - er/mark-nxml-tag - er/mark-nxml-inside-element - er/mark-nxml-element - er/mark-nxml-containing-element - er/mark-nxml-attribute-string - er/mark-nxml-attribute-inner-string - ;; Steal from html-mode-expansions - er/mark-html-attribute) - ;; some normal marks are more hindrance than help: - (remove 'er/mark-method-call - (remove 'er/mark-symbol-with-prefix - (remove 'er/mark-symbol er/try-expand-list)))))) - -(er/enable-mode-expansions 'nxml-mode #'er/add-nxml-mode-expansions) - -(provide 'nxml-mode-expansions) - -;; nxml-mode-expansions.el ends here blob - 8866d20b8c167df5ee78d75a6041d57568fdbc48 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/octave-expansions.el +++ /dev/null @@ -1,78 +0,0 @@ -;;; octave-expansions.el --- octave-mode expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Mark Hepburn -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Feel free to contribute any other expansions for Octave at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(declare-function octave-mark-block "octave-mod") - -;;; Octave-mod received a major rewrite between versions 23 and 24 of -;;; Emacs, for example using the new smie package instead of -;;; hand-coding a lot of motion commands. Unfortunately for our -;;; purposes here, in the process the behaviour of `octave-mark-block' -;;; changed slightly. So, in order to behave identically across both -;;; versions we need to check which is which in a few places and -;;; adjust accordingly: -(defconst er/old-octave-mod-p (fboundp 'octave-up-block)) - -(defalias 'er/up-block - (if er/old-octave-mod-p 'octave-up-block 'up-list)) - -(defun er/octave-mark-up-block () - "Mark the containing block, assuming the current block has -already been marked." - (interactive) - (when (use-region-p) - (when (< (point) (mark)) - (exchange-point-and-mark)) - (er/up-block -1) ; -1 means backwards, ie to the front - (octave-mark-block))) - -(defun er/octave-mark-block () - "Not for general use; this is a work-around for the different -behaviour of `octave-mark-block' between emacs versions 23 and -24." - (interactive) - (forward-word) - (octave-mark-block)) - -(defun er/add-octave-expansions () - "Adds octave/matlab-specific expansions for buffers in octave-mode" - (let ((try-expand-list-additions (if er/old-octave-mod-p - '(octave-mark-block - er/octave-mark-up-block - octave-mark-defun) - '(octave-mark-block - er/octave-mark-block - er/octave-mark-up-block - mark-defun)))) - (set (make-local-variable 'er/try-expand-list) - (append er/try-expand-list try-expand-list-additions)))) - -(er/enable-mode-expansions 'octave-mode #'er/add-octave-expansions) - -(provide 'octave-expansions) -;;; octave-expansions.el ends here blob - 21aaa22bfdaa5a175485932c869a470c5f1f514b (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/python-el-expansions.el +++ /dev/null @@ -1,92 +0,0 @@ -;;; python-el-expansions.el --- Python-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Authors: Ivan Andrus, Felix Geller, @edmccard -;; Based on js-mode-expansions by: Magnar Sveen -;; Keywords: marking region python - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; For python.el included with GNU Emacs -;; - Mark functionality taken from python.el: -;; - `python-mark-block' -;; - Additions implemented here: -;; - `er/mark-python-statement' -;; - `er/mark-inside-python-string' -;; - `er/mark-outside-python-string' -;; - Supports multi-line strings - -;; There is no need for a er/mark-python-defun since -;; er/mark-python-block will mark it - -;; Feel free to contribute any other expansions for Python at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(require 'python) - -(declare-function python-beginning-of-string "python-mode") - -(defvar er--python-string-delimiter "'\"") - -(defun er/mark-python-statement () - "Marks one Python statement, eg. x = 3" - (interactive) - (python-nav-end-of-statement) - (set-mark (point)) - (python-nav-beginning-of-statement)) - -(defun er/mark-outside-python-string () - "Marks region outside a (possibly multi-line) Python string" - (interactive) - (python-beginning-of-string) - (set-mark (point)) - (forward-sexp) - (exchange-point-and-mark)) - -(defun er/mark-inside-python-string () - "Marks region inside a (possibly multi-line) Python string" - (interactive) - (when (eq 'string (syntax-ppss-context (syntax-ppss))) - (python-beginning-of-string) - (let ((string-beginning (point))) - (forward-sexp) - (skip-chars-backward er--python-string-delimiter) - (set-mark (point)) - (goto-char string-beginning) - (skip-chars-forward er--python-string-delimiter)))) - -(defun er/add-python-mode-expansions () - "Adds Python-specific expansions for buffers in python-mode" - (let ((try-expand-list-additions '(er/mark-python-statement - er/mark-inside-python-string - er/mark-outside-python-string - python-mark-block))) - (set (make-local-variable 'expand-region-skip-whitespace) nil) - (set (make-local-variable 'er/try-expand-list) - (remove 'er/mark-inside-quotes - (remove 'er/mark-outside-quotes - (append er/try-expand-list try-expand-list-additions)))))) - -(er/enable-mode-expansions 'python-mode #'er/add-python-mode-expansions) - -(provide 'python-el-expansions) - -;; python-el-expansions.el ends here blob - 148dccf2a6e27d3d943b0fad9542bf7b6ca29720 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/python-el-fgallina-expansions.el +++ /dev/null @@ -1,193 +0,0 @@ -;;; python-el-fgallina-expansions.el --- fgallina/python.el-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Felix Geller -;; Keywords: marking region python - -;; This program 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. - -;; This program 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 . - -;;; Commentary: -;; -;; - Additions implemented here: -;; - `er/mark-inside-python-string' -;; - `er/mark-outside-python-string' -;; - `er/mark-python-statement' -;; - `er/mark-python-block' -;; - `er/mark-outer-python-block' -;; - `er/mark-python-block-and-decorator' -;; - Supports multi-line strings - -;;; Code: - -(require 'expand-region-core) - -(if (not (fboundp 'python-syntax-context)) - (defalias 'python-syntax-context #'python-info-ppss-context)) -(if (not (fboundp 'python-indent-offset)) - (defalias 'python-indent-offset #'python-indent)) - -(defvar er--python-string-delimiter - "'\"" - "Characters that delimit a Python string.") - -;; copied from @fgallina's python.el as a quick fix. The variable -;; `python-rx-constituents' is not bound when we use the python-rx -;; macro from here, so we have to construct the regular expression -;; manually. -(defvar er--python-block-start-regex - (rx symbol-start - (or "def" "class" "if" "elif" "else" "try" - "except" "finally" "for" "while" "with") - symbol-end) - "Regular expression string to match the beginning of a Python block.") - -(defun er/mark-python-string (mark-inside) - "Mark the Python string that surrounds point. - -If the optional MARK-INSIDE is not nil, only mark the region -between the string delimiters, otherwise the region includes the -delimiters as well." - (let ((beginning-of-string (python-syntax-context 'string (syntax-ppss)))) - (when beginning-of-string - (goto-char beginning-of-string) - ;; Move inside the string, so we can use ppss to find the end of - ;; the string. - (skip-chars-forward er--python-string-delimiter) - (while (python-syntax-context 'string (syntax-ppss)) - (forward-char 1)) - (when mark-inside (skip-chars-backward er--python-string-delimiter)) - (set-mark (point)) - (goto-char beginning-of-string) - (when mark-inside (skip-chars-forward er--python-string-delimiter))))) - -(defun er/mark-inside-python-string () - "Mark the inside of the Python string that surrounds point. - -Command that wraps `er/mark-python-string'." - (interactive) - (er/mark-python-string t)) - -(defun er/mark-outside-python-string () - "Mark the outside of the Python string that surrounds point. - -Command that wraps `er/mark-python-string'." - (interactive) - (er/mark-python-string nil)) - -(defun er/mark-python-statement () - "Mark the Python statement that surrounds point." - (interactive) - (python-nav-end-of-statement) - (set-mark (point)) - (python-nav-beginning-of-statement)) - -(defun er/mark-python-block (&optional next-indent-level) - "Mark the Python block that surrounds point. - -If the optional NEXT-INDENT-LEVEL is given, select the -surrounding block that is defined at an indentation that is less -than NEXT-INDENT-LEVEL." - (interactive) - (back-to-indentation) - (let ((next-indent-level - (or - ;; Use the given level - next-indent-level - ;; Check whether point is at the start of a Python block. - (if (looking-at er--python-block-start-regex) - ;; Block start means that the next level is deeper. - (+ (current-indentation) python-indent-offset) - ;; Assuming we're inside the block that we want to mark - (current-indentation))))) - ;; Move point to next Python block start at the correct indent-level - (while (>= (current-indentation) next-indent-level) - (re-search-backward er--python-block-start-regex)) - ;; Mark the beginning of the block - (set-mark (point)) - ;; Save indentation and look for the end of this block - (let ((block-indentation (current-indentation))) - (forward-line 1) - (while (and - ;; No need to go beyond the end of the buffer. Can't use - ;; eobp as the loop places the point at the beginning of - ;; line, but eob might be at the end of the line. - (not (= (point-max) (line-end-position))) - ;; Proceed if: indentation is too deep - (or (> (current-indentation) block-indentation) - ;; Looking at an empty line - (looking-at (rx line-start (* whitespace) line-end)) - ;; We're not looking at the start of a Python block - ;; and the indent is deeper than the block's indent - (and (not (looking-at er--python-block-start-regex)) - (> (current-indentation) block-indentation)))) - (forward-line 1) - (back-to-indentation)) - ;; Find the end of the block by skipping comments backwards - (python-util-forward-comment -1) - (exchange-point-and-mark)))) - -(defun er/mark-outer-python-block () - "Mark the Python block that surrounds the Python block around point. - -Command that wraps `er/mark-python-block'." - (interactive) - (er/mark-python-block (current-indentation))) - -(defun er/mark-python-block-and-decorator () - (interactive) - (back-to-indentation) - (if (or (er--python-looking-at-decorator) (er--python-looking-at-decorator -1)) - (progn - (while (er--python-looking-at-decorator -1) - (forward-line -1) - (back-to-indentation) - ) - (set-mark (point)) - (while (er--python-looking-at-decorator) - (forward-line) - ) - (python-nav-end-of-block) - (exchange-point-and-mark)))) - -(defun er--python-looking-at-decorator (&optional line-offset) - (save-excursion - (if line-offset - (forward-line line-offset) - ) - (back-to-indentation) - (looking-at "@") - )) - -(defun er/add-python-mode-expansions () - "Adds python-mode-specific expansions for buffers in python-mode" - (let ((try-expand-list-additions '( - er/mark-inside-python-string - er/mark-outside-python-string - er/mark-python-statement - er/mark-python-block - er/mark-python-block-and-decorator - er/mark-outer-python-block - ))) - (set (make-local-variable 'expand-region-skip-whitespace) nil) - (set (make-local-variable 'er/try-expand-list) - (remove 'er/mark-inside-quotes - (remove 'er/mark-outside-quotes - (append er/try-expand-list try-expand-list-additions)))))) - -(er/enable-mode-expansions 'python-mode #'er/add-python-mode-expansions) - -(provide 'python-el-fgallina-expansions) - -;; python-el-fgallina-expansions.el ends here blob - 690fe9b0b0f61c41b745142ddfc8d3119e1d9ad2 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/python-mode-expansions.el +++ /dev/null @@ -1,147 +0,0 @@ -;;; python-mode-expansions.el --- python-mode-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Felix Geller -;; Based on python-mode-expansions by: Ivan Andrus -;; Keywords: marking region python - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Commentary: -;; cf. https://github.com/magnars/expand-region.el/pull/18 - -;; For python-mode: https://launchpad.net/python-mode -;; - Mark functionality taken from python-mode: -;; - `py-mark-expression' -;; - `py-mark-statement' -;; - `py-mark-block' -;; - `py-mark-class' -;; - Additions implemented here: -;; - `er/mark-inside-python-string' -;; - `er/mark-outside-python-string' -;; - `er/mark-outer-python-block' -;; - Supports multi-line strings -;; - Supports incremental expansion of nested blocks - -;;; Code: - -(require 'expand-region-core) - -(defvar er--python-string-delimiter "'\"") - -(defalias 'py-goto-beyond-clause #'py-end-of-clause-bol) - -(declare-function py-in-string-p "python-mode") -(declare-function py-beginning-of-block "python-mode") -(declare-function py-end-of-block "python-mode") -(declare-function py-mark-block-or-clause "python-mode") -(declare-function py-end-of-clause-bol "python-mode") -(defvar py-indent-offset) - -(defun er/mark-outside-python-string () - "Marks region outside a (possibly multi-line) Python string" - (interactive) - (let ((string-beginning (py-in-string-p))) - (when string-beginning - (goto-char string-beginning) - (set-mark (point)) - (forward-sexp) - (exchange-point-and-mark)))) - -(defun er/mark-inside-python-string () - "Marks region inside a (possibly multi-line) Python string" - (interactive) - (let ((string-beginning (py-in-string-p))) - (when string-beginning - (goto-char string-beginning) - (forward-sexp) - (skip-chars-backward er--python-string-delimiter) - (set-mark (point)) - (goto-char string-beginning) - (skip-chars-forward er--python-string-delimiter)))) - -(defun er--move-to-beginning-of-outer-python-block (start-column) - "Assumes that point is in a python block that is surrounded by -another that is not the entire module. Uses `py-indent-offset' to -find the beginning of the surrounding block because -`py-beginning-of-block-position' just looks for the previous -block-starting key word syntactically." - (while (> (current-column) (- start-column py-indent-offset)) - (forward-line -1) - (py-beginning-of-block))) - -(defun er/mark-outer-python-block () - "Attempts to mark a surrounding block by moving to the previous -line and selecting the surrounding block." - (interactive) - (let ((start-column (current-column))) - (when (> start-column 0) ; outer block is the whole buffer - (er--move-to-beginning-of-outer-python-block start-column) - (let ((block-beginning (point))) - (py-end-of-block) - (set-mark (point)) - (goto-char block-beginning))))) - -(defun er/mark-x-python-compound-statement () - "Mark the current compound statement (if, while, for, try) and all clauses." - (interactive) - (let ((secondary-re - (save-excursion - (py-mark-block-or-clause) - (cond ((looking-at "if\\|for\\|while\\|else\\|elif") "else\\|elif") - ((looking-at "try\\|except\\|finally") "except\\|finally")))) - start-col) - (when secondary-re - (py-mark-block-or-clause) - (setq start-col (current-column)) - (while (looking-at secondary-re) - (forward-line -1) (back-to-indentation) - (while (> (current-column) start-col) - (forward-line -1) (back-to-indentation))) - (set-mark (point)) - (py-end-of-clause-bol) (forward-line) (back-to-indentation) - (while (and (looking-at secondary-re) - (>= (current-column) start-col)) - (py-end-of-clause-bol) (forward-line) (back-to-indentation)) - (forward-line -1) (end-of-line) - (exchange-point-and-mark)))) - -(defun er/add-python-mode-expansions () - "Adds python-mode-specific expansions for buffers in python-mode" - (let ((try-expand-list-additions '( - er/mark-inside-python-string - er/mark-outside-python-string - py-mark-expression - py-mark-statement - py-mark-block - py-mark-def - py-mark-clause - er/mark-x-python-compound-statement - er/mark-outer-python-block - py-mark-class - ))) - (set (make-local-variable 'expand-region-skip-whitespace) nil) - (set (make-local-variable 'er/try-expand-list) - (remove 'er/mark-inside-quotes - (remove 'er/mark-outside-quotes - (append er/try-expand-list try-expand-list-additions)))))) - -(er/enable-mode-expansions 'python-mode #'er/add-python-mode-expansions) - -(provide 'python-mode-expansions) - -;; python-mode-expansions.el ends here blob - 03f38f096b4e8822b92945d6ae56ac1a2d684ec2 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/ruby-mode-expansions.el +++ /dev/null @@ -1,204 +0,0 @@ -;;; ruby-mode-expansions.el --- ruby-specific expansions for expand-region -*- lexical-binding: t; -*- - -;; Copyright (C) 2011-2023 Free Software Foundation, Inc - -;; Author: Matt Briggs -;; Based on js-mode-expansions by: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - - -;; LeWang: -;; -;; I think `er/ruby-backward-up' and `er/ruby-forward-up' are nifty -;; functions in their own right. -;; -;; I would bind them to C-M-u and C-M-d respectively. - -;; Expansions: -;; -;; -;; er/mark-ruby-block-up -;; - -;;; Code: -(eval-when-compile (require 'cl-lib)) -(require 'expand-region-core) -(require 'er-basic-expansions) -(require 'ruby-mode) - -(defvar er/ruby-block-end-re - (concat ruby-block-end-re "\\|}") - "like ruby-mode's but also for '}'") - -(defun er/ruby-skip-past-block-end () - "If line is blockend, move point to next line." - (when (looking-at er/ruby-block-end-re) - (forward-line 1))) - -(defun er/ruby-end-of-block (&optional arg) - "By default `ruby-end-of-block' goes to BOL of line containing end-re. - -This moves point to the next line to include the end of the block" - (interactive "p") - ;; Workaround for `ruby-end-of-block' in Emacs 23. - (when (re-search-forward (concat "\\<\$" ruby-block-beg-re "\$\\>") - (line-end-position) t) - (goto-char (match-beginning 0))) - (ruby-end-of-block (or arg 1)) - (er/ruby-skip-past-block-end)) - -(defun er/point-at-indentation () - "Return the point where current line's indentation ends." - (save-excursion - (back-to-indentation) - (point))) - -(defun er/ruby-backward-up () - "a la `paredit-backward-up'" - (interactive) - ;; if our current line ends a block, we back a line, otherwise we - (when (save-excursion - (back-to-indentation) - (looking-at-p ruby-block-end-re)) - (forward-line -1)) - (let ((orig-point (point)) - progress-beg - progress-end) - - ;; cover the case when point is in the line of beginning of block - (unless (progn (ruby-end-of-block) - (ruby-beginning-of-block) - ;; "Block beginning" is often not at indentation in Emacs 24. - (< (er/point-at-indentation) orig-point)) - (cl-loop - (ruby-beginning-of-block) - (setq progress-beg (point)) - (when (= (point) (point-min)) - (cl-return)) - (ruby-end-of-block) - (setq progress-end (line-beginning-position - (if (looking-at-p er/ruby-block-end-re) 0 1))) - (goto-char progress-beg) - (when (> progress-end orig-point) - (cl-return)))))) - -;; This command isn't used here explicitly, but it's symmetrical with -;; `er/ruby-backward-up', and nifty for interactive use. -(defun er/ruby-forward-up () - "a la `paredit-forward-up'" - (interactive) - (er/ruby-backward-up) - (er/ruby-end-of-block)) - -(defun er/get-ruby-block (&optional pos) - "return (beg . end) of current block" - (setq pos (or pos (point))) - (save-excursion - (goto-char pos) - (cons (progn - (er/ruby-backward-up) - (er/point-at-indentation)) - (progn - (er/ruby-end-of-block) - (point))))) - -(defun er/mark-ruby-block-up-1 () - (er/ruby-backward-up) - (set-mark (er/point-at-indentation)) - (er/ruby-end-of-block) - (exchange-point-and-mark)) - -(defun er/mark-ruby-block-up (&optional no-recurse) - "mark the next level up." - (interactive) - (if (use-region-p) - (let* ((orig-end (region-end)) - (orig-beg (region-beginning)) - (orig-len (- orig-end orig-beg)) - (prev-block-point - (or (save-excursion - (goto-char orig-end) - (forward-line 0) - (back-to-indentation) - (cond ((looking-at-p er/ruby-block-end-re) - (line-beginning-position 0)) - ((re-search-forward - (concat "\\<\$" ruby-block-beg-re "\$\\>") - (line-end-position) - t) - (line-beginning-position 2))) ) - (point))) - (prev-block-info (er/get-ruby-block prev-block-point)) - (prev-block-beg (car prev-block-info)) - (prev-block-end (cdr prev-block-info)) - (prev-block-len (- prev-block-end prev-block-beg))) - (if (and (>= orig-beg prev-block-beg) - (<= orig-end prev-block-end) - (< orig-len prev-block-len)) - ;; expand to previous block if it contains and grows current - ;; region - (progn - (deactivate-mark) - (goto-char prev-block-point) - (or no-recurse - (er/mark-ruby-block-up 'no-recurse))) - (er/mark-ruby-block-up-1))) - (er/mark-ruby-block-up-1))) - -(defun er/mark-ruby-instance-variable () - "Marks instance variables in ruby. -Assumes that point is at the @ - if it is inside the word, that will -be marked first anyway." - (when (looking-at "@") - (forward-char 1)) - (when (er/looking-back-exact "@") - (er/mark-symbol) - (forward-char -1))) - -(defun er/mark-ruby-heredoc () - "Marks a heredoc, since `er/mark-inside-quotes' assumes single quote chars." - (let ((ppss (syntax-ppss))) - (when (elt ppss 3) - (let ((s-start (elt ppss 8))) - (goto-char s-start) - (when (save-excursion - (beginning-of-line) - (re-search-forward "<<\$-?\$['\"]?\$[a-zA-Z0-9_]+\$" s-start nil)) - (let ((allow-indent (string= "-" (match-string 1))) - (terminator (match-string 2)) - (heredoc-start (save-excursion - (forward-line) - (point)))) - (forward-sexp 1) - (forward-line -1) - (when (looking-at (concat "^" (if allow-indent "[ \t]*" "") terminator "$")) - (set-mark heredoc-start) - (exchange-point-and-mark)))))))) - -(defun er/add-ruby-mode-expansions () - "Adds Ruby-specific expansions for buffers in ruby-mode" - (set (make-local-variable 'er/try-expand-list) - (remove 'er/mark-defun - (append - (default-value 'er/try-expand-list) - '(er/mark-ruby-instance-variable - er/mark-ruby-block-up - er/mark-ruby-heredoc))))) - -(er/enable-mode-expansions 'ruby-mode #'er/add-ruby-mode-expansions) -(provide 'ruby-mode-expansions) blob - f4ec5a4469992ddf3f12cc13642c8893dec215e3 (mode 755) blob + /dev/null --- elpa/expand-region-1.0.0/run-tests.sh +++ /dev/null @@ -1,3 +0,0 @@ -#!/bin/sh -e - -cask exec ecukes "$@" blob - db1119a43b16c532e239c3311cd2b56270907602 (mode 755) blob + /dev/null --- elpa/expand-region-1.0.0/run-travis-ci.sh +++ /dev/null @@ -1,13 +0,0 @@ -#!/bin/sh -e - -cd "$(dirname "$0")" - -ECUKES_EMACS=${EMACS:-$(which emacs)} -export ECUKES_EMACS - -echo "*** Emacs version ***" -echo "ECUKES_EMACS = $ECUKES_EMACS" -"$ECUKES_EMACS" --version -echo - -exec ./run-tests.sh $TAGS blob - 1af2fc2eba06490554fb8aba3d225a62b22c787f (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/sml-mode-expansions.el +++ /dev/null @@ -1,64 +0,0 @@ -;;; sml-mode-expansions.el --- Expansions for expand-region to be used in sml-mode -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Alexis Gallagher -;; Based on js-mode-expansions by: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Provides extra expansions for sml-mode: -;; - various expression (case, if, let) -;; - fun bindings -;; -;; Tested with sml-mode version 6.3 -;; -;; Feel free to contribute any other expansions for SML at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(declare-function sml-find-matching-starter "sml-mode") - -;; TODO: comma-delimited elements within a list,tuple,record -;; TODO: match expression, patterns -;; TODO: individual field, record type -;; TODO: head-or-tail, then cons expression - -(defun er/sml-mark-keyword-prefixed-expression () - "Mark the surrounding expression." - (interactive) - (progn - (sml-find-matching-starter '("case" "let" "if" "raise")) - (mark-sexp))) - - -(defun er/add-sml-mode-expansions () - "Adds expansions for buffers in `sml-mode'." - (set (make-local-variable 'er/try-expand-list) - (append er/try-expand-list - '(sml-mark-function - er/sml-mark-keyword-prefixed-expression - mark-sexp)))) - -(er/enable-mode-expansions 'sml-mode #'er/add-sml-mode-expansions) - -(provide 'sml-mode-expansions) - -;; sml-mode-expansions.el ends here blob - 2e6600251c4b5c2e8d406d70e05351c16482ab46 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/subword-mode-expansions.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; subword-mode-expansions.el --- Expansions for subword-mode to be used for CamelCase -*- lexical-binding: t; -*- - -;; Copyright (C) 2014-2023 Free Software Foundation, Inc - -;; Author: Lefteris Karapetsas -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Provides extra expansions for subword mode so that when -;; subword-mode is non-nil different words can be selected in CamelCase. -;; Feel free to contribute any other expansions: -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(require 'subword) - -(defun er/mark-subword () - "Mark a subword, a part of a CamelCase identifier." - (interactive) - (when (and subword-mode - expand-region-subword-enabled) - (subword-right 1) - (set-mark (point)) - (subword-left 1))) - -(defun er/add-subword-mode-expansions () - "Add expansions for buffers in `subword-mode'." - (set (make-local-variable 'er/try-expand-list) - (append er/try-expand-list - '(er/mark-subword)))) - -(er/enable-minor-mode-expansions 'subword-mode 'er/add-subword-mode-expansions) - -(provide 'subword-mode-expansions) -;;; subword-mode-expansions.el ends here blob - 628443bb5787ff4638ff82c45e9a2715cb972be5 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/text-mode-expansions.el +++ /dev/null @@ -1,65 +0,0 @@ -;;; text-mode-expansions.el --- Expansions for expand-region to be used in text -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Ivan Andrus -;; Based on js-mode-expansions by: Magnar Sveen -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; Feel free to contribute any other expansions for normal text at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) - -(defun er/mark-text-sentence () - "Marks one sentence." - (interactive) - ;; The obvious - ;; (backward-sentence 1) (mark-end-of-sentence 1) - ;; doesn't work here because it's repeated and the selection keeps - ;; growing by sentences, which isn't what's wanted. - (forward-sentence 1) - (set-mark (point)) - (backward-sentence 1)) - -(defun er/mark-text-paragraph () - "Marks one paragraph." - (interactive) - (mark-paragraph) - (skip-chars-forward er--space-str)) - -(defun er/add-text-mode-expansions () - "Adds expansions for buffers in `text-mode' except for `html-mode'. -Unfortunately `html-mode' inherits from `text-mode' and -text-mode-expansions don't work well in `html-mode'." - (unless (member major-mode expand-region-exclude-text-mode-expansions) - (set (make-local-variable 'er/try-expand-list) - (append - er/try-expand-list - '(er/mark-text-sentence - er/mark-text-paragraph - mark-page))))) - -(er/enable-mode-expansions 'text-mode #'er/add-text-mode-expansions) - -(provide 'text-mode-expansions) - -;; text-mode-expansions.el ends here blob - a3b09cdf562f3f245f3e3e9881e7bf2a24b0bdea (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/the-org-mode-expansions.el +++ /dev/null @@ -1,120 +0,0 @@ -;;; the-org-mode-expansions.el --- Expansions for expand-region to be used in org-mode -*- lexical-binding: t; -*- - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Author: Magnar Sveen -;; Based on text-mode-expansions by: Ivan Andrus -;; Keywords: marking region - -;; This program 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. - -;; This program 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 . - -;;; Commentary: - -;; The file needs to be weirdly name (prefixed with the-) to avoid -;; conflict with org-reload, which bases its functionality on the names -;; of files, for some reason. -;; -;; Feel free to contribute any other expansions for org-mode at -;; -;; https://github.com/magnars/expand-region.el - -;;; Code: - -(require 'expand-region-core) -(require 'er-basic-expansions) -(require 'org-macs) -(require 'org-element) - -(declare-function org-up-element "org") -(declare-function org-mark-subtree "org") - -(defun er/mark-org-element () - (interactive) - (let* ((el (org-element-at-point)) - (begin (plist-get (cadr el) :begin)) - (end (plist-get (cadr el) :end))) - (goto-char begin) - (set-mark (point)) - (goto-char end) - (exchange-point-and-mark))) - -(defun er/mark-org-element-parent () - (interactive) - (let* ((el (plist-get (cadr (org-element-at-point)) :parent)) - (begin (plist-get (cadr el) :begin)) - (end (plist-get (cadr el) :end))) - (when (and begin end) - (goto-char begin) - (set-mark (point)) - (goto-char end) - (exchange-point-and-mark)))) - -(defun er/mark-sentence () - "Marks one sentence." - (interactive) - (forward-char 1) - (backward-sentence 1) - (set-mark (point)) - (forward-sentence 1) - (exchange-point-and-mark)) - -(defun er/mark-paragraph () - "Marks one paragraph." - (interactive) - (mark-paragraph) - (exchange-point-and-mark) - (skip-chars-backward er--space-str) - (exchange-point-and-mark) - (skip-chars-forward er--space-str)) - -(defun er/mark-org-code-block () - "Marks an org-code-block." - (interactive) - (let ((case-fold-search t) - (re "#\\+begin_\$\\sw+\$")) - (unless (looking-at re) - (search-backward-regexp re)) - (set-mark (point)) - (search-forward (concat "#+end_" (match-string 1))) - (exchange-point-and-mark))) - -(defun er/mark-org-parent () - "Marks a heading 1 level up from current subheading" - (interactive) - (org-up-element) - (org-mark-subtree)) - -(defun er/save-org-mode-excursion (action) - "Save outline visibility while expanding in org-mode" - (org-save-outline-visibility t - (funcall action))) - -(defun er/add-org-mode-expansions () - "Adds org-specific expansions for buffers in org-mode" - (set (make-local-variable 'er/try-expand-list) - (append - (remove #'er/mark-defun er/try-expand-list) - '(org-mark-subtree - er/mark-org-element - er/mark-org-element-parent - er/mark-org-code-block - er/mark-sentence - er/mark-org-parent - er/mark-paragraph))) - (set (make-local-variable 'er/save-mode-excursion) - #'er/save-org-mode-excursion)) - -(er/enable-mode-expansions 'org-mode #'er/add-org-mode-expansions) - -(provide 'the-org-mode-expansions) blob - d1f2762c5f2c023b86f37d243964b3b85ad1d211 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/watch-tests.watchr +++ /dev/null @@ -1,45 +0,0 @@ -ENV["WATCHR"] = "1" -system 'clear' - -def run(cmd) - `#{cmd}` -end - -def run_all_tests - system('clear') - result = run "./run-tests.sh" - puts result -end - -def run_test(file) - system('clear') - result = run "./run-tests.sh #{file} --verbose" - puts result -end - -run_all_tests -watch('.*.feature') { |file| run_test file } -watch('.*.el') { run_all_tests } - -# Ctrl-\ -Signal.trap 'QUIT' do - puts " --- Running all tests ---\n\n" - run_all_tests -end - -@interrupted = false - -# Ctrl-C -Signal.trap 'INT' do - if @interrupted then - @wants_to_quit = true - abort("\n") - else - puts "Interrupt a second time to quit" - @interrupted = true - Kernel.sleep 1.5 - # raise Interrupt, nil # let the run loop catch it - run_all_tests - @interrupted = false - end -end blob - 8fad2efb36298e7937d8843e197b39ea68ffdb54 (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/web-mode-expansions.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; web-mode-expansions.el --- Thin layer for adapting fxbois's web-mode-mark-and-expand function -*- lexical-binding: t; -*- -;;; to expand-region - -;; Copyright (C) 2012-2023 Free Software Foundation, Inc - -;; Authors: Rotem Yaari -;; Based on, and makes use of web-mode.el by fxbois - -;; This program 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. - -;; This program 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 . - -;;; Code: - -(require 'expand-region-core) - -(defun er/add-web-mode-expansions () - (set (make-local-variable 'er/try-expand-list) - (cons 'web-mode-mark-and-expand er/try-expand-list))) - -(er/enable-mode-expansions 'web-mode #'er/add-web-mode-expansions) - -(provide 'web-mode-expansions) blob - 7bc4aeb76edd1af52c6a3dc347ffec991ba06d3f (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0/yaml-mode-expansions.el +++ /dev/null @@ -1,194 +0,0 @@ -;;; yaml-mode-expansions.el --- expansions for yaml mode -*- lexical-binding: t; -*- - -;; Copyright (C) 2021-2023 Free Software Foundation, Inc. - -;; Author: Aaron Gonzales -;; Keywords: marking region yaml YAML expand - -;; This program 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. - -;; This program 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 . - -;;; Commentary: -;; -;; - Additions implemented here: -;; - er/mark-yaml-key-value -;; - er/mark-yaml-list-item -;; - er/mark-yaml-block -;; - er/mark-yaml-outer-block -;; - er/mark-yaml-inner-block - - -;;; Code: - -(require 'expand-region-core) - -(defconst yaml-indent 2) - -(unless (fboundp 'yaml-indent-offset) - (defalias 'yaml-indent-offset #'yaml-indent)) - -(defvar er--yaml-key-value-regex - (rx (one-or-more - (any "0-9A-Za-z")) - ":" - (zero-or-more " ") - (one-or-more - (any "0-9A-Za-z" " '_-")))) - -(defvar er--yaml-list-item-regex - (rx (seq "- " - (one-or-more - (any "0-9A-Za-z" "\"':=_-"))))) - -(defvar er--yaml-block-regex - (rx (seq (zero-or-more - (any " -")) - (one-or-more - (any "0-9A-Za-z" " '_-")) - ":\n"))) - -(defun er--get-regex-indentation-level (regex) - "Return the indentation level of the code with respect to the REGEX passed." - (when (looking-at regex) - ;; Block start means that the next level is deeper. - (+ (current-indentation) yaml-indent-offset) ;FIXME: Unused? - ;; Assuming we're inside the block that we want to mark - (current-indentation))) - -(defun er/mark-yaml-line-base (regex) - "Mark line of yaml file based on simple REGEX." - (back-to-indentation) - (when (looking-at regex) - (set-mark (line-end-position)))) - -(defun er/mark-yaml-block-static-base (regex) - "Mark yaml block based on REGEX passed." - ;; go bac to indentation so always can get regexp - (back-to-indentation) - ;; make sure the cursor is set inside the block - ;; mark point at this higher code block - (set-mark (point)) - ;; save level of this blocks indentation - (let ((block-indentation (current-indentation))) - (forward-line 1) - (while (and - ;; No need to go beyond the end of the buffer. Can't use - ;; eobp as the loop places the point at the beginning of - ;; line, but eob might be at the end of the line. - (not (= (point-max) (line-end-position))) - ;; Proceed if: indentation is too deep - (or (> (current-indentation) block-indentation) - ;; Looking at an empty line - (looking-at (rx line-start (* whitespace) line-end)) - ;; We're not looking at the start of a YAML block - ;; and the indent is deeper than the block's indent - (and (not (looking-at regex)) - (> (current-indentation) block-indentation)))) - (forward-line 1) - (back-to-indentation)) - ;; Find the end of the block by skipping comments backwards - (python-util-forward-comment -1) - (exchange-point-and-mark)) - (back-to-indentation)) - -(defun er/mark-yaml-block-base (regex &optional next-indent-level) - "Mark yaml block based on REGEX passed. -NEXT-INDENT-LEVEL can be used to search outer blocks when necessary." - ;; go bac to indentation so always can get regexp - (back-to-indentation) - ;; make sure the cursor is set inside the block - (let ((next-indent-level - (or - ;; Use the given level - next-indent-level - ;; used to mark current block - (er--get-regex-indentation-level regex)))) - ;; if true then at start of block and wanna mark itself - ;; else were are inside the block already and will mark it))) - ;; move up the code unti a parent code block is reached - (while (and (>= (current-indentation) next-indent-level) - (not (eq (current-indentation) 0))) - (re-search-backward regex (point-min) t) - (back-to-indentation)) - ;; mark point at this higher code block - (set-mark (point)) - ;; save level of this blocks indentation - (let ((block-indentation (current-indentation))) - (forward-line 1) - (while (and - ;; No need to go beyond the end of the buffer. Can't use - ;; eobp as the loop places the point at the beginning of - ;; line, but eob might be at the end of the line. - (not (= (point-max) (line-end-position))) - ;; Proceed if: indentation is too deep - (or (> (current-indentation) block-indentation) - ;; Looking at an empty line - (looking-at (rx line-start (* whitespace) line-end)) - ;; We're not looking at the start of a YAML block - ;; and the indent is deeper than the block's indent - (and (not (looking-at regex)) - (> (current-indentation) block-indentation)))) - (forward-line 1) - (back-to-indentation)) - ;; Find the end of the block by skipping comments backwards - (python-util-forward-comment -1) - (exchange-point-and-mark))) - (back-to-indentation)) - -(defun er/mark-yaml-key-value () - "Mark a yaml key-value pair." - (interactive) - (er/mark-yaml-line-base er--yaml-key-value-regex)) - -(defun er/mark-yaml-list-item () - "Mark a yaml list item." - (interactive) - (er/mark-yaml-line-base er--yaml-list-item-regex)) - -(defun er/mark-yaml-inner-block () - "Mark the yaml contents of the block at point. -Command that wraps `er/mark-yaml-block-base'." - (interactive) - (er/mark-yaml-block-base er--yaml-block-regex (current-indentation)) - (forward-line) - (back-to-indentation)) - -(defun er/mark-yaml-block () - "Mark the yaml block that point is currently at the top of. -Command that wraps `er/mark-yaml-block-base'." - (interactive) - (er/mark-yaml-block-static-base er--yaml-block-regex)) - -(defun er/mark-yaml-outer-block () - "Mark the outer yaml block that surrounds the block around point. -Command that wraps `er/mark-yaml-block-base'." - (interactive) - (er/mark-yaml-block-base er--yaml-block-regex (current-indentation))) - -(defun er/add-yaml-mode-expansions () - "Add yaml-mode-specific expansions for buffers in yaml-mode." - (let ((try-expand-list-additions '(er/mark-symbol - er/mark-outside-quotes - er/mark-yaml-list-item - er/mark-yaml-key-value - er/mark-yaml-block - er/mark-yaml-outer-block - er/mark-yaml-inner-block))) - (set (make-local-variable 'expand-region-skip-whitespace) nil) - (set (make-local-variable 'er/try-expand-list) try-expand-list-additions))) - -(er/enable-mode-expansions 'yaml-mode #'er/add-yaml-mode-expansions) - -(provide 'yaml-mode-expansions) - -;;; yaml-mode-expansions.el ends here blob - a525e40fb7597aee11b4cd6efa48b198c4e7d40f (mode 644) blob + /dev/null --- elpa/expand-region-1.0.0.signed +++ /dev/null @@ -1,2 +0,0 @@ -Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) (trust undefined) created at 2023-10-20T11:05:04+0200 using RSA -Good signature from 645357D2883A0966 GNU ELPA Signing Agent (2023) (trust undefined) created at 2023-10-20T11:05:04+0200 using EDDSA \ No newline at end of file blob - da471f0c4d65226d5941632105cd6e9368f17063 (mode 644) blob + /dev/null --- elpa/f-0.20.0/f-autoloads.el +++ /dev/null @@ -1,28 +0,0 @@ -;;; f-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- -;; Generated by the `loaddefs-generate' function. - -;; This file is part of GNU Emacs. - -;;; Code: - -(add-to-list 'load-path (or (and load-file-name (file-name-directory load-file-name)) (car load-path))) - - - -;;; Generated autoloads from f.el - -(register-definition-prefixes "f" '("f-")) - -;;; End of scraped data - -(provide 'f-autoloads) - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; no-native-compile: t -;; coding: utf-8-emacs-unix -;; End: - -;;; f-autoloads.el ends here blob - 09e7a2f6dbe20a61a84719d9a7b0b010363c1e6d (mode 644) blob + /dev/null --- elpa/f-0.20.0/f-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; Generated package description from f.el -*- no-byte-compile: t -*- -(define-package "f" "0.20.0" "Modern API for working with files and directories" '((s "1.7.0") (dash "2.2.0")) :commit "de6d4d40ddc844eee643e92d47b9d6a63fbebb48" :authors '(("Johan Andersson" . "johan.rejeep@gmail.com")) :maintainers '(("Johan Andersson" . "johan.rejeep@gmail.com")) :maintainer '("Johan Andersson" . "johan.rejeep@gmail.com") :keywords '("files" "directories") :url "http://github.com/rejeep/f.el") blob - 0ab3898a2221b8395d7a50b1a2f64eb9096943b1 (mode 644) blob + /dev/null --- elpa/f-0.20.0/f.el +++ /dev/null @@ -1,625 +0,0 @@ -;;; f.el --- Modern API for working with files and directories -*- lexical-binding: t; -*- - -;; Copyright (C) 2013 Johan Andersson - -;; Author: Johan Andersson -;; Maintainer: Johan Andersson -;; Version: 0.20.0 -;; Package-Version: 0.20.0 -;; Package-Commit: de6d4d40ddc844eee643e92d47b9d6a63fbebb48 -;; Keywords: files, directories -;; URL: http://github.com/rejeep/f.el -;; Package-Requires: ((s "1.7.0") (dash "2.2.0")) - -;; This file is NOT part of GNU Emacs. - -;;; License: - -;; This program 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, or (at your option) -;; any later version. - -;; This program 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Code: - - - -(require 's) -(require 'dash) - -(put 'f-guard-error 'error-conditions '(error f-guard-error)) -(put 'f-guard-error 'error-message "Destructive operation outside sandbox") - -(defvar f--guard-paths nil - "List of allowed paths to modify when guarded. - -Do not modify this variable.") - -(defmacro f--destructive (path &rest body) - "If PATH is allowed to be modified, yield BODY. - -If PATH is not allowed to be modified, throw error." - (declare (indent 1)) - `(if f--guard-paths - (if (--any? (or (f-same? it ,path) - (f-ancestor-of? it ,path)) f--guard-paths) - (progn ,@body) - (signal 'f-guard-error (list ,path f--guard-paths))) - ,@body)) - - -;;;; Paths - -(defun f-join (&rest args) - "Join ARGS to a single path." - (let (path (relative (f-relative? (car args)))) - (-map - (lambda (arg) - (setq path (f-expand arg path))) - args) - (if relative (f-relative path) path))) - -(defun f-split (path) - "Split PATH and return list containing parts." - (let ((parts (s-split (f-path-separator) path 'omit-nulls))) - (if (f-absolute? path) - (push (f-path-separator) parts) - parts))) - -(defun f-expand (path &optional dir) - "Expand PATH relative to DIR (or `default-directory'). -PATH and DIR can be either a directory names or directory file -names. Return a directory name if PATH is a directory name, and -a directory file name otherwise. File name handlers are -ignored." - (let (file-name-handler-alist) - (expand-file-name path dir))) - -(defun f-filename (path) - "Return the name of PATH." - (file-name-nondirectory (directory-file-name path))) - -(defalias 'f-parent 'f-dirname) -(defun f-dirname (path) - "Return the parent directory to PATH." - (let ((parent (file-name-directory - (directory-file-name (f-expand path default-directory))))) - (unless (f-same? path parent) - (if (f-relative? path) - (f-relative parent) - (directory-file-name parent))))) - -(defun f-common-parent (paths) - "Return the deepest common parent directory of PATHS." - (cond - ((not paths) nil) - ((not (cdr paths)) (f-parent (car paths))) - (:otherwise - (let* ((paths (-map 'f-split paths)) - (common (caar paths)) - (re nil)) - (while (and (not (null (car paths))) (--all? (equal (car it) common) paths)) - (setq paths (-map 'cdr paths)) - (push common re) - (setq common (caar paths))) - (cond - ((null re) "") - ((and (= (length re) 1) (f-root? (car re))) - (f-root)) - (:otherwise - (concat (apply 'f-join (nreverse re)) "/"))))))) - -(defun f-ext (path) - "Return the file extension of PATH. - -The extension, in a file name, is the part that follows the last -'.', excluding version numbers and backup suffixes." - (file-name-extension path)) - -(defun f-no-ext (path) - "Return everything but the file extension of PATH." - (file-name-sans-extension path)) - -(defun f-swap-ext (path ext) - "Return PATH but with EXT as the new extension. -EXT must not be nil or empty." - (if (s-blank? ext) - (error "Extension cannot be empty or nil") - (concat (f-no-ext path) "." ext))) - -(defun f-base (path) - "Return the name of PATH, excluding the extension of file." - (f-no-ext (f-filename path))) - -(defun f-relative (path &optional dir) - "Return PATH relative to DIR." - (file-relative-name path dir)) - -(defalias 'f-abbrev 'f-short) -(defun f-short (path) - "Return abbrev of PATH. See `abbreviate-file-name'." - (abbreviate-file-name path)) - -(defun f-long (path) - "Return long version of PATH." - (f-expand path)) - -(defun f-canonical (path) - "Return the canonical name of PATH." - (file-truename path)) - -(defun f-slash (path) - "Append slash to PATH unless one already. - -Some functions, such as `call-process' requires there to be an -ending slash." - (if (f-dir? path) - (file-name-as-directory path) - path)) - -(defun f-full (path) - "Return absolute path to PATH, with ending slash." - (f-slash (f-long path))) - -(defun f--uniquify (paths) - "Helper for `f-uniquify' and `f-uniquify-alist'." - (let* ((files-length (length paths)) - (uniq-filenames (--map (cons it (f-filename it)) paths)) - (uniq-filenames-next (-group-by 'cdr uniq-filenames))) - (while (/= files-length (length uniq-filenames-next)) - (setq uniq-filenames-next - (-group-by 'cdr - (--mapcat - (let ((conf-files (cdr it))) - (if (> (length conf-files) 1) - (--map (cons (car it) (concat (f-filename (s-chop-suffix (cdr it) (car it))) (f-path-separator) (cdr it))) conf-files) - conf-files)) - uniq-filenames-next)))) - uniq-filenames-next)) - -(defun f-uniquify (files) - "Return unique suffixes of FILES. - -This function expects no duplicate paths." - (-map 'car (f--uniquify files))) - -(defun f-uniquify-alist (files) - "Return alist mapping FILES to unique suffixes of FILES. - -This function expects no duplicate paths." - (-map 'cadr (f--uniquify files))) - - -;;;; I/O - -(defun f-read-bytes (path) - "Read binary data from PATH. - -Return the binary data as unibyte string." - (with-temp-buffer - (set-buffer-multibyte nil) - (setq buffer-file-coding-system 'binary) - (insert-file-contents-literally path) - (buffer-substring-no-properties (point-min) (point-max)))) - -(defalias 'f-read 'f-read-text) -(defun f-read-text (path &optional coding) - "Read text with PATH, using CODING. - -CODING defaults to `utf-8'. - -Return the decoded text as multibyte string." - (decode-coding-string (f-read-bytes path) (or coding 'utf-8))) - -(defalias 'f-write 'f-write-text) -(defun f-write-text (text coding path) - "Write TEXT with CODING to PATH. - -TEXT is a multibyte string. CODING is a coding system to encode -TEXT with. PATH is a file name to write to." - (f-write-bytes (encode-coding-string text coding) path)) - -(defun f-unibyte-string-p (s) - "Determine whether S is a unibyte string." - (not (multibyte-string-p s))) - -(defun f-write-bytes (data path) - "Write binary DATA to PATH. - -DATA is a unibyte string. PATH is a file name to write to." - (f--destructive path - (unless (f-unibyte-string-p data) - (signal 'wrong-type-argument (list 'f-unibyte-string-p data))) - (let ((file-coding-system-alist nil) - (coding-system-for-write 'binary)) - (with-temp-file path - (setq buffer-file-coding-system 'binary) - (set-buffer-multibyte nil) - (insert data))))) - -(defalias 'f-append 'f-append-text) -(defun f-append-text (text coding path) - "Append TEXT with CODING to PATH. - -If PATH does not exist, it is created." - (f-append-bytes (encode-coding-string text coding) path)) - -(defun f-append-bytes (data path) - "Append binary DATA to PATH. - -If PATH does not exist, it is created." - (let ((content - (if (f-file? path) - (f-read-bytes path) - ""))) - (f-write-bytes (concat content data) path))) - - -;;;; Destructive - -(defun f-mkdir (&rest dirs) - "Create directories DIRS." - (let (path) - (-each - dirs - (lambda (dir) - (setq path (f-expand dir path)) - (unless (f-directory? path) - (f--destructive path (make-directory path))))))) - -(defun f-delete (path &optional force) - "Delete PATH, which can be file or directory. - -If FORCE is t, a directory will be deleted recursively." - (f--destructive path - (if (or (f-file? path) (f-symlink? path)) - (delete-file path) - (delete-directory path force)))) - -(defun f-symlink (source path) - "Create a symlink to SOURCE from PATH." - (f--destructive path (make-symbolic-link source path))) - -(defun f-move (from to) - "Move or rename FROM to TO. -If TO is a directory name, move FROM into TO." - (f--destructive to (rename-file from to t))) - -(defun f-copy (from to) - "Copy file or directory FROM to TO. -If FROM names a directory and TO is a directory name, copy FROM -into TO as a subdirectory." - (f--destructive to - (if (f-file? from) - (copy-file from to) - ;; The behavior of `copy-directory' differs between Emacs 23 and - ;; 24 in that in Emacs 23, the contents of `from' is copied to - ;; `to', while in Emacs 24 the directory `from' is copied to - ;; `to'. We want the Emacs 24 behavior. - (if (> emacs-major-version 23) - (copy-directory from to) - (if (f-dir? to) - (progn - (apply 'f-mkdir (f-split to)) - (let ((new-to (f-expand (f-filename from) to))) - (copy-directory from new-to))) - (copy-directory from to)))))) - -(defun f-copy-contents (from to) - "Copy contents in directory FROM, to directory TO." - (unless (f-exists? to) - (error "Cannot copy contents to non existing directory %s" to)) - (unless (f-dir? from) - (error "Cannot copy contents as %s is a file" from)) - (--each (f-entries from) - (f-copy it (file-name-as-directory to)))) - -(defun f-touch (path) - "Update PATH last modification date or create if it does not exist." - (f--destructive path - (if (f-file? path) - (set-file-times path) - (f-write-bytes "" path)))) - - -;;;; Predicates - -(defun f-exists? (path) - "Return t if PATH exists, false otherwise." - (file-exists-p path)) - -(defalias 'f-exists-p 'f-exists?) - -(defalias 'f-dir? 'f-directory?) -(defalias 'f-dir-p 'f-dir?) - -(defun f-directory? (path) - "Return t if PATH is directory, false otherwise." - (file-directory-p path)) - -(defalias 'f-directory-p 'f-directory?) - -(defun f-file? (path) - "Return t if PATH is file, false otherwise." - (file-regular-p path)) - -(defalias 'f-file-p 'f-file?) - -(defun f-symlink? (path) - "Return t if PATH is symlink, false otherwise." - (not (not (file-symlink-p path)))) - -(defalias 'f-symlink-p 'f-symlink?) - -(defun f-readable? (path) - "Return t if PATH is readable, false otherwise." - (file-readable-p path)) - -(defalias 'f-readable-p 'f-readable?) - -(defun f-writable? (path) - "Return t if PATH is writable, false otherwise." - (file-writable-p path)) - -(defalias 'f-writable-p 'f-writable?) - -(defun f-executable? (path) - "Return t if PATH is executable, false otherwise." - (file-executable-p path)) - -(defalias 'f-executable-p 'f-executable?) - -(defun f-absolute? (path) - "Return t if PATH is absolute, false otherwise." - (file-name-absolute-p path)) - -(defalias 'f-absolute-p 'f-absolute?) - -(defun f-relative? (path) - "Return t if PATH is relative, false otherwise." - (not (f-absolute? path))) - -(defalias 'f-relative-p 'f-relative?) - -(defun f-root? (path) - "Return t if PATH is root directory, false otherwise." - (not (f-parent path))) - -(defalias 'f-root-p 'f-root?) - -(defun f-ext? (path &optional ext) - "Return t if extension of PATH is EXT, false otherwise. - -If EXT is nil or omitted, return t if PATH has any extension, -false otherwise. - -The extension, in a file name, is the part that follows the last -'.', excluding version numbers and backup suffixes." - (if ext - (string= (f-ext path) ext) - (not (eq (f-ext path) nil)))) - -(defalias 'f-ext-p 'f-ext?) - -(defalias 'f-equal? 'f-same?) -(defalias 'f-equal-p 'f-equal?) - -(defun f-same? (path-a path-b) - "Return t if PATH-A and PATH-B are references to same file." - (when (and (f-exists? path-a) - (f-exists? path-b)) - (equal - (f-canonical (directory-file-name (f-expand path-a))) - (f-canonical (directory-file-name (f-expand path-b)))))) - -(defalias 'f-same-p 'f-same?) - -(defun f-parent-of? (path-a path-b) - "Return t if PATH-A is parent of PATH-B." - (--when-let (f-parent path-b) - (f-same? path-a it))) - -(defalias 'f-parent-of-p 'f-parent-of?) - -(defun f-child-of? (path-a path-b) - "Return t if PATH-A is child of PATH-B." - (--when-let (f-parent path-a) - (f-same? it path-b))) - -(defalias 'f-child-of-p 'f-child-of?) - -(defun f-ancestor-of? (path-a path-b) - "Return t if PATH-A is ancestor of PATH-B." - (unless (f-same? path-a path-b) - (s-starts-with? (f-full path-a) - (f-full path-b)))) - -(defalias 'f-ancestor-of-p 'f-ancestor-of?) - -(defun f-descendant-of? (path-a path-b) - "Return t if PATH-A is desendant of PATH-B." - (unless (f-same? path-a path-b) - (s-starts-with? (f-full path-b) - (f-full path-a)))) - -(defalias 'f-descendant-of-p 'f-descendant-of?) - -(defun f-hidden? (path) - "Return t if PATH is hidden, nil otherwise." - (unless (f-exists? path) - (error "Path does not exist: %s" path)) - (string= (substring path 0 1) ".")) - -(defalias 'f-hidden-p 'f-hidden?) - -(defun f-empty? (path) - "If PATH is a file, return t if the file in PATH is empty, nil otherwise. -If PATH is directory, return t if directory has no files, nil otherwise." - (if (f-directory? path) - (equal (f-files path nil t) nil) - (= (f-size path) 0))) - -(defalias 'f-empty-p 'f-empty?) - - -;;;; Stats - -(defun f-size (path) - "Return size of PATH. - -If PATH is a file, return size of that file. If PATH is -directory, return sum of all files in PATH." - (if (f-directory? path) - (-sum (-map 'f-size (f-files path nil t))) - (nth 7 (file-attributes path)))) - -(defun f-depth (path) - "Return the depth of PATH. - -At first, PATH is expanded with `f-expand'. Then the full path is used to -detect the depth. -'/' will be zero depth, '/usr' will be one depth. And so on." - (- (length (f-split (f-expand path))) 1)) - - -;;;; Misc - -(defun f-this-file () - "Return path to this file." - (cond - (load-in-progress load-file-name) - ((and (boundp 'byte-compile-current-file) byte-compile-current-file) - byte-compile-current-file) - (:else (buffer-file-name)))) - -(defvar f--path-separator nil - "A variable to cache result of `f-path-separator'.") - -(defun f-path-separator () - "Return path separator." - (or f--path-separator - (setq f--path-separator (substring (f-join "x" "y") 1 2)))) - -(defun f-glob (pattern &optional path) - "Find PATTERN in PATH." - (file-expand-wildcards - (f-join (or path default-directory) pattern))) - -(defun f--collect-entries (path recursive) - (let (result - (entries - (-reject - (lambda (file) - (or - (equal (f-filename file) ".") - (equal (f-filename file) ".."))) - (directory-files path t)))) - (cond (recursive - (-map - (lambda (entry) - (if (f-file? entry) - (setq result (cons entry result)) - (when (f-directory? entry) - (setq result (cons entry result)) - (setq result (append result (f--collect-entries entry recursive)))))) - entries)) - (t (setq result entries))) - result)) - -(defmacro f--entries (path body &optional recursive) - "Anaphoric version of `f-entries'." - `(f-entries - ,path - (lambda (path) - (let ((it path)) - ,body)) - ,recursive)) - -(defun f-entries (path &optional fn recursive) - "Find all files and directories in PATH. - -FN - called for each found file and directory. If FN returns a thruthy -value, file or directory will be included. -RECURSIVE - Search for files and directories recursive." - (let ((entries (f--collect-entries path recursive))) - (if fn (-select fn entries) entries))) - -(defmacro f--directories (path body &optional recursive) - "Anaphoric version of `f-directories'." - `(f-directories - ,path - (lambda (path) - (let ((it path)) - ,body)) - ,recursive)) - -(defun f-directories (path &optional fn recursive) - "Find all directories in PATH. See `f-entries'." - (let ((directories (-select 'f-directory? (f--collect-entries path recursive)))) - (if fn (-select fn directories) directories))) - -(defmacro f--files (path body &optional recursive) - "Anaphoric version of `f-files'." - `(f-files - ,path - (lambda (path) - (let ((it path)) - ,body)) - ,recursive)) - -(defun f-files (path &optional fn recursive) - "Find all files in PATH. See `f-entries'." - (let ((files (-select 'f-file? (f--collect-entries path recursive)))) - (if fn (-select fn files) files))) - -(defmacro f--traverse-upwards (body &optional path) - "Anaphoric version of `f-traverse-upwards'." - `(f-traverse-upwards - (lambda (dir) - (let ((it dir)) - ,body)) - ,path)) - -(defun f-traverse-upwards (fn &optional path) - "Traverse up as long as FN return nil, starting at PATH. - -If FN returns a non-nil value, the path sent as argument to FN is -returned. If no function callback return a non-nil value, nil is -returned." - (unless path - (setq path default-directory)) - (when (f-relative? path) - (setq path (f-expand path))) - (if (funcall fn path) - path - (unless (f-root? path) - (f-traverse-upwards fn (f-parent path))))) - -(defun f-root () - "Return absolute root." - (f-traverse-upwards 'f-root?)) - -(defmacro f-with-sandbox (path-or-paths &rest body) - "Only allow PATH-OR-PATHS and decendants to be modified in BODY." - (declare (indent 1)) - `(let ((paths (if (listp ,path-or-paths) - ,path-or-paths - (list ,path-or-paths)))) - (unwind-protect - (let ((f--guard-paths paths)) - ,@body) - (setq f--guard-paths nil)))) - -(provide 'f) - -;;; f.el ends here blob - f288702d2fa16d3cdf0035b15a9fcbc552cd88e7 (mode 644) blob + /dev/null --- elpa/git-commit-3.3.0/LICENSE +++ /dev/null @@ -1,674 +0,0 @@ - GNU GENERAL PUBLIC LICENSE - Version 3, 29 June 2007 - - Copyright (C) 2007 Free Software Foundation, Inc. - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - - Preamble - - The GNU General Public License is a free, copyleft license for -software and other kinds of works. - - The licenses for most software and other practical works are designed -to take away your freedom to share and change the works. By contrast, -the GNU General Public License is intended to guarantee your freedom to -share and change all versions of a program--to make sure it remains free -software for all its users. We, the Free Software Foundation, use the -GNU General Public License for most of our software; it applies also to -any other work released this way by its authors. You can apply it to -your programs, too. - - When we speak of free software, we are referring to freedom, not -price. Our General Public Licenses are designed to make sure that you -have the freedom to distribute copies of free software (and charge for -them if you wish), that you receive source code or can get it if you -want it, that you can change the software or use pieces of it in new -free programs, and that you know you can do these things. - - To protect your rights, we need to prevent others from denying you -these rights or asking you to surrender the rights. Therefore, you have -certain responsibilities if you distribute copies of the software, or if -you modify it: responsibilities to respect the freedom of others. - - For example, if you distribute copies of such a program, whether -gratis or for a fee, you must pass on to the recipients the same -freedoms that you received. You must make sure that they, too, receive -or can get the source code. And you must show them these terms so they -know their rights. - - Developers that use the GNU GPL protect your rights with two steps: -(1) assert copyright on the software, and (2) offer you this License -giving you legal permission to copy, distribute and/or modify it. - - For the developers' and authors' protection, the GPL clearly explains -that there is no warranty for this free software. For both users' and -authors' sake, the GPL requires that modified versions be marked as -changed, so that their problems will not be attributed erroneously to -authors of previous versions. - - Some devices are designed to deny users access to install or run -modified versions of the software inside them, although the manufacturer -can do so. This is fundamentally incompatible with the aim of -protecting users' freedom to change the software. The systematic -pattern of such abuse occurs in the area of products for individuals to -use, which is precisely where it is most unacceptable. Therefore, we -have designed this version of the GPL to prohibit the practice for those -products. If such problems arise substantially in other domains, we -stand ready to extend this provision to those domains in future versions -of the GPL, as needed to protect the freedom of users. - - Finally, every program is threatened constantly by software patents. -States should not allow patents to restrict development and use of -software on general-purpose computers, but in those that do, we wish to -avoid the special danger that patents applied to a free program could -make it effectively proprietary. To prevent this, the GPL assures that -patents cannot be used to render the program non-free. - - The precise terms and conditions for copying, distribution and -modification follow. - - TERMS AND CONDITIONS - - 0. Definitions. - - "This License" refers to version 3 of the GNU General Public License. - - "Copyright" also means copyright-like laws that apply to other kinds of -works, such as semiconductor masks. - - "The Program" refers to any copyrightable work licensed under this -License. Each licensee is addressed as "you". "Licensees" and -"recipients" may be individuals or organizations. - - To "modify" a work means to copy from or adapt all or part of the work -in a fashion requiring copyright permission, other than the making of an -exact copy. The resulting work is called a "modified version" of the -earlier work or a work "based on" the earlier work. - - A "covered work" means either the unmodified Program or a work based -on the Program. - - To "propagate" a work means to do anything with it that, without -permission, would make you directly or secondarily liable for -infringement under applicable copyright law, except executing it on a -computer or modifying a private copy. Propagation includes copying, -distribution (with or without modification), making available to the -public, and in some countries other activities as well. - - To "convey" a work means any kind of propagation that enables other -parties to make or receive copies. Mere interaction with a user through -a computer network, with no transfer of a copy, is not conveying. - - An interactive user interface displays "Appropriate Legal Notices" -to the extent that it includes a convenient and prominently visible -feature that (1) displays an appropriate copyright notice, and (2) -tells the user that there is no warranty for the work (except to the -extent that warranties are provided), that licensees may convey the -work under this License, and how to view a copy of this License. If -the interface presents a list of user commands or options, such as a -menu, a prominent item in the list meets this criterion. - - 1. Source Code. - - The "source code" for a work means the preferred form of the work -for making modifications to it. "Object code" means any non-source -form of a work. - - A "Standard Interface" means an interface that either is an official -standard defined by a recognized standards body, or, in the case of -interfaces specified for a particular programming language, one that -is widely used among developers working in that language. - - The "System Libraries" of an executable work include anything, other -than the work as a whole, that (a) is included in the normal form of -packaging a Major Component, but which is not part of that Major -Component, and (b) serves only to enable use of the work with that -Major Component, or to implement a Standard Interface for which an -implementation is available to the public in source code form. A -"Major Component", in this context, means a major essential component -(kernel, window system, and so on) of the specific operating system -(if any) on which the executable work runs, or a compiler used to -produce the work, or an object code interpreter used to run it. - - The "Corresponding Source" for a work in object code form means all -the source code needed to generate, install, and (for an executable -work) run the object code and to modify the work, including scripts to -control those activities. However, it does not include the work's -System Libraries, or general-purpose tools or generally available free -programs which are used unmodified in performing those activities but -which are not part of the work. For example, Corresponding Source -includes interface definition files associated with source files for -the work, and the source code for shared libraries and dynamically -linked subprograms that the work is specifically designed to require, -such as by intimate data communication or control flow between those -subprograms and other parts of the work. - - The Corresponding Source need not include anything that users -can regenerate automatically from other parts of the Corresponding -Source. - - The Corresponding Source for a work in source code form is that -same work. - - 2. Basic Permissions. - - All rights granted under this License are granted for the term of -copyright on the Program, and are irrevocable provided the stated -conditions are met. This License explicitly affirms your unlimited -permission to run the unmodified Program. The output from running a -covered work is covered by this License only if the output, given its -content, constitutes a covered work. This License acknowledges your -rights of fair use or other equivalent, as provided by copyright law. - - You may make, run and propagate covered works that you do not -convey, without conditions so long as your license otherwise remains -in force. You may convey covered works to others for the sole purpose -of having them make modifications exclusively for you, or provide you -with facilities for running those works, provided that you comply with -the terms of this License in conveying all material for which you do -not control copyright. Those thus making or running the covered works -for you must do so exclusively on your behalf, under your direction -and control, on terms that prohibit them from making any copies of -your copyrighted material outside their relationship with you. - - Conveying under any other circumstances is permitted solely under -the conditions stated below. Sublicensing is not allowed; section 10 -makes it unnecessary. - - 3. Protecting Users' Legal Rights From Anti-Circumvention Law. - - No covered work shall be deemed part of an effective technological -measure under any applicable law fulfilling obligations under article -11 of the WIPO copyright treaty adopted on 20 December 1996, or -similar laws prohibiting or restricting circumvention of such -measures. - - When you convey a covered work, you waive any legal power to forbid -circumvention of technological measures to the extent such circumvention -is effected by exercising rights under this License with respect to -the covered work, and you disclaim any intention to limit operation or -modification of the work as a means of enforcing, against the work's -users, your or third parties' legal rights to forbid circumvention of -technological measures. - - 4. Conveying Verbatim Copies. - - You may convey verbatim copies of the Program's source code as you -receive it, in any medium, provided that you conspicuously and -appropriately publish on each copy an appropriate copyright notice; -keep intact all notices stating that this License and any -non-permissive terms added in accord with section 7 apply to the code; -keep intact all notices of the absence of any warranty; and give all -recipients a copy of this License along with the Program. - - You may charge any price or no price for each copy that you convey, -and you may offer support or warranty protection for a fee. - - 5. Conveying Modified Source Versions. - - You may convey a work based on the Program, or the modifications to -produce it from the Program, in the form of source code under the -terms of section 4, provided that you also meet all of these conditions: - - a) The work must carry prominent notices stating that you modified - it, and giving a relevant date. - - b) The work must carry prominent notices stating that it is - released under this License and any conditions added under section - 7. This requirement modifies the requirement in section 4 to - "keep intact all notices". - - c) You must license the entire work, as a whole, under this - License to anyone who comes into possession of a copy. This - License will therefore apply, along with any applicable section 7 - additional terms, to the whole of the work, and all its parts, - regardless of how they are packaged. This License gives no - permission to license the work in any other way, but it does not - invalidate such permission if you have separately received it. - - d) If the work has interactive user interfaces, each must display - Appropriate Legal Notices; however, if the Program has interactive - interfaces that do not display Appropriate Legal Notices, your - work need not make them do so. - - A compilation of a covered work with other separate and independent -works, which are not by their nature extensions of the covered work, -and which are not combined with it such as to form a larger program, -in or on a volume of a storage or distribution medium, is called an -"aggregate" if the compilation and its resulting copyright are not -used to limit the access or legal rights of the compilation's users -beyond what the individual works permit. Inclusion of a covered work -in an aggregate does not cause this License to apply to the other -parts of the aggregate. - - 6. Conveying Non-Source Forms. - - You may convey a covered work in object code form under the terms -of sections 4 and 5, provided that you also convey the -machine-readable Corresponding Source under the terms of this License, -in one of these ways: - - a) Convey the object code in, or embodied in, a physical product - (including a physical distribution medium), accompanied by the - Corresponding Source fixed on a durable physical medium - customarily used for software interchange. - - b) Convey the object code in, or embodied in, a physical product - (including a physical distribution medium), accompanied by a - written offer, valid for at least three years and valid for as - long as you offer spare parts or customer support for that product - model, to give anyone who possesses the object code either (1) a - copy of the Corresponding Source for all the software in the - product that is covered by this License, on a durable physical - medium customarily used for software interchange, for a price no - more than your reasonable cost of physically performing this - conveying of source, or (2) access to copy the - Corresponding Source from a network server at no charge. - - c) Convey individual copies of the object code with a copy of the - written offer to provide the Corresponding Source. This - alternative is allowed only occasionally and noncommercially, and - only if you received the object code with such an offer, in accord - with subsection 6b. - - d) Convey the object code by offering access from a designated - place (gratis or for a charge), and offer equivalent access to the - Corresponding Source in the same way through the same place at no - further charge. You need not require recipients to copy the - Corresponding Source along with the object code. If the place to - copy the object code is a network server, the Corresponding Source - may be on a different server (operated by you or a third party) - that supports equivalent copying facilities, provided you maintain - clear directions next to the object code saying where to find the - Corresponding Source. Regardless of what server hosts the - Corresponding Source, you remain obligated to ensure that it is - available for as long as needed to satisfy these requirements. - - e) Convey the object code using peer-to-peer transmission, provided - you inform other peers where the object code and Corresponding - Source of the work are being offered to the general public at no - charge under subsection 6d. - - A separable portion of the object code, whose source code is excluded -from the Corresponding Source as a System Library, need not be -included in conveying the object code work. - - A "User Product" is either (1) a "consumer product", which means any -tangible personal property which is normally used for personal, family, -or household purposes, or (2) anything designed or sold for incorporation -into a dwelling. In determining whether a product is a consumer product, -doubtful cases shall be resolved in favor of coverage. For a particular -product received by a particular user, "normally used" refers to a -typical or common use of that class of product, regardless of the status -of the particular user or of the way in which the particular user -actually uses, or expects or is expected to use, the product. A product -is a consumer product regardless of whether the product has substantial -commercial, industrial or non-consumer uses, unless such uses represent -the only significant mode of use of the product. - - "Installation Information" for a User Product means any methods, -procedures, authorization keys, or other information required to install -and execute modified versions of a covered work in that User Product from -a modified version of its Corresponding Source. The information must -suffice to ensure that the continued functioning of the modified object -code is in no case prevented or interfered with solely because -modification has been made. - - If you convey an object code work under this section in, or with, or -specifically for use in, a User Product, and the conveying occurs as -part of a transaction in which the right of possession and use of the -User Product is transferred to the recipient in perpetuity or for a -fixed term (regardless of how the transaction is characterized), the -Corresponding Source conveyed under this section must be accompanied -by the Installation Information. But this requirement does not apply -if neither you nor any third party retains the ability to install -modified object code on the User Product (for example, the work has -been installed in ROM). - - The requirement to provide Installation Information does not include a -requirement to continue to provide support service, warranty, or updates -for a work that has been modified or installed by the recipient, or for -the User Product in which it has been modified or installed. Access to a -network may be denied when the modification itself materially and -adversely affects the operation of the network or violates the rules and -protocols for communication across the network. - - Corresponding Source conveyed, and Installation Information provided, -in accord with this section must be in a format that is publicly -documented (and with an implementation available to the public in -source code form), and must require no special password or key for -unpacking, reading or copying. - - 7. Additional Terms. - - "Additional permissions" are terms that supplement the terms of this -License by making exceptions from one or more of its conditions. -Additional permissions that are applicable to the entire Program shall -be treated as though they were included in this License, to the extent -that they are valid under applicable law. If additional permissions -apply only to part of the Program, that part may be used separately -under those permissions, but the entire Program remains governed by -this License without regard to the additional permissions. - - When you convey a copy of a covered work, you may at your option -remove any additional permissions from that copy, or from any part of -it. (Additional permissions may be written to require their own -removal in certain cases when you modify the work.) You may place -additional permissions on material, added by you to a covered work, -for which you have or can give appropriate copyright permission. - - Notwithstanding any other provision of this License, for material you -add to a covered work, you may (if authorized by the copyright holders of -that material) supplement the terms of this License with terms: - - a) Disclaiming warranty or limiting liability differently from the - terms of sections 15 and 16 of this License; or - - b) Requiring preservation of specified reasonable legal notices or - author attributions in that material or in the Appropriate Legal - Notices displayed by works containing it; or - - c) Prohibiting misrepresentation of the origin of that material, or - requiring that modified versions of such material be marked in - reasonable ways as different from the original version; or - - d) Limiting the use for publicity purposes of names of licensors or - authors of the material; or - - e) Declining to grant rights under trademark law for use of some - trade names, trademarks, or service marks; or - - f) Requiring indemnification of licensors and authors of that - material by anyone who conveys the material (or modified versions of - it) with contractual assumptions of liability to the recipient, for - any liability that these contractual assumptions directly impose on - those licensors and authors. - - All other non-permissive additional terms are considered "further -restrictions" within the meaning of section 10. If the Program as you -received it, or any part of it, contains a notice stating that it is -governed by this License along with a term that is a further -restriction, you may remove that term. If a license document contains -a further restriction but permits relicensing or conveying under this -License, you may add to a covered work material governed by the terms -of that license document, provided that the further restriction does -not survive such relicensing or conveying. - - If you add terms to a covered work in accord with this section, you -must place, in the relevant source files, a statement of the -additional terms that apply to those files, or a notice indicating -where to find the applicable terms. - - Additional terms, permissive or non-permissive, may be stated in the -form of a separately written license, or stated as exceptions; -the above requirements apply either way. - - 8. Termination. - - You may not propagate or modify a covered work except as expressly -provided under this License. Any attempt otherwise to propagate or -modify it is void, and will automatically terminate your rights under -this License (including any patent licenses granted under the third -paragraph of section 11). - - However, if you cease all violation of this License, then your -license from a particular copyright holder is reinstated (a) -provisionally, unless and until the copyright holder explicitly and -finally terminates your license, and (b) permanently, if the copyright -holder fails to notify you of the violation by some reasonable means -prior to 60 days after the cessation. - - Moreover, your license from a particular copyright holder is -reinstated permanently if the copyright holder notifies you of the -violation by some reasonable means, this is the first time you have -received notice of violation of this License (for any work) from that -copyright holder, and you cure the violation prior to 30 days after -your receipt of the notice. - - Termination of your rights under this section does not terminate the -licenses of parties who have received copies or rights from you under -this License. If your rights have been terminated and not permanently -reinstated, you do not qualify to receive new licenses for the same -material under section 10. - - 9. Acceptance Not Required for Having Copies. - - You are not required to accept this License in order to receive or -run a copy of the Program. Ancillary propagation of a covered work -occurring solely as a consequence of using peer-to-peer transmission -to receive a copy likewise does not require acceptance. However, -nothing other than this License grants you permission to propagate or -modify any covered work. These actions infringe copyright if you do -not accept this License. Therefore, by modifying or propagating a -covered work, you indicate your acceptance of this License to do so. - - 10. Automatic Licensing of Downstream Recipients. - - Each time you convey a covered work, the recipient automatically -receives a license from the original licensors, to run, modify and -propagate that work, subject to this License. You are not responsible -for enforcing compliance by third parties with this License. - - An "entity transaction" is a transaction transferring control of an -organization, or substantially all assets of one, or subdividing an -organization, or merging organizations. If propagation of a covered -work results from an entity transaction, each party to that -transaction who receives a copy of the work also receives whatever -licenses to the work the party's predecessor in interest had or could -give under the previous paragraph, plus a right to possession of the -Corresponding Source of the work from the predecessor in interest, if -the predecessor has it or can get it with reasonable efforts. - - You may not impose any further restrictions on the exercise of the -rights granted or affirmed under this License. For example, you may -not impose a license fee, royalty, or other charge for exercise of -rights granted under this License, and you may not initiate litigation -(including a cross-claim or counterclaim in a lawsuit) alleging that -any patent claim is infringed by making, using, selling, offering for -sale, or importing the Program or any portion of it. - - 11. Patents. - - A "contributor" is a copyright holder who authorizes use under this -License of the Program or a work on which the Program is based. The -work thus licensed is called the contributor's "contributor version". - - A contributor's "essential patent claims" are all patent claims -owned or controlled by the contributor, whether already acquired or -hereafter acquired, that would be infringed by some manner, permitted -by this License, of making, using, or selling its contributor version, -but do not include claims that would be infringed only as a -consequence of further modification of the contributor version. For -purposes of this definition, "control" includes the right to grant -patent sublicenses in a manner consistent with the requirements of -this License. - - Each contributor grants you a non-exclusive, worldwide, royalty-free -patent license under the contributor's essential patent claims, to -make, use, sell, offer for sale, import and otherwise run, modify and -propagate the contents of its contributor version. - - In the following three paragraphs, a "patent license" is any express -agreement or commitment, however denominated, not to enforce a patent -(such as an express permission to practice a patent or covenant not to -sue for patent infringement). To "grant" such a patent license to a -party means to make such an agreement or commitment not to enforce a -patent against the party. - - If you convey a covered work, knowingly relying on a patent license, -and the Corresponding Source of the work is not available for anyone -to copy, free of charge and under the terms of this License, through a -publicly available network server or other readily accessible means, -then you must either (1) cause the Corresponding Source to be so -available, or (2) arrange to deprive yourself of the benefit of the -patent license for this particular work, or (3) arrange, in a manner -consistent with the requirements of this License, to extend the patent -license to downstream recipients. "Knowingly relying" means you have -actual knowledge that, but for the patent license, your conveying the -covered work in a country, or your recipient's use of the covered work -in a country, would infringe one or more identifiable patents in that -country that you have reason to believe are valid. - - If, pursuant to or in connection with a single transaction or -arrangement, you convey, or propagate by procuring conveyance of, a -covered work, and grant a patent license to some of the parties -receiving the covered work authorizing them to use, propagate, modify -or convey a specific copy of the covered work, then the patent license -you grant is automatically extended to all recipients of the covered -work and works based on it. - - A patent license is "discriminatory" if it does not include within -the scope of its coverage, prohibits the exercise of, or is -conditioned on the non-exercise of one or more of the rights that are -specifically granted under this License. You may not convey a covered -work if you are a party to an arrangement with a third party that is -in the business of distributing software, under which you make payment -to the third party based on the extent of your activity of conveying -the work, and under which the third party grants, to any of the -parties who would receive the covered work from you, a discriminatory -patent license (a) in connection with copies of the covered work -conveyed by you (or copies made from those copies), or (b) primarily -for and in connection with specific products or compilations that -contain the covered work, unless you entered into that arrangement, -or that patent license was granted, prior to 28 March 2007. - - Nothing in this License shall be construed as excluding or limiting -any implied license or other defenses to infringement that may -otherwise be available to you under applicable patent law. - - 12. No Surrender of Others' Freedom. - - If conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot convey a -covered work so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you may -not convey it at all. For example, if you agree to terms that obligate you -to collect a royalty for further conveying from those to whom you convey -the Program, the only way you could satisfy both those terms and this -License would be to refrain entirely from conveying the Program. - - 13. Use with the GNU Affero General Public License. - - Notwithstanding any other provision of this License, you have -permission to link or combine any covered work with a work licensed -under version 3 of the GNU Affero General Public License into a single -combined work, and to convey the resulting work. The terms of this -License will continue to apply to the part which is the covered work, -but the special requirements of the GNU Affero General Public License, -section 13, concerning interaction through a network will apply to the -combination as such. - - 14. Revised Versions of this License. - - The Free Software Foundation may publish revised and/or new versions of -the GNU General Public License from time to time. Such new versions will -be similar in spirit to the present version, but may differ in detail to -address new problems or concerns. - - Each version is given a distinguishing version number. If the -Program specifies that a certain numbered version of the GNU General -Public License "or any later version" applies to it, you have the -option of following the terms and conditions either of that numbered -version or of any later version published by the Free Software -Foundation. If the Program does not specify a version number of the -GNU General Public License, you may choose any version ever published -by the Free Software Foundation. - - If the Program specifies that a proxy can decide which future -versions of the GNU General Public License can be used, that proxy's -public statement of acceptance of a version permanently authorizes you -to choose that version for the Program. - - Later license versions may give you additional or different -permissions. However, no additional obligations are imposed on any -author or copyright holder as a result of your choosing to follow a -later version. - - 15. Disclaimer of Warranty. - - THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY -APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT -HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY -OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, -THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM -IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF -ALL NECESSARY SERVICING, REPAIR OR CORRECTION. - - 16. Limitation of Liability. - - IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS -THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY -GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE -USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF -DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD -PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), -EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF -SUCH DAMAGES. - - 17. Interpretation of Sections 15 and 16. - - If the disclaimer of warranty and limitation of liability provided -above cannot be given local legal effect according to their terms, -reviewing courts shall apply local law that most closely approximates -an absolute waiver of all civil liability in connection with the -Program, unless a warranty or assumption of liability accompanies a -copy of the Program in return for a fee. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Programs - - If you develop a new program, and you want it to be of the greatest -possible use to the public, the best way to achieve this is to make it -free software which everyone can redistribute and change under these terms. - - To do so, attach the following notices to the program. It is safest -to attach them to the start of each source file to most effectively -state the exclusion of warranty; and each file should have at least -the "copyright" line and a pointer to where the full notice is found. - - - Copyright (C) - - This program 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. - - This program 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 . - -Also add information on how to contact you by electronic and paper mail. - - If the program does terminal interaction, make it output a short -notice like this when it starts in an interactive mode: - - Copyright (C) - This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. - This is free software, and you are welcome to redistribute it - under certain conditions; type `show c' for details. - -The hypothetical commands `show w' and `show c' should show the appropriate -parts of the General Public License. Of course, your program's commands -might be different; for a GUI interface, you would use an "about box". - - You should also get your employer (if you work as a programmer) or school, -if any, to sign a "copyright disclaimer" for the program, if necessary. -For more information on this, and how to apply and follow the GNU GPL, see -. - - The GNU General Public License does not permit incorporating your program -into proprietary programs. If your program is a subroutine library, you -may consider it more useful to permit linking proprietary applications with -the library. If this is what you want to do, use the GNU Lesser General -Public License instead of this License. But first, please read -. blob - 2c6a07e83d90b6b872ec8486c654833228909801 (mode 644) blob + /dev/null --- elpa/git-commit-3.3.0/git-commit-autoloads.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; git-commit-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- -;; Generated by the `loaddefs-generate' function. - -;; This file is part of GNU Emacs. - -;;; Code: - -(add-to-list 'load-path (or (and load-file-name (file-name-directory load-file-name)) (car load-path))) - - - -;;; Generated autoloads from git-commit.el - -(put 'git-commit-major-mode 'safe-local-variable - (lambda (val) - (memq val '(text-mode - markdown-mode - org-mode - fundamental-mode - git-commit-elisp-text-mode)))) -(register-definition-prefixes "git-commit" '("git-commit-" "global-git-commit-mode")) - -;;; End of scraped data - -(provide 'git-commit-autoloads) - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; no-native-compile: t -;; coding: utf-8-emacs-unix -;; End: - -;;; git-commit-autoloads.el ends here blob - 1779dab7471394c7be36ed5aaaf0b414b674ee78 (mode 644) blob + /dev/null --- elpa/git-commit-3.3.0/git-commit-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;; Generated package description from git-commit.el -*- no-byte-compile: t -*- -(define-package "git-commit" "3.3.0" "Edit Git commit messages" '((emacs "25.1") (dash "2.19.1") (transient "0.3.6") (with-editor "3.0.5")) :authors '(("Jonas Bernoulli" . "jonas@bernoul.li") ("Sebastian Wiesner" . "lunaryorn@gmail.com") ("Florian Ragwitz" . "rafl@debian.org") ("Marius Vollmer" . "marius.vollmer@gmail.com")) :maintainer '("Jonas Bernoulli" . "jonas@bernoul.li") :keywords '("git" "tools" "vc") :url "https://github.com/magit/magit") blob - 64813af8255698d776046d561c3ed5ee98a5f739 (mode 644) blob + /dev/null --- elpa/git-commit-3.3.0/git-commit.el +++ /dev/null @@ -1,1077 +0,0 @@ -;;; git-commit.el --- Edit Git commit messages -*- lexical-binding: t; -*- - -;; Copyright (C) 2010-2021 The Magit Project Contributors -;; -;; You should have received a copy of the AUTHORS.md file which -;; lists all contributors. If not, see http://magit.vc/authors. - -;; Author: Jonas Bernoulli -;; Sebastian Wiesner -;; Florian Ragwitz -;; Marius Vollmer -;; Maintainer: Jonas Bernoulli - -;; Keywords: git tools vc -;; Homepage: https://github.com/magit/magit -;; Package-Requires: ((emacs "25.1") (dash "2.19.1") (transient "0.3.6") (with-editor "3.0.5")) -;; Package-Version: 3.3.0 -;; SPDX-License-Identifier: GPL-3.0-or-later - -;; This file 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, or (at your option) -;; any later version. -;; -;; This file 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 file. If not, see . - -;;; Commentary: - -;; This package assists the user in writing good Git commit messages. - -;; While Git allows for the message to be provided on the command -;; line, it is preferable to tell Git to create the commit without -;; actually passing it a message. Git then invokes the `$GIT_EDITOR' -;; (or if that is undefined `$EDITOR') asking the user to provide the -;; message by editing the file ".git/COMMIT_EDITMSG" (or another file -;; in that directory, e.g. ".git/MERGE_MSG" for merge commits). - -;; When `global-git-commit-mode' is enabled, which it is by default, -;; then opening such a file causes the features described below, to -;; be enabled in that buffer. Normally this would be done using a -;; major-mode but to allow the use of any major-mode, as the user sees -;; fit, it is done here by running a setup function, which among other -;; things turns on the preferred major-mode, by default `text-mode'. - -;; Git waits for the `$EDITOR' to finish and then either creates the -;; commit using the contents of the file as commit message, or, if the -;; editor process exited with a non-zero exit status, aborts without -;; creating a commit. Unfortunately Emacsclient (which is what Emacs -;; users should be using as `$EDITOR' or at least as `$GIT_EDITOR') -;; does not differentiate between "successfully" editing a file and -;; aborting; not out of the box that is. - -;; By making use of the `with-editor' package this package provides -;; both ways of finish an editing session. In either case the file -;; is saved, but Emacseditor's exit code differs. -;; -;; C-c C-c Finish the editing session successfully by returning -;; with exit code 0. Git then creates the commit using -;; the message it finds in the file. -;; -;; C-c C-k Aborts the edit editing session by returning with exit -;; code 1. Git then aborts the commit. - -;; Aborting the commit does not cause the message to be lost, but -;; relying solely on the file not being tampered with is risky. This -;; package additionally stores all aborted messages for the duration -;; of the current session (i.e. until you close Emacs). To get back -;; an aborted message use M-p and M-n while editing a message. -;; -;; M-p Replace the buffer contents with the previous message -;; from the message ring. Of course only after storing -;; the current content there too. -;; -;; M-n Replace the buffer contents with the next message from -;; the message ring, after storing the current content. - -;; Some support for pseudo headers as used in some projects is -;; provided by these commands: -;; -;; C-c C-s Insert a Signed-off-by header. -;; C-c C-a Insert a Acked-by header. -;; C-c C-m Insert a Modified-by header. -;; C-c C-t Insert a Tested-by header. -;; C-c C-r Insert a Reviewed-by header. -;; C-c C-o Insert a Cc header. -;; C-c C-p Insert a Reported-by header. -;; C-c C-i Insert a Suggested-by header. - -;; When Git requests a commit message from the user, it does so by -;; having her edit a file which initially contains some comments, -;; instructing her what to do, and providing useful information, such -;; as which files were modified. These comments, even when left -;; intact by the user, do not become part of the commit message. This -;; package ensures these comments are propertizes as such and further -;; prettifies them by using different faces for various parts, such as -;; files. - -;; Finally this package highlights style errors, like lines that are -;; too long, or when the second line is not empty. It may even nag -;; you when you attempt to finish the commit without having fixed -;; these issues. The style checks and many other settings can easily -;; be configured: -;; -;; M-x customize-group RET git-commit RET - -;;; Code: -;;;; Dependencies - -(require 'dash) -(require 'subr-x) - -(require 'magit-git nil t) -(require 'magit-mode nil t) -(require 'magit-utils nil t) - -(require 'log-edit) -(require 'ring) -(require 'rx) -(require 'server) -(require 'transient) -(require 'with-editor) - -(defvar recentf-exclude) - -;;;; Declarations - -(defvar diff-default-read-only) -(defvar flyspell-generic-check-word-predicate) -(defvar font-lock-beg) -(defvar font-lock-end) - -(declare-function magit-completing-read "magit-utils" - (prompt collection &optional predicate require-match - initial-input hist def fallback)) -(declare-function magit-expand-git-file-name "magit-git" (filename)) -(declare-function magit-git-lines "magit-git" (&rest args)) -(declare-function magit-list-local-branch-names "magit-git" ()) -(declare-function magit-list-remote-branch-names "magit-git" - (&optional remote relative)) - -;;; Options -;;;; Variables - -(defgroup git-commit nil - "Edit Git commit messages." - :prefix "git-commit-" - :link '(info-link "(magit)Editing Commit Messages") - :group 'tools) - -(define-minor-mode global-git-commit-mode - "Edit Git commit messages. - -This global mode arranges for `git-commit-setup' to be called -when a Git commit message file is opened. That usually happens -when Git uses the Emacsclient as $GIT_EDITOR to have the user -provide such a commit message. - -Loading the library `git-commit' by default enables this mode, -but the library is not automatically loaded because doing that -would pull in many dependencies and increase startup time too -much. You can either rely on `magit' loading this library or -you can load it explicitly. Autoloading is not an alternative -because in this case autoloading would immediately trigger -full loading." - :group 'git-commit - :type 'boolean - :global t - :init-value t - :initialize (lambda (symbol exp) - (custom-initialize-default symbol exp) - (when global-git-commit-mode - (add-hook 'find-file-hook 'git-commit-setup-check-buffer))) - (if global-git-commit-mode - (add-hook 'find-file-hook 'git-commit-setup-check-buffer) - (remove-hook 'find-file-hook 'git-commit-setup-check-buffer))) - -(defcustom git-commit-major-mode 'text-mode - "Major mode used to edit Git commit messages. -The major mode configured here is turned on by the minor mode -`git-commit-mode'." - :group 'git-commit - :type '(choice (function-item text-mode) - (function-item markdown-mode) - (function-item org-mode) - (function-item fundamental-mode) - (function-item git-commit-elisp-text-mode) - (function :tag "Another mode") - (const :tag "No major mode"))) -;;;###autoload(put 'git-commit-major-mode 'safe-local-variable -;;;###autoload (lambda (val) -;;;###autoload (memq val '(text-mode -;;;###autoload markdown-mode -;;;###autoload org-mode -;;;###autoload fundamental-mode -;;;###autoload git-commit-elisp-text-mode)))) - -(defcustom git-commit-setup-hook - '(git-commit-save-message - git-commit-setup-changelog-support - git-commit-turn-on-auto-fill - git-commit-propertize-diff - bug-reference-mode - with-editor-usage-message) - "Hook run at the end of `git-commit-setup'." - :group 'git-commit - :type 'hook - :get (and (featurep 'magit-utils) 'magit-hook-custom-get) - :options '(git-commit-save-message - git-commit-setup-changelog-support - magit-generate-changelog - git-commit-turn-on-auto-fill - git-commit-turn-on-flyspell - git-commit-propertize-diff - bug-reference-mode - with-editor-usage-message)) - -(defcustom git-commit-post-finish-hook nil - "Hook run after the user finished writing a commit message. - -\\\ -This hook is only run after pressing \\[with-editor-finish] in a buffer used -to edit a commit message. If a commit is created without the -user typing a message into a buffer, then this hook is not run. - -This hook is not run until the new commit has been created. If -doing so takes Git longer than one second, then this hook isn't -run at all. For certain commands such as `magit-rebase-continue' -this hook is never run because doing so would lead to a race -condition. - -This hook is only run if `magit' is available. - -Also see `magit-post-commit-hook'." - :group 'git-commit - :type 'hook - :get (and (featurep 'magit-utils) 'magit-hook-custom-get)) - -(defcustom git-commit-finish-query-functions - '(git-commit-check-style-conventions) - "List of functions called to query before performing commit. - -The commit message buffer is current while the functions are -called. If any of them returns nil, then the commit is not -performed and the buffer is not killed. The user should then -fix the issue and try again. - -The functions are called with one argument. If it is non-nil, -then that indicates that the user used a prefix argument to -force finishing the session despite issues. Functions should -usually honor this wish and return non-nil." - :options '(git-commit-check-style-conventions) - :type 'hook - :group 'git-commit) - -(defcustom git-commit-style-convention-checks '(non-empty-second-line) - "List of checks performed by `git-commit-check-style-conventions'. -Valid members are `non-empty-second-line' and `overlong-summary-line'. -That function is a member of `git-commit-finish-query-functions'." - :options '(non-empty-second-line overlong-summary-line) - :type '(list :convert-widget custom-hook-convert-widget) - :group 'git-commit) - -(defcustom git-commit-summary-max-length 68 - "Column beyond which characters in the summary lines are highlighted. - -The highlighting indicates that the summary is getting too long -by some standards. It does in no way imply that going over the -limit a few characters or in some cases even many characters is -anything that deserves shaming. It's just a friendly reminder -that if you can make the summary shorter, then you might want -to consider doing so." - :group 'git-commit - :safe 'numberp - :type 'number) - -(defcustom git-commit-fill-column nil - "Override `fill-column' in commit message buffers. - -If this is non-nil, then it should be an integer. If that is the -case and the buffer-local value of `fill-column' is not already -set by the time `git-commit-turn-on-auto-fill' is called as a -member of `git-commit-setup-hook', then that function sets the -buffer-local value of `fill-column' to the value of this option. - -This option exists mostly for historic reasons. If you are not -already using it, then you probably shouldn't start doing so." - :group 'git-commit - :safe 'numberp - :type '(choice (const :tag "use regular fill-column") - number)) - -(make-obsolete-variable 'git-commit-fill-column 'fill-column - "Magit 2.11.0" 'set) - -(defcustom git-commit-known-pseudo-headers - '("Signed-off-by" "Acked-by" "Modified-by" "Cc" - "Suggested-by" "Reported-by" "Tested-by" "Reviewed-by" - "Co-authored-by") - "A list of Git pseudo headers to be highlighted." - :group 'git-commit - :safe (lambda (val) (and (listp val) (-all-p 'stringp val))) - :type '(repeat string)) - -(defcustom git-commit-use-local-message-ring nil - "Whether to use a local message ring instead of the global one. -This can be set globally, in which case every repository gets its -own commit message ring, or locally for a single repository. If -Magit isn't available, then setting this to a non-nil value has -no effect." - :group 'git-commit - :safe 'booleanp - :type 'boolean) - -;;;; Faces - -(defgroup git-commit-faces nil - "Faces used for highlighting Git commit messages." - :prefix "git-commit-" - :group 'git-commit - :group 'faces) - -(defface git-commit-summary - '((t :inherit font-lock-type-face)) - "Face used for the summary in commit messages." - :group 'git-commit-faces) - -(defface git-commit-overlong-summary - '((t :inherit font-lock-warning-face)) - "Face used for the tail of overlong commit message summaries." - :group 'git-commit-faces) - -(defface git-commit-nonempty-second-line - '((t :inherit font-lock-warning-face)) - "Face used for non-whitespace on the second line of commit messages." - :group 'git-commit-faces) - -(defface git-commit-keyword - '((t :inherit font-lock-string-face)) - "Face used for keywords in commit messages. -In this context a \"keyword\" is text surrounded by brackets." - :group 'git-commit-faces) - -(define-obsolete-face-alias 'git-commit-note - 'git-commit-keyword "Git-Commit 3.0.0") - -(defface git-commit-pseudo-header - '((t :inherit font-lock-string-face)) - "Face used for pseudo headers in commit messages." - :group 'git-commit-faces) - -(defface git-commit-known-pseudo-header - '((t :inherit font-lock-keyword-face)) - "Face used for the keywords of known pseudo headers in commit messages." - :group 'git-commit-faces) - -(defface git-commit-comment-branch-local - (if (featurep 'magit) - '((t :inherit magit-branch-local)) - '((t :inherit font-lock-variable-name-face))) - "Face used for names of local branches in commit message comments." - :group 'git-commit-faces) - -(define-obsolete-face-alias 'git-commit-comment-branch - 'git-commit-comment-branch-local "Git-Commit 2.12.0") - -(defface git-commit-comment-branch-remote - (if (featurep 'magit) - '((t :inherit magit-branch-remote)) - '((t :inherit font-lock-variable-name-face))) - "Face used for names of remote branches in commit message comments. -This is only used if Magit is available." - :group 'git-commit-faces) - -(defface git-commit-comment-detached - '((t :inherit git-commit-comment-branch-local)) - "Face used for detached `HEAD' in commit message comments." - :group 'git-commit-faces) - -(defface git-commit-comment-heading - '((t :inherit git-commit-known-pseudo-header)) - "Face used for headings in commit message comments." - :group 'git-commit-faces) - -(defface git-commit-comment-file - '((t :inherit git-commit-pseudo-header)) - "Face used for file names in commit message comments." - :group 'git-commit-faces) - -(defface git-commit-comment-action - '((t :inherit bold)) - "Face used for actions in commit message comments." - :group 'git-commit-faces) - -;;; Keymap - -(defvar git-commit-mode-map - (let ((map (make-sparse-keymap))) - (define-key map (kbd "M-p") 'git-commit-prev-message) - (define-key map (kbd "M-n") 'git-commit-next-message) - (define-key map (kbd "C-c C-i") 'git-commit-insert-pseudo-header) - (define-key map (kbd "C-c C-a") 'git-commit-ack) - (define-key map (kbd "C-c M-i") 'git-commit-suggested) - (define-key map (kbd "C-c C-m") 'git-commit-modified) - (define-key map (kbd "C-c C-o") 'git-commit-cc) - (define-key map (kbd "C-c C-p") 'git-commit-reported) - (define-key map (kbd "C-c C-r") 'git-commit-review) - (define-key map (kbd "C-c C-s") 'git-commit-signoff) - (define-key map (kbd "C-c C-t") 'git-commit-test) - (define-key map (kbd "C-c M-s") 'git-commit-save-message) - map) - "Key map used by `git-commit-mode'.") - -;;; Menu - -(require 'easymenu) -(easy-menu-define git-commit-mode-menu git-commit-mode-map - "Git Commit Mode Menu" - '("Commit" - ["Previous" git-commit-prev-message t] - ["Next" git-commit-next-message t] - "-" - ["Ack" git-commit-ack :active t - :help "Insert an 'Acked-by' header"] - ["Sign-Off" git-commit-signoff :active t - :help "Insert a 'Signed-off-by' header"] - ["Modified-by" git-commit-modified :active t - :help "Insert a 'Modified-by' header"] - ["Tested-by" git-commit-test :active t - :help "Insert a 'Tested-by' header"] - ["Reviewed-by" git-commit-review :active t - :help "Insert a 'Reviewed-by' header"] - ["CC" git-commit-cc t - :help "Insert a 'Cc' header"] - ["Reported" git-commit-reported :active t - :help "Insert a 'Reported-by' header"] - ["Suggested" git-commit-suggested t - :help "Insert a 'Suggested-by' header"] - ["Co-authored-by" git-commit-co-authored t - :help "Insert a 'Co-authored-by' header"] - "-" - ["Save" git-commit-save-message t] - ["Cancel" with-editor-cancel t] - ["Commit" with-editor-finish t])) - -;;; Hooks - -(defconst git-commit-filename-regexp "/\$\ -\\(\\(COMMIT\\|NOTES\\|PULLREQ\\|MERGEREQ\\|TAG\$_EDIT\\|MERGE_\\|\\)MSG\ -\\|\$BRANCH\\|EDIT\$_DESCRIPTION\\)\\'") - -(with-eval-after-load 'recentf - (add-to-list 'recentf-exclude git-commit-filename-regexp)) - -(add-to-list 'with-editor-file-name-history-exclude git-commit-filename-regexp) - -(defun git-commit-setup-font-lock-in-buffer () - (and buffer-file-name - (string-match-p git-commit-filename-regexp buffer-file-name) - (git-commit-setup-font-lock))) - -(add-hook 'after-change-major-mode-hook 'git-commit-setup-font-lock-in-buffer) - -(defun git-commit-setup-check-buffer () - (and buffer-file-name - (string-match-p git-commit-filename-regexp buffer-file-name) - (git-commit-setup))) - -(defvar git-commit-mode) - -(defun git-commit-file-not-found () - ;; cygwin git will pass a cygwin path (/cygdrive/c/foo/.git/...), - ;; try to handle this in window-nt Emacs. - (--when-let - (and (or (string-match-p git-commit-filename-regexp buffer-file-name) - (and (boundp 'git-rebase-filename-regexp) - (string-match-p git-rebase-filename-regexp - buffer-file-name))) - (not (file-accessible-directory-p - (file-name-directory buffer-file-name))) - (if (require 'magit-git nil t) - ;; Emacs prepends a "c:". - (magit-expand-git-file-name (substring buffer-file-name 2)) - ;; Fallback if we can't load `magit-git'. - (and (string-match "\\`[a-z]:/\$cygdrive/\$?\$[a-z]\$/\$.*\$" - buffer-file-name) - (concat (match-string 2 buffer-file-name) ":/" - (match-string 3 buffer-file-name))))) - (when (file-accessible-directory-p (file-name-directory it)) - (let ((inhibit-read-only t)) - (insert-file-contents it t) - t)))) - -(when (eq system-type 'windows-nt) - (add-hook 'find-file-not-found-functions #'git-commit-file-not-found)) - -(defconst git-commit-usage-message "\ -Type \\[with-editor-finish] to finish, \ -\\[with-editor-cancel] to cancel, and \ -\\[git-commit-prev-message] and \\[git-commit-next-message] \ -to recover older messages") - -(defun git-commit-setup () - (when (fboundp 'magit-toplevel) - ;; `magit-toplevel' is autoloaded and defined in magit-git.el, - ;; That library declares this functions without loading - ;; magit-process.el, which defines it. - (require 'magit-process nil t)) - (when git-commit-major-mode - (let ((auto-mode-alist (list (cons (concat "\\`" - (regexp-quote buffer-file-name) - "\\'") - git-commit-major-mode))) - ;; The major-mode hook might want to consult these minor - ;; modes, while the minor-mode hooks might want to consider - ;; the major mode. - (git-commit-mode t) - (with-editor-mode t)) - (normal-mode t))) - ;; Pretend that git-commit-mode is a major-mode, - ;; so that directory-local settings can be used. - (let ((default-directory - (or (and (not (file-exists-p ".dir-locals.el")) - ;; When $GIT_DIR/.dir-locals.el doesn't exist, - ;; fallback to $GIT_WORK_TREE/.dir-locals.el, - ;; because the maintainer can use the latter - ;; to enforce conventions, while s/he has no - ;; control over the former. - (fboundp 'magit-toplevel) ; silence byte-compiler - (magit-toplevel)) - default-directory))) - (let ((buffer-file-name nil) ; trick hack-dir-local-variables - (major-mode 'git-commit-mode)) ; trick dir-locals-collect-variables - (hack-dir-local-variables) - (hack-local-variables-apply))) - ;; Show our own message using our hook. - (setq with-editor-show-usage nil) - (setq with-editor-usage-message git-commit-usage-message) - (unless with-editor-mode - ;; Maybe already enabled when using `shell-command' or an Emacs shell. - (with-editor-mode 1)) - (add-hook 'with-editor-finish-query-functions - 'git-commit-finish-query-functions nil t) - (add-hook 'with-editor-pre-finish-hook - 'git-commit-save-message nil t) - (add-hook 'with-editor-pre-cancel-hook - 'git-commit-save-message nil t) - (when (and (fboundp 'magit-rev-parse) - (not (memq last-command - '(magit-sequencer-continue - magit-sequencer-skip - magit-am-continue - magit-am-skip - magit-rebase-continue - magit-rebase-skip)))) - (add-hook 'with-editor-post-finish-hook - (apply-partially 'git-commit-run-post-finish-hook - (magit-rev-parse "HEAD")) - nil t) - (when (fboundp 'magit-wip-maybe-add-commit-hook) - (magit-wip-maybe-add-commit-hook))) - (setq with-editor-cancel-message - 'git-commit-cancel-message) - (git-commit-mode 1) - (git-commit-setup-font-lock) - (git-commit-prepare-message-ring) - (when (boundp 'save-place) - (setq save-place nil)) - (save-excursion - (goto-char (point-min)) - (when (looking-at "\\`\$\\'\\|\n[^\n]\$") - (open-line 1))) - (with-demoted-errors "Error running git-commit-setup-hook: %S" - (run-hooks 'git-commit-setup-hook)) - (set-buffer-modified-p nil)) - -(defun git-commit-run-post-finish-hook (previous) - (when (and git-commit-post-finish-hook - (require 'magit nil t) - (fboundp 'magit-rev-parse)) - (cl-block nil - (let ((break (time-add (current-time) - (seconds-to-time 1)))) - (while (equal (magit-rev-parse "HEAD") previous) - (if (time-less-p (current-time) break) - (sit-for 0.01) - (message "No commit created after 1 second. Not running %s." - 'git-commit-post-finish-hook) - (cl-return)))) - (run-hooks 'git-commit-post-finish-hook)))) - -(define-minor-mode git-commit-mode - "Auxiliary minor mode used when editing Git commit messages. -This mode is only responsible for setting up some key bindings. -Don't use it directly, instead enable `global-git-commit-mode'." - :lighter "") - -(put 'git-commit-mode 'permanent-local t) - -(defun git-commit-setup-changelog-support () - "Treat ChangeLog entries as unindented paragraphs." - (when (fboundp 'log-indent-fill-entry) ; New in Emacs 27. - (setq-local fill-paragraph-function #'log-indent-fill-entry)) - (setq-local fill-indent-according-to-mode t) - (setq-local paragraph-start (concat paragraph-start "\\|\\*\\|("))) - -(defun git-commit-turn-on-auto-fill () - "Unconditionally turn on Auto Fill mode. -If `git-commit-fill-column' is non-nil, and `fill-column' -doesn't already have a buffer-local value, then set that -to `git-commit-fill-column'." - (when (and (numberp git-commit-fill-column) - (not (local-variable-p 'fill-column))) - (setq fill-column git-commit-fill-column)) - (setq-local comment-auto-fill-only-comments nil) - (turn-on-auto-fill)) - -(defun git-commit-turn-on-flyspell () - "Unconditionally turn on Flyspell mode. -Also prevent comments from being checked and -finally check current non-comment text." - (require 'flyspell) - (turn-on-flyspell) - (setq flyspell-generic-check-word-predicate - 'git-commit-flyspell-verify) - (let ((end) - (comment-start-regex (format "^\$%s\\|$\$" comment-start))) - (save-excursion - (goto-char (point-max)) - (while (and (not (bobp)) (looking-at comment-start-regex)) - (forward-line -1)) - (unless (looking-at comment-start-regex) - (forward-line)) - (setq end (point))) - (flyspell-region (point-min) end))) - -(defun git-commit-flyspell-verify () - (not (= (char-after (line-beginning-position)) - (aref comment-start 0)))) - -(defun git-commit-finish-query-functions (force) - (run-hook-with-args-until-failure - 'git-commit-finish-query-functions force)) - -(defun git-commit-check-style-conventions (force) - "Check for violations of certain basic style conventions. - -For each violation ask the user if she wants to proceed anyway. -Option `git-commit-style-convention-checks' controls which -conventions are checked." - (or force - (save-excursion - (goto-char (point-min)) - (re-search-forward (git-commit-summary-regexp) nil t) - (if (equal (match-string 1) "") - t ; Just try; we don't know whether --allow-empty-message was used. - (and (or (not (memq 'overlong-summary-line - git-commit-style-convention-checks)) - (equal (match-string 2) "") - (y-or-n-p "Summary line is too long. Commit anyway? ")) - (or (not (memq 'non-empty-second-line - git-commit-style-convention-checks)) - (not (match-string 3)) - (y-or-n-p "Second line is not empty. Commit anyway? "))))))) - -(defun git-commit-cancel-message () - (message - (concat "Commit canceled" - (and (memq 'git-commit-save-message with-editor-pre-cancel-hook) - ". Message saved to `log-edit-comment-ring'")))) - -;;; History - -(defun git-commit-prev-message (arg) - "Cycle backward through message history, after saving current message. -With a numeric prefix ARG, go back ARG comments." - (interactive "*p") - (let ((len (ring-length log-edit-comment-ring))) - (if (<= len 0) - (progn (message "Empty comment ring") (ding)) - ;; Unlike `log-edit-previous-comment' we save the current - ;; non-empty and newly written comment, because otherwise - ;; it would be irreversibly lost. - (when-let ((message (git-commit-buffer-message))) - (unless (ring-member log-edit-comment-ring message) - (ring-insert log-edit-comment-ring message) - (cl-incf arg) - (setq len (ring-length log-edit-comment-ring)))) - ;; Delete the message but not the instructions at the end. - (save-restriction - (goto-char (point-min)) - (narrow-to-region - (point) - (if (re-search-forward (concat "^" comment-start) nil t) - (max 1 (- (point) 2)) - (point-max))) - (delete-region (point-min) (point))) - (setq log-edit-comment-ring-index (log-edit-new-comment-index arg len)) - (message "Comment %d" (1+ log-edit-comment-ring-index)) - (insert (ring-ref log-edit-comment-ring log-edit-comment-ring-index))))) - -(defun git-commit-next-message (arg) - "Cycle forward through message history, after saving current message. -With a numeric prefix ARG, go forward ARG comments." - (interactive "*p") - (git-commit-prev-message (- arg))) - -(defun git-commit-save-message () - "Save current message to `log-edit-comment-ring'." - (interactive) - (when-let ((message (git-commit-buffer-message))) - (when-let ((index (ring-member log-edit-comment-ring message))) - (ring-remove log-edit-comment-ring index)) - (ring-insert log-edit-comment-ring message) - (when (and git-commit-use-local-message-ring - (fboundp 'magit-repository-local-set)) - (magit-repository-local-set 'log-edit-comment-ring - log-edit-comment-ring)))) - -(defun git-commit-prepare-message-ring () - (make-local-variable 'log-edit-comment-ring-index) - (when (and git-commit-use-local-message-ring - (fboundp 'magit-repository-local-get)) - (setq-local log-edit-comment-ring - (magit-repository-local-get - 'log-edit-comment-ring - (make-ring log-edit-maximum-comment-ring-size))))) - -(defun git-commit-buffer-message () - (let ((flush (concat "^" comment-start)) - (str (buffer-substring-no-properties (point-min) (point-max)))) - (with-temp-buffer - (insert str) - (goto-char (point-min)) - (when (re-search-forward (concat flush " -+ >8 -+$") nil t) - (delete-region (point-at-bol) (point-max))) - (goto-char (point-min)) - (flush-lines flush) - (goto-char (point-max)) - (unless (eq (char-before) ?\n) - (insert ?\n)) - (setq str (buffer-string))) - (unless (string-match "\\`[ \t\n\r]*\\'" str) - (when (string-match "\\`\n\\{2,\\}" str) - (setq str (replace-match "\n" t t str))) - (when (string-match "\n\\{2,\\}\\'" str) - (setq str (replace-match "\n" t t str))) - str))) - -;;; Headers - -(transient-define-prefix git-commit-insert-pseudo-header () - "Insert a commit message pseudo header." - [["Insert ... by yourself" - ("a" "Ack" git-commit-ack) - ("m" "Modified" git-commit-modified) - ("r" "Reviewed" git-commit-review) - ("s" "Signed-off" git-commit-signoff) - ("t" "Tested" git-commit-test)] - ["Insert ... by someone" - ("C-c" "Cc" git-commit-cc) - ("C-r" "Reported" git-commit-reported) - ("C-i" "Suggested" git-commit-suggested) - ("C-a" "Co-authored" git-commit-co-authored)]]) - -(defun git-commit-ack (name mail) - "Insert a header acknowledging that you have looked at the commit." - (interactive (git-commit-self-ident)) - (git-commit-insert-header "Acked-by" name mail)) - -(defun git-commit-modified (name mail) - "Insert a header to signal that you have modified the commit." - (interactive (git-commit-self-ident)) - (git-commit-insert-header "Modified-by" name mail)) - -(defun git-commit-review (name mail) - "Insert a header acknowledging that you have reviewed the commit." - (interactive (git-commit-self-ident)) - (git-commit-insert-header "Reviewed-by" name mail)) - -(defun git-commit-signoff (name mail) - "Insert a header to sign off the commit." - (interactive (git-commit-self-ident)) - (git-commit-insert-header "Signed-off-by" name mail)) - -(defun git-commit-test (name mail) - "Insert a header acknowledging that you have tested the commit." - (interactive (git-commit-self-ident)) - (git-commit-insert-header "Tested-by" name mail)) - -(defun git-commit-cc (name mail) - "Insert a header mentioning someone who might be interested." - (interactive (git-commit-read-ident "Cc")) - (git-commit-insert-header "Cc" name mail)) - -(defun git-commit-reported (name mail) - "Insert a header mentioning the person who reported the issue." - (interactive (git-commit-read-ident "Reported-by")) - (git-commit-insert-header "Reported-by" name mail)) - -(defun git-commit-suggested (name mail) - "Insert a header mentioning the person who suggested the change." - (interactive (git-commit-read-ident "Suggested-by")) - (git-commit-insert-header "Suggested-by" name mail)) - -(defun git-commit-co-authored (name mail) - "Insert a header mentioning the person who co-authored the commit." - (interactive (git-commit-read-ident "Co-authored-by")) - (git-commit-insert-header "Co-authored-by" name mail)) - -(defun git-commit-self-ident () - (list (or (getenv "GIT_AUTHOR_NAME") - (getenv "GIT_COMMITTER_NAME") - (ignore-errors (car (process-lines "git" "config" "user.name"))) - user-full-name - (read-string "Name: ")) - (or (getenv "GIT_AUTHOR_EMAIL") - (getenv "GIT_COMMITTER_EMAIL") - (getenv "EMAIL") - (ignore-errors (car (process-lines "git" "config" "user.email"))) - (read-string "Email: ")))) - -(defvar git-commit-read-ident-history nil) - -(defun git-commit-read-ident (prompt) - (if (require 'magit-git nil t) - (let ((str (magit-completing-read - prompt - (sort (delete-dups - (magit-git-lines "log" "-n9999" "--format=%aN <%ae>")) - 'string<) - nil nil nil 'git-commit-read-ident-history))) - (save-match-data - (if (string-match "\\`\$[^<]+\$ *<\$[^>]+\$>\\'" str) - (list (save-match-data (string-trim (match-string 1 str))) - (string-trim (match-string 2 str))) - (user-error "Invalid input")))) - (list (read-string "Name: ") - (read-string "Email: ")))) - -(defun git-commit-insert-header (header name email) - (setq header (format "%s: %s <%s>" header name email)) - (save-excursion - (goto-char (point-max)) - (cond ((re-search-backward "^[-a-zA-Z]+: [^<]+? <[^>]+>" nil t) - (end-of-line) - (insert ?\n header) - (unless (= (char-after) ?\n) - (insert ?\n))) - (t - (while (re-search-backward (concat "^" comment-start) nil t)) - (unless (looking-back "\n\n" nil) - (insert ?\n)) - (insert header ?\n))) - (unless (or (eobp) (= (char-after) ?\n)) - (insert ?\n)))) - -;;; Font-Lock - -(defvar-local git-commit-need-summary-line t - "Whether the text should have a heading that is separated from the body. - -For commit messages that is a convention that should not -be violated. For notes it is up to the user. If you do -not want to insist on an empty second line here, then use -something like: - - (add-hook \\='git-commit-setup-hook - (lambda () - (when (equal (file-name-nondirectory (buffer-file-name)) - \"NOTES_EDITMSG\") - (setq git-commit-need-summary-line nil))))") - -(defun git-commit-summary-regexp () - (if git-commit-need-summary-line - (concat - ;; Leading empty lines and comments - (format "\\`\$?:^\\(?:\\s-*\\|%s.*\$\n\\)*" comment-start) - ;; Summary line - (format "\$.\\{0,%d\\}\$\$.*\$" git-commit-summary-max-length) - ;; Non-empty non-comment second line - (format "\$?:\n%s\\|\n\\(.+\$\\)?" comment-start)) - "\$EASTER\$ \$EGG\$")) - -(defun git-commit-extend-region-summary-line () - "Identify the multiline summary-regexp construct. -Added to `font-lock-extend-region-functions'." - (save-excursion - (save-match-data - (goto-char (point-min)) - (when (looking-at (git-commit-summary-regexp)) - (let ((summary-beg (match-beginning 0)) - (summary-end (match-end 0))) - (when (or (< summary-beg font-lock-beg summary-end) - (< summary-beg font-lock-end summary-end)) - (setq font-lock-beg (min font-lock-beg summary-beg)) - (setq font-lock-end (max font-lock-end summary-end)))))))) - -(defvar-local git-commit--branch-name-regexp nil) - -(defconst git-commit-comment-headings - '("Changes to be committed:" - "Untracked files:" - "Changed but not updated:" - "Changes not staged for commit:" - "Unmerged paths:" - "Author:" - "Date:") - "Also fontified outside of comments in `git-commit-font-lock-keywords-2'.") - -(defconst git-commit-font-lock-keywords-1 - '(;; Pseudo headers - (eval . `(,(format "^\$%s:\$\$ .*\$" - (regexp-opt git-commit-known-pseudo-headers)) - (1 'git-commit-known-pseudo-header) - (2 'git-commit-pseudo-header))) - ;; Summary - (eval . `(,(git-commit-summary-regexp) - (1 'git-commit-summary))) - ;; - Keyword [aka "text in brackets"] (overrides summary) - ("\\[.+?\\]" - (0 'git-commit-keyword t)) - ;; - Non-empty second line (overrides summary and note) - (eval . `(,(git-commit-summary-regexp) - (2 'git-commit-overlong-summary t t) - (3 'git-commit-nonempty-second-line t t))))) - -(defconst git-commit-font-lock-keywords-2 - `(,@git-commit-font-lock-keywords-1 - ;; Comments - (eval . `(,(format "^%s.*" comment-start) - (0 'font-lock-comment-face append))) - (eval . `(,(format "^%s On branch \$.*\$" comment-start) - (1 'git-commit-comment-branch-local t))) - (eval . `(,(format "^%s \$HEAD\$ detached at" comment-start) - (1 'git-commit-comment-detached t))) - (eval . `(,(format "^%s %s" comment-start - (regexp-opt git-commit-comment-headings t)) - (1 'git-commit-comment-heading t))) - (eval . `(,(format "^%s\t\$?:\\([^:\n]+\$:\\s-+\\)?\$.*\$" comment-start) - (1 'git-commit-comment-action t t) - (2 'git-commit-comment-file t))) - ;; "commit HASH" - (eval . `(,(rx bol "commit " (1+ alnum) eol) - (0 'git-commit-pseudo-header))) - ;; `git-commit-comment-headings' (but not in commented lines) - (eval . `(,(rx-to-string `(seq bol (or ,@git-commit-comment-headings) (1+ blank) (1+ nonl) eol)) - (0 'git-commit-pseudo-header))))) - -(defconst git-commit-font-lock-keywords-3 - `(,@git-commit-font-lock-keywords-2 - ;; More comments - (eval - ;; Your branch is ahead of 'master' by 3 commits. - ;; Your branch is behind 'master' by 2 commits, and can be fast-forwarded. - . `(,(format - "^%s Your branch is \$?:ahead\\|behind\$ of '%s' by \$[0-9]*\$" - comment-start git-commit--branch-name-regexp) - (1 'git-commit-comment-branch-local t) - (2 'git-commit-comment-branch-remote t) - (3 'bold t))) - (eval - ;; Your branch is up to date with 'master'. - ;; Your branch and 'master' have diverged, - . `(,(format - "^%s Your branch \$?:is up[- ]to[- ]date with\\|and\$ '%s'" - comment-start git-commit--branch-name-regexp) - (1 'git-commit-comment-branch-local t) - (2 'git-commit-comment-branch-remote t))) - (eval - ;; and have 1 and 2 different commits each, respectively. - . `(,(format - "^%s and have \$[0-9]*\$ and \$[0-9]*\$ commits each" - comment-start) - (1 'bold t) - (2 'bold t))))) - -(defvar git-commit-font-lock-keywords git-commit-font-lock-keywords-3 - "Font-Lock keywords for Git-Commit mode.") - -(defun git-commit-setup-font-lock () - (let ((table (make-syntax-table (syntax-table)))) - (when comment-start - (modify-syntax-entry (string-to-char comment-start) "." table)) - (modify-syntax-entry ?# "." table) - (modify-syntax-entry ?\" "." table) - (modify-syntax-entry ?\' "." table) - (modify-syntax-entry ?` "." table) - (set-syntax-table table)) - (setq-local comment-start - (or (with-temp-buffer - (call-process "git" nil (current-buffer) nil - "config" "core.commentchar") - (unless (bobp) - (goto-char (point-min)) - (buffer-substring (point) (line-end-position)))) - "#")) - (setq-local comment-start-skip (format "^%s+[\s\t]*" comment-start)) - (setq-local comment-end-skip "\n") - (setq-local comment-use-syntax nil) - (setq-local git-commit--branch-name-regexp - (if (and (featurep 'magit-git) - ;; When using cygwin git, we may end up in a - ;; non-existing directory, which would cause - ;; any git calls to signal an error. - (file-accessible-directory-p default-directory)) - (progn - ;; Make sure the below functions are available. - (require 'magit) - ;; Font-Lock wants every submatch to succeed, so - ;; also match the empty string. Avoid listing - ;; remote branches and using `regexp-quote', - ;; because in repositories have thousands of - ;; branches that would be very slow. See #4353. - (format "\$\\(?:%s\$\\|\\)\$[^']+\$" - (mapconcat #'identity - (magit-list-local-branch-names) - "\\|"))) - "\$[^']*\$")) - (setq-local font-lock-multiline t) - (add-hook 'font-lock-extend-region-functions - #'git-commit-extend-region-summary-line - t t) - (font-lock-add-keywords nil git-commit-font-lock-keywords)) - -(defun git-commit-propertize-diff () - (require 'diff-mode) - (save-excursion - (goto-char (point-min)) - (when (re-search-forward "^diff --git" nil t) - (beginning-of-line) - (let ((buffer (current-buffer))) - (insert - (with-temp-buffer - (insert - (with-current-buffer buffer - (prog1 (buffer-substring-no-properties (point) (point-max)) - (delete-region (point) (point-max))))) - (let ((diff-default-read-only nil)) - (diff-mode)) - (let (font-lock-verbose font-lock-support-mode) - (if (fboundp 'font-lock-ensure) - (font-lock-ensure) - (with-no-warnings - (font-lock-fontify-buffer)))) - (let (next (pos (point-min))) - (while (setq next (next-single-property-change pos 'face)) - (put-text-property pos next 'font-lock-face - (get-text-property pos 'face)) - (setq pos next)) - (put-text-property pos (point-max) 'font-lock-face - (get-text-property pos 'face))) - (buffer-string))))))) - -;;; Elisp Text Mode - -(define-derived-mode git-commit-elisp-text-mode text-mode "ElText" - "Major mode for editing commit messages of elisp projects. -This is intended for use as `git-commit-major-mode' for projects -that expect `symbols' to look like this. I.e. like they look in -Elisp doc-strings, including this one. Unlike in doc-strings, -\"strings\" also look different than the other text." - (setq font-lock-defaults '(git-commit-elisp-text-mode-keywords))) - -(defvar git-commit-elisp-text-mode-keywords - `((,(concat "[`‘]\$" lisp-mode-symbol-regexp "\$['’]") - (1 font-lock-constant-face prepend)) - ("\"[^\"]*\"" (0 font-lock-string-face prepend)))) - -;;; _ -(provide 'git-commit) -;;; git-commit.el ends here blob - 6706a134b1fd441b2ec40444d3d802a04ce95138 (mode 644) blob + /dev/null --- elpa/git-commit-3.3.0.signed +++ /dev/null @@ -1 +0,0 @@ -Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) (trust undefined) created at 2021-10-04T23:05:04+0200 using RSA \ No newline at end of file blob - 898e8549067249061c4dcdff81de6b0b16ae7d4d (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/.github/workflows/emacs.yml +++ /dev/null @@ -1,17 +0,0 @@ -name: Emacs CI -on: [push, pull_request] -jobs: - - test: - name: Test - runs-on: ubuntu-latest - timeout-minutes: 5 - steps: - - name: Install emacs - run: sudo apt-get update && sudo apt-get install -y emacs - - - name: Check out code into the Go module directory - uses: actions/checkout@v1 - - - name: Test - run: cd test; emacs --batch -q -l ert -l ../go-mode.el $(for t in *-test.el; do echo -n "-l $t "; done) -f ert-run-tests-batch-and-exit blob - 66cb811a82f330f34368b725de85430aa3f31530 (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/.mailmap +++ /dev/null @@ -1 +0,0 @@ -Dominik Honnef

blob - df4d9886afbce268e2a16db51fb0b80500c21c2b (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/AUTHORS +++ /dev/null @@ -1,50 +0,0 @@ -Aaron France -Alan Donovan -Alan Donovan -Andrew Gerrand -Austin Clements -Ben Fried -Bobby Powers -Charles Lee -Daniel Morsing -Dominik Honnef -Dominik Honnef -Eric Eisner -Erin Keenan -Evan Martin -Felix Lange -Florian Weimer -Istvan Marko -Iwasaki Yudai -James Aguilar -Jan Newmarch -Jean-Marc Eurin -Jeff Hodges -Juergen Hoetzel -Kevin Ballard -Konstantin Shaposhnikov -Lowe Thiderman -Mark Petrovic -Mats Lidell -Matt Armstrong -Peter Kleiweg -Philipp Stephani -Quan Yong Zhai -Robert Zaremba -Rui Ueyama -Russ Cox -Ryan Barrett -Rüdiger Sonderfeld -Sameer Ajmani -Scott Lawrence -Steven Elliot Harris -Syohei YOSHIDA -Taiki Sugawara -Viacheslav Chimishuk -Will -Yasuyuki Oka -Yutian Li -Zac Bergquist -kostya-sh -nverno -nwidger blob - ecdcbb85738ed5199b64d75771f6c1afa06440d0 (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/AUTHORS.old +++ /dev/null @@ -1,31 +0,0 @@ -# This file contains all the authors that contributed to go-mode while -# it was still part of the Go distribution. Most of these authors are -# not tracked in this repository's history. For a complete list of -# authors, see the AUTHORS file instead. - -Aaron France -Alan Donovan -Austin Clements -Ben Fried -Bobby Powers -Charles Lee -Dominik Honnef -Eric Eisner -Evan Martin -Florian Weimer -Istvan Marko -James Aguilar -Jan Newmarch -Jean-Marc Eurin -Kevin Ballard -Mats Lidell -Peter Kleiweg -Quan Yong Zhai -Robert Zaremba -Rui Ueyama -Russ Cox -Ryan Barrett -Sameer Ajmani -Scott Lawrence -Steven Elliot Harris -Yasuyuki Oka blob - 97e8c61b6ff66b18e578ad90f4cfb3d7f5568e51 (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/LICENSE +++ /dev/null @@ -1,27 +0,0 @@ -Copyright (c) 2014 The go-mode Authors. All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are -met: - - * Redistributions of source code must retain the above copyright -notice, this list of conditions and the following disclaimer. - * Redistributions in binary form must reproduce the above -copyright notice, this list of conditions and the following disclaimer -in the documentation and/or other materials provided with the -distribution. - * Neither the name of the copyright holder nor the names of its -contributors may be used to endorse or promote products derived from -this software without specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. blob - 675655b6296548ee4eb4c3bb6c84038d42d153eb (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/NEWS +++ /dev/null @@ -1,134 +0,0 @@ -go-mode-1.4.0 (2016/05/12) - - * Fix minor bugs in fontification. - - * Use unwind-protect in gofmt, ensuring that temporary files will be - removed in all cases. - - * Improve go-remove-unused-imports: don't fail to remove unused - imports because of compilation errors in other files. - - * Add new commands for jumping to various parts of function - declarations: - - - go-goto-arguments (C-c C-f a) - - go-goto-docstring (C-c C-f d) - - go-goto-function (C-c C-f f) - - go-goto-function-name (C-c C-f n) - - go-goto-return-values (C-c C-f r) - - go-goto-method-receiver (C-c C-f m) - - Thanks to Lowe Thiderman for contributing these commands. - - * Add new customizable variable go-packages-function, which allows - choosing between different ways of finding installed packages. - Currently, go-packages-native (the default) and go-packages-go-list - are provided. - - * Automatically detect if goimports is used instead of gofmt and pass - the -srcdir flag, enabling support for vendoring. - - * Add new customizable variable gofmt-args, a list of strings that - will be passed to gofmt as additional arguments. Primarily this - allows using the -s flag with gofmt. - - * Add detection of GOPATH, Godep, wgo and gb. A new non-interactive - function go-guess-gopath will try a list of functions (the - customizable variable go-guess-gopath-functions) to detect a - suitable value for GOPATH. A new interactive command go-set-project - uses the result of go-guess-gopath to actually set GOPATH. This - interactive function could be used from inside a - projectile-switch-project-hook, directory variables or some other - way of invoking per-project code. - - * Add new command go-reset-gopath, which resets GOPATH to the value - it had when Emacs started. - - * Add customizable variable godoc-command, which allows choosing - between using godoc and go doc, and generally specifying - alternative paths to those tools. - - It defaults to go doc, which differs from prior versions which always - used godoc. - - * Add customizable variable godoc-use-completing-read, which allows - turning on or off the completion of import paths in the godoc - command. This is only really useful when using godoc instead of go - doc, and thus defaults to off. - - * Fix parsing of test output in compilation-mode for new versions of - Emacs. It's probably broken in older versions now. - - * Add support for electric-indent-mode and only reindent for closing - parens, not colons, commas or equal signs. - - * Avoid warnings by the byte compiler -- Use cl-lib instead of cl, - and utilize a macro to conditionally compile fallback code. - - * Use null-device instead of /dev/null to work better on Windows. - - * Add new customizable variable godoc-at-point-function, which allows - choosing between strategies for finding an identifier's - documentation. - - * Add new function godoc-and-godef, which is the default function - used for godoc-at-point and matches the previous behaviour. - - * Add new customizable variable godoc-and-godef-command, which allows - specifying the path to the godoc binary. - - * Add the function godoc-gogetdoc, which provides godoc-at-point - functionality by using the third party tool gogetdoc. - - * The godoc command no longer defaults to the symbol under point. It - rarely defaulted to a useful value. If you're interested in - documentation for the identifier at point, use godoc-at-point - instead. - - * Set compilation-error-screen-columns to nil in go-mode buffers. Go - uses tabs for indentation, and go/parser-based tools emit column - numbers in terms of characters, where a tab is one character wide. - Emacs defaults to interpreting columns as screen columns, where a - tab is tab-width columns wide. This breaks jumping to the right - columns from compilation-mode - - * Use HTTPS when talking to the Go Playground. Not only is it safer, - it is required nowadays. - -go-mode-1.3.1 (2015-07-03) - - * The 1.3.0 release forgot to update the version in the package - metadata. This version fixes that. - -go-mode-1.3.0 (2015-05-03) - - * Add a new minor mode godoc-mode, used instead of view-mode when - displaying godoc output. - -go-mode-1.2.1 (2015-04-10) - - * After using godef-jump, don't temporarily mark old buffer as - active. - -go-mode-1.2.0 (2015/03/22): - - * Add a menu for go-mode. - - * Add a new variable go-play-browsw-function that controls the - behaviour of go-play-region and go-play-buffer. - - * Fix minor bug in fontification. - - * Fix minor bug in go-remove-unused-imports that sometimes prevented - it from removing unused imports. - -go-mode-1.1.0 (2015-02-25): - - * Add a new variable godef-command, allowing customization of the - godef command. - - * Automatically hide the gofmt error window after fixing errors. - -go-mode-1.0.0 (2014-11-28): - - * First release since go-mode was removed from the Go distribution. blob - 854450cce8b65d69abfc7e05eae6e6b2b0c0cd04 (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/README.md +++ /dev/null @@ -1,178 +0,0 @@ -This is go-mode, the Emacs mode for editing Go code. - -It is a complete rewrite of the go-mode that shipped with Go 1.0.3 and -before, and was part of Go 1.1 until Go 1.3. Beginning with Go 1.4, -editor integration will not be part of the Go distribution anymore, -making this repository the canonical place for go-mode. - - -# Features - -In addition to normal features, such as fontification and indentation, -and close integration with familiar Emacs functionality (for example -syntax-based navigation like `beginning-of-defun`), go-mode comes with -the following extra features to provide an improved experience: - -- Integration with `gofmt` by providing a command of the same name, - and `gofmt-before-save`, which can be used in a hook to format Go - buffers before saving them. - - Setting the `gofmt-command` variable also allows using - `goimports`. - - Setting the `gofmt-args` variable with a list of arguments allows - using e.g. `gofmt -s`. -- Integration with `godoc` via the functions `godoc` and - `godoc-at-point`. -- Integration with the Playground - - `go-play-buffer` and `go-play-region` to send code to the - Playground - - `go-download-play` to download a Playground entry into a new - buffer -- Managing imports - - A function for jumping to the file's imports (`go-goto-imports` - - `C-c C-f i`) - - A function for adding imports, including tab completion - (`go-import-add`, bound to `C-c C-a`) - - A function for removing or commenting unused imports - (`go-remove-unused-imports`) - - It is recommended that you use `goimports` or the - `organize-imports` feature of `gopls` to manage - adding/removing/organizing imports automatically. -- Integration with godef - - `godef-describe` (`C-c C-d`) to describe expressions - - `godef-jump` (`C-c C-j`) and `godef-jump-other-window` (`C-x 4 C-c - C-j`) to jump to declarations - - This requires you to install godef via `go get - github.com/rogpeppe/godef`. -- Basic support for imenu (functions and variables) -- Built-in support for displaying code coverage as calculated by `go - test` (`go-coverage`) -- Several functions for jumping to and manipulating the individual - parts of function signatures. These functions support anonymous - functions, but are smart enough to skip them when required (e.g. - when jumping to a method receiver or docstring.) - - Jump to the argument list (`go-goto-arguments` - `C-c C-f a`) - - Jump to the docstring, create it if it does not exist yet - (`go-goto-docstring` - `C-c C-f d`). - - Jump to the function keyword (`go-goto-function` - `C-c C-f f`) - - Jump to the function name (`go-goto-function-name` - `C-c C-f n`) - - Jump to the return values (`go-goto-return-values` - `C-c C-f r`) - - Jump to the method receiver, adding a pair of parentheses if no - method receiver exists (`go-goto-method-receiver` - `C-c C-f m`). - - All of these functions accept a prefix argument (`C-u`), causing - them to skip anonymous functions. -- GOPATH detection – the function `go-guess-gopath` will guess a - suitable value for GOPATH, based on gb or wgo projects, Godeps and - src folders for plain GOPATH workspaces. The command - `go-set-project` uses the return value of `go-guess-gopath` to set - the GOPATH environment variable. - - You can either call `go-set-project` manually, or integrate it with - Projectile's project switching hooks, or any other means of - switching projects you may employ. - -# Installation - -## MELPA - -The recommended way of installing go-mode is via -[ELPA](http://www.emacswiki.org/emacs/ELPA), the Emacs package -manager, and the -[MELPA Stable repository](http://emacsredux.com/blog/2014/05/16/melpa-stable/), which provides -an up-to-date version of go-mode. - -If you're not familiar with ELPA yet, consider reading -[this guide](http://ergoemacs.org/emacs/emacs_package_system.html). - -## Manual - - - -To install go-mode manually, check out the `go-mode.el` repository in -a directory of your choice, add it to your load path and configure -Emacs to automatically load it when opening a `.go` file: - - (add-to-list 'load-path "/place/where/you/put/it/") - (autoload 'go-mode "go-mode" nil t) - (add-to-list 'auto-mode-alist '("\\.go\\'" . go-mode)) - -Either evaluate the statements with `C-x C-e`, or restart Emacs. - -# Other extensions - -There are several third party extensions that can enhance the Go -experience in Emacs. - -## Gopls integration - -[Gopls](https://github.com/golang/tools/blob/master/gopls/README.md) -is the official language server protocol (lsp) implementation provided -by the Go team. It is intended to replace the existing third party -tools for code formatting (gofmt), automatic imports (goimports), code -navigation (godef/guru), type and function descriptions (godoc/godef), -error checking, auto completion (gocode), variable and type renaming -(rename), and more. Once gopls is stable the older tools will no -longer be supported. - -Gopls is a supported backend for -[lsp-mode](https://github.com/emacs-lsp/lsp-mode). It will be used -automatically by lsp-mode if `gopls` is found in your PATH. You can -install gopls via: `go get golang.org/x/tools/gopls@latest`. To enable -lsp-mode for go buffers: - - (add-hook 'go-mode-hook 'lsp-deferred) - - -## Syntax/error checking - -There are two ways of using flymake with Go: - -1. [goflymake](https://github.com/dougm/goflymake), which internally -uses `go build` to capture all errors that a regular compilation would -also produce -2. [flymake-go](http://marmalade-repo.org/packages/flymake-go) for a -more lightweight solution that only uses `gofmt` and as such is only -able to catch syntax errors. Unlike goflymake, however, it does not -require an additional executable. - -Additionally, there is -[flycheck](https://github.com/flycheck/flycheck), a modern replacement -for flymake, which comes with built-in support for Go. In addition to -using `go build` or `gofmt`, it also has support for `go vet`, -`golint` and `errcheck`. - -## Auto completion - -For auto completion, take a look at -[gocode](https://github.com/nsf/gocode). - -## eldoc - -https://github.com/syohex/emacs-go-eldoc provides eldoc functionality -for go-mode. - -## Snippets - -I maintain a set of YASnippet snippets for go-mode at -https://github.com/dominikh/yasnippet-go - -## Integration with errcheck - -https://github.com/dominikh/go-errcheck.el provides integration with -[errcheck](https://github.com/kisielk/errcheck). - -# Stability - -go-mode.el has regular, tagged releases and is part of the MELPA -Stable repository. These tagged releases are intended to provide a -stable experience. APIs added in tagged releases will usually not be -removed or changed in future releases. - -Changes made on the master branch, which is tracked by the normal -MELPA repository, however, are under active development. New APIs are -experimental and may be changed or removed before the next release. -Furthermore, there is a higher chance for bugs. - -If you want a stable experience, use MELPA Stable. If you want cutting -edge features, or "beta-test" future releases, use MELPA or the master -branch. blob - 42bb6d54a910d7677438ae42346430f741ebb4dd (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/go-guru.el +++ /dev/null @@ -1,561 +0,0 @@ -;;; go-guru.el --- Integration of the Go 'guru' analysis tool into Emacs. - -;; Copyright 2016 The Go Authors. All rights reserved. -;; Use of this source code is governed by a BSD-style -;; license that can be found in the LICENSE file. - -;; Version: 0.1 -;; Package-Requires: ((go-mode "1.3.1") (cl-lib "0.5")) -;; Keywords: tools - -;;; Commentary: - -;; To enable the Go guru in Emacs, use this command to download, -;; build, and install the tool in $GOROOT/bin: -;; -;; $ go get golang.org/x/tools/cmd/guru -;; -;; Verify that the tool is on your $PATH: -;; -;; $ guru -help -;; Go source code guru. -;; Usage: guru [flags] -;; ... -;; -;; Then copy this file to a directory on your `load-path', -;; and add this to your ~/.emacs: -;; -;; (require 'go-guru) -;; -;; Inside a buffer of Go source code, select an expression of -;; interest, and type `C-c C-o d' (for "describe") or run one of the -;; other go-guru-xxx commands. If you use `menu-bar-mode', these -;; commands are available from the Guru menu. -;; -;; To enable identifier highlighting mode in a Go source buffer, use: -;; -;; (go-guru-hl-identifier-mode) -;; -;; To enable it automatically in all Go source buffers, -;; add this to your ~/.emacs: -;; -;; (add-hook 'go-mode-hook #'go-guru-hl-identifier-mode) -;; -;; See http://golang.org/s/using-guru for more information about guru. - -;;; Code: - -(require 'compile) -(require 'easymenu) -(require 'go-mode) -(require 'json) -(require 'simple) -(require 'cl-lib) - -(defgroup go-guru nil - "Options specific to the Go guru." - :group 'go) - -(defcustom go-guru-command "guru" - "The Go guru command." - :type 'string - :group 'go-guru) - -(defcustom go-guru-scope "" - "The scope of the analysis. See `go-guru-set-scope'." - :type 'string - :group 'go-guru) - -(defvar go-guru--scope-history - nil - "History of values supplied to `go-guru-set-scope'.") - -(defcustom go-guru-build-tags '() - "Build tags passed to guru." - :type '(repeat string) - :group 'go-guru) - -(defface go-guru-hl-identifier-face - '((t (:inherit highlight))) - "Face used for highlighting identifiers in `go-guru-hl-identifier'." - :group 'go-guru) - -(defcustom go-guru-debug nil - "Print debug messages when running guru." - :type 'boolean - :group 'go-guru) - -(defcustom go-guru-hl-identifier-idle-time 0.5 - "How long to wait after user input before highlighting the current identifier." - :type 'float - :group 'go-guru) - -(defvar go-guru--current-hl-identifier-idle-time - 0 - "The current delay for hl-identifier-mode.") - -(defvar go-guru--hl-identifier-timer - nil - "The global timer used for highlighting identifiers.") - -(defvar go-guru--last-enclosing - nil - "The remaining enclosing regions of the previous go-expand-region invocation.") - -;; Extend go-mode-map. -(let ((m (define-prefix-command 'go-guru-map))) - (define-key m "d" #'go-guru-describe) - (define-key m "f" #'go-guru-freevars) - (define-key m "i" #'go-guru-implements) - (define-key m "c" #'go-guru-peers) ; c for channel - (define-key m "r" #'go-guru-referrers) - (define-key m "j" #'go-guru-definition) ; j for jump - (define-key m "p" #'go-guru-pointsto) - (define-key m "s" #'go-guru-callstack) ; s for stack - (define-key m "e" #'go-guru-whicherrs) ; e for error - (define-key m "<" #'go-guru-callers) - (define-key m ">" #'go-guru-callees) - (define-key m "x" #'go-guru-expand-region)) ;; x for expand - -(define-key go-mode-map (kbd "C-c C-o") 'go-guru-map) - -(easy-menu-define go-guru-mode-menu go-mode-map - "Menu for Go Guru." - '("Guru" - ["Jump to Definition" go-guru-definition t] - ["Show Referrers" go-guru-referrers t] - ["Show Free Names" go-guru-freevars t] - ["Describe Expression" go-guru-describe t] - ["Show Implements" go-guru-implements t] - "---" - ["Show Callers" go-guru-callers t] - ["Show Callees" go-guru-callees t] - ["Show Callstack" go-guru-callstack t] - "---" - ["Show Points-To" go-guru-pointsto t] - ["Show Which Errors" go-guru-whicherrs t] - ["Show Channel Peers" go-guru-peers t] - "---" - ["Set pointer analysis scope..." go-guru-set-scope t])) - -(defun go-guru--read-scope () - "Read go-guru-scope from the minibuffer." - (completing-read-multiple "guru-scope (comma-separated): " - (go-packages) nil nil nil 'go-guru--scope-history)) - -(eval-when-compile (require 'subr-x)) - -;;;###autoload -(defun go-guru-set-scope () - "Set the scope for the Go guru, prompting the user to edit the previous scope. - -The scope restricts analysis to the specified packages. -Its value is a comma-separated list of patterns of these forms: - golang.org/x/tools/cmd/guru # a single package - golang.org/x/tools/... # all packages beneath dir - ... # the entire workspace. - -A pattern preceded by '-' is negative, so the scope - encoding/...,-encoding/xml -matches all encoding packages except encoding/xml." - (interactive) - (let ((scope (go-guru--read-scope))) - (setq go-guru-scope (string-join scope ",")))) - -(defun go-guru--set-scope-if-empty () - (if (string-equal "" go-guru-scope) - (go-guru-set-scope))) - -(defun go-guru--json (mode) - "Execute the Go guru in the specified MODE, passing it the -selected region of the current buffer, requesting JSON output. -Parse and return the resulting JSON object." - ;; A "what" query works even in a buffer without a file name. - (let* ((filename (file-truename (or buffer-file-name "synthetic.go"))) - (cmd (go-guru--command mode filename '("-json"))) - (buf (current-buffer)) - ;; Use temporary buffers to avoid conflict with go-guru--start. - (json-buffer (generate-new-buffer "*go-guru-json-output*")) - (input-buffer (generate-new-buffer "*go-guru-json-input*"))) - (unwind-protect - ;; Run guru, feeding it the input buffer (modified files). - (with-current-buffer input-buffer - (go-guru--insert-modified-files) - (unless (buffer-file-name buf) - (go-guru--insert-modified-file filename buf)) - (let ((exitcode (apply #'call-process-region - (append (list (point-min) - (point-max) - (car cmd) ; guru - nil ; delete - json-buffer ; output - nil) ; display - (cdr cmd))))) ; args - (with-current-buffer json-buffer - (unless (zerop exitcode) - ;; Failed: use buffer contents (sans final \n) as an error. - (error "%s" (buffer-substring (point-min) (1- (point-max))))) - ;; Success: parse JSON. - (goto-char (point-min)) - (json-read)))) - ;; Clean up temporary buffers. - (kill-buffer json-buffer) - (kill-buffer input-buffer)))) - -(define-compilation-mode go-guru-output-mode "Go guru" - "Go guru output mode is a variant of `compilation-mode' for the -output of the Go guru tool." - (set (make-local-variable 'compilation-error-screen-columns) nil) - (set (make-local-variable 'compilation-filter-hook) #'go-guru--compilation-filter-hook) - (set (make-local-variable 'compilation-start-hook) #'go-guru--compilation-start-hook)) - -(defun go-guru--compilation-filter-hook () - "Post-process a blob of input to the go-guru-output buffer." - ;; For readability, truncate each "file:line:col:" prefix to a fixed width. - ;; If the prefix is longer than 20, show "…/last/19chars.go". - ;; This usually includes the last segment of the package name. - ;; Hide the line and column numbers. - (let ((start compilation-filter-start) - (end (point))) - (goto-char start) - (unless (bolp) - ;; TODO(adonovan): not quite right: the filter may be called - ;; with chunks of output containing incomplete lines. Moving to - ;; beginning-of-line may cause duplicate post-processing. - (beginning-of-line)) - (setq start (point)) - (while (< start end) - (let ((p (search-forward ": " end t))) - (if (null p) - (setq start end) ; break out of loop - (setq p (1- p)) ; exclude final space - (let* ((posn (buffer-substring-no-properties start p)) - (flen (cl-search ":" posn)) ; length of filename - (filename (if (< flen 19) - (substring posn 0 flen) - (concat "…" (substring posn (- flen 19) flen))))) - (put-text-property start p 'display filename) - (forward-line 1) - (setq start (point)))))))) - -(defun go-guru--compilation-start-hook (proc) - "Erase default output header inserted by `compilation-mode'." - (with-current-buffer (process-buffer proc) - (let ((inhibit-read-only t)) - (goto-char (point-min)) - (delete-region (point) (point-max))))) - -(defun go-guru--start (mode) - "Start an asynchronous Go guru process for the specified query -MODE, passing it the selected region of the current buffer, and -feeding its standard input with the contents of all modified Go -buffers. Its output is handled by `go-guru-output-mode', a -variant of `compilation-mode'." - (or buffer-file-name - (error "Cannot use guru on a buffer without a file name")) - (let* ((filename (file-truename buffer-file-name)) - (cmd (mapconcat #'shell-quote-argument (go-guru--command mode filename) " ")) - (process-connection-type nil) ; use pipe (not pty) so EOF closes stdin - (procbuf (compilation-start cmd 'go-guru-output-mode))) - (with-current-buffer procbuf - (setq truncate-lines t)) ; the output is neater without line wrapping - (with-current-buffer (get-buffer-create "*go-guru-input*") - (erase-buffer) - (go-guru--insert-modified-files) - (process-send-region procbuf (point-min) (point-max)) - (process-send-eof procbuf)) - procbuf)) - -(defun go-guru--command (mode filename &optional flags) - "Return a command and argument list for a Go guru query of MODE, passing it -the selected region of the current buffer. FILENAME is the -effective name of the current buffer." - (let* ((posn (if (use-region-p) - (format "%s:#%d,#%d" - filename - (1- (position-bytes (region-beginning))) - (1- (position-bytes (region-end)))) - (format "%s:#%d" - filename - (1- (position-bytes (point)))))) - (cmd (append (list go-guru-command - "-modified" - "-scope" go-guru-scope - (format "-tags=%s" (mapconcat 'identity go-guru-build-tags " "))) - flags - (list mode - posn)))) - ;; Log the command to *Messages*, for debugging. - (when go-guru-debug - (message "go-guru--command: %s" cmd) - (message nil)) ; clear/shrink minibuffer - cmd)) - -(defun go-guru--insert-modified-files () - "Insert the contents of each modified Go buffer into the -current buffer in the format specified by guru's -modified flag." - (mapc #'(lambda (b) - (and (buffer-modified-p b) - (buffer-file-name b) - (string= (file-name-extension (buffer-file-name b)) "go") - (go-guru--insert-modified-file (buffer-file-name b) b))) - (buffer-list))) - -(defun go-guru--insert-modified-file (name buffer) - (insert (format "%s\n%d\n" name (go-guru--buffer-size-bytes buffer))) - (insert-buffer-substring buffer)) - -(defun go-guru--buffer-size-bytes (&optional buffer) - "Return the number of bytes in the current buffer. -If BUFFER, return the number of characters in that buffer instead." - (with-current-buffer (or buffer (current-buffer)) - (string-bytes (buffer-substring (point-min) - (point-max))))) - -(defun go-guru--goto-byte (offset) - "Go to the OFFSETth byte in the buffer." - (goto-char (byte-to-position offset))) - -(defun go-guru--goto-byte-column (offset) - "Go to the OFFSETth byte in the current line." - (goto-char (byte-to-position (+ (position-bytes (point-at-bol)) (1- offset))))) - -(defun go-guru--goto-pos (posn other-window) - "Find the file containing the position POSN (of the form `file:line:col') -set the point to it, switching the current buffer." - (let ((file-line-pos (split-string posn ":"))) - (funcall (if other-window #'find-file-other-window #'find-file) (car file-line-pos)) - (goto-char (point-min)) - (forward-line (1- (string-to-number (cadr file-line-pos)))) - (go-guru--goto-byte-column (string-to-number (cl-caddr file-line-pos))))) - -(defun go-guru--goto-pos-no-file (posn) - "Given `file:line:col', go to the line and column. The file -component will be ignored." - (let ((file-line-pos (split-string posn ":"))) - (goto-char (point-min)) - (forward-line (1- (string-to-number (cadr file-line-pos)))) - (go-guru--goto-byte-column (string-to-number (cl-caddr file-line-pos))))) - -;;;###autoload -(defun go-guru-callees () - "Show possible callees of the function call at the current point." - (interactive) - (go-guru--set-scope-if-empty) - (go-guru--start "callees")) - -;;;###autoload -(defun go-guru-callers () - "Show the set of callers of the function containing the current point." - (interactive) - (go-guru--set-scope-if-empty) - (go-guru--start "callers")) - -;;;###autoload -(defun go-guru-callstack () - "Show an arbitrary path from a root of the call graph to the -function containing the current point." - (interactive) - (go-guru--set-scope-if-empty) - (go-guru--start "callstack")) - -;;;###autoload -(defun go-guru-definition (&optional other-window) - "Jump to the definition of the selected identifier." - (interactive) - (or buffer-file-name - (error "Cannot use guru on a buffer without a file name")) - (let* ((res (go-guru--json "definition")) - (desc (cdr (assoc 'desc res)))) - (push-mark) - (if (eval-when-compile (fboundp 'xref-push-marker-stack)) - ;; TODO: Integrate this facility with XRef. - (xref-push-marker-stack) - (ring-insert find-tag-marker-ring (point-marker))) - (go-guru--goto-pos (cdr (assoc 'objpos res)) other-window) - (message "%s" desc))) - -;;;###autoload -(defun go-guru-definition-other-window () - "Jump to the defintion of the selected identifier in another window" - (interactive) - (go-guru-definition t)) - -;;;###autoload -(defun go-guru-describe () - "Describe the selected syntax, its kind, type and methods." - (interactive) - (go-guru--start "describe")) - -;;;###autoload -(defun go-guru-pointsto () - "Show what the selected expression points to." - (interactive) - (go-guru--set-scope-if-empty) - (go-guru--start "pointsto")) - -;;;###autoload -(defun go-guru-implements () - "Describe the 'implements' relation for types in the package -containing the current point." - (interactive) - (go-guru--start "implements")) - -;;;###autoload -(defun go-guru-freevars () - "Enumerate the free variables of the current selection." - (interactive) - (go-guru--start "freevars")) - -;;;###autoload -(defun go-guru-peers () - "Enumerate the set of possible corresponding sends/receives for -this channel receive/send operation." - (interactive) - (go-guru--set-scope-if-empty) - (go-guru--start "peers")) - -;;;###autoload -(defun go-guru-referrers () - "Enumerate all references to the object denoted by the selected -identifier." - (interactive) - (go-guru--start "referrers")) - -;;;###autoload -(defun go-guru-whicherrs () - "Show globals, constants and types to which the selected -expression (of type 'error') may refer." - (interactive) - (go-guru--set-scope-if-empty) - (go-guru--start "whicherrs")) - -(defun go-guru-what () - "Run a 'what' query and return the parsed JSON response as an -association list." - (go-guru--json "what")) - -(defun go-guru--hl-symbols (posn face id) - "Highlight the symbols at the positions POSN by creating -overlays with face FACE. The attribute 'go-guru-overlay on the -overlays will be set to ID." - (save-excursion - (mapc (lambda (pos) - (go-guru--goto-pos-no-file pos) - (let ((x (make-overlay (point) (+ (point) (length (current-word)))))) - (overlay-put x 'go-guru-overlay id) - (overlay-put x 'face face))) - posn))) - -;;;###autoload -(defun go-guru-unhighlight-identifiers () - "Remove highlights from previously highlighted identifier." - (remove-overlays nil nil 'go-guru-overlay 'sameid)) - -;;;###autoload -(defun go-guru-hl-identifier () - "Highlight all instances of the identifier under point. Removes -highlights from previously highlighted identifier." - (interactive) - (go-guru-unhighlight-identifiers) - (go-guru--hl-identifier)) - -;;;###autoload -(define-minor-mode go-guru-hl-identifier-mode - "Highlight instances of the identifier at point after a short -timeout." - :group 'go-guru - (if go-guru-hl-identifier-mode - (progn - (go-guru--hl-set-timer) - ;; Unhighlight if point moves off identifier - (add-hook 'post-command-hook #'go-guru--hl-identifiers-post-command-hook nil t) - ;; Unhighlight any time the buffer changes - (add-hook 'before-change-functions #'go-guru--hl-identifiers-before-change-function nil t)) - (remove-hook 'post-command-hook #'go-guru--hl-identifiers-post-command-hook t) - (remove-hook 'before-change-functions #'go-guru--hl-identifiers-before-change-function t) - (go-guru-unhighlight-identifiers))) - -(defun go-guru--hl-identifier () - "Highlight all instances of the identifier under point." - (let ((posn (cdr (assoc 'sameids (go-guru-what))))) - (go-guru--hl-symbols posn 'go-guru-hl-identifier-face 'sameid))) - -(defun go-guru--hl-identifiers-function () - "Function run after an idle timeout, highlighting the -identifier at point, if necessary." - (when go-guru-hl-identifier-mode - (unless (go-guru--on-overlay-p 'sameid) - ;; Ignore guru errors. Otherwise, we might end up with an error - ;; every time the timer runs, e.g. because of a malformed - ;; buffer. - (condition-case nil - (go-guru-hl-identifier) - (error nil))) - (unless (eq go-guru--current-hl-identifier-idle-time go-guru-hl-identifier-idle-time) - (go-guru--hl-set-timer)))) - -(defun go-guru--hl-set-timer () - (if go-guru--hl-identifier-timer - (cancel-timer go-guru--hl-identifier-timer)) - (setq go-guru--current-hl-identifier-idle-time go-guru-hl-identifier-idle-time) - (setq go-guru--hl-identifier-timer (run-with-idle-timer - go-guru-hl-identifier-idle-time - t - #'go-guru--hl-identifiers-function))) - -(defun go-guru--on-overlay-p (id) - "Return whether point is on a guru overlay of type ID." - (cl-find-if (lambda (el) (eq (overlay-get el 'go-guru-overlay) id)) (overlays-at (point)))) - -(defun go-guru--hl-identifiers-post-command-hook () - (if (and go-guru-hl-identifier-mode - (not (go-guru--on-overlay-p 'sameid))) - (go-guru-unhighlight-identifiers))) - -(defun go-guru--hl-identifiers-before-change-function (_beg _end) - (go-guru-unhighlight-identifiers)) - -;; TODO(dominikh): a future feature may be to cycle through all uses -;; of an identifier. - -(defun go-guru--enclosing () - "Return a list of enclosing regions." - (cdr (assoc 'enclosing (go-guru-what)))) - -(defun go-guru--enclosing-unique () - "Return a list of enclosing regions, with duplicates removed. -Two regions are considered equal if they have the same start and -end point." - (let ((enclosing (go-guru--enclosing))) - (cl-remove-duplicates enclosing - :from-end t - :test (lambda (a b) - (and (= (cdr (assoc 'start a)) - (cdr (assoc 'start b))) - (= (cdr (assoc 'end a)) - (cdr (assoc 'end b)))))))) - -(defun go-guru-expand-region () - "Expand region to the next enclosing syntactic unit." - (interactive) - (let* ((enclosing (if (eq last-command #'go-guru-expand-region) - go-guru--last-enclosing - (go-guru--enclosing-unique))) - (block (if (> (length enclosing) 0) (elt enclosing 0)))) - (when block - (go-guru--goto-byte (1+ (cdr (assoc 'start block)))) - (set-mark (byte-to-position (1+ (cdr (assoc 'end block))))) - (setq go-guru--last-enclosing (cl-subseq enclosing 1)) - (message "Region: %s" (cdr (assoc 'desc block))) - (setq deactivate-mark nil)))) - - -(provide 'go-guru) - -;; Local Variables: -;; indent-tabs-mode: t -;; tab-width: 8 -;; End: - -;;; go-guru.el ends here blob - 6905dc862a1ff308da9400f48441c0f5f2e00d9c (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/go-mode-autoloads.el +++ /dev/null @@ -1,198 +0,0 @@ -;;; go-mode-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- -;; Generated by the `loaddefs-generate' function. - -;; This file is part of GNU Emacs. - -;;; Code: - -(add-to-list 'load-path (or (and load-file-name (file-name-directory load-file-name)) (car load-path))) - - - -;;; Generated autoloads from go-guru.el - -(autoload 'go-guru-set-scope "go-guru" "\ -Set the scope for the Go guru, prompting the user to edit the previous scope. - -The scope restricts analysis to the specified packages. -Its value is a comma-separated list of patterns of these forms: - golang.org/x/tools/cmd/guru # a single package - golang.org/x/tools/... # all packages beneath dir - ... # the entire workspace. - -A pattern preceded by '-' is negative, so the scope - encoding/...,-encoding/xml -matches all encoding packages except encoding/xml." t) -(autoload 'go-guru-callees "go-guru" "\ -Show possible callees of the function call at the current point." t) -(autoload 'go-guru-callers "go-guru" "\ -Show the set of callers of the function containing the current point." t) -(autoload 'go-guru-callstack "go-guru" "\ -Show an arbitrary path from a root of the call graph to the -function containing the current point." t) -(autoload 'go-guru-definition "go-guru" "\ -Jump to the definition of the selected identifier. - -(fn &optional OTHER-WINDOW)" t) -(autoload 'go-guru-definition-other-window "go-guru" "\ -Jump to the defintion of the selected identifier in another window" t) -(autoload 'go-guru-describe "go-guru" "\ -Describe the selected syntax, its kind, type and methods." t) -(autoload 'go-guru-pointsto "go-guru" "\ -Show what the selected expression points to." t) -(autoload 'go-guru-implements "go-guru" "\ -Describe the 'implements' relation for types in the package -containing the current point." t) -(autoload 'go-guru-freevars "go-guru" "\ -Enumerate the free variables of the current selection." t) -(autoload 'go-guru-peers "go-guru" "\ -Enumerate the set of possible corresponding sends/receives for -this channel receive/send operation." t) -(autoload 'go-guru-referrers "go-guru" "\ -Enumerate all references to the object denoted by the selected -identifier." t) -(autoload 'go-guru-whicherrs "go-guru" "\ -Show globals, constants and types to which the selected -expression (of type 'error') may refer." t) -(autoload 'go-guru-unhighlight-identifiers "go-guru" "\ -Remove highlights from previously highlighted identifier.") -(autoload 'go-guru-hl-identifier "go-guru" "\ -Highlight all instances of the identifier under point. Removes -highlights from previously highlighted identifier." t) -(autoload 'go-guru-hl-identifier-mode "go-guru" "\ -Highlight instances of the identifier at point after a short - -timeout. - -This is a minor mode. If called interactively, toggle the -`Go-Guru-Hl-Identifier mode' mode. If the prefix argument is -positive, enable the mode, and if it is zero or negative, disable -the mode. - -If called from Lisp, toggle the mode if ARG is `toggle'. Enable -the mode if ARG is nil, omitted, or is a positive number. -Disable the mode if ARG is a negative number. - -To check whether the minor mode is enabled in the current buffer, -evaluate `go-guru-hl-identifier-mode'. - -The mode's hook is called both when the mode is enabled and when -it is disabled. - -(fn &optional ARG)" t) -(register-definition-prefixes "go-guru" '("go-guru-")) - - -;;; Generated autoloads from go-mode.el - -(autoload 'go-mode "go-mode" "\ -Major mode for editing Go source text. - -This mode provides (not just) basic editing capabilities for -working with Go code. It offers almost complete syntax -highlighting, indentation that is almost identical to gofmt and -proper parsing of the buffer content to allow features such as -navigation by function, manipulation of comments or detection of -strings. - -In addition to these core features, it offers various features to -help with writing Go code. You can directly run buffer content -through gofmt, read godoc documentation from within Emacs, modify -and clean up the list of package imports or interact with the -Playground (uploading and downloading pastes). - -The following extra functions are defined: - -- `gofmt' -- `godoc' and `godoc-at-point' -- `go-import-add' -- `go-remove-unused-imports' -- `go-goto-arguments' -- `go-goto-docstring' -- `go-goto-function' -- `go-goto-function-name' -- `go-goto-imports' -- `go-goto-return-values' -- `go-goto-method-receiver' -- `go-play-buffer' and `go-play-region' -- `go-download-play' -- `godef-describe' and `godef-jump' -- `go-coverage' -- `go-set-project' -- `go-reset-gopath' - -If you want to automatically run `gofmt' before saving a file, -add the following hook to your emacs configuration: - -(add-hook 'before-save-hook #'gofmt-before-save) - -If you want to use `godef-jump' instead of etags (or similar), -consider binding godef-jump to `M-.', which is the default key -for `find-tag': - -(add-hook 'go-mode-hook (lambda () - (local-set-key (kbd \"M-.\") #'godef-jump))) - -Please note that godef is an external dependency. You can install -it with - -go get github.com/rogpeppe/godef - - -If you're looking for even more integration with Go, namely -on-the-fly syntax checking, auto-completion and snippets, it is -recommended that you look at flycheck -(see URL `https://github.com/flycheck/flycheck') or flymake in combination -with goflymake (see URL `https://github.com/dougm/goflymake'), gocode -(see URL `https://github.com/nsf/gocode'), go-eldoc -(see URL `github.com/syohex/emacs-go-eldoc') and yasnippet-go -(see URL `https://github.com/dominikh/yasnippet-go') - -(fn)" t) -(add-to-list 'auto-mode-alist (cons "\\.go\\'" 'go-mode)) -(autoload 'gofmt-before-save "go-mode" "\ -Add this to .emacs to run gofmt on the current buffer when saving: -(add-hook 'before-save-hook 'gofmt-before-save). - -Note that this will cause ‘go-mode’ to get loaded the first time -you save any file, kind of defeating the point of autoloading." t) -(autoload 'godoc "go-mode" "\ -Show Go documentation for QUERY, much like \\\\[man]. - -(fn QUERY)" t) -(autoload 'go-download-play "go-mode" "\ -Download a paste from the playground and insert it in a Go buffer. -Tries to look for a URL at point. - -(fn URL)" t) -(autoload 'go-dot-mod-mode "go-mode" "\ -A major mode for editing go.mod files. - -(fn)" t) -(add-to-list 'auto-mode-alist '("go\\.mod\\'" . go-dot-mod-mode)) -(register-definition-prefixes "go-mode" '("go-" "god" "gofmt")) - - -;;; Generated autoloads from go-rename.el - -(autoload 'go-rename "go-rename" "\ -Rename the entity denoted by the identifier at point, using -the `gorename' tool. With FORCE, call `gorename' with the -`-force' flag. - -(fn NEW-NAME &optional FORCE)" t) -(register-definition-prefixes "go-rename" '("go-")) - -;;; End of scraped data - -(provide 'go-mode-autoloads) - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; no-native-compile: t -;; coding: utf-8-emacs-unix -;; End: - -;;; go-mode-autoloads.el ends here blob - 55da8d81201a37cced577a0361fb9e82436f1671 (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/go-mode-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;; Generated package description from go-mode.el -*- no-byte-compile: t -*- -(define-package "go-mode" "1.6.0" "Major mode for the Go programming language" '((emacs "26.1")) :commit "3273fcece5d9ab7edd4f15b2d6bce61f4e5a0666" :authors '(("The go-mode Authors")) :maintainer '("The go-mode Authors") :keywords '("languages" "go") :url "https://github.com/dominikh/go-mode.el") blob - cdebdc3caea9e963455aeb23a36da93198ba75b9 (mode 644) blob + /dev/null --- elpa/go-mode-1.6.0/go-mode.el +++ /dev/null @@ -1,3047 +0,0 @@ -;;; go-mode.el --- Major mode for the Go programming language - -;;; Commentary: - -;; Copyright 2013 The go-mode Authors. All rights reserved. -;; Use of this source code is governed by a BSD-style -;; license that can be found in the LICENSE file. - -;; Author: The go-mode Authors -;; Version: 1.6.0 -;; Keywords: languages go -;; Package-Requires: ((emacs "26.1")) -;; URL: https://github.com/dominikh/go-mode.el -;; -;; This file is not part of GNU Emacs. - -;;; Code: - -(require 'cl-lib) -(require 'compile) -(require 'etags) -(require 'ffap) -(require 'find-file) -(require 'ring) -(require 'url) -(require 'xref) - - -(eval-when-compile - (defmacro go--forward-word (&optional arg) - (if (fboundp 'forward-word-strictly) - `(forward-word-strictly ,arg) - `(forward-word ,arg)))) - -(defun go--delete-whole-line (&optional arg) - "Delete the current line without putting it in the `kill-ring'. -Derived from function `kill-whole-line'. ARG is defined as for that -function." - (setq arg (or arg 1)) - (if (and (> arg 0) - (eobp) - (save-excursion (forward-visible-line 0) (eobp))) - (signal 'end-of-buffer nil)) - (if (and (< arg 0) - (bobp) - (save-excursion (end-of-visible-line) (bobp))) - (signal 'beginning-of-buffer nil)) - (cond ((zerop arg) - (delete-region (progn (forward-visible-line 0) (point)) - (progn (end-of-visible-line) (point)))) - ((< arg 0) - (delete-region (progn (end-of-visible-line) (point)) - (progn (forward-visible-line (1+ arg)) - (unless (bobp) - (backward-char)) - (point)))) - (t - (delete-region (progn (forward-visible-line 0) (point)) - (progn (forward-visible-line arg) (point)))))) - -(defun go-goto-opening-parenthesis (&optional _legacy-unused) - "Move up one level of parentheses. - -Return non-nil if there was a paren to move up to." - ;; The old implementation of go-goto-opening-parenthesis had an - ;; optional argument to speed up the function. It didn't change the - ;; function's outcome. - - ;; Silently fail if there's no matching opening parenthesis. - (let ((open-char (nth 1 (syntax-ppss)))) - (when open-char - (goto-char open-char)))) - - -(defconst go-dangling-operators-regexp "[^-]-\\|[^+]\\+\\|[/*&><.=|^]") -(defconst go--max-dangling-operator-length 2 - "The maximum length of dangling operators. -This must be at least the length of the longest string matched by -‘go-dangling-operators-regexp’ and must be updated whenever that -constant is changed.") - -(defconst go-identifier-regexp "[[:word:][:multibyte:]]+") -(defconst go-type-name-no-prefix-regexp "\$?:[[:word:][:multibyte:]]+\\.\$?[[:word:][:multibyte:]]+") -(defconst go-qualified-identifier-regexp (concat go-identifier-regexp "\\." go-identifier-regexp)) -(defconst go-label-regexp go-identifier-regexp) -(defconst go-type-regexp "[[:word:][:multibyte:]*]+") -(defconst go-func-regexp (concat "\\_\\s *\$" go-identifier-regexp "\$")) -(defconst go-func-meth-regexp (concat - "\\_\\s *\$?:(\\s *" - "\\(" go-identifier-regexp "\\s +\$?" go-type-regexp - "\\s *)\\s *\\)?\$" - go-identifier-regexp - "\$(")) - -(defconst go--comment-start-regexp "[[:space:]]*\$?:/[/*]\$") -(defconst go--case-regexp "\$[[:space:]]*case\\([[:space:]]\\|$\$\\)") -(defconst go--case-or-default-regexp (concat "\$" go--case-regexp "\\|" "[[:space:]]*default:\$")) - -(defconst go-builtins - '("append" "cap" "close" "complex" "copy" - "delete" "imag" "len" "make" "new" - "panic" "print" "println" "real" "recover") - "All built-in functions in the Go language. Used for font locking.") - -(defconst go-mode-keywords - '("break" "default" "func" "interface" "select" - "case" "defer" "go" "map" "struct" - "chan" "else" "goto" "package" "switch" - "const" "fallthrough" "if" "range" "type" - "continue" "for" "import" "return" "var") - "All keywords in the Go language. Used for font locking.") - -(defconst go-constants '("nil" "true" "false" "iota")) -(defconst go-type-name-regexp (concat "\\**\$\\(?:" go-identifier-regexp "\\.\$?" go-identifier-regexp "\\)")) - -(defvar go-dangling-cache) -(defvar go-godoc-history nil) -(defvar go--coverage-current-file-name) - -(defgroup go nil - "Major mode for editing Go code." - :link '(url-link "https://github.com/dominikh/go-mode.el") - :group 'languages) - -(defgroup go-cover nil - "Options specific to `cover`." - :group 'go) - -(defgroup godoc nil - "Options specific to `godoc'." - :group 'go) - -(defcustom go-fontify-function-calls t - "Fontify function and method calls if this is non-nil." - :type 'boolean - :group 'go) - -(defcustom go-fontify-variables t - "Fontify variable declarations if this is non-nil." - :type 'boolean - :group 'go) - -(defcustom go-mode-hook nil - "Hook called by `go-mode'." - :type 'hook - :group 'go) - -(defcustom go-command "go" - "The 'go' command. -Some users have multiple Go development trees and invoke the 'go' -tool via a wrapper that sets GOROOT and GOPATH based on the -current directory. Such users should customize this variable to -point to the wrapper script." - :type 'string - :group 'go) - -(defcustom gofmt-command "gofmt" - "The 'gofmt' command. -Some users may replace this with 'goimports' -from https://golang.org/x/tools/cmd/goimports." - :type 'string - :group 'go) - -(defcustom gofmt-args nil - "Additional arguments to pass to gofmt." - :type '(repeat string) - :group 'go) - -(defcustom gofmt-show-errors 'buffer - "Where to display gofmt error output. -It can either be displayed in its own buffer, in the echo area, or not at all. - -Please note that Emacs outputs to the echo area when writing -files and will overwrite gofmt's echo output if used from inside -a `before-save-hook'." - :type '(choice - (const :tag "Own buffer" buffer) - (const :tag "Echo area" echo) - (const :tag "None" nil)) - :group 'go) - -(defcustom godef-command "godef" - "The 'godef' command." - :type 'string - :group 'go) - -(defcustom go-other-file-alist - '(("_test\\.go\\'" (".go")) - ("\\.go\\'" ("_test.go"))) - "See the documentation of `ff-other-file-alist' for details." - :type '(repeat (list regexp (choice (repeat string) function))) - :group 'go) - -(defcustom go-packages-function 'go-packages-go-list - "Function called by `go-packages' to determine the list of available packages. -This is used in e.g. tab completion in `go-import-add'. - -This package provides two functions: `go-packages-go-list' uses -'go list all' to determine all Go packages. `go-packages-native' uses -elisp to find all .a files in all /pkg/ directories. -`go-packages-native' is obsolete as it doesn't behave correctly with -the Go build cache or Go modules." - :type 'function - :package-version '(go-mode . 1.4.0) - :group 'go) - -(defcustom go-guess-gopath-functions (list #'go-plain-gopath) - "Functions to call in sequence to detect a project's GOPATH. - -The functions in this list will be called one after another, -until a function returns non-nil. The order of the functions in -this list is important, as some project layouts may superficially -look like others." - :type '(repeat function) - :group 'go) - -(defcustom go-confirm-playground-uploads t - "Ask before uploading code to the public Go Playground. - -Set this to nil to upload without prompting. -" - :type 'boolean - :group 'go) - -(defcustom godoc-command "go doc" - "Which executable to use for `godoc'. -This can be either an absolute path or an executable in PATH." - :type 'string - :group 'go) - -(defcustom godoc-and-godef-command "go doc" - "Which executable to use for `godoc-and-godef'. -This can be either an absolute path or an executable in PATH." - :type 'string - :group 'go) - -(defcustom godoc-use-completing-read nil - "Provide auto-completion for godoc. -Only really desirable when using `godoc' instead of `go doc'." - :type 'boolean - :group 'godoc) - -(defcustom godoc-reuse-buffer nil - "Reuse a single *godoc* buffer to display godoc-at-point calls. -The default behavior is to open a separate buffer for each call." - :type 'boolean - :group 'godoc) - -(defcustom godoc-at-point-function #'godoc-and-godef - "Function to call to display the documentation for an -identifier at a given position. - -This package provides two functions: `godoc-and-godef' uses a -combination of godef and godoc to find the documentation. This -approach has several caveats. See its documentation for more -information. The second function, `godoc-gogetdoc' uses an -additional tool that correctly determines the documentation for -any identifier. It provides better results than -`godoc-and-godef'." - :type 'function - :group 'godoc) - -(defun godoc-and-godef (point) - "Use a combination of godef and godoc to guess the documentation at POINT. - -Due to a limitation in godoc, it is not possible to differentiate -between functions and methods, which may cause `godoc-at-point' -to display more documentation than desired. Furthermore, it -doesn't work on package names or variables. - -Consider using ‘godoc-gogetdoc’ instead for more accurate results." - (condition-case nil - (let* ((output (godef--call point)) - (file (car output)) - (name-parts (split-string (cadr output) " ")) - (first (car name-parts))) - (if (not (godef--successful-p file)) - (message "%s" (godef--error file)) - (go--godoc (format "%s %s" - (file-name-directory file) - (if (or (string= first "type") (string= first "const")) - (cadr name-parts) - (car name-parts))) - godoc-and-godef-command))) - (file-error (message "Could not run godef binary")))) - -(defun godoc-gogetdoc (point) - "Use the gogetdoc tool to find the documentation for an identifier at POINT. - -You can install gogetdoc with 'go get -u github.com/zmb3/gogetdoc'." - (if (not (buffer-file-name (go--coverage-origin-buffer))) - ;; TODO: gogetdoc supports unsaved files, but not introducing - ;; new artificial files, so this limitation will stay for now. - (error "Cannot use gogetdoc on a buffer without a file name")) - (let ((posn (format "%s:#%d" (file-truename buffer-file-name) (1- (position-bytes point)))) - (out (godoc--get-buffer ""))) - (with-temp-buffer - (go--insert-modified-files) - (call-process-region (point-min) (point-max) "gogetdoc" nil out nil - "-modified" - (format "-pos=%s" posn))) - (with-current-buffer out - (goto-char (point-min)) - (godoc-mode) - (display-buffer (current-buffer) t)))) - -(defun go--kill-new-message (url) - "Make URL the latest kill and print a message." - (kill-new url) - (message "%s" url)) - -(defcustom go-play-browse-function 'go--kill-new-message - "Function to call with the Playground URL. -See `go-play-region' for more details." - :type '(choice - (const :tag "Nothing" nil) - (const :tag "Kill + Message" go--kill-new-message) - (const :tag "Browse URL" browse-url) - (function :tag "Call function")) - :group 'go) - -(defcustom go-coverage-display-buffer-func 'display-buffer-reuse-window - "How `go-coverage' should display the coverage buffer. -See `display-buffer' for a list of possible functions." - :type 'function - :group 'go-cover) - -(defface go-coverage-untracked - '((t (:foreground "#505050"))) - "Coverage color of untracked code." - :group 'go-cover) - -(defface go-coverage-0 - '((t (:foreground "#c00000"))) - "Coverage color for uncovered code." - :group 'go-cover) -(defface go-coverage-1 - '((t (:foreground "#808080"))) - "Coverage color for covered code with weight 1." - :group 'go-cover) -(defface go-coverage-2 - '((t (:foreground "#748c83"))) - "Coverage color for covered code with weight 2." - :group 'go-cover) -(defface go-coverage-3 - '((t (:foreground "#689886"))) - "Coverage color for covered code with weight 3." - :group 'go-cover) -(defface go-coverage-4 - '((t (:foreground "#5ca489"))) - "Coverage color for covered code with weight 4." - :group 'go-cover) -(defface go-coverage-5 - '((t (:foreground "#50b08c"))) - "Coverage color for covered code with weight 5." - :group 'go-cover) -(defface go-coverage-6 - '((t (:foreground "#44bc8f"))) - "Coverage color for covered code with weight 6." - :group 'go-cover) -(defface go-coverage-7 - '((t (:foreground "#38c892"))) - "Coverage color for covered code with weight 7." - :group 'go-cover) -(defface go-coverage-8 - '((t (:foreground "#2cd495"))) - "Coverage color for covered code with weight 8. -For mode=set, all covered lines will have this weight." - :group 'go-cover) -(defface go-coverage-9 - '((t (:foreground "#20e098"))) - "Coverage color for covered code with weight 9." - :group 'go-cover) -(defface go-coverage-10 - '((t (:foreground "#14ec9b"))) - "Coverage color for covered code with weight 10." - :group 'go-cover) -(defface go-coverage-covered - '((t (:foreground "#2cd495"))) - "Coverage color of covered code." - :group 'go-cover) - -(defvar go-mode-syntax-table - (let ((st (make-syntax-table))) - (modify-syntax-entry ?+ "." st) - (modify-syntax-entry ?- "." st) - (modify-syntax-entry ?% "." st) - (modify-syntax-entry ?& "." st) - (modify-syntax-entry ?| "." st) - (modify-syntax-entry ?^ "." st) - (modify-syntax-entry ?! "." st) - (modify-syntax-entry ?= "." st) - (modify-syntax-entry ?< "." st) - (modify-syntax-entry ?> "." st) - (modify-syntax-entry ?/ ". 124b" st) - (modify-syntax-entry ?* ". 23" st) - (modify-syntax-entry ?\n "> b" st) - (modify-syntax-entry ?\" "\"" st) - (modify-syntax-entry ?\' "\"" st) - (modify-syntax-entry ?` "\"" st) - (modify-syntax-entry ?\\ "\\" st) - ;; TODO make _ a symbol constituent now that xemacs is gone - (modify-syntax-entry ?_ "w" st) - - st) - "Syntax table for Go mode.") - -(defun go--fontify-type-switch-case-pre () - "Move point to line following the end of case statement. - -This is used as an anchored font lock keyword PRE-MATCH-FORM. We -expand the font lock region to include multiline type switch case -statements." - (save-excursion - (beginning-of-line) - (while (or (looking-at "[[:space:]]*\$$\\|//\$") (go--line-suffix-p ",")) - (forward-line)) - (when (go--line-suffix-p ":") - (forward-line)) - (point))) - -(defun go--build-font-lock-keywords () - ;; we cannot use 'symbols in regexp-opt because GNU Emacs <24 - ;; doesn't understand that - (append - `( - ;; Match param lists in func signatures. This uses the - ;; MATCH-ANCHORED format (see `font-lock-keywords' docs). - ;; - ;; Parent/anchor match. It matches the param list opening "(". - (go--match-param-start - ;; Sub-matcher that matches individual params in the param list. - (go--fontify-param - ;; Pre-match form that runs before the first sub-match. - (go--fontify-param-pre) - ;; Post-match form that runs after last sub-match. - (go--fontify-param-post) - ;; Subexp 1 is the param variable name, if any. - (1 font-lock-variable-name-face nil t) - ;; Subexp 2 is the param type name, if any. We set the LAXMATCH - ;; flag to allow optional regex groups. - (2 font-lock-type-face nil t))) - - ;; Special case to match non-parenthesized function results. For - ;; example, "func(i int) string". - (go--match-single-func-result 1 font-lock-type-face) - - ;; Match name+type pairs, such as "foo bar" in "var foo bar". - (go--match-ident-type-pair 2 font-lock-type-face) - - ;; An anchored matcher for type switch case clauses. - (go--match-type-switch-case - (go--fontify-type-switch-case - (go--fontify-type-switch-case-pre) - nil - (1 font-lock-type-face))) - - ;; Match variable names in var decls, constant names in const - ;; decls, and type names in type decls. - (go--match-decl - (1 font-lock-variable-name-face nil t) - (2 font-lock-constant-face nil t) - (3 font-lock-type-face nil t)) - - (,(concat "\\_<" (regexp-opt go-mode-keywords t) "\\_>") . font-lock-keyword-face) - (,(concat "\$\\_<" (regexp-opt go-builtins t) "\\_>\$[[:space:]]*(") 1 font-lock-builtin-face) - (,(concat "\\_<" (regexp-opt go-constants t) "\\_>") . font-lock-constant-face) - - ;; Function (not method) name - (,go-func-regexp 1 font-lock-function-name-face)) - - (if go-fontify-function-calls - ;; Function call/method name - `((,(concat "\$" go-identifier-regexp "\$[[:space:]]*(") 1 font-lock-function-name-face) - ;; Bracketed function call - (,(concat "[^[:word:][:multibyte:]](\$" go-identifier-regexp "\$)[[:space:]]*(") 1 font-lock-function-name-face)) - ;; Method name - `((,go-func-meth-regexp 2 font-lock-function-name-face))) - - `( - ;; Raw string literal, needed for font-lock-syntactic-keywords - ("\$`[^`]*`\$" 1 font-lock-multiline) - - ;; RHS of type alias. - (go--match-type-alias 2 font-lock-type-face) - - ;; Arrays/slices: [] | [123] | [some.Const] | [someConst] | [...] - (,(concat "\$?:^\\|[^[:word:][:multibyte:]]\$\\[\$?:[[:digit:]]+\\|" go-qualified-identifier-regexp "\\|" go-identifier-regexp "\\|\\.\\.\\.\$?\\]" go-type-name-regexp) 1 font-lock-type-face) - - ;; Unary "!" - ("\$!\$[^=]" 1 font-lock-negation-char-face) - - ;; Composite literal type - (,(concat go-type-name-regexp "{") 1 font-lock-type-face) - - ;; Map value type - (go--match-map-value 1 font-lock-type-face) - - ;; Map key type - (,(concat "\\_\\[" go-type-name-regexp) 1 font-lock-type-face) - - ;; Channel type - (,(concat "\\_[[:space:]]*\$?:<-[[:space:]]*\$?" go-type-name-regexp) 1 font-lock-type-face) - - ;; "new()"/"make()" type - (,(concat "\\_<\$?:new\\|make\$\\_>\$?:[[:space:]]\\|)\$*(" go-type-name-regexp) 1 font-lock-type-face) - - ;; Type assertion - (,(concat "\\.\\s *(" go-type-name-regexp) 1 font-lock-type-face) - - ;; Composite literal field names and label definitions. - (go--match-ident-colon 1 font-lock-constant-face) - - ;; Labels in goto/break/continue - (,(concat "\\_<\$?:goto\\|break\\|continue\$\\_>[[:space:]]*\$" go-label-regexp "\$") 1 font-lock-constant-face)))) - -(let ((m (define-prefix-command 'go-goto-map))) - (define-key m "a" #'go-goto-arguments) - (define-key m "d" #'go-goto-docstring) - (define-key m "f" #'go-goto-function) - (define-key m "i" #'go-goto-imports) - (define-key m "m" #'go-goto-method-receiver) - (define-key m "n" #'go-goto-function-name) - (define-key m "r" #'go-goto-return-values)) - -(defvar go-mode-map - (let ((m (make-sparse-keymap))) - (unless (boundp 'electric-indent-chars) - (define-key m "}" #'go-mode-insert-and-indent) - (define-key m ")" #'go-mode-insert-and-indent)) - (define-key m (kbd "C-c C-a") #'go-import-add) - (define-key m (kbd "C-c C-j") #'godef-jump) - (define-key m (kbd "C-x 4 C-c C-j") #'godef-jump-other-window) - (define-key m (kbd "C-c C-d") #'godef-describe) - (define-key m (kbd "C-c C-f") 'go-goto-map) - m) - "Keymap used by ‘go-mode’.") - -(easy-menu-define go-mode-menu go-mode-map - "Menu for Go mode." - '("Go" - ["Describe Expression" godef-describe t] - ["Jump to Definition" godef-jump t] - "---" - ["Add Import" go-import-add t] - ["Remove Unused Imports" go-remove-unused-imports t] - ["Go to Imports" go-goto-imports t] - "---" - ("Playground" - ["Send Buffer" go-play-buffer t] - ["Send Region" go-play-region t] - ["Download" go-download-play t]) - "---" - ["Coverage" go-coverage t] - ["Gofmt" gofmt t] - ["Godoc" godoc t] - "---" - ["Customize Mode" (customize-group 'go) t])) - -(defun go-mode-insert-and-indent (key) - "Invoke the global binding of KEY, then reindent the line." - - (interactive (list (this-command-keys))) - (call-interactively (lookup-key (current-global-map) key)) - (indent-according-to-mode)) - -(defmacro go-paren-level () - `(car (syntax-ppss))) - -(defmacro go-in-string-or-comment-p () - `(nth 8 (syntax-ppss))) - -(defmacro go-in-string-p () - `(nth 3 (syntax-ppss))) - -(defmacro go-in-comment-p () - `(nth 4 (syntax-ppss))) - -(defmacro go-goto-beginning-of-string-or-comment () - `(goto-char (nth 8 (syntax-ppss)))) - -(defun go--backward-irrelevant (&optional stop-at-string) - "Skip backwards over any characters that are irrelevant for -indentation and related tasks. - -It skips over whitespace, comments, cases and labels and, if -STOP-AT-STRING is not true, over strings." - - (let (pos (start-pos (point))) - (skip-chars-backward "\n\s\t") - (if (and (save-excursion (beginning-of-line) (go-in-string-p)) - (= (char-before) ?`) - (not stop-at-string)) - (backward-char)) - (if (and (go-in-string-p) - (not stop-at-string)) - (go-goto-beginning-of-string-or-comment)) - (if (looking-back "\\*/" (line-beginning-position)) - (backward-char)) - (if (go-in-comment-p) - (go-goto-beginning-of-string-or-comment)) - (setq pos (point)) - (beginning-of-line) - (if (or (looking-at (concat "^" go-label-regexp ":")) - (looking-at "^[[:space:]]*\$case .+\\|default\$:")) - (end-of-line 0) - (goto-char pos)) - (if (/= start-pos (point)) - (go--backward-irrelevant stop-at-string)) - (/= start-pos (point)))) - -(defun go--buffer-narrowed-p () - "Return non-nil if the current buffer is narrowed." - (/= (buffer-size) - (- (point-max) - (point-min)))) - -(defun go-previous-line-has-dangling-op-p () - "Return non-nil if the current line is a continuation line. -The return value is cached based on the current `line-beginning-position'." - (let* ((line-begin (line-beginning-position)) - (val (gethash line-begin go-dangling-cache 'nope))) - (when (or (go--buffer-narrowed-p) (equal val 'nope)) - (save-excursion - (go--forward-line -1) - (if (go--current-line-has-dangling-op-p) - (setq val (line-end-position)) - (setq val nil)) - - (if (not (go--buffer-narrowed-p)) - (puthash line-begin val go-dangling-cache)))) - val)) - -(defun go--current-line-has-dangling-op-p () - "Return non-nil if current line ends in a dangling operator. -The return value is not cached." - (or - (and - (go--line-suffix-p go-dangling-operators-regexp) - - ;; "=" does not behave like a dangling operator in decl statements. - (not (go--line-suffix-p "\$?:var\\|type\\|const\$[[:space:]].*=")) - - ;; Don't mistake "1234." for a dangling operator. - (not (go--line-suffix-p "[[:space:]]-?[[:digit:]][_0-9]*\\."))) - - ;; treat comma as dangling operator in certain cases - (and - (go--line-suffix-p ",") - (save-excursion (end-of-line) (go--commas-indent-p))))) - - -(defun go--commas-indent-p () - "Return non-nil if in a context where dangling commas indent next line." - (not (or - (go--open-paren-position) - (go--in-composite-literal-p) - (go--in-case-clause-list-p) - (go--in-struct-definition-p)))) - -(defun go--in-case-clause-list-p () - "Return non-nil if inside a multi-line case cause list. - -This function is only concerned with list items on lines after the -case keyword. It returns nil for the case line itself." - (save-excursion - (beginning-of-line) - (when (not (looking-at go--case-or-default-regexp)) - (let (saw-colon) - ;; optionally skip line with the colon - (when (go--line-suffix-p ":") - (setq saw-colon t) - (forward-line -1)) - - ;; go backwards while at a comment or a line ending in comma - (while (and - (or - (go--boring-line-p) - (go--line-suffix-p ",")) - (not (looking-at go--case-regexp)) - (go--forward-line -1))) - - (and - (looking-at-p go--case-regexp) - ;; we weren't in case list if first line ended in colon - ;; and the "case" line ended in colon - (not (and saw-colon (looking-at ".*:[[:space:]]*$")))))))) - -(defun go--in-composite-literal-p () - "Return non-nil if point is in a composite literal." - (save-excursion - (save-match-data - (and - (go-goto-opening-parenthesis) - - ;; Opening paren-like character is a curly. - (eq (char-after) ?{) - - (or - ;; Curly is preceded by non space (e.g. "Foo{"), definitely - ;; composite literal. - (zerop (skip-syntax-backward " ")) - - ;; Curly preceded by comma or semicolon. This is a composite - ;; literal with implicit type name. - (looking-back "[,:]" (1- (point))) - - ;; If we made it to the beginning of line we are either a naked - ;; block or a composite literal with implicit type name. If we - ;; are the latter, we must be contained in another composite - ;; literal. - (and (bolp) (go--in-composite-literal-p))))))) - -(defun go--in-paren-with-prefix-p (paren prefix) - (save-excursion - (and - (go-goto-opening-parenthesis) - (eq (char-after) paren) - (skip-syntax-backward " ") - (> (point) (length prefix)) - (string= prefix (buffer-substring (- (point) (length prefix)) (point)))))) - -(defun go--in-struct-definition-p () - "Return non-nil if point is inside a struct definition." - (go--in-paren-with-prefix-p ?{ "struct")) - -(defun go--in-interface-p () - "Return non-nil if point is inside an interface definition." - (go--in-paren-with-prefix-p ?{ "interface")) - - -(defun go--in-type-switch-p () - "Return non-nil if point is inside a type switch statement." - (go--in-paren-with-prefix-p ?{ ".(type)")) - -(defun go--fill-prefix () - "Return fill prefix for following comment paragraph." - (save-excursion - (beginning-of-line) - - ;; Skip over empty lines and empty comment openers/closers. - (while (and - (or (go--empty-line-p) (go--boring-comment-p)) - (zerop (forward-line 1)))) - - ;; If we are in a block comment, set prefix based on first line - ;; with content. - (if (go-in-comment-p) - (progn - (looking-at "[[:space:]]*") - (match-string-no-properties 0)) - - ;; Else if we are looking at the start of an interesting comment, our - ;; prefix is the comment opener and any space following. - (if (looking-at (concat go--comment-start-regexp "[[:space:]]*")) - ;; Replace "/*" opener with spaces so following lines don't - ;; get "/*" prefix. - (replace-regexp-in-string "/\\*" " " - (match-string-no-properties 0)))))) - -(defun go--open-paren-position () - "Return non-nil if point is between '(' and ')'. - -The return value is the position of the opening paren." - (save-excursion - (let ((start-paren-level (go-paren-level))) - (and - (go-goto-opening-parenthesis) - - ;; opening paren-like character is actually a paren - (eq (char-after) ?\() - - ;; point is before the closing paren - (< (go-paren-level)