Initial commit
This commit is contained in:
commit
9b9ea300e9
|
@ -0,0 +1,71 @@
|
|||
# ---> Emacs
|
||||
# -*- mode: gitignore; -*-
|
||||
*~
|
||||
\#*\#
|
||||
/.emacs.desktop
|
||||
/.emacs.desktop.lock
|
||||
*.elc
|
||||
auto-save-list
|
||||
tramp
|
||||
.\#*
|
||||
|
||||
# Org-mode
|
||||
.org-id-locations
|
||||
*_archive
|
||||
|
||||
# flymake-mode
|
||||
*_flymake.*
|
||||
|
||||
# eshell files
|
||||
/eshell/history
|
||||
/eshell/lastdir
|
||||
|
||||
# elpa packages
|
||||
/elpa/
|
||||
|
||||
# reftex files
|
||||
*.rel
|
||||
|
||||
# AUCTeX auto folder
|
||||
/auto/
|
||||
|
||||
# cask packages
|
||||
.cask/
|
||||
dist/
|
||||
|
||||
# Flycheck
|
||||
flycheck_*.el
|
||||
|
||||
# server auth directory
|
||||
/server/
|
||||
|
||||
# projectiles files
|
||||
.projectile
|
||||
|
||||
# directory configuration
|
||||
.dir-locals.el
|
||||
|
||||
# network security
|
||||
/network-security.data
|
||||
|
||||
|
||||
config.el
|
||||
custom.el
|
||||
history
|
||||
transient/
|
||||
bookmarks
|
||||
places
|
||||
recentf
|
||||
/.mc-lists.el
|
||||
/config-mu4e.el
|
||||
/config-elfeed.el
|
||||
/url/
|
||||
/.lsp-session-v1
|
||||
/emms/scores
|
||||
/emms/cache
|
||||
/org-roam.db
|
||||
/emojis/
|
||||
/.cache/
|
||||
projects
|
||||
/eshell/
|
||||
/persist/
|
|
@ -0,0 +1,625 @@
|
|||
GNU GENERAL PUBLIC LICENSE
|
||||
|
||||
Version 3, 29 June 2007
|
||||
|
||||
Copyright © 2007 Free Software Foundation, Inc. <https://fsf.org/>
|
||||
|
||||
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.
|
||||
|
||||
<one line to give the program's name and a brief idea of what it does.>
|
||||
|
||||
Copyright (C) <year> <name of author>
|
||||
|
||||
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 <https://www.gnu.org/licenses/>.
|
||||
|
||||
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:
|
||||
|
||||
<program> Copyright (C) <year> <name of author>
|
||||
|
||||
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 <https://www.gnu.org/licenses/>.
|
||||
|
||||
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 <https://www.gnu.org/
|
||||
licenses /why-not-lgpl.html>.
|
|
@ -0,0 +1,9 @@
|
|||
#+title: My Emacs Configuration
|
||||
|
||||
*Welcome to my Emacs configuration! Feel free to browse, read, borrow and/or inspire yourself!*
|
||||
|
||||
This Emacs configuration is written using [[https://orgmode.org/][Org Mode]] in =config.org= and compiled to Emacs Lisp on startup using the =init.el= file. It is licensed under the General Public License version 3 (GPLv3).
|
||||
|
||||
The configuration is not as new as it seems. I [[https://git.mmk2410.org/mmk2410/dotfiles/commit/dce591e5cbfac5f270d0f2fcf1c4b82e923a2215][declared .emacs bankruptcy]] on 12 March 2020 and started writing a this new configuration back then which I continuously used. Nevertheless it took more than one and a half year to finally release it again to the public (mind the commit message of the bankruptcy: "Starting a new Emacs configuration in a new repository. Will be available soon."). Since then I made over 270 commit in a private repository since in the beginning I was not sure IF or HOW to handle private information in the configuration. Since I don't have any motivation to browse all these commit to perhaps find something I don't want to publish I decided to release the configuration to the public in a new repository.
|
||||
|
||||
Next to the main host at git.mmk2410.org I also mirror the repository to GitLab and GitHub. All three feature a rudimentary display of org mode and so you can read the =config.org= directly in your browser. Although I recommend downloading it and viewing it in Emacs to get all the advantages of Org.
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,13 @@
|
|||
;;; This is an EMMS playlist file Play it with M-x emms-play-playlist
|
||||
((*track* (type . streamlist) (name . "https://streams.br.de/bayern1schw_2.m3u") (metadata "Bayern 1 (Schwaben)" "https://streams.br.de/bayern1schw_2.m3u" 1 streamlist) (last-played 24380 61095 420172 603000) (play-count . 1) (info-title . "Bayern 1 (Schwaben)"))
|
||||
(*track* (type . streamlist) (name . "https://streams.br.de/bayern2sued_2.m3u") (metadata "Bayern 2 (Süd)" "https://streams.br.de/bayern2sued_2.m3u" 1 streamlist) (last-played 24380 61177 432455 757000) (play-count . 2) (info-title . "Bayern 2 (Süd)"))
|
||||
(*track* (type . streamlist) (name . "https://streams.br.de/bayern3_2.m3u") (metadata "Bayern 3" "https://streams.br.de/bayern3_2.m3u" 1 streamlist) (info-title . "Bayern 3"))
|
||||
(*track* (type . streamlist) (name . "https://streams.br.de/br-klassik_3.m3u") (metadata "BR Klassik" "https://streams.br.de/br-klassik_3.m3u" 1 streamlist) (info-title . "BR Klassik"))
|
||||
(*track* (type . streamlist) (name . "https://streams.br.de/b5aktuell_2.m3u") (metadata "B5 aktuell" "https://streams.br.de/b5aktuell_2.m3u" 1 streamlist) (info-title . "B5 aktuell"))
|
||||
(*track* (type . streamlist) (name . "http://mp3-live.swr.de/swr1bw_m.m3u") (metadata "SWR 1 (BW)" "http://mp3-live.swr.de/swr1bw_m.m3u" 1 streamlist) (info-title . "SWR 1 (BW) ") (last-played 24380 61277 832539 839000) (play-count . 1))
|
||||
(*track* (type . streamlist) (name . "http://mp3-live.swr.de/swr2_m.m3u") (metadata "SWR 2" "http://mp3-live.swr.de/swr2_m.m3u" 1 streamlist) (last-played 24380 61282 6595 340000) (play-count . 1) (info-title . "SWR 2"))
|
||||
(*track* (type . streamlist) (name . "http://mp3-live.swr3.de/swr3_m.m3u") (metadata "SWR 3" "http://mp3-live.swr3.de/swr3_m.m3u" 1 streamlist) (last-played 24380 61302 252207 517000) (play-count . 1) (info-title . "SWR 3"))
|
||||
(*track* (type . streamlist) (name . "http://mp3-live.swr.de/swraktuell_m.m3u") (metadata "SWR 3" "http://mp3-live.swr.de/swraktuell_m.m3u" 1 streamlist) (last-played 24380 61312 907185 480000) (play-count . 1) (info-title . "SWR Aktuell"))
|
||||
(*track* (type . streamlist) (name . "https://www.deutschlandradio.de/streaming/dlf.m3u") (metadata "Deutschlandfunk" "https://www.deutschlandradio.de/streaming/dlf.m3u" 1 streamlist) (last-played 24380 61323 853051 82000) (play-count . 1) (info-title . "Deutschlandfunk"))
|
||||
(*track* (type . streamlist) (name . "https://www.deutschlandradio.de/streaming/dkultur.m3u") (metadata "Deutschlandfunk Kultur" "https://www.deutschlandradio.de/streaming/dkultur.m3u" 1 streamlist) (info-title . "Deutschlandfunk Kultur"))
|
||||
(*track* (type . streamlist) (name . "https://st03.sslstream.dlf.de/dlf/03/128/mp3/stream.mp3") (metadata "Deutschlandfunk Nova" "https://st03.sslstream.dlf.de/dlf/03/128/mp3/stream.mp3" 1 streamlist) (info-title . "Deutschlandfunk Nova")))
|
|
@ -0,0 +1,47 @@
|
|||
;;; init.el --- My personal Emacs configuration
|
||||
|
||||
;; Source: https://gitlab.com/mmk2410/dot-emacs
|
||||
;; Authors: Marcel Kapfer
|
||||
;; Created: 2020-02-03 19:26
|
||||
;; License: This file is licensed under the GPLv3 License
|
||||
|
||||
;; This file only loads and evaluates my Emacs configuration
|
||||
;; kept in config.org using Org Babel.
|
||||
;; And it counts startup time.
|
||||
|
||||
;; Little welcome message
|
||||
(message "Welcome to Emacs, starting now up.")
|
||||
|
||||
;; Save the time when init.el was started.
|
||||
(defvar mmk2410/init-el-start-time (current-time))
|
||||
|
||||
;; Enable package management.
|
||||
(package-initialize)
|
||||
|
||||
;; First add the required package archives and initialize it.
|
||||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
||||
|
||||
;; Configure package management basics.
|
||||
;; Prefer newer packages.
|
||||
(setq-default load-prefer-newer t)
|
||||
;; Don't load packages automatically on startup.
|
||||
(setq-default package-enable-at-startup nil)
|
||||
|
||||
;; Install / enable use-package for handling following dependencies.
|
||||
(unless (package-installed-p 'use-package)
|
||||
(package-refresh-contents)
|
||||
(package-install 'use-package))
|
||||
(require 'use-package)
|
||||
|
||||
;; Always ensure that packages are installed on the current system.
|
||||
(setq use-package-always-ensure t)
|
||||
|
||||
;; Use/load latest Org mode
|
||||
(use-package org
|
||||
:pin gnu)
|
||||
|
||||
;; Load config.org file with org-babel
|
||||
(org-babel-load-file (expand-file-name "config.org" user-emacs-directory))
|
||||
|
||||
;; Message the total startup time
|
||||
(message "Total init.el load time: %.2fs" (float-time (time-subtract (current-time) mmk2410/init-el-start-time)))
|
|
@ -0,0 +1,589 @@
|
|||
;;; Use raw text to fetch this code, see EmacsForMoinMoin for tutorial and discussion.
|
||||
|
||||
;;; Download link: http://moinmo.in/EmacsForMoinMoin/MoinMoinMode?action=raw
|
||||
|
||||
;;; moinmoin-mode.el --- a major mode to edit MoinMoin wiki pages
|
||||
|
||||
;; Written by ASK, distributed under GPL
|
||||
|
||||
;; Filename: moinmoin-mode.el
|
||||
;; Keywords: moinmoin, wiki
|
||||
;; Description: a major mode to edit MoinMoin wiki pages
|
||||
;; Compatibility: GNU Emacs 22.0.50.1 (probably others)
|
||||
;; Last modified: 2006-04-15
|
||||
|
||||
;; This file is NOT part of GNU Emacs.
|
||||
|
||||
;;; Definition of font faces
|
||||
(defgroup moinmoin nil
|
||||
"Major mode for MoinMoin wiki pages"
|
||||
:prefix "moinmoin-")
|
||||
|
||||
(defface moinmoin-h5 '((t (:foreground "tan3" :slant italic)))
|
||||
"Face name to use for 5-level headings in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-h4 '((t (:inherit moinmoin-h5 :slant normal :foreground "tan4")))
|
||||
"Face name to use for 4-level headings in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-h3 '((t (:inherit moinmoin-h4 :weight bold)))
|
||||
"Face name to use for 3-level headings in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-h2 '((t (:inherit moinmoin-h3 :height 1.2)))
|
||||
"Face name to use for 3-level headings in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-h1 '((t (:inherit moinmoin-h2 :height 1.4)))
|
||||
"Face name to use for 3-level headings in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-smiley '((t (:foreground "green4" :weight bold)))
|
||||
"Face name to use smileys in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-table-separator '((t (:foreground "salmon" :weight bold)))
|
||||
"Face name to use for separation of columns in tables of moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-table-pi '((t (:foreground "plum3")))
|
||||
"Face name to use for processing instructions in tables of moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-anchor '((t (:foreground "tan3" :height 0.8)))
|
||||
"Face name to use for anchors (targets) in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-anchor-ref-id '((t (:foreground "blue2" :height 0.8 :underline t)))
|
||||
"Face name to use for id in anchor reference in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-anchor-ref-title '((t (:foreground "blue4" :underline t)))
|
||||
"Face name to use for title in anchors reference in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-macro-name '((t (:foreground "plum3")))
|
||||
"Face name to use for names of macros in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-macro-parameters '((t (:foreground "plum4")))
|
||||
"Face name to use for parameters of macros in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-item '((t (:foreground "brown" :weight bold)))
|
||||
"Face name to use for items in lists in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-item-2 '((t (:foreground "brown")))
|
||||
"Face name to use for second-level items in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-blockquote-indent '((t (:background "aquamarine1")))
|
||||
"Face name to use for blockquote indentation in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-blockquote-text '((t (:foreground "aquamarine4")))
|
||||
"Face name to use for blockquote text in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-code '((t (:foreground "purple4")))
|
||||
"Face name to use for code inside braces in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-code-braces '((t (:foreground "plum3")))
|
||||
"Face name to use for baces which delimit code inside braces in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
(defface moinmoin-pi '((t (:foreground "plum3" :weight bold)))
|
||||
"Face name to use for processing instructions in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-comment '((t (:foreground "maroon3")))
|
||||
"Face name to use for comments in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-rule '((t (:foreground "tomato2" :weight bold)))
|
||||
"Face name to use for rules in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-ss '((t (:foreground "grey" ))) ;; try also :height 0.1
|
||||
"Face name to use for syntactic sugar in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-tt '((t (:foreground "cyan4")))
|
||||
"Face name to use for typewriter text in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-entity '((t (:foreground "grey")))
|
||||
"Face name to use for HTML entities in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-email '((t (:foreground "blue2")))
|
||||
"Face name to use for emails in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-url '((t (:foreground "blue2" :height 0.8)))
|
||||
"Face name to use for URLs in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-url-title '((t (:foreground "blue4" :underline t)))
|
||||
"Face name to use for title of URL in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-wiki-link '((t (:foreground "blue4" :weight bold)))
|
||||
"Face name to use for CamelCase links in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-inter-wiki-link '((t (:foreground "blue3" :weight bold)))
|
||||
"Face name to use for inter wiki links in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-bold '((t (:weight bold)))
|
||||
"Face name to use for bold text in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-italic '((t (:slant italic)))
|
||||
"Face name to use for italic text in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-underline '((t (:underline t)))
|
||||
"Face name to use for underlined text in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-stroke '((t (:strike-through t)))
|
||||
"Face name to use for stroked text in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-subscript '((t (:height 0.8)))
|
||||
"Face name to use for subscripts in moinmoin"
|
||||
:group 'moinmoin)
|
||||
(defface moinmoin-superscript '((t (:height 0.8)))
|
||||
"Face name to use for superscripts in moinmoin"
|
||||
:group 'moinmoin)
|
||||
|
||||
|
||||
|
||||
;;; Font lock setup
|
||||
(defconst moinmoin-url-prefix
|
||||
"\\(?:http\\|https\\|ftp\\|nntp\\|news\\|mailto\\|telnet\\|wiki\\|file\\|irc\\|attachment\\|inline\\|drawing\\)"
|
||||
"Bracketed regexp matching URL prefixes in moinmoin")
|
||||
(defconst moinmoin-url-punctuation
|
||||
"]\"'}|:,.)?!" ; start with ]
|
||||
"Punctuation in URLs of moinmoin")
|
||||
(defconst moinmoin-pi-re
|
||||
"^#\\(?:format\\|refresh\\|redirect\\|deprecated\\|pragma\\|form\\|acl\\|language\\).*$"
|
||||
"Regexp for processing instructions in moinmoin")
|
||||
(defconst moinmoin-smiley-re
|
||||
"\\(?:<:(\\|X-(\\|:)\\|:-))\\|:(\\|/!\\\\\\|{X}\\|{OK}\\|B-)\\|{2}\\|>:>\\|;-)\\|<!>\\|:o\\||-)\\|;)\\||)\\|(!)\\|:-(\\|:-)\\|{o}\\|:D\\|(./)\\|B)\\|{*}\\|:\\\|:-?\\|{i}\\|{3}\\|{1}\\|:)\\)"
|
||||
"Regexp for smileys in moinmoin")
|
||||
|
||||
(defun moinmoin-formatted-code-matcher (bound)
|
||||
"Search for formatted code
|
||||
This is supposed to be bug-to-bug compatible with moinmoin-1.5.2"
|
||||
(catch 'match
|
||||
(while (< (point) bound)
|
||||
(unless (search-forward-regexp "{{{" bound t)
|
||||
(throw 'match nil))
|
||||
(let ((start-brace-begin (match-beginning 0))
|
||||
(start-brace-end (match-end 0))
|
||||
pi-begin pi-end
|
||||
code-begin code-end
|
||||
end-brace-begin end-brace-end)
|
||||
(unless (get-text-property start-brace-begin 'moinmoin-verbatim)
|
||||
(goto-char start-brace-end)
|
||||
(if (looking-at "#!.*\n")
|
||||
(setq pi-begin (match-beginning 0)
|
||||
pi-end (match-end 0)
|
||||
code-begin (match-end 0))
|
||||
(setq code-begin start-brace-end))
|
||||
(goto-char code-begin)
|
||||
(let ((not-first-line))
|
||||
(while (looking-at
|
||||
"\\(?:##.*\\|`.*?`\\|{{{.*?}}}\\|.\\)*?\\(?:\\(}}}\\)\\|\n\\)")
|
||||
(goto-char (match-end 0))
|
||||
(when (and (match-beginning 1) ; non-paired `}}}'
|
||||
not-first-line)
|
||||
(setq code-end (match-beginning 1)
|
||||
end-brace-begin (match-beginning 1)
|
||||
end-brace-end (match-end 1))
|
||||
(set-match-data (list start-brace-begin end-brace-end
|
||||
start-brace-begin start-brace-end
|
||||
pi-begin pi-end
|
||||
code-begin code-end
|
||||
end-brace-begin end-brace-end))
|
||||
(throw 'match t))
|
||||
(setq not-first-line t)))
|
||||
(throw 'match nil))))))
|
||||
|
||||
|
||||
(defun moinmoin-bracketed-url-matcher (bound)
|
||||
"Search for bracketed URLs"
|
||||
(catch 'match
|
||||
(while (< (point) bound)
|
||||
(unless (search-forward-regexp
|
||||
(concat "\\(\\[\\)"
|
||||
"\\(" moinmoin-url-prefix "?:.*?\\) +"
|
||||
"\\(.*?\\)?"
|
||||
"\\(\\]\\)") bound t)
|
||||
(throw 'match nil))
|
||||
(unless (get-text-property (match-beginning 0) 'moinmoin-verbatim)
|
||||
(throw 'match t)))))
|
||||
|
||||
(defun moinmoin-setup-font-lock ()
|
||||
(setq font-lock-beginning-of-syntax-function '(lambda () (goto-char 1)))
|
||||
(setq font-lock-multiline t)
|
||||
(make-local-variable 'font-lock-extra-managed-props)
|
||||
(add-to-list 'font-lock-extra-managed-props 'moinmoin-verbatim) ; Not Comment Start
|
||||
(add-to-list 'font-lock-extra-managed-props 'display)
|
||||
(font-lock-add-keywords nil `(
|
||||
("\\(?:^\\|[^|]\\)\\(\\(?:||\\)+\\)\\(<.*?>\\)?"
|
||||
(1 'moinmoin-table-separator)
|
||||
(2 'moinmoin-table-pi t t))
|
||||
("'''\\(.*?\\)'''" (1 'moinmoin-bold prepend))
|
||||
("\\(?:[^']\\|^\\)''\\([^'].*?[^']\\)''[^']" (1 'moinmoin-italic prepend))
|
||||
("\\(__\\)\\(.*?\\)\\(__\\)"
|
||||
(1 'moinmoin-ss t) (2 'moinmoin-underline prepend) (3 'moinmoin-ss t))
|
||||
("\\(--(\\)\\(.*?\\)\\()--\\)"
|
||||
(1 'moinmoin-ss t) (2 'moinmoin-stroke prepend) (3 'moinmoin-ss t))
|
||||
("\\(,,\\)\\(.*?\\)\\(,,\\)"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-subscript 'display '(raise -0.3)) prepend)
|
||||
(3 'moinmoin-ss t))
|
||||
("\\(\\^\\)\\(.*?\\)\\(\\^\\)"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-superscript 'display '(raise 0.3)) prepend)
|
||||
(3 'moinmoin-ss t))
|
||||
("''+" (0 'moinmoin-ss t))
|
||||
("^ +\\(?:\\*\\|.*?::\\|\\(?:[0-9]+\\|[aAiI]\\)\\.\\) "
|
||||
(0 'moinmoin-item-2))
|
||||
("^ \\(?:\\*\\|.*?::\\|\\(?:[0-9]+\\|[aAiI]\\)\\.\\) "
|
||||
(0 'moinmoin-item))
|
||||
("^\\( +\\)\\(.*\\)"
|
||||
(1 'moinmoin-blockquote-indent)
|
||||
(2 'moinmoin-blockquote-text))
|
||||
("&[A-Za-z0-9]*;" (0 'moinmoin-entity prepend))
|
||||
(,(concat "\\(?:^\\| \\)\\(" moinmoin-smiley-re "\\)[[:space:]]")
|
||||
(1 'moinmoin-smiley t))
|
||||
("\\(?:^\\|[^A-Za-z!]\\)\\(\\(?:\\.\\./\\)?/?[A-Z][a-z]+[A-Z][a-z][A-Za-z]*\\(?:/[A-Z][a-z]+[A-Z][a-z][A-Za-z]*\\)?\\)"
|
||||
(1 'moinmoin-wiki-link t))
|
||||
(,(concat "[A-Z][A-Za-z]+:"
|
||||
"[^[:space:]'\":<|]"
|
||||
"\\(?:[^" moinmoin-url-punctuation "[:space:]]\\|"
|
||||
"[" moinmoin-url-punctuation "]"
|
||||
"[^" moinmoin-url-punctuation "[:space:]]\\)+")
|
||||
(0 'moinmoin-inter-wiki-link t))
|
||||
("\\(\\[\"\\)\\(?:\\(.*?:.*\\)\\|\\(.*?\\)\\)\\(\"\\]\\)"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-inter-wiki-link 'moinmoin-verbatim t) t t)
|
||||
(3 (list 'face 'moinmoin-wiki-link 'moinmoin-verbatim t) t t)
|
||||
(4 'moinmoin-ss t))
|
||||
;;ur'%(url_guard)s(%(url)s)\:([^\s\<%(punct)s]|([%(punct)s][^\s\<%(punct)s]))+'
|
||||
(,(concat "\\<" moinmoin-url-prefix ":"
|
||||
"\\(?:[^" moinmoin-url-punctuation "<[:space:]]\\|"
|
||||
"[" moinmoin-url-punctuation "]"
|
||||
"[^" moinmoin-url-punctuation "<[:space:]]\\)+")
|
||||
(0 'moinmoin-url t))
|
||||
("[A-Za-z0-9_+-]+@[A-Za-z0-9_-]+\\(?:\\.[A-Za-z0-9_-]+\\)+"
|
||||
(0 'moinmoin-email t))
|
||||
("-\\{4,\\}" (0 'moinmoin-rule t))
|
||||
;; macros
|
||||
("\\(\\[\\[\\)\\([A-Za-z0-9]+\\)\\(?:\\((\\)\\(.*?\\)\\()\\)\\)?\\(\\]\\]\\)"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-macro-name 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss t t)
|
||||
(4 (list 'face 'moinmoin-macro-parameters 'moinmoin-verbatim t) t t)
|
||||
(5 'moinmoin-ss t t)
|
||||
(6 'moinmoin-ss t))
|
||||
("\\(\\[\\[Anchor(\\)\\(.*?\\)\\()\\]\\]\\)"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-anchor 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss t))
|
||||
("\\(\\[#\\)\\(.*?\\) +\\(.*?\\)?\\(\\]\\)"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-anchor-ref-id 'moinmoin-verbatim t) t)
|
||||
(3 (list 'face 'moinmoin-anchor-ref-title 'moinmoin-verbatim t) t t)
|
||||
(4 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) t))
|
||||
;; typewriter (tt) overrides the above
|
||||
("\\({{{\\)\\(.*?\\)\\(}}}\\)"
|
||||
(1 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) keep)
|
||||
(2 (list 'face 'moinmoin-tt 'moinmoin-verbatim t) t)
|
||||
(3 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) keep))
|
||||
("\\(`\\)\\(.*?\\)\\(`\\)"
|
||||
(1 'moinmoin-ss keep) ; cannot match `{{{' thus no need for ncs
|
||||
(2 (list 'face 'moinmoin-tt 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss keep))
|
||||
;; headers overrides tt and biu
|
||||
("^\\(= \\)\\(.*\\)\\( =\\)$"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-h1 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss t))
|
||||
("^\\(== \\)\\(.*\\)\\( ==\\)$"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-h2 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss t))
|
||||
("^\\(=== \\)\\(.*\\)\\( ===\\)$"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-h3 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss t))
|
||||
("^\\(==== \\)\\(.*\\)\\( ====\\)$"
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-h4 'moinmoin-verbatim t) t)
|
||||
(3 'moinmoin-ss t))
|
||||
("^\\(=====\\(=*\\) \\)\\(.*\\)\\( \\2=====\\)$" ; 5th and all others
|
||||
(1 'moinmoin-ss t)
|
||||
(3 (list 'face 'moinmoin-h5 'moinmoin-verbatim t) t)
|
||||
(4 'moinmoin-ss t))
|
||||
;; comments and pi
|
||||
("^##.*$"
|
||||
(0 (list 'face 'moinmoin-comment 'moinmoin-verbatim t) t))
|
||||
(,moinmoin-pi-re
|
||||
(0 (list 'face 'moinmoin-pi 'moinmoin-verbatim t) t))
|
||||
(moinmoin-bracketed-url-matcher
|
||||
(1 'moinmoin-ss t)
|
||||
(2 (list 'face 'moinmoin-url 'moinmoin-verbatim t) t)
|
||||
(3 (list 'face 'moinmoin-url-title 'moinmoin-verbatim t) t t)
|
||||
(4 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) t))
|
||||
(moinmoin-formatted-code-matcher
|
||||
(1 (list 'face 'moinmoin-code-braces 'moinmoin-verbatim t) t)
|
||||
(2 (list 'face 'moinmoin-pi 'moinmoin-verbatim t) t t)
|
||||
(3 (list 'face 'moinmoin-code 'moinmoin-verbatim t) t)
|
||||
(4 (list 'face 'moinmoin-code-braces 'moinmoin-verbatim t) t))
|
||||
) 'set))
|
||||
|
||||
|
||||
|
||||
;;; Automagic typing helpers
|
||||
(defun moinmoin-insert-quote ()
|
||||
"Convert double quote to HTML entity (“ or ”)"
|
||||
(interactive)
|
||||
(cond
|
||||
((or (get-text-property (point) 'moinmoin-verbatim)
|
||||
(looking-back "\\[\\|= *\\|^\\(?:[^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*"))
|
||||
(insert "\""))
|
||||
((or (looking-back "[[:space:]]") (eq (point) 1))
|
||||
(insert "“"))
|
||||
(t (insert "”"))))
|
||||
|
||||
(defun moinmoin-insert-dash ()
|
||||
"Insert different types of dashes.
|
||||
`----' and `-' stays unchanged
|
||||
`--' is converted to `–'
|
||||
`---' is converted to `—'
|
||||
`)--' is not changed'
|
||||
`<-' is converted to `←'"
|
||||
(interactive)
|
||||
(cond
|
||||
((get-text-property (point) 'moinmoin-verbatim)
|
||||
(insert "-"))
|
||||
((looking-back "---\\|—")
|
||||
(replace-match "----" t t))
|
||||
((looking-back "--\\|–")
|
||||
(replace-match "—" t t))
|
||||
((looking-back ")-")
|
||||
(replace-match ")--" t t))
|
||||
((looking-back "<")
|
||||
(replace-match "←" t t))
|
||||
((looking-back "-")
|
||||
(replace-match "–" t t))
|
||||
(t (insert "-"))))
|
||||
|
||||
(defun moinmoin-insert-lparen ()
|
||||
"–( to --("
|
||||
(interactive)
|
||||
(cond
|
||||
((get-text-property (point) 'moinmoin-verbatim)
|
||||
(insert "("))
|
||||
((looking-back "–")
|
||||
(replace-match "--(" t t))
|
||||
(t (insert "("))))
|
||||
|
||||
(defun moinmoin-insert-greater-than ()
|
||||
"-> to →"
|
||||
(interactive)
|
||||
(cond
|
||||
((get-text-property (point) 'moinmoin-verbatim)
|
||||
(insert ">"))
|
||||
((looking-back "-")
|
||||
(replace-match "→" t t))
|
||||
(t (insert ">"))))
|
||||
|
||||
(defun moinmoin-insert-item ()
|
||||
"Start new item or row
|
||||
If current line starts with item prefix insert newline and the same
|
||||
prefix in front of the rest of line.
|
||||
If it is table then finish the line and add the new one"
|
||||
(interactive)
|
||||
(when (bolp) (backward-char))
|
||||
(cond
|
||||
((looking-back "^\\( *||\\).*") ; in a table
|
||||
(let ((prefix (match-string 1)))
|
||||
(end-of-line)
|
||||
(looking-back "[^|]\\(|*\\)")
|
||||
(replace-match "||" t t nil 1)
|
||||
(insert "\n" prefix)))
|
||||
((looking-back "^\\( +\\(?:\\* \\|\\(?:[0-9]+\\|[aAiI]\\)\\. \\|\\)\\).*")
|
||||
(let ((prefix (match-string 1)))
|
||||
(insert "\n")
|
||||
(insert prefix)))))
|
||||
|
||||
|
||||
|
||||
;;; Header manipulation helpers
|
||||
(defun moinmoin-is-header ()
|
||||
"Is point in a header line?
|
||||
If yes the title is in \\1"
|
||||
(save-excursion
|
||||
(beginning-of-line)
|
||||
(looking-at "=+ \\(.*\\) =+$")))
|
||||
|
||||
(defun moinmoin-increase-header-level ()
|
||||
"Add `=' in the beginning and end of current line"
|
||||
(save-excursion
|
||||
(beginning-of-line) (insert "=")
|
||||
(end-of-line) (insert "=")))
|
||||
|
||||
(defun moinmoin-decrease-header-level ()
|
||||
"Decrease level of the header
|
||||
Warns if point in a top-level header or not in a header"
|
||||
(save-excursion
|
||||
(beginning-of-line)
|
||||
(if (looking-at "=\\(=+ .* =+\\)=$")
|
||||
(replace-match "\\1" t)
|
||||
(warn "cannot decrease level"))
|
||||
))
|
||||
|
||||
(defun moinmoin-change-header-level (increment)
|
||||
"Increase or decrease level of header according to INCREMENT"
|
||||
(interactive "r")
|
||||
(if (eq increment 1)
|
||||
(moinmoin-increase-header-level)
|
||||
(moinmoin-decrease-header-level)))
|
||||
|
||||
(defun moinmoin-change-header-levels-in-region (increment start end)
|
||||
"Increase or decrease level of all headers in the region according to INCREMENT"
|
||||
(interactive "p\nr")
|
||||
(save-excursion
|
||||
(goto-char start)
|
||||
(while (progn
|
||||
(when (moinmoin-is-header)
|
||||
(moinmoin-change-header-level increment))
|
||||
(and (zerop (forward-line)) (< (point) end))))
|
||||
))
|
||||
|
||||
(defun moinmoin-insert-equal (increment)
|
||||
"Do-what-I-mean with header level or insert `='.
|
||||
With active region increase or decrease level of all headers in region.
|
||||
On an empty line starts new header.
|
||||
On a header line increase or decrease level.
|
||||
Otherwise just insert `='"
|
||||
(interactive "p")
|
||||
(if mark-active
|
||||
(progn
|
||||
(moinmoin-change-header-levels-in-region
|
||||
increment (region-beginning) (region-end))
|
||||
(setq deactivate-mark nil))
|
||||
(cond
|
||||
((looking-at "^$")
|
||||
(insert "= =")
|
||||
(backward-char 2))
|
||||
((moinmoin-is-header)
|
||||
(moinmoin-change-header-level increment))
|
||||
(t (insert "=")))))
|
||||
|
||||
|
||||
|
||||
;;; Anchor insertion and navigation
|
||||
(defun moinmoin-list-anchors ()
|
||||
"List anchors in the current buffer"
|
||||
(let ((lst))
|
||||
(save-excursion
|
||||
(goto-char 1)
|
||||
(while (search-forward-regexp "\\[\\[Anchor(\\([^])\n]*\\))\\]\\]" nil t)
|
||||
(setq lst (cons (match-string-no-properties 1) lst))))
|
||||
lst))
|
||||
|
||||
(defvar moinmoin-anchor-history "Minibuffer history of anchors")
|
||||
(defun moinmoin-completing-read-anchor (prompt &optional require-match)
|
||||
"Read non-empty anchor using complition of all the anchors in the current buffer"
|
||||
(let ((anchor
|
||||
(completing-read "Anchor: " (moinmoin-list-anchors)
|
||||
nil require-match
|
||||
nil moinmoin-anchor-history)))
|
||||
(when (string-equal anchor "")
|
||||
(error "Empty anchor"))
|
||||
anchor))
|
||||
|
||||
(defun moinmoin-insert-number-sign (&optional no-title)
|
||||
(interactive "P")
|
||||
"After `[' insert a reference to anchor inputed using completition,
|
||||
If no argument given also insert the title of the section which contains
|
||||
the anchor."
|
||||
(cond
|
||||
((and (looking-back "\\[")
|
||||
(not (get-text-property (point) 'moinmoin-verbatim)))
|
||||
(let* ((anchor (moinmoin-completing-read-anchor "Anchor: "))
|
||||
(title
|
||||
(unless no-title
|
||||
(condition-case nil
|
||||
(moinmoin-get-anchored-header anchor)
|
||||
(error (message "No header for anchor %s" anchor) nil)))))
|
||||
(insert "#" anchor " ")
|
||||
(if title
|
||||
(insert title "]")
|
||||
(insert "]") (backward-char))))
|
||||
(t ; not after "["
|
||||
(insert "#"))))
|
||||
|
||||
(defun moinmoin-insert-anchor ()
|
||||
"Insert anchor (using the title if point is in a header)"
|
||||
(interactive)
|
||||
(cond
|
||||
((moinmoin-is-header)
|
||||
(let ((anchor-name
|
||||
(replace-regexp-in-string ; remove non-anchor symbols
|
||||
"[^A-Za-z0-9]+" "-"
|
||||
(match-string-no-properties 1) t t)))
|
||||
(forward-line)
|
||||
(insert "[[Anchor(" anchor-name ")]]\n")))
|
||||
(t
|
||||
(insert "[[Anchor()]]") (backward-char 3))))
|
||||
|
||||
(defun moinmoin-anchor-read-or-ask (&optional prompt)
|
||||
"DWIM to get anchor: read [#... ] on current line (before point) or ask user."
|
||||
(cond
|
||||
((and
|
||||
(search-backward
|
||||
"[#" (save-excursion (beginning-of-line) (point)) t)
|
||||
(looking-at "\\[#\\([^]\n ]+\\)"))
|
||||
(match-string-no-properties 1))
|
||||
(t
|
||||
(moinmoin-completing-read-anchor (or prompt "Anchor: ") t))))
|
||||
|
||||
(defun moinmoin-goto-anchor (&optional anchor)
|
||||
"Go to anchor
|
||||
If ANCHOR is nil (e.g., if called interactively) read reference
|
||||
to it from the current line or ask user. So if there is an
|
||||
anchor on the current line but you want to jump to something
|
||||
different go to the beginning of the line first."
|
||||
(interactive)
|
||||
(unless anchor
|
||||
(setq anchor (moinmoin-anchor-read-or-ask)))
|
||||
(goto-char 1)
|
||||
(search-forward (concat "[[Anchor(" anchor ")]]")))
|
||||
|
||||
(defun moinmoin-get-anchored-header (anchor)
|
||||
"Get title of the section which contains ANCHOR"
|
||||
(save-excursion
|
||||
(moinmoin-goto-anchor anchor)
|
||||
(search-backward-regexp "^=+ \\(.*\\) =+$" nil)
|
||||
(match-string-no-properties 1)))
|
||||
|
||||
(defun moinmoin-insert-anchored-header (&optional to-kill-ring)
|
||||
"Insert title of the section which contains anchor, with prefix save it to kill-ring"
|
||||
(interactive "P")
|
||||
(let ((header (moinmoin-get-anchored-header nil)))
|
||||
(if to-kill-ring
|
||||
(kill-new header)
|
||||
(insert header))))
|
||||
|
||||
|
||||
|
||||
;;; Setup
|
||||
(define-derived-mode moinmoin-mode outline-mode "MoinMoin"
|
||||
"Set major mode for editing MoinMoin pages"
|
||||
(make-local-variable 'outline-regexp)
|
||||
(setq outline-regexp "=+")
|
||||
(make-local-variable 'outline-heading-end-regexp)
|
||||
(setq outline-heading-end-regexp " =+\n")
|
||||
(local-set-key "\"" 'moinmoin-insert-quote)
|
||||
(local-set-key "-" 'moinmoin-insert-dash)
|
||||
(local-set-key "(" 'moinmoin-insert-lparen)
|
||||
(local-set-key ">" 'moinmoin-insert-greater-than)
|
||||
(local-set-key "=" 'moinmoin-insert-equal)
|
||||
(local-set-key "#" 'moinmoin-insert-number-sign)
|
||||
(local-set-key (kbd "M-RET") 'moinmoin-insert-item)
|
||||
(local-set-key (kbd "C-c a") 'moinmoin-insert-anchor)
|
||||
(local-set-key (kbd "C-c g") 'moinmoin-goto-anchor)
|
||||
(toggle-truncate-lines 0) ; do not truncate
|
||||
(moinmoin-setup-font-lock)
|
||||
(abbrev-mode 1)
|
||||
(set-fill-column 65000)
|
||||
(auto-fill-mode 0))
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.wiki$" . moinmoin-mode))
|
||||
|
||||
(provide 'moinmoin-mode)
|
|
@ -0,0 +1,7 @@
|
|||
[Desktop Entry]
|
||||
Name=org-protocol
|
||||
Exec=emacsclient %u
|
||||
Type=Application
|
||||
Terminal=false
|
||||
Categories=System;
|
||||
MimeType=x-scheme-handler/org-protocol;
|
Loading…
Reference in New Issue