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