diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,676 @@
+ GNU GENERAL PUBLIC LICENSE
+ Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc.
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+ Preamble
+
+ The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+ The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works. By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users. We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors. You can apply it to
+your programs, too.
+
+ When we speak of free software, we are referring to freedom, not
+price. Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+ To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights. Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+ For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received. You must make sure that they, too, receive
+or can get the source code. And you must show them these terms so they
+know their rights.
+
+ Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+ For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software. For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+ Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so. This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software. The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable. Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products. If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+ Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary. To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+ The precise terms and conditions for copying, distribution and
+modification follow.
+
+ TERMS AND CONDITIONS
+
+ 0. Definitions.
+
+ "This License" refers to version 3 of the GNU General Public License.
+
+ "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+ "The Program" refers to any copyrightable work licensed under this
+License. Each licensee is addressed as "you". "Licensees" and
+"recipients" may be individuals or organizations.
+
+ To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy. The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+ A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+ To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy. Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+ To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies. Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+ An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License. If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+ 1. Source Code.
+
+ The "source code" for a work means the preferred form of the work
+for making modifications to it. "Object code" means any non-source
+form of a work.
+
+ A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+ The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form. A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+ The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities. However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work. For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+ The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+ The Corresponding Source for a work in source code form is that
+same work.
+
+ 2. Basic Permissions.
+
+ All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met. This License explicitly affirms your unlimited
+permission to run the unmodified Program. The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work. This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+ You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force. You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright. Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+ Conveying under any other circumstances is permitted solely under
+the conditions stated below. Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+ 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+ No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+ When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+ 4. Conveying Verbatim Copies.
+
+ You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+ You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+ 5. Conveying Modified Source Versions.
+
+ You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+ a) The work must carry prominent notices stating that you modified
+ it, and giving a relevant date.
+
+ b) The work must carry prominent notices stating that it is
+ released under this License and any conditions added under section
+ 7. This requirement modifies the requirement in section 4 to
+ "keep intact all notices".
+
+ c) You must license the entire work, as a whole, under this
+ License to anyone who comes into possession of a copy. This
+ License will therefore apply, along with any applicable section 7
+ additional terms, to the whole of the work, and all its parts,
+ regardless of how they are packaged. This License gives no
+ permission to license the work in any other way, but it does not
+ invalidate such permission if you have separately received it.
+
+ d) If the work has interactive user interfaces, each must display
+ Appropriate Legal Notices; however, if the Program has interactive
+ interfaces that do not display Appropriate Legal Notices, your
+ work need not make them do so.
+
+ A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit. Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+ 6. Conveying Non-Source Forms.
+
+ You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+ a) Convey the object code in, or embodied in, a physical product
+ (including a physical distribution medium), accompanied by the
+ Corresponding Source fixed on a durable physical medium
+ customarily used for software interchange.
+
+ b) Convey the object code in, or embodied in, a physical product
+ (including a physical distribution medium), accompanied by a
+ written offer, valid for at least three years and valid for as
+ long as you offer spare parts or customer support for that product
+ model, to give anyone who possesses the object code either (1) a
+ copy of the Corresponding Source for all the software in the
+ product that is covered by this License, on a durable physical
+ medium customarily used for software interchange, for a price no
+ more than your reasonable cost of physically performing this
+ conveying of source, or (2) access to copy the
+ Corresponding Source from a network server at no charge.
+
+ c) Convey individual copies of the object code with a copy of the
+ written offer to provide the Corresponding Source. This
+ alternative is allowed only occasionally and noncommercially, and
+ only if you received the object code with such an offer, in accord
+ with subsection 6b.
+
+ d) Convey the object code by offering access from a designated
+ place (gratis or for a charge), and offer equivalent access to the
+ Corresponding Source in the same way through the same place at no
+ further charge. You need not require recipients to copy the
+ Corresponding Source along with the object code. If the place to
+ copy the object code is a network server, the Corresponding Source
+ may be on a different server (operated by you or a third party)
+ that supports equivalent copying facilities, provided you maintain
+ clear directions next to the object code saying where to find the
+ Corresponding Source. Regardless of what server hosts the
+ Corresponding Source, you remain obligated to ensure that it is
+ available for as long as needed to satisfy these requirements.
+
+ e) Convey the object code using peer-to-peer transmission, provided
+ you inform other peers where the object code and Corresponding
+ Source of the work are being offered to the general public at no
+ charge under subsection 6d.
+
+ A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+ A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling. In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage. For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product. A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+ "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source. The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+ If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information. But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+ The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed. Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+ Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+ 7. Additional Terms.
+
+ "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law. If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+ When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it. (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.) You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+ Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+ a) Disclaiming warranty or limiting liability differently from the
+ terms of sections 15 and 16 of this License; or
+
+ b) Requiring preservation of specified reasonable legal notices or
+ author attributions in that material or in the Appropriate Legal
+ Notices displayed by works containing it; or
+
+ c) Prohibiting misrepresentation of the origin of that material, or
+ requiring that modified versions of such material be marked in
+ reasonable ways as different from the original version; or
+
+ d) Limiting the use for publicity purposes of names of licensors or
+ authors of the material; or
+
+ e) Declining to grant rights under trademark law for use of some
+ trade names, trademarks, or service marks; or
+
+ f) Requiring indemnification of licensors and authors of that
+ material by anyone who conveys the material (or modified versions of
+ it) with contractual assumptions of liability to the recipient, for
+ any liability that these contractual assumptions directly impose on
+ those licensors and authors.
+
+ All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10. If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term. If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+ If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+ Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+ 8. Termination.
+
+ You may not propagate or modify a covered work except as expressly
+provided under this License. Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+ However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+ Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+ Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License. If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+ 9. Acceptance Not Required for Having Copies.
+
+ You are not required to accept this License in order to receive or
+run a copy of the Program. Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance. However,
+nothing other than this License grants you permission to propagate or
+modify any covered work. These actions infringe copyright if you do
+not accept this License. Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+ 10. Automatic Licensing of Downstream Recipients.
+
+ Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License. You are not responsible
+for enforcing compliance by third parties with this License.
+
+ An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations. If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+ You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License. For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+ 11. Patents.
+
+ A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based. The
+work thus licensed is called the contributor's "contributor version".
+
+ A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version. For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+ Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+ In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement). To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+ If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients. "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+ If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+ A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License. You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+ Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+ 12. No Surrender of Others' Freedom.
+
+ If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all. For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+ 13. Use with the GNU Affero General Public License.
+
+ Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU Affero General Public License into a single
+combined work, and to convey the resulting work. The terms of this
+License will continue to apply to the part which is the covered work,
+but the special requirements of the GNU Affero General Public License,
+section 13, concerning interaction through a network will apply to the
+combination as such.
+
+ 14. Revised Versions of this License.
+
+ The Free Software Foundation may publish revised and/or new versions of
+the GNU General Public License from time to time. Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+ Each version is given a distinguishing version number. If the
+Program specifies that a certain numbered version of the GNU General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation. If the Program does not specify a version number of the
+GNU General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+ If the Program specifies that a proxy can decide which future
+versions of the GNU General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+ Later license versions may give you additional or different
+permissions. However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+ 15. Disclaimer of Warranty.
+
+ THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. Limitation of Liability.
+
+ IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+ 17. Interpretation of Sections 15 and 16.
+
+ If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Programs
+
+ If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+ To do so, attach the following notices to the program. It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+
+ Copyright (C)
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see .
+
+Also add information on how to contact you by electronic and paper mail.
+
+ If the program does terminal interaction, make it output a short
+notice like this when it starts in an interactive mode:
+
+ Copyright (C)
+ This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+ This is free software, and you are welcome to redistribute it
+ under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License. Of course, your program's commands
+might be different; for a GUI interface, you would use an "about box".
+
+ You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU GPL, see
+.
+
+ The GNU General Public License does not permit incorporating your program
+into proprietary programs. If your program is a subroutine library, you
+may consider it more useful to permit linking proprietary applications with
+the library. If this is what you want to do, use the GNU Lesser General
+Public License instead of this License. But first, please read
+.
+
+
diff --git a/Main.hs b/Main.hs
new file mode 100644
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,60 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE ExistentialQuantification, DeriveDataTypeable, TypeSynonymInstances, RankNTypes, FlexibleInstances #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import Graphics.UI.Gtk
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Main
+import System.Environment
+
+-- | main entry.
+main :: IO ()
+main = do
+ -- Init.
+ unsafeInitGUIForThreadedRTS
+
+ -- Get program arguments.
+ args <- getArgs
+
+ case args of
+ [x] -> do
+ case (read x :: SpawnProcessArgs) of
+ SpawnAnythingProcessArgs arg -> do
+ let (iType, iNames) =
+ case arg of
+ InteractiveSearchArgs iType iNames -> (iType, iNames)
+ -- 'GlobalSearchArgs' use default candidate name list.
+ GlobalSearchArgs ->
+ (GlobalSearch,
+ ["Irc"
+ ,"Locate"
+ ,"Buffer"
+ ,"BrowseHistory"
+ ,"BufferHistory"
+ ,"Browser"
+ ,"GoogleSuggest"
+ ,"Application"
+ ,"ExecuteFile"
+ ,"Process"
+ ])
+ anythingMain iType iNames
+ _ -> return ()
+ _ -> return ()
diff --git a/Manatee/Plugin/Anything/Anything.hs b/Manatee/Plugin/Anything/Anything.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/Anything.hs
@@ -0,0 +1,84 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.Anything where
+
+import Control.Arrow
+import DBus.Client hiding (Signal)
+import Data.Char
+import Data.List
+import Data.Typeable
+import Manatee.Core.DBus
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.List
+import Manatee.Toolkit.General.Typeable
+import Manatee.Toolkit.General.Url
+
+-- | Pick up anything name.
+anythingName :: Anything -> AnythingName
+anythingName = head . anythingColumnTitle
+
+-- | Unpack anything candidate.
+anythingCandidateUnpack :: Typeable a => AnythingCandidateWrap -> a
+anythingCandidateUnpack (AnythingCandidateWrap c) = convertType c
+
+-- | Default fuzzy filter rule.
+anythingFuzzyFilterRule :: Bool -> AnythingInput -> String -> Bool
+anythingFuzzyFilterRule caseSensitivity input candidateStr =
+ all (`isInfixOf` filterStr) inputWords
+ where (inputStr, filterStr) =
+ (if caseSensitivity
+ then id
+ else map toLower *** map toLower)
+ (input, candidateStr)
+ inputWords = words inputStr
+
+-- | Search in different place. :)
+anythingSearchCommands :: String -> [(AnythingCommandName, AnythingAction)]
+anythingSearchCommands keyword =
+ [("Search in Google", search encodeUrl "http://www.google.com/search?&ie=UTF-8&oe=UTF-8&q=")
+ ,("I'm feeling lucky", search encodeUrl "http://www.google.com/search?&btnI=Im+Feeling+Lucky&ie=UTF-8&oe=UTF-8&q=")
+ ,("Search in WolframAlpha", search encodeUrl "http://www.wolframalpha.com/input/?i=")
+ ,("Search in Blekko", search concatKeywords "http://blekko.com/ws/")
+ ,("Search in Bing", search encodeUrl "http://bing.com/search?q=")
+ ,("Search in Yahoo", search encodeUrl "http://search.yahoo.com/search?q=")
+ ,("Search in Wikipedia", search encodeUrl "http://en.wikipedia.org/wiki/")
+ ,("Search in Google Image", search encodeUrl "http://images.google.com/images?sa=N&tab=wi&q=")
+ ,("Search in Google Blog", search encodeUrl "http://blogsearch.google.com/blogsearch?&ie=UTF-8&oe=UTF-8&q=")
+ ,("Search in Google Group", search encodeUrl "http://groups.google.com/groups?&ie=UTF-8&oe=UTF-8&q=")
+ ,("Search in Google Code", search encodeUrl "http://www.google.com/codesearch?&lr=&q=")
+ ,("Search in Google Map", search encodeUrl "http://maps.google.com/maps?z=17&q=")
+ ,("Search in HaskellWiki", search encodeUrl "http://www.google.com/cse?cx=014102838545582129901%3Anhonl7a8bw8&q=")
+ ,("Search in Hoogle", search encodeUrl "http://haskell.org/hoogle/?hoogle=")
+ ,("Search Slang", search encodeUrl "http://www.urbandictionary.com/define.php?term=")
+ ,("Search in Baidu Mp3", search encodeUrl "http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&lm=0&word=")
+ ,("Open RFC", search encodeUrl "http://www.ietf.org/rfc/rfc")
+ ,("Open goo.gl link", search encodeUrl "http://goo.gl/")
+ ]
+ where search encodeFun url client = mkDaemonSignal client NewTab (NewTabArgs "PageBrowser" (url ++ encodeFun keyword))
+
+-- | Open uri.
+anythingOpenUri :: String -> Client -> IO ()
+anythingOpenUri uri client =
+ mkDaemonSignal client NewTab (NewTabArgs "PageBrowser" uri)
+
+-- | Concat keywords by "+".
+concatKeywords :: String -> String
+concatKeywords = addMap (++ "+") . words
diff --git a/Manatee/Plugin/Anything/AnythingApplication.hs b/Manatee/Plugin/Anything/AnythingApplication.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingApplication.hs
@@ -0,0 +1,100 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingApplication where
+
+import Control.Monad
+import DBus.Client hiding (Signal)
+import Data.ByteString.UTF8 hiding (take, length)
+import Data.Char (toLower)
+import Data.List
+import Data.Maybe
+import Data.Ord (comparing)
+import Data.Typeable
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.Process
+import Manatee.Toolkit.General.String
+import Manatee.Toolkit.Gio.Gio
+import System.FilePath
+import System.GIO
+
+data ApplicationInfo =
+ ApplicationInfo {applicationInfoName :: String
+ ,applicationInfoDescription :: String
+ ,applicationInfoCommand :: String
+ } deriving Typeable
+
+instance AnythingCandidate ApplicationInfo where
+ candidateCommandName = applicationInfoCommand
+ candidateFilterName a = applicationInfoName a ++ " " ++ applicationInfoDescription a
+ candidateCompletionName a _ = applicationInfoName a
+ candidateExpandName a _ = return $ applicationInfoName a
+
+-- | Search and run register application from system.
+anythingApplication :: Anything
+anythingApplication =
+ Anything {anythingColumnTitle = ["Application", "Description"]
+ ,anythingColumnFun = anythingApplicationColumnFun
+ ,anythingSearch = AnythingSearch anythingApplicationSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule False
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingApplicationCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search candidate.
+anythingApplicationSearch :: AnythingInput -> Client -> IO [ApplicationInfo]
+anythingApplicationSearch _ _ =
+ liftM (sortBy (comparing (map toLower . applicationInfoName)) . map
+ (\x -> ApplicationInfo
+ (takeFileName $ appInfoGetExecutable x)
+ (fromMaybe "" $ appInfoGetDescription x)
+ (anythingApplicationFilterCommandName $ toString $ fromMaybe "" $ appInfoGetCommandline x)
+ )) appInfoGetAll
+
+-- | Function for generate candidate column.
+anythingApplicationColumnFun :: [AnythingColumnFun]
+anythingApplicationColumnFun =
+ [applicationInfoName . anythingCandidateUnpack
+ ,applicationInfoDescription . anythingCandidateUnpack]
+
+-- | Function for generate command list.
+anythingApplicationCommandFun :: AnythingCommandFun
+anythingApplicationCommandFun _ (AnythingCandidateWrap a) _ = do
+ let command = candidateCommandName a
+ return [("Startup application", anythingApplicationActionStartup command)
+ ,("Running in terminal", anythingApplicationActionRunInTerminal command)]
+
+-- | Startup application.
+anythingApplicationActionStartup :: String -> Client -> IO ()
+anythingApplicationActionStartup command _ =
+ runExternalCommand command
+
+-- | Run command in terminal.
+anythingApplicationActionRunInTerminal :: String -> Client -> IO ()
+anythingApplicationActionRunInTerminal command _ =
+ launchCommandInTerminal command
+
+-- | Because appInfoGetCommandline will append `%u` or `%U` after command line.
+-- This only work if gio compiled with FUSE support.
+anythingApplicationFilterCommandName :: String -> String
+anythingApplicationFilterCommandName =
+ dropSuffix ["%u", "%U"]
diff --git a/Manatee/Plugin/Anything/AnythingBrowseHistory.hs b/Manatee/Plugin/Anything/AnythingBrowseHistory.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingBrowseHistory.hs
@@ -0,0 +1,89 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingBrowseHistory where
+
+import DBus.Client hiding (Signal)
+import Data.Typeable
+import Data.List.Split
+import Manatee.Core.Config
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Network.URI
+
+import qualified Data.Map as M
+
+data BrowseHistory =
+ BrowseHistory {browseHistoryUrl :: String
+ ,browseHistoryTitle :: String}
+ deriving (Show, Read, Eq, Ord, Typeable)
+
+instance AnythingCandidate BrowseHistory where
+ candidateCommandName = browseHistoryUrl
+ candidateFilterName a = browseHistoryUrl a ++ " " ++ browseHistoryTitle a
+ candidateCompletionName a i =
+ let url = browseHistoryUrl a
+ -- Smart completion rule. :)
+ in if isURI i then url else last $ splitOn "://" url
+ candidateExpandName a _ = return $ browseHistoryUrl a
+
+-- | Search browse history.
+anythingBrowseHistory :: Anything
+anythingBrowseHistory =
+ Anything {anythingColumnTitle = ["BrowseHistory", "Url"]
+ ,anythingColumnFun = anythingBrowseHistoryColumnFun
+ ,anythingSearch = AnythingSearch anythingBrowseHistorySearch
+ ,anythingFilterRule = anythingFuzzyFilterRule False
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingBrowseHistoryCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search browse history.
+anythingBrowseHistorySearch :: AnythingInput -> Client -> IO [BrowseHistory]
+anythingBrowseHistorySearch _ _ = do
+ (BrowseHistoryList history) <- readConfig browseHistoryPath (BrowseHistoryList M.empty)
+ return $ map (uncurry BrowseHistory) (M.toList history)
+
+-- | Function for generate candidate column.
+anythingBrowseHistoryColumnFun :: [AnythingColumnFun]
+anythingBrowseHistoryColumnFun =
+ [browseHistoryTitle . anythingCandidateUnpack
+ ,browseHistoryUrl . anythingCandidateUnpack]
+
+-- | Open url.
+anythingBrowseHistoryCommandFun :: AnythingCommandFun
+anythingBrowseHistoryCommandFun _ (AnythingCandidateWrap a) _ = do
+ let uri = candidateCommandName a
+ return [("Open URI", anythingOpenUri uri)
+ ,("Remove from history", anythingBrowseHistoryRemove uri)
+ ,("Clean History", anythingBrowseHistoryClean)]
+
+-- | Remove url from history.
+anythingBrowseHistoryRemove :: String -> Client -> IO ()
+anythingBrowseHistoryRemove uri _ = do
+ (BrowseHistoryList history) <- readConfig browseHistoryPath (BrowseHistoryList M.empty)
+ writeConfig browseHistoryPath (BrowseHistoryList (M.delete uri history))
+
+-- | Clean history.
+anythingBrowseHistoryClean :: Client -> IO ()
+anythingBrowseHistoryClean _ =
+ writeConfig browseHistoryPath (BrowseHistoryList M.empty)
diff --git a/Manatee/Plugin/Anything/AnythingBrowser.hs b/Manatee/Plugin/Anything/AnythingBrowser.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingBrowser.hs
@@ -0,0 +1,61 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings #-}
+module Manatee.Plugin.Anything.AnythingBrowser where
+
+import DBus.Client hiding (Signal)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Network.URI
+
+-- | Search uri.
+anythingBrowser :: Anything
+anythingBrowser =
+ Anything {anythingColumnTitle = ["Browser"]
+ ,anythingColumnFun = [anythingCandidateUnpack]
+ ,anythingSearch = AnythingSearch anythingBrowserSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule True
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingBrowserCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search uri.
+anythingBrowserSearch :: AnythingInput -> Client -> IO [String]
+anythingBrowserSearch input _ =
+ case parseURI input of
+ Just uri -> if uriScheme uri /= "irc:" then return [input] else return []
+ Nothing ->
+ return $ if null input then [] else [input]
+
+-- | Browser uri.
+anythingBrowserCommandFun :: AnythingCommandFun
+anythingBrowserCommandFun _ (AnythingCandidateWrap a) _
+ | isURI input
+ = return $
+ [("Open URI", anythingOpenUri input)]
+ ++ anythingSearchCommands input
+ | isURI ("http://" ++ input)
+ = return $
+ [("Open URI", anythingOpenUri ("http://" ++ input))]
+ ++ anythingSearchCommands input
+ | otherwise
+ = return $ anythingSearchCommands input
+ where input = candidateCommandName a
diff --git a/Manatee/Plugin/Anything/AnythingBuffer.hs b/Manatee/Plugin/Anything/AnythingBuffer.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingBuffer.hs
@@ -0,0 +1,85 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingBuffer where
+
+import DBus.Client hiding (Signal)
+import DBus.Message
+import DBus.Types
+import Data.Maybe
+import Manatee.Core.DBus
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+
+instance AnythingCandidate BufferInfo where
+ candidateCommandName _ = ""
+ candidateFilterName a = bName ++ " " ++ bMode ++ " " ++ bPath
+ where bName = bufferInfoName a
+ bMode = bufferInfoMode a
+ bPath = bufferInfoPath a
+ candidateCompletionName a _ = bufferInfoName a
+ candidateExpandName a _ = return $ bufferInfoName a
+
+-- | Search all buffer files.
+anythingBuffer :: Anything
+anythingBuffer =
+ Anything {anythingColumnTitle = ["Buffer", "Mode", "Path"]
+ ,anythingColumnFun = anythingBufferColumnFun
+ ,anythingSearch = AnythingSearch anythingBufferSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule False
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingBufferCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search all buffers.
+anythingBufferSearch :: AnythingInput -> Client -> IO [BufferInfo]
+anythingBufferSearch _ client = do
+ reply <- callDaemonMethod client "GetBufferList" []
+ case reply of
+ Left err -> do
+ putStrLn $ "anythingBufferSearch : Call remote function 'GetBufferList' failed."
+ ++ "\n Reason : " ++ show err
+ return []
+ Right methodReturn -> do
+ let variants = messageBody methodReturn
+ return $ if null variants
+ then []
+ else fromMaybe [] (fromVariant (head variants) :: Maybe [BufferInfo])
+
+-- | Function for generate candidate column.
+anythingBufferColumnFun :: [AnythingColumnFun]
+anythingBufferColumnFun =
+ [bufferInfoName . anythingCandidateUnpack
+ ,bufferInfoMode . anythingCandidateUnpack
+ ,bufferInfoPath . anythingCandidateUnpack]
+
+-- | Function for generate command list.
+anythingBufferCommandFun :: AnythingCommandFun
+anythingBufferCommandFun _ wrap _ = do
+ let modeName = bufferInfoMode $ anythingCandidateUnpack wrap
+ pageId = bufferInfoId $ anythingCandidateUnpack wrap
+ return [("Switch buffer", anythingBufferSwitchBuffer modeName pageId)]
+
+-- | Swtich buffer.
+anythingBufferSwitchBuffer :: PageModeName -> PageId -> Client -> IO ()
+anythingBufferSwitchBuffer modeName pageId client =
+ mkDaemonSignal client SwitchBuffer (SwitchBufferArgs modeName pageId)
diff --git a/Manatee/Plugin/Anything/AnythingBufferHistory.hs b/Manatee/Plugin/Anything/AnythingBufferHistory.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingBufferHistory.hs
@@ -0,0 +1,88 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingBufferHistory where
+
+import DBus.Client hiding (Signal)
+import DBus.Message
+import DBus.Types
+import Data.Maybe
+import Manatee.Core.DBus
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Network.URI
+
+instance AnythingCandidate BufferHistory where
+ candidateCommandName _ = ""
+ candidateFilterName a = bPath ++ " " ++ bMode
+ where bMode = bufferHistoryMode a
+ bPath = bufferHistoryPath a
+ candidateCompletionName a _ = bufferHistoryPath a
+ candidateExpandName a _ = return $ bufferHistoryPath a
+
+-- | Search buffer history.
+anythingBufferHistory :: Anything
+anythingBufferHistory =
+ Anything {anythingColumnTitle = ["BufferHistory", "Mode"]
+ ,anythingColumnFun = anythingBufferHistoryColumnFun
+ ,anythingSearch = AnythingSearch anythingBufferHistorySearch
+ ,anythingFilterRule = anythingFuzzyFilterRule False
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingBufferHistoryCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search all buffers.
+anythingBufferHistorySearch :: AnythingInput -> Client -> IO [BufferHistory]
+anythingBufferHistorySearch _ client = do
+ reply <- callDaemonMethod client "GetBufferHistory" []
+ case reply of
+ Left err -> do
+ putStrLn $ "anythingBufferHistorySearch : Call remote function 'GetBufferList' failed."
+ ++ "\n Reason : " ++ show err
+ return []
+ Right methodReturn -> do
+ let variants = messageBody methodReturn
+ return $ if null variants
+ then []
+ else
+ let list = fromMaybe [] (fromVariant (head variants) :: Maybe [BufferHistory])
+ -- Filter browser buffer.
+ -- AnythingBrowseHistory can do better. :)
+ in filter (not . isURI . bufferHistoryPath) list
+
+-- | Function for generate candidate column.
+anythingBufferHistoryColumnFun :: [AnythingColumnFun]
+anythingBufferHistoryColumnFun =
+ [bufferHistoryPath . anythingCandidateUnpack
+ ,bufferHistoryMode . anythingCandidateUnpack]
+
+-- | Function for generate command list.
+anythingBufferHistoryCommandFun :: AnythingCommandFun
+anythingBufferHistoryCommandFun _ wrap _ = do
+ let pageType = bufferHistoryType $ anythingCandidateUnpack wrap
+ pagePath = bufferHistoryPath $ anythingCandidateUnpack wrap
+ return [("Open buffer", anythingBufferHistoryOpenBuffer pageType pagePath)]
+
+-- | Open buffer.
+anythingBufferHistoryOpenBuffer :: PageType -> String -> Client -> IO ()
+anythingBufferHistoryOpenBuffer pageType pagePath client =
+ mkDaemonSignal client NewTab (NewTabArgs pageType pagePath)
diff --git a/Manatee/Plugin/Anything/AnythingExecuteFile.hs b/Manatee/Plugin/Anything/AnythingExecuteFile.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingExecuteFile.hs
@@ -0,0 +1,65 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingExecuteFile where
+
+import Control.Monad
+import DBus.Client hiding (Signal)
+import Data.ByteString.UTF8
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.Process
+import Manatee.Toolkit.Gio.Gio
+
+-- | Search all execute files that can find in PATH.
+anythingExecuteFile :: Anything
+anythingExecuteFile =
+ Anything {anythingColumnTitle = ["ExecuteFile"]
+ ,anythingColumnFun = [anythingCandidateUnpack]
+ ,anythingSearch = AnythingSearch anythingExecuteFileSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule False
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingExecuteFileCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search all execute files.
+anythingExecuteFileSearch :: AnythingInput -> Client -> IO [String]
+anythingExecuteFileSearch _ _ =
+ liftM (map toString) getAllExecuteFiles
+
+-- | Function for generate command list.
+anythingExecuteFileCommandFun :: AnythingCommandFun
+anythingExecuteFileCommandFun _ (AnythingCandidateWrap a) _ = do
+ let command = candidateCommandName a
+ return [("Execute", anythingExecuteFileActionExecute command)
+ ,("Running in terminal", anythingExecuteFileActionRunInTerminal command)]
+
+-- | Run command.
+anythingExecuteFileActionExecute :: String -> Client -> IO ()
+anythingExecuteFileActionExecute command _ =
+ runExternalCommand command
+
+-- | Run command in terminal.
+anythingExecuteFileActionRunInTerminal :: String -> Client -> IO ()
+anythingExecuteFileActionRunInTerminal command _ =
+ launchCommandInTerminal command
+
+
diff --git a/Manatee/Plugin/Anything/AnythingGoogleSuggest.hs b/Manatee/Plugin/Anything/AnythingGoogleSuggest.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingGoogleSuggest.hs
@@ -0,0 +1,77 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingGoogleSuggest where
+
+import DBus.Client hiding (Signal)
+import Data.Typeable
+import Google.Suggest
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.Misc
+import Network.URI
+
+data Suggestion =
+ Suggestion {suggestionName :: String
+ ,suggestionNumber:: Int
+ } deriving (Show, Ord, Eq, Typeable)
+
+instance AnythingCandidate Suggestion where
+ candidateCommandName = suggestionName
+ candidateFilterName a = suggestionName a ++ " " ++ show (suggestionNumber a)
+ candidateCompletionName a _ = suggestionName a
+ candidateExpandName a _ = return $ suggestionName a
+
+-- | Search all execute files that can find in PATH.
+anythingGoogleSuggest :: Anything
+anythingGoogleSuggest =
+ Anything {anythingColumnTitle = ["GoogleSuggest", "QueryNumber"]
+ ,anythingColumnFun = anythingGoogleSuggestColumnFun
+ ,anythingSearch = AnythingSearch anythingGoogleSuggestSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule True
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = True
+ ,anythingCommandFun = anythingGoogleSuggestCommandFun
+ ,anythingCalculateDelay = 500
+ }
+
+-- | Search all execute files.
+anythingGoogleSuggestSearch :: AnythingInput -> Client -> IO [Suggestion]
+anythingGoogleSuggestSearch input _ = do
+ result <- suggest input Nothing
+ return $ case result of
+ Right list -> map (uncurry Suggestion) list
+ Left _ -> []
+
+-- | Function to generate candidate column.
+anythingGoogleSuggestColumnFun :: [AnythingColumnFun]
+anythingGoogleSuggestColumnFun =
+ [suggestionName . anythingCandidateUnpack
+ ,splitInt . suggestionNumber . anythingCandidateUnpack]
+
+-- | Function for generate command list.
+anythingGoogleSuggestCommandFun :: AnythingCommandFun
+anythingGoogleSuggestCommandFun _ (AnythingCandidateWrap a) _
+ | isURI candidate
+ = return $ [("Open URI", anythingOpenUri candidate)] ++ (anythingSearchCommands candidate)
+ | isURI ("http://" ++ candidate)
+ = return $ [("Open URI", anythingOpenUri ("http://" ++ candidate))] ++ (anythingSearchCommands candidate)
+ | otherwise
+ = return (anythingSearchCommands candidate)
+ where candidate = candidateCommandName a
diff --git a/Manatee/Plugin/Anything/AnythingInteractive.hs b/Manatee/Plugin/Anything/AnythingInteractive.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingInteractive.hs
@@ -0,0 +1,34 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingInteractive where
+
+import DBus.Client hiding (Signal)
+import Manatee.Core.DBus
+import Manatee.Core.Types
+
+-- | Return interactive result.
+anythingInteractiveActionReturn :: AnythingInteractiveType -> FilePath -> Client -> IO ()
+anythingInteractiveActionReturn iType path client
+ | iType == LocalInteractive
+ = mkDaemonSignal client LocalInteractiveReturn (LocalInteractiveReturnArgs [path])
+ | iType == GlobalInteractive
+ = mkDaemonSignal client GlobalInteractiveReturn (GlobalInteractiveReturnArgs [path])
+ | otherwise
+ = putStrLn $ "anythingInteractiveActionReturn : invalid interactive type " ++ show iType
diff --git a/Manatee/Plugin/Anything/AnythingInteractiveChar.hs b/Manatee/Plugin/Anything/AnythingInteractiveChar.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingInteractiveChar.hs
@@ -0,0 +1,51 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingInteractiveChar where
+
+import DBus.Client hiding (Signal)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.AnythingInteractive
+import Manatee.Plugin.Anything.Types
+
+-- | Search interactive character.
+anythingInteractiveChar :: Anything
+anythingInteractiveChar =
+ Anything {anythingColumnTitle = ["InteractiveChar"]
+ ,anythingColumnFun = [anythingCandidateUnpack]
+ ,anythingSearch = AnythingSearch anythingInteractiveCharSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule True
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingInteractiveCharCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search function for char.
+anythingInteractiveCharSearch :: AnythingInput -> Client -> IO [String]
+anythingInteractiveCharSearch input _
+ | null input
+ = return []
+ | otherwise
+ = return [[head input]]
+
+-- | Function to generate command list.
+anythingInteractiveCharCommandFun :: AnythingCommandFun
+anythingInteractiveCharCommandFun input _ iType
+ = return [("Return Char", anythingInteractiveActionReturn iType [head input])]
diff --git a/Manatee/Plugin/Anything/AnythingInteractiveDirectory.hs b/Manatee/Plugin/Anything/AnythingInteractiveDirectory.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingInteractiveDirectory.hs
@@ -0,0 +1,48 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingInteractiveDirectory where
+
+import Data.ByteString.UTF8 hiding (drop, length)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.AnythingInteractive
+import Manatee.Plugin.Anything.AnythingLocate
+import Manatee.Plugin.Anything.Types
+import System.FilePath
+
+-- | Search local files.
+anythingInteractiveDirectory :: Anything
+anythingInteractiveDirectory =
+ Anything {anythingColumnTitle = ["InteractiveDirectory", "Size"]
+ ,anythingColumnFun = anythingLocateColumnFun
+ ,anythingSearch = AnythingSearch (anythingLocateSearch True)
+ ,anythingFilterRule = anythingLocateFilterRule
+ ,anythingCompletionRule = takeFileName
+ ,anythingInputDepend = True
+ ,anythingCommandFun = anythingInteractiveDirectoryCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Function to generate command list.
+anythingInteractiveDirectoryCommandFun :: AnythingCommandFun
+anythingInteractiveDirectoryCommandFun _ wrap iType
+ = return [("Return directory", anythingInteractiveActionReturn iType filepath)]
+ where path = fileInfoPath $ anythingCandidateUnpack wrap
+ filepath = toString path
+
diff --git a/Manatee/Plugin/Anything/AnythingInteractiveFile.hs b/Manatee/Plugin/Anything/AnythingInteractiveFile.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingInteractiveFile.hs
@@ -0,0 +1,47 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingInteractiveFile where
+
+import Data.ByteString.UTF8 hiding (drop, length)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.AnythingInteractive
+import Manatee.Plugin.Anything.AnythingLocate
+import Manatee.Plugin.Anything.Types
+import System.FilePath
+
+-- | Search local files.
+anythingInteractiveFile :: Anything
+anythingInteractiveFile =
+ Anything {anythingColumnTitle = ["InteractiveFile", "Size"]
+ ,anythingColumnFun = anythingLocateColumnFun
+ ,anythingSearch = AnythingSearch (anythingLocateSearch False)
+ ,anythingFilterRule = anythingLocateFilterRule
+ ,anythingCompletionRule = takeFileName
+ ,anythingInputDepend = True
+ ,anythingCommandFun = anythingInteractiveFileCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Function to generate command list.
+anythingInteractiveFileCommandFun :: AnythingCommandFun
+anythingInteractiveFileCommandFun _ wrap iType
+ = return [("Return file", anythingInteractiveActionReturn iType filepath)]
+ where path = fileInfoPath $ anythingCandidateUnpack wrap
+ filepath = toString path
diff --git a/Manatee/Plugin/Anything/AnythingInteractiveNumber.hs b/Manatee/Plugin/Anything/AnythingInteractiveNumber.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingInteractiveNumber.hs
@@ -0,0 +1,54 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingInteractiveNumber where
+
+import Data.Char
+import DBus.Client hiding (Signal)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.AnythingInteractive
+import Manatee.Plugin.Anything.Types
+
+-- | Search interactive number.
+anythingInteractiveNumber :: Anything
+anythingInteractiveNumber =
+ Anything {anythingColumnTitle = ["InteractiveNumber"]
+ ,anythingColumnFun = [anythingCandidateUnpack]
+ ,anythingSearch = AnythingSearch anythingInteractiveNumberSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule True
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingInteractiveNumberCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search function for number.
+anythingInteractiveNumberSearch :: AnythingInput -> Client -> IO [String]
+anythingInteractiveNumberSearch input _
+ | null input
+ = return []
+ | all isNumber input
+ = return [input]
+ | otherwise
+ = return []
+
+-- | Function to generate command list.
+anythingInteractiveNumberCommandFun :: AnythingCommandFun
+anythingInteractiveNumberCommandFun input _ iType
+ = return [("Return Number", anythingInteractiveActionReturn iType input)]
diff --git a/Manatee/Plugin/Anything/AnythingInteractiveString.hs b/Manatee/Plugin/Anything/AnythingInteractiveString.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingInteractiveString.hs
@@ -0,0 +1,51 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingInteractiveString where
+
+import DBus.Client hiding (Signal)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.AnythingInteractive
+import Manatee.Plugin.Anything.Types
+
+-- | Search interactive string.
+anythingInteractiveString :: Anything
+anythingInteractiveString =
+ Anything {anythingColumnTitle = ["InteractiveString"]
+ ,anythingColumnFun = [anythingCandidateUnpack]
+ ,anythingSearch = AnythingSearch anythingInteractiveStringSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule True
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingInteractiveStringCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search function for string.
+anythingInteractiveStringSearch :: AnythingInput -> Client -> IO [String]
+anythingInteractiveStringSearch input _
+ | null input
+ = return []
+ | otherwise
+ = return [input]
+
+-- | Function to generate command list.
+anythingInteractiveStringCommandFun :: AnythingCommandFun
+anythingInteractiveStringCommandFun input _ iType
+ = return [("Return String", anythingInteractiveActionReturn iType input)]
diff --git a/Manatee/Plugin/Anything/AnythingIrc.hs b/Manatee/Plugin/Anything/AnythingIrc.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingIrc.hs
@@ -0,0 +1,59 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings #-}
+module Manatee.Plugin.Anything.AnythingIrc where
+
+import DBus.Client hiding (Signal)
+import Manatee.Core.DBus
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+-- import Network.URI
+import Text.Regex.TDFA
+
+-- | Search uri.
+anythingIrc :: Anything
+anythingIrc =
+ Anything {anythingColumnTitle = ["Irc"]
+ ,anythingColumnFun = [anythingCandidateUnpack]
+ ,anythingSearch = AnythingSearch anythingIrcSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule True
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingIrcCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search uri.
+anythingIrcSearch :: AnythingInput -> Client -> IO [String]
+anythingIrcSearch input _
+ | input =~ ("^irc://.*$" :: String) :: Bool
+ = return [input]
+ | otherwise
+ = return []
+
+-- | Irc uri.
+anythingIrcCommandFun :: AnythingCommandFun
+anythingIrcCommandFun _ (AnythingCandidateWrap a) _ =
+ return [("Join Channel", anythingIrcJoinChannel (candidateCommandName a))]
+
+-- | Open uri.
+anythingIrcJoinChannel :: String -> Client -> IO ()
+anythingIrcJoinChannel info client =
+ mkDaemonSignal client NewTab (NewTabArgs "PageIrc" info)
diff --git a/Manatee/Plugin/Anything/AnythingList.hs b/Manatee/Plugin/Anything/AnythingList.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingList.hs
@@ -0,0 +1,60 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+module Manatee.Plugin.Anything.AnythingList where
+
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.AnythingApplication
+import Manatee.Plugin.Anything.AnythingBrowser
+import Manatee.Plugin.Anything.AnythingBrowseHistory
+import Manatee.Plugin.Anything.AnythingBuffer
+import Manatee.Plugin.Anything.AnythingBufferHistory
+import Manatee.Plugin.Anything.AnythingExecuteFile
+import Manatee.Plugin.Anything.AnythingGoogleSuggest
+import Manatee.Plugin.Anything.AnythingInteractiveChar
+import Manatee.Plugin.Anything.AnythingInteractiveDirectory
+import Manatee.Plugin.Anything.AnythingInteractiveFile
+import Manatee.Plugin.Anything.AnythingInteractiveNumber
+import Manatee.Plugin.Anything.AnythingInteractiveString
+import Manatee.Plugin.Anything.AnythingIrc
+import Manatee.Plugin.Anything.AnythingLocate
+import Manatee.Plugin.Anything.AnythingProcess
+import Manatee.Plugin.Anything.Types
+
+import qualified Data.Map as M
+
+-- | Anything list.
+anythingList :: AnythingList
+anythingList =
+ M.fromList $ map (\x -> (anythingName x, x))
+ [anythingLocate
+ ,anythingApplication
+ ,anythingProcess
+ ,anythingExecuteFile
+ ,anythingBrowser
+ ,anythingIrc
+ ,anythingGoogleSuggest
+ ,anythingBuffer
+ ,anythingBufferHistory
+ ,anythingInteractiveFile
+ ,anythingInteractiveDirectory
+ ,anythingInteractiveChar
+ ,anythingInteractiveString
+ ,anythingInteractiveNumber
+ ,anythingBrowseHistory
+ ]
diff --git a/Manatee/Plugin/Anything/AnythingLocate.hs b/Manatee/Plugin/Anything/AnythingLocate.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingLocate.hs
@@ -0,0 +1,157 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingLocate where
+
+import DBus.Client hiding (Signal)
+import Data.ByteString.UTF8 hiding (drop, length)
+import Data.List
+import Data.Typeable
+import Manatee.Core.DBus
+import Manatee.Core.FileOpenRule
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.FilePath
+import Manatee.Toolkit.General.Maybe
+import Manatee.Toolkit.General.Misc
+import Manatee.Toolkit.Gio.Gio
+import System.Environment
+import System.FilePath
+import System.GIO.Enums
+import System.GIO.File.FileInfo hiding (FileInfo)
+
+import qualified Data.ByteString.Char8 as B
+
+data FileInfo =
+ FileInfo {fileInfoPath :: ByteString
+ ,fileInfoDisplayName :: String
+ ,fileInfoContentType :: String
+ ,fileInfoFileType :: FileType
+ ,fileInfoSize :: String
+ } deriving Typeable
+
+instance AnythingCandidate FileInfo where
+ candidateCommandName _ = ""
+ candidateFilterName a = fileInfoDisplayName a ++ " " ++ fileInfoSize a
+ candidateCompletionName a _ = fileInfoDisplayName a
+ candidateExpandName a input = do
+ home <- getEnv "HOME"
+ return $
+ if ("~" :: String) `isPrefixOf` input
+ -- Replace HOME with ~ if user input is beginning with ~
+ then '~' : drop (length home) (toString $ fileInfoPath a)
+ -- Otherwise keep user input.
+ else toString $ fileInfoPath a
+
+-- | Search local files.
+anythingLocate :: Anything
+anythingLocate =
+ Anything {anythingColumnTitle = ["Locate", "Size"]
+ ,anythingColumnFun = anythingLocateColumnFun
+ ,anythingSearch = AnythingSearch (anythingLocateSearch False)
+ ,anythingFilterRule = anythingLocateFilterRule
+ ,anythingCompletionRule = takeFileName
+ ,anythingInputDepend = True
+ ,anythingCommandFun = anythingLocateCommandFun
+ ,anythingCalculateDelay = 0
+ }
+
+-- | Search local files.
+anythingLocateSearch :: Bool -> AnythingInput -> Client -> IO [FileInfo]
+anythingLocateSearch filterDir filepath _ = do
+ home <- getEnv "HOME"
+ let -- Expand '~' with HOME value.
+ path = if ("~" :: String) `isPrefixOf` filepath
+ then home ++ drop (length ("~" :: String)) filepath
+ else filepath
+ -- Try to get upper directory of current file path.
+ upperDir | hasTrailingPathSeparator path
+ = fromString path
+ | otherwise
+ = fromString $ getUpperDirectory path
+ anythingLocateGetFileInfos upperDir filterDir
+
+-- | Get FileInfo.
+anythingLocateGetFileInfos :: ByteString -> Bool -> IO [FileInfo]
+anythingLocateGetFileInfos upperDir filterDir =
+ if directoryDoesExist upperDir -- get result.
+ then do
+ -- Get file infos.
+ infos <- do
+ fileInfos <- directoryGetFileInfos upperDir -- just search deep when upper directory exist.
+ return $
+ map (\info ->
+ FileInfo (B.concat [upperDir, fileInfoGetNameWithType info])
+ (fileInfoGetDisplayNameWithType info)
+ (maybeError (fileInfoGetContentType info)
+ "anythingInteractiveDirectorySearch - fileInfoGetContentType.")
+ (fileInfoGetFileType info)
+ (formatFileSizeForDisplay $ toInteger $ fileInfoGetSize info))
+ $ (\x ->
+ if filterDir
+ then filter (\x -> fileInfoGetFileType x == FileTypeDirectory) x
+ else x
+ ) fileInfos
+ return $ sortBy (\ a b -> compareFileWithType
+ (fileInfoDisplayName a, fileInfoFileType a)
+ (fileInfoDisplayName b, fileInfoFileType b)
+ ) infos
+ else return []
+
+-- | Rule for filter file name.
+anythingLocateFilterRule :: AnythingInput -> String -> Bool
+anythingLocateFilterRule input candidate =
+ -- Current path is end by path separator?
+ hasTrailingPathSeparator input ||
+ -- Or have same prefix with filename.
+ (takeFileName input `isPrefixOf` candidate)
+
+-- | Function for generate candidate column.
+anythingLocateColumnFun :: [AnythingColumnFun]
+anythingLocateColumnFun =
+ [fileInfoDisplayName . anythingCandidateUnpack
+ ,fileInfoSize . anythingCandidateUnpack]
+
+-- | Function to generate command list.
+anythingLocateCommandFun :: AnythingCommandFun
+anythingLocateCommandFun _ wrap _
+ | directoryDoesExist path
+ = return [("Open directory", anythingLocateActionOpenDirectory filepath)
+ ,("Play directory", anythingLocateActionPlayDirectory filepath)]
+ | otherwise =
+ fileOpenRule filepath contentType
+ where path = fileInfoPath $ anythingCandidateUnpack wrap
+ filepath = toString path
+ contentType = fileInfoContentType $ anythingCandidateUnpack wrap
+
+-- | Open file.
+anythingLocateActionOpenFile :: FilePath -> Client -> IO ()
+anythingLocateActionOpenFile path client =
+ mkDaemonSignal client NewTab (NewTabArgs "PageEditor" path)
+
+-- | Open directory.
+anythingLocateActionOpenDirectory :: FilePath -> Client -> IO ()
+anythingLocateActionOpenDirectory path client =
+ mkDaemonSignal client NewTab (NewTabArgs "PageFileManager" path)
+
+-- | Play directory.
+anythingLocateActionPlayDirectory :: FilePath -> Client -> IO ()
+anythingLocateActionPlayDirectory path client =
+ mkDaemonSignal client NewTab (NewTabArgs "PagePlayer" path)
diff --git a/Manatee/Plugin/Anything/AnythingProcess.hs b/Manatee/Plugin/Anything/AnythingProcess.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingProcess.hs
@@ -0,0 +1,66 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, DeriveDataTypeable, RankNTypes #-}
+module Manatee.Plugin.Anything.AnythingProcess where
+
+import DBus.Client hiding (Signal)
+import Manatee.Plugin.Anything.Anything
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.Process
+import System.Linux.Proc
+
+instance AnythingCandidate ProcStatus where
+ candidateCommandName = show . psProcessId
+ candidateFilterName a = psCommand a ++ " " ++ show (psProcessId a)
+ candidateCompletionName a _ = psCommand a
+ candidateExpandName a _ = return $ psCommand a
+
+-- | Search all running processes.
+anythingProcess :: Anything
+anythingProcess =
+ Anything {anythingColumnTitle = ["Process", "ProcessId"]
+ ,anythingColumnFun = anythingProcessColumnFun
+ ,anythingSearch = AnythingSearch anythingProcessSearch
+ ,anythingFilterRule = anythingFuzzyFilterRule False
+ ,anythingCompletionRule = id
+ ,anythingInputDepend = False
+ ,anythingCommandFun = anythingProcessCommandFun
+ ,anythingCalculateDelay = 500
+ }
+
+-- | Search all running processes.
+anythingProcessSearch :: AnythingInput -> Client -> IO [ProcStatus]
+anythingProcessSearch _ _ = procGetAllProcessStatus
+
+-- | Function to generate candidate column.
+anythingProcessColumnFun :: [AnythingColumnFun]
+anythingProcessColumnFun =
+ [psCommand . anythingCandidateUnpack
+ ,show . psProcessId . anythingCandidateUnpack]
+
+-- | Function to generate command list.
+anythingProcessCommandFun :: AnythingCommandFun
+anythingProcessCommandFun _ (AnythingCandidateWrap a) _ = do
+ let processIdStr = candidateCommandName a
+ return [("Kill process", anythingProcessActionKill processIdStr)]
+
+-- | Kill process.
+anythingProcessActionKill :: String -> Client -> IO ()
+anythingProcessActionKill processId _ =
+ runCommand_ ("kill " ++ processId)
diff --git a/Manatee/Plugin/Anything/AnythingView.hs b/Manatee/Plugin/Anything/AnythingView.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/AnythingView.hs
@@ -0,0 +1,756 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE ExistentialQuantification, TypeSynonymInstances, FlexibleInstances, OverloadedStrings #-}
+module Manatee.Plugin.Anything.AnythingView where
+
+import Control.Applicative hiding (empty)
+import Control.Concurrent.STM
+import Control.Monad
+import DBus.Client hiding (Signal)
+import Data.List
+import Data.Maybe
+import GHC.Conc
+import Graphics.UI.Gtk hiding (get)
+import Manatee.Core.DBus
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.AnythingList
+import Manatee.Plugin.Anything.TitleWidget
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.Basic
+import Manatee.Toolkit.General.List
+import Manatee.Toolkit.General.Map
+import Manatee.Toolkit.General.Maybe
+import Manatee.Toolkit.General.STM
+import Manatee.Toolkit.Gtk.Box
+import Manatee.Toolkit.Gtk.Concurrent
+import Manatee.Toolkit.Gtk.Container
+import Manatee.Toolkit.Gtk.Gtk
+import Manatee.Toolkit.Gtk.ModelView
+
+import qualified Data.Map as M
+
+-- | The max limit of rows in candidate view.
+anythingCandidateViewLimit :: Int
+anythingCandidateViewLimit = 10
+
+-- | Default cell height, use when cell height from tree view is invalid.
+anythingViewDefaultCellHeight :: Int
+anythingViewDefaultCellHeight = 24
+
+-- | Candidate tab index in notebook.
+anythingCandidateTabIndex :: Int
+anythingCandidateTabIndex = 0
+
+-- | Command tab index in notebook.
+anythingCommandTabIndex :: Int
+anythingCommandTabIndex = 1
+
+-- | Create new anything view.
+anythingViewNew :: AnythingInteractiveType -> [String] -> IO AnythingView
+anythingViewNew iType names = do
+ -- Create notebook to contain views.
+ notebook <- notebookNew
+ notebookSetTabPos notebook PosBottom
+ notebookSetShowTabs notebook False
+
+ -- Create candidate box.
+ candidateBox <- vBoxNew False 0
+
+ -- Create candidate tab.
+ candidateTab <- (<=<) newTVarIO anythingCandidateTabNew names
+
+ -- Create candidate index.
+ currentCandidateIndex <- newTVarIO 0
+
+ -- Create candidate scrolled window.
+ candidateScrolledWindow <- scrolledWindowNew Nothing Nothing
+ scrolledWindowSetPolicy candidateScrolledWindow PolicyNever PolicyNever
+ scrolledWindowAddWithViewport candidateScrolledWindow candidateBox
+ notebookInsertPage notebook candidateScrolledWindow "Candidate Tab" anythingCandidateTabIndex
+
+ -- Create command view.
+ (commandView, commandStore, commandWin) <- anythingViewCommandTabNew "Command"
+ notebookInsertPage notebook commandWin "Command Tab" anythingCommandTabIndex
+ let commandTab = AnythingCommandView commandView commandStore
+
+ -- Create interactive type.
+ typ <- newTVarIO iType
+
+ -- Connect components.
+ widgetShowAll notebook
+
+ -- Create anything view.
+ return $ AnythingView notebook candidateBox candidateScrolledWindow
+ candidateTab commandTab currentCandidateIndex typ
+
+-- | Create new candidate tab.
+anythingCandidateTabNew :: [String] -> IO AnythingCandidateTab
+anythingCandidateTabNew names = do
+ let anythings = mapMaybe (`M.lookup` anythingList) names
+ columnInfoList = map (\x -> zip (anythingColumnTitle x) (anythingColumnFun x)) anythings
+ liftM M.fromList $ zipWithIndexM columnInfoList $ \ columnInfo index -> do
+ let name = fst $ head columnInfo
+ (view, scrolledWin, store, titleWidget) <- anythingViewCandidateTabNew columnInfo
+ return (index, ((name, 0), AnythingCandidateView view scrolledWin store titleWidget))
+
+-- | Create anything sub-view.
+anythingViewCandidateTabNew :: [(AnythingColumnTitle, AnythingColumnFun)]
+ -> IO (TreeView, ScrolledWindow, AnythingCandidateStore, TitleWidget)
+anythingViewCandidateTabNew columnInfo = do
+ -- Create list store.
+ store <- listStoreNew []
+
+ -- Create tree view.
+ treeView <- treeViewNewWithModel store
+ selection <- treeViewGetSelection treeView
+ treeSelectionSetMode selection SelectionBrowse -- set browse selection mode
+
+ -- Create scrolled window.
+ scrolledWindow <- scrolledWindowNew Nothing Nothing
+ scrolledWindowSetPolicy scrolledWindow PolicyNever PolicyAutomatic -- just show vertically adjustment
+ scrolledWindow `containerAdd` treeView
+
+ -- Create title widget.
+ titleWidget <- titleWidgetNew Nothing
+
+ -- Add column.
+ zipWithIndexM_ columnInfo $ \ (columnTitle, columnFun) index -> do
+ -- Create tree view column
+ treeViewColumn <- treeViewColumnNew
+ treeViewAppendColumn treeView treeViewColumn
+
+ -- Set title.
+ if index == 0
+ -- Use titleWidget if current column is first one.
+ then do
+ set treeViewColumn [treeViewColumnWidget := Just (titleWidgetBox titleWidget)]
+ titleWidgetSetTitle titleWidget columnTitle 0
+ else
+ set treeViewColumn [treeViewColumnTitle := columnTitle]
+
+ -- Add candidate renderer.
+ cellRenderer <- cellRendererTextNew
+ treeViewColumnPackStart treeViewColumn cellRenderer True -- add cell renderer to tree view column
+ cellLayoutSetAttributes treeViewColumn cellRenderer store $ \candidates -> -- set cell attributes
+ [cellText := columnFun candidates]
+
+ return (treeView, scrolledWindow, store, titleWidget)
+
+-- | Create anything sub-view.
+anythingViewCommandTabNew :: String -> IO (TreeView, AnythingCommandStore, ScrolledWindow)
+anythingViewCommandTabNew name = do
+ -- Create list store.
+ store <- listStoreNew []
+
+ -- Create tree view.
+ treeView <- treeViewNewWithModel store
+
+ -- Create scrolled window.
+ scrolledWindow <- scrolledWindowNew Nothing Nothing
+ scrolledWindowSetPolicy scrolledWindow PolicyNever PolicyAutomatic -- just show vertically adjustment
+ scrolledWindow `containerAdd` treeView
+
+ -- Create tree view column.
+ treeViewColumn <- treeViewColumnNew
+ set treeViewColumn [ treeViewColumnTitle := name]
+ treeViewAppendColumn treeView treeViewColumn
+
+ -- Create cell renderer.
+ cellRenderer <- cellRendererTextNew
+ treeViewColumnPackStart treeViewColumn cellRenderer True -- add cell renderer to tree view column
+ cellLayoutSetAttributes treeViewColumn cellRenderer store $ \text -> -- set cell attributes
+ [ cellText := text ]
+
+ return (treeView, store, scrolledWindow)
+
+-- | Add candidates to view.
+anythingViewSetCandidates :: AnythingView -> Client -> AnythingName -> [AnythingCandidateWrap] ->
+ AnythingInput -> AnythingCompletionRule -> AnythingKeyPressId -> IO ()
+anythingViewSetCandidates view client name candidates input rule keyPressId = do
+ candidateTab <- readTVarIO $ avCandidateTab view
+ findMinMatch candidateTab (\ _ v -> (fst . fst) v == name)
+ ?>= \ (index, ((candidateName, _)
+ ,candidateView@(AnythingCandidateView {acavListStore = listStore
+ ,acavTitleWidget = titleWidget}))) -> do
+ -- Get candidate number.
+ let candidateNumber = length candidates
+
+ -- Clear list data first.
+ listStoreClear listStore
+
+ -- Update candidates.
+ unless (null candidates) $ do
+ -- Add candidates.
+ forM_ candidates (listStoreAppend listStore)
+
+ -- Set match number.
+ titleWidgetSetTitle titleWidget name candidateNumber
+
+ -- Update candidate number in 'avCandidateTab'
+ modifyTVarIO (avCandidateTab view) (M.insert index ((candidateName, length candidates), candidateView))
+
+ -- Adjust candidates.
+ readTVarIO (avCandidateTab view) >>= \ candidateMap -> do
+ -- Get hide list and redraw list.
+ let (hideList, redrawList) =
+ partition (\ (_, ((_, num), _)) -> num == 0) $ M.toList candidateMap
+
+ -- Hide candidate view that haven't search result.
+ forM_ hideList $ \ (_, (_, AnythingCandidateView {acavScrolledWindow = scrolledWin})) -> do
+ widgetHideAll scrolledWin
+ containerTryRemove (avCandidateBox view) scrolledWin
+
+ -- Redraw candidate view.
+ zipWithIndexM_ redrawList $ \ (_, ((name, num)
+ ,AnythingCandidateView {acavTreeView = treeView
+ ,acavScrolledWindow = scrolledWin})) index -> do
+ -- Show widget first.
+ widgetShowAll scrolledWin
+
+ -- Adjust packing status.
+ -- Grow candidate when reach last one.
+ let lastCandidate = index == length redrawList - 1
+ packing = if lastCandidate then PackGrow else PackNatural
+ boxTryPack (avCandidateBox view) scrolledWin packing (Just index) Nothing
+
+ -- Adjust height.
+ adjustHeight <-
+ if lastCandidate
+ -- Grow max height when reach last one.
+ then screenHeight
+ -- Otherwise adjust feat value.
+ else do
+ cellHeight <- anythingViewGetCellHeight treeView
+ headerHeight <- treeViewGetHeaderHeight treeView
+ return $ headerHeight + (if num < anythingCandidateViewLimit
+ then num
+ else anythingCandidateViewLimit) * cellHeight
+ widgetSetSizeRequest treeView (-1) adjustHeight
+
+ -- Send AnythingViewOutput signal when reach first candidate.
+ when (index == 0 && name == candidateName) $ do
+ let completions = map (\ (AnythingCandidateWrap a) -> candidateCompletionName a input) candidates
+ completion = anythingViewGetCompletion input completions rule
+ boxHeight <- anythingViewGetBoxHeight view
+ mkDaemonSignal client AnythingViewOutput (AnythingViewOutputArgs input completion boxHeight keyPressId)
+
+ -- Update selected information.
+ candidateMap <- readTVarIO $ avCandidateTab view
+ find (\ (_, ((_, count), _)) -> count > 0) (M.toList candidateMap)
+ ?>= \ (index, (_, AnythingCandidateView {acavTreeView = treeView})) -> do
+ -- Update current candidate index.
+ writeTVarIO (avCurrentCandidateIndex view) index
+
+ -- Just focus first node if current treeView not selected.
+ -- Otherwise keep user's current selected.
+ treePath <- treeViewGetSelectedPath treeView
+ when (isNothing treePath) $ do
+ -- Focus first node of treeView.
+ treeViewFocusFirstToplevelNode treeView
+ -- Scroll candidate view to screen.
+ anythingViewScrollSelectionCandidateToScreen view
+
+-- | Focus next candidate view.
+anythingViewFocusNextCandidateView :: AnythingView -> IO ()
+anythingViewFocusNextCandidateView view =
+ anythingViewFindCurrentCandidateView view
+ >?>= \ AnythingCandidateView {acavTreeView = treeView} -> do
+ -- Unselect all candidates.
+ treeViewUnselectAll treeView
+
+ nextCandidateView <- anythingViewGetNextCandidateView view
+ case nextCandidateView of
+ -- Focus first candidate of next candidate view.
+ Just (nextIndex, AnythingCandidateView {acavTreeView = nextTreeView}) ->
+ anythingViewFocusCandidate view nextTreeView treeViewFocusFirstToplevelNode nextIndex
+ -- Or focus first candidate of first candidate view.
+ Nothing -> anythingViewFocusFirstCandidate view False
+ -- Scroll current candidate view to top of visible area.
+ anythingViewScrollCandidateViewToTop view
+
+-- | Focus prev candidate view.
+anythingViewFocusPrevCandidateView :: AnythingView -> IO ()
+anythingViewFocusPrevCandidateView view =
+ anythingViewFindCurrentCandidateView view
+ >?>= \ AnythingCandidateView {acavTreeView = treeView} -> do
+ -- Unselect all candidates.
+ treeViewUnselectAll treeView
+
+ prevCandidateView <- anythingViewGetPrevCandidateView view
+ case prevCandidateView of
+ -- Focus first candidate of previous candidate view.
+ Just (prevIndex, AnythingCandidateView {acavTreeView = prevTreeView}) ->
+ anythingViewFocusCandidate view prevTreeView treeViewFocusFirstToplevelNode prevIndex
+ -- Focus first candidate of last candidate view.
+ Nothing -> anythingViewFocusLastCandidate view FocusFirstNode False
+
+ -- Scroll current candidate view to top of visible area.
+ anythingViewScrollCandidateViewToTop view
+
+-- | Scroll candidate view to top.
+anythingViewScrollCandidateViewToTop :: AnythingView -> IO ()
+anythingViewScrollCandidateViewToTop view =
+ anythingViewFindCurrentCandidateView view
+ >?>= \ AnythingCandidateView {acavTreeView = treeView} -> do
+ treeViewY <- rectangleY <$> widgetGetAllocation treeView
+ vAdjust <- scrolledWindowGetVAdjustment $ avCandidateScrolledWindow view
+ adjustmentSetValue vAdjust (integralToDouble treeViewY)
+
+-- | Focus default candidate.
+anythingViewFocusFirstCandidate :: AnythingView -> Bool -> IO ()
+anythingViewFocusFirstCandidate view scrollToScreen = do
+ candidateMap <- readTVarIO $ avCandidateTab view
+ find (\ (_, ((_, count), _)) -> count > 0) (M.toList candidateMap)
+ ?>= \ (index, (_, AnythingCandidateView {acavTreeView = treeView})) -> do
+ -- Focus first node of treeView.
+ treeViewFocusFirstToplevelNode treeView
+ -- Update current candidate index.
+ writeTVarIO (avCurrentCandidateIndex view) index
+ -- Scroll candidate view to screen.
+ when scrollToScreen $ anythingViewScrollSelectionCandidateToScreen view
+
+-- | Focus default candidate.
+anythingViewFocusLastCandidate :: AnythingView -> FocusNode -> Bool -> IO ()
+anythingViewFocusLastCandidate view focusNode scrollToScreen = do
+ candidateMap <- readTVarIO $ avCandidateTab view
+ find (\ (_, ((_, count), _)) -> count > 0) (reverse $ M.toList candidateMap)
+ ?>= \ (index, (_, AnythingCandidateView {acavTreeView = treeView})) -> do
+ -- Focus first or last node of treeView.
+ case focusNode of
+ FocusFirstNode -> treeViewFocusFirstToplevelNode treeView
+ FocusLastNode -> treeViewFocusLastToplevelNode treeView
+ -- Update current candidate index.
+ writeTVarIO (avCurrentCandidateIndex view) index
+ -- Scroll candidate view to screen.
+ when scrollToScreen $ anythingViewScrollSelectionCandidateToScreen view
+
+-- | Focus next candidate, focus next candidate view.
+-- Move first candidate view and first candidate
+-- if reach last candidate in all candidate view.
+anythingViewFocusNextCandidate :: AnythingView -> IO ()
+anythingViewFocusNextCandidate view =
+ anythingViewFindCurrentCandidateView view
+ >?>= \ AnythingCandidateView {acavTreeView = treeView} -> do
+ atLastNode <- treeViewAtLastToplevelNode treeView
+ if atLastNode
+ -- Focus first node of other candidate view
+ -- If have reach last candidate of current view.
+ then do
+ -- Unselect current view.
+ treeViewUnselectAll treeView
+
+ nextCandidateView <- anythingViewGetNextCandidateView view
+ case nextCandidateView of
+ -- Focus first node of next candidate view,
+ -- when have next candidate.
+ Just (nextIndex, AnythingCandidateView {acavTreeView = nextTreeView}) ->
+ anythingViewFocusCandidate view nextTreeView treeViewFocusFirstToplevelNode nextIndex
+ -- Otherwise focus first candidate view.
+ Nothing -> anythingViewFocusFirstCandidate view True
+ -- Otherwise focus next node.
+ else treeViewFocusNextToplevelNode treeView
+
+ -- Scroll selection candidate to screen visible area.
+ anythingViewScrollSelectionCandidateToScreen view
+
+-- | Focus prev candidate, focus prev candidate view.
+-- Move last candidate view and last candidate
+-- if reach first candidate in all candidate view.
+anythingViewFocusPrevCandidate :: AnythingView -> IO ()
+anythingViewFocusPrevCandidate view =
+ anythingViewFindCurrentCandidateView view
+ >?>= \ AnythingCandidateView {acavTreeView = treeView} -> do
+ atFirstNode <- treeViewAtFirstToplevelNode treeView
+ if atFirstNode
+ -- Focus last node of other candidate view
+ -- If have reach first candidate of current view.
+ then do
+ -- Unselect current view.
+ treeViewUnselectAll treeView
+
+ prevCandidateView <- anythingViewGetPrevCandidateView view
+ case prevCandidateView of
+ -- Focus last node of prev candidate view,
+ -- when have prev candidate.
+ Just (prevIndex, AnythingCandidateView {acavTreeView = prevTreeView}) ->
+ anythingViewFocusCandidate view prevTreeView treeViewFocusLastToplevelNode prevIndex
+ -- Otherwise focus last candidate view.
+ Nothing -> anythingViewFocusLastCandidate view FocusLastNode True
+ -- Otherwise focus next node.
+ else treeViewFocusPrevToplevelNode treeView
+
+ -- Scroll selection candidate to screen visible area.
+ anythingViewScrollSelectionCandidateToScreen view
+
+-- | Scroll selection candidate to screen visible area.
+anythingViewScrollSelectionCandidateToScreen :: AnythingView -> IO ()
+anythingViewScrollSelectionCandidateToScreen view =
+ anythingViewFindCurrentCandidateView view
+ >?>= \ AnythingCandidateView {acavTreeView = treeView} ->
+ -- Get widget coordinate of selection cell.
+ treeViewGetSelectedWidgetCoordinate treeView
+
+ >?>= \(Rectangle cx cy _ ch) ->
+ -- Transform treeView coordinate to avCandidateBox coordinate.
+ widgetTranslateCoordinates treeView (avCandidateBox view) cx cy
+ >?>= \(_, by) -> do
+ let candidateY = integralToDouble by
+ candidateH = integralToDouble ch
+ scrolledWindow = avCandidateScrolledWindow view
+
+ -- Get vertical adjustment information.
+ vAdjust <- scrolledWindowGetVAdjustment scrolledWindow
+ currentValue <- adjustmentGetValue vAdjust
+ pageSize <- adjustmentGetPageSize vAdjust
+
+ -- Adjust the value of vertical adjustment
+ -- when selection cell escape to visible area.
+ if candidateY < currentValue
+ then do
+ -- When current candidate is first one,
+ -- need calculate the height of header,
+ -- make sure header can scroll to visible area of screen.
+ atFirstToplevelNode <- treeViewAtFirstToplevelNode treeView
+ adjustValue <- if atFirstToplevelNode
+ then integralToDouble <$> treeViewGetHeaderHeight treeView
+ else return 0
+ adjustmentSetValue vAdjust (candidateY - adjustValue)
+ else
+ when (candidateY + candidateH > currentValue + pageSize) $
+ adjustmentSetValue vAdjust (candidateY + candidateH - pageSize)
+
+-- | Next candidate view.
+anythingViewGetNextCandidateView :: AnythingView -> IO (Maybe (Int, AnythingCandidateView))
+anythingViewGetNextCandidateView view = do
+ currentIndex <- readTVarIO $ avCurrentCandidateIndex view
+ candidateMap <- readTVarIO $ avCandidateTab view
+ let (_, matchList) = splitAt currentIndex (M.toList candidateMap)
+ return $
+ case matchList of
+ [] -> Nothing
+ [_] -> Nothing
+ _ ->
+ let (_, list) = partition (\ (_, ((_, num), _)) -> num == 0) (tail matchList)
+ in case list of
+ [] -> Nothing
+ _ ->
+ let (index, (_, view)) = head list
+ in Just (index, view)
+
+-- | Prev candidate view.
+anythingViewGetPrevCandidateView :: AnythingView -> IO (Maybe (Int, AnythingCandidateView))
+anythingViewGetPrevCandidateView view = do
+ currentIndex <- readTVarIO $ avCurrentCandidateIndex view
+ candidateMap <- readTVarIO $ avCandidateTab view
+ let (matchList, _) = splitAt currentIndex (M.toList candidateMap)
+ return $
+ case matchList of
+ [] -> Nothing
+ _ -> let (_, list) = partition (\ (_, ((_, num), _)) -> num == 0) (reverse matchList)
+ in case list of
+ [] -> Nothing
+ _ -> let (index, (_, view)) = head list
+ in Just (index, view)
+
+-- | Get completion.
+anythingViewGetCompletion :: AnythingInput -> [String] -> AnythingCompletionRule -> AnythingCompletion
+anythingViewGetCompletion input candidates rule = completion
+ where prefix = rule input
+ common = foldl1_ intersectFront candidates
+ completion = if prefix `isPrefixOf` common
+ then drop (length prefix) common
+ else ""
+
+-- | Add commands to view.
+anythingViewSetCommands :: AnythingView -> [String] -> IO ()
+anythingViewSetCommands view commands = do
+ let (AnythingCommandView treeView store) = avCommandTab view
+ listStoreClear store
+ forM_ commands (listStoreAppend store)
+ treeViewFocusFirstToplevelNode treeView
+
+-- | Focus next command.
+anythingViewFocusNextCommand :: AnythingView -> IO ()
+anythingViewFocusNextCommand view = do
+ let (AnythingCommandView treeView _) = avCommandTab view
+ treeViewFocusNextToplevelNode treeView
+
+-- | Focus prev command.
+anythingViewFocusPrevCommand :: AnythingView -> IO ()
+anythingViewFocusPrevCommand view = do
+ let (AnythingCommandView treeView _) = avCommandTab view
+ treeViewFocusPrevToplevelNode treeView
+
+-- | Show candidates.
+anythingViewShowCandidateTab :: AnythingView -> IO ()
+anythingViewShowCandidateTab view =
+ notebookSetCurrentPage (avNotebook view) anythingCandidateTabIndex
+
+-- | Show commands.
+anythingViewShowCommandTab :: AnythingView -> IO ()
+anythingViewShowCommandTab view =
+ notebookSetCurrentPage (avNotebook view) anythingCommandTabIndex
+
+-- | Is candidates tab.
+anythingViewIsFocusCandidateTab :: AnythingView -> IO Bool
+anythingViewIsFocusCandidateTab view =
+ (anythingCandidateTabIndex ==) <$> notebookGetCurrentPage (avNotebook view)
+
+-- | Is commands tab.
+anythingViewIsFocusCommandTab :: AnythingView -> IO Bool
+anythingViewIsFocusCommandTab view =
+ (anythingCommandTabIndex ==) <$> notebookGetCurrentPage (avNotebook view)
+
+-- | Find AnythingCandidateView from given index.
+anythingViewFindCandidateView :: AnythingView -> Int -> IO (Maybe AnythingCandidateView)
+anythingViewFindCandidateView view index = do
+ candidateTab <- readTVarIO $ avCandidateTab view
+ findMinMatch candidateTab (\ i (_, _) -> i == index)
+ ?>=> \ (_, (_, view)) -> return (Just view)
+
+-- | Find current anything name.
+anythingViewFindCurrentAnythingName :: AnythingView -> IO (Maybe AnythingName)
+anythingViewFindCurrentAnythingName view = do
+ currentIndex <- readTVarIO $ avCurrentCandidateIndex view
+ candidateTab <- readTVarIO $ avCandidateTab view
+ findMinMatch candidateTab (\ i (_, _) -> i == currentIndex)
+ ?>=> \ (_, ((name, _), _)) -> return (Just name)
+
+-- | Find AnythingCandidateView from given index.
+anythingViewFindCurrentCandidateView :: AnythingView -> IO (Maybe AnythingCandidateView)
+anythingViewFindCurrentCandidateView view = do
+ currentIndex <- readTVarIO $ avCurrentCandidateIndex view
+ anythingViewFindCandidateView view currentIndex
+
+-- | Get selected candidate.
+anythingViewGetSelectedCandidate :: AnythingView -> IO (Maybe AnythingCandidateWrap)
+anythingViewGetSelectedCandidate view =
+ anythingViewFindCurrentCandidateView view
+ >?>=> \ AnythingCandidateView {acavTreeView = treeView
+ ,acavListStore = listStore} ->
+ treeViewGetSelection treeView
+ >>= \x -> treeSelectionGetSelected x
+ >?>=> (\x -> Just <$> listStoreGetValue listStore (listStoreIterToIndex x))
+
+-- | Focus candidate and update current candidate index.
+anythingViewFocusCandidate :: TreeViewClass view => AnythingView -> view -> (view -> IO ()) -> Int -> IO ()
+anythingViewFocusCandidate view treeView treeFocusAction index = do
+ -- Focus candidate.
+ treeFocusAction treeView
+ -- Update current candidate index.
+ writeTVarIO (avCurrentCandidateIndex view) index
+
+-- | Expand first entry.
+anythingViewExpandSelectedCandidate :: (Int, (TVar AnythingSearchCache, (AnythingViewInput, (AnythingView, Client)))) -> IO ()
+anythingViewExpandSelectedCandidate (keyPressId, (cache, (input, (view, client)))) = do
+ -- Make sure switch candidate view first.
+ anythingViewShowCandidateTab view
+
+ anythingViewGetSelectedCandidate view
+ >?>= \ candidateWrap ->
+ case candidateWrap of
+ AnythingCandidateWrap a -> do
+ expandName <- candidateExpandName a (aviUnselectText input)
+ anythingViewCompletion client cache view expandName keyPressId
+
+-- | Toggle tab.
+anythingViewToggleTab :: (AnythingView, AnythingViewInput) -> IO ()
+anythingViewToggleTab (view, input) = do
+ isFocusCommandTab <- anythingViewIsFocusCommandTab view
+ if isFocusCommandTab
+ then anythingViewShowCandidateTab view
+ else
+ anythingViewFindCurrentAnythingName view
+ >?>= \name ->
+ M.lookup name anythingList ?>= \(Anything {anythingCommandFun = commandFun}) ->
+ anythingViewGetSelectedCandidate view
+ >?>= \candidateWrap -> do
+ iType <- readTVarIO $ avInteractiveType view
+ commandList <- commandFun (aviUnselectText input) candidateWrap iType
+ let commands = map fst commandList
+ anythingViewSetCommands view commands
+ anythingViewShowCommandTab view
+
+-- | Run command.
+anythingViewRunCommand :: Bool -> (AnythingView, (Client, AnythingViewInput)) -> IO ()
+anythingViewRunCommand runSelected (view, (client, input)) =
+ anythingViewFindCurrentAnythingName view
+ >?>= \name ->
+ M.lookup name anythingList
+ ?>= \(Anything {anythingCommandFun = commandFun}) ->
+ anythingViewGetSelectedCandidate view
+ >?>= \candidateWrap ->
+ (if runSelected
+ then treeViewGetSelectedPath (acovTreeView $ avCommandTab view)
+ else return $ Just [0])
+ >?>= \commandPath -> do
+ iType <- readTVarIO $ avInteractiveType view
+ commandList <- commandFun (aviUnselectText input) candidateWrap iType
+ commandList ?! head commandPath ?>= \ (_, action) -> do
+ -- Execute action.
+ action client
+ -- Just need exit local interactivebar explicitly when interactive type is 'GlobalSearch'
+ -- If is other type, exit interactivebar when user *complete* interactive progress.
+ when (iType == GlobalSearch) $
+ mkDaemonSignal client LocalInteractivebarExit LocalInteractivebarExitArgs
+
+-- | Run first command for current candidate.
+anythingViewRunFirstCommand :: (AnythingView, (Client, AnythingViewInput)) -> IO ()
+anythingViewRunFirstCommand =
+ anythingViewRunCommand False
+
+-- | Run selected command for current candidate.
+anythingViewRunSelectedCommand :: (AnythingView, (Client, AnythingViewInput)) -> IO ()
+anythingViewRunSelectedCommand =
+ anythingViewRunCommand True
+
+-- | Get match candidate for current input.
+anythingViewGetMatches :: AnythingInput -> Client -> AnythingSearch -> AnythingFilterRule -> IO [AnythingCandidateWrap]
+anythingViewGetMatches path client (AnythingSearch searchFun) filterRule = do
+ candidates <- map AnythingCandidateWrap <$> searchFun path client
+ return $ filter (\ (AnythingCandidateWrap x) -> filterRule path (candidateFilterName x)) candidates
+
+-- | Output completion candidates on TreeView.
+-- And return highlight completion string for input.
+anythingViewCompletion :: Client -> TVar AnythingSearchCache -> AnythingView -> FilePath -> AnythingKeyPressId -> IO ()
+anythingViewCompletion client anythingSearchCache view path keyPressId = do
+ -- Make sure switch candidate view first.
+ anythingViewShowCandidateTab view
+
+ -- Send AnythingViewOutput signal.
+ boxHeight <- anythingViewGetBoxHeight view
+ mkDaemonSignal client AnythingViewOutput (AnythingViewOutputArgs path "" boxHeight keyPressId)
+
+ -- Set candidates.
+ cList <- liftM M.toList (readTVarIO (avCandidateTab view))
+ forM_ cList $ \(_, ((name, _), candidateView)) ->
+ M.lookup name anythingList ?>= \(Anything {anythingSearch = searchFun
+ ,anythingCompletionRule = completionRule
+ ,anythingFilterRule = filterRule
+ ,anythingInputDepend = inputDepend
+ ,anythingCalculateDelay = delay
+ }) -> do
+ searchCache <- readTVarIO anythingSearchCache
+ let
+ -- Calculate candidate to show, if this step need *long* time,
+ -- please set bigger value in 'anythingCandidateDelay'
+ -- to avoid waste CPU time when you type so fast, default is 0 ms.
+ -- Example, if you set 'anythingCandidateDelay' with '200 ms' and
+ -- you type next char in 100 ms,
+ -- current calculation will stop and reset delay counter.
+ getMatches = do
+ -- Start spinner animation.
+ titleWidgetStart (acavTitleWidget candidateView)
+ anythingViewGetMatches path client searchFun filterRule
+ -- Update UI after candidates calculate finished.
+ setCandidates name cacheTVar candidates = do
+ -- Stop spinner animation.
+ titleWidgetStop (acavTitleWidget candidateView)
+ -- Update UI.
+ anythingViewSetCandidates view client name candidates path completionRule keyPressId
+ -- Remove information from search cache to new search in next loop.
+ modifyTVarIO cacheTVar (M.delete name)
+ -- Start new search.
+ startNewSearch name cacheTVar = do
+ -- Calculate after delay reach.
+ handlerId <- timeoutAdd
+ (do
+ -- Fork calculation avoid block GTK+ main thread.
+ state <- forkGuiIO getMatches (setCandidates name cacheTVar)
+ -- Update search cache with thread information.
+ modifyTVarIO cacheTVar (M.insert name (Left state))
+ -- Just run once.
+ return False)
+ delay
+ -- Update search cache with delay HandlerId.
+ modifyTVarIO cacheTVar (M.insert name (Right handlerId))
+
+ case M.lookup name searchCache of
+ -- Start new search if not found in search cache.
+ Nothing ->
+ startNewSearch name anythingSearchCache
+ -- Start new search if calculation still not start.
+ -- Type so fast? ;)
+ Just (Right delayHandlerId) -> do
+ timeoutRemove delayHandlerId
+ startNewSearch name anythingSearchCache
+ Just (Left (signal, calcThreadId, guiThreadId)) -> do
+ -- Because have different filter result for different input,
+ -- so always kill previous UI render thread if it still running.
+ killThread guiThreadId
+
+ tStatus <- threadStatus calcThreadId
+ if not inputDepend && tStatus == ThreadRunning
+ -- Use previous calculation thread result
+ -- when search list don't depend input and previous calculation thread is running.
+ then do
+ newGuiThreadId <- onGuiSignal signal (setCandidates name anythingSearchCache)
+ modifyTVarIO anythingSearchCache (M.insert name (Left (signal, calcThreadId, newGuiThreadId)))
+ -- Otherwise, start new calculation thread.
+ else do
+ -- Kill calculate thread first.
+ killThread calcThreadId
+ -- Start new search.
+ startNewSearch name anythingSearchCache
+
+-- | Get box height, remove blank space in last candidate view.
+anythingViewGetBoxHeight :: AnythingView -> IO (Maybe Int)
+anythingViewGetBoxHeight view =
+ ifM (anythingViewIsFocusCandidateTab view)
+ (ifM (anythingViewHasCandidates view)
+ -- Return box minimized height when box contain candidate view.
+ (do
+ candidateMap <- readTVarIO $ avCandidateTab view
+ find (\ (_, ((_, count), _)) -> count > 0) (reverse $ M.toList candidateMap)
+ ?>=> \ (_, (_, AnythingCandidateView {acavTreeView = treeView})) -> do
+ candidateBoxHeight <- rectangleH <$> widgetGetAllocation (avCandidateBox view)
+ visibleHeight <- rectangleH <$> treeViewGetVisibleRect treeView
+ candidatesHeight <- anythingViewGetCandidatesHeight treeView
+ return $ Just $ candidateBoxHeight - visibleHeight + candidatesHeight)
+ -- Return Nothing when nothing in box.
+ (return Nothing))
+ (Just <$> anythingViewGetCandidatesHeight (acovTreeView $ avCommandTab view))
+
+-- | Whether has candidates?
+anythingViewHasCandidates :: AnythingView -> IO Bool
+anythingViewHasCandidates =
+ containerHasChildren . avCandidateBox
+
+-- | Get view height.
+anythingViewGetCandidatesHeight :: TreeViewClass treeView => treeView -> IO Int
+anythingViewGetCandidatesHeight treeView = do
+ candidateNumber <- treeViewGetToplevelNodeCount treeView
+ cellHeight <- anythingViewGetCellHeight treeView
+ headerHeight <- treeViewGetHeaderHeight treeView
+ return $ headerHeight + (if candidateNumber < anythingCandidateViewLimit
+ then candidateNumber
+ else anythingCandidateViewLimit) * cellHeight
+
+-- | Get cell height.
+anythingViewGetCellHeight :: TreeViewClass treeView => treeView -> IO Int
+anythingViewGetCellHeight treeView = do
+ cellHeight <- treeViewGetDefaultCellHeight treeView
+ return $
+ case cellHeight of
+ Just height -> (if height > 1
+ then height
+ -- Use default cell height replace when
+ -- can't get valid cell height from tree view.
+ else anythingViewDefaultCellHeight)
+ Nothing -> anythingViewDefaultCellHeight
diff --git a/Manatee/Plugin/Anything/Main.hs b/Manatee/Plugin/Anything/Main.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/Main.hs
@@ -0,0 +1,178 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE RankNTypes, OverloadedStrings #-}
+module Manatee.Plugin.Anything.Main where
+
+import Control.Monad.Trans
+import DBus.Client hiding (Signal)
+import Data.Text.Lazy (Text)
+import GHC.Conc
+import Graphics.UI.Gtk hiding (Window, windowNew, Frame, frameNew, Signal, Frame, Variant, Action, get)
+import Manatee.Core.DBus
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.AnythingView
+import Manatee.Plugin.Anything.Types
+import Manatee.Toolkit.General.DBus
+import Manatee.Toolkit.General.STM
+import Manatee.Toolkit.Gtk.Struct
+import System.Posix.Process
+
+import qualified Data.Map as M
+
+-- | Anything main.
+anythingMain :: AnythingInteractiveType -> [String] -> IO ()
+anythingMain iType names = do
+ -- Get render process id.
+ processId <- getProcessID
+ putStrLn $ "Anyting process (" ++ show processId ++ ") startup."
+
+ -- Create Anything cache.
+ anythingCache <- newTVarIO M.empty
+
+ -- Make client name.
+ let clientName = mkRenderClientName processId
+
+ -- Create client.
+ client <- mkSessionClientWithName clientName
+
+ -- Create plug.
+ plug <- plugNew Nothing
+ plugId <- plugGetId plug
+
+ -- Create AnythingView.
+ view <- anythingViewNew iType names
+ plug `containerAdd` avNotebook view
+
+ -- Terminate process when plug/socket delete from top-level window.
+ plug `on` deleteEvent $ tryEvent $ liftIO $ do
+ putStrLn $ "Anything plug disconnect from daemon process, exit process (" ++ show processId ++ ")."
+ mainQuit
+
+ -- Show plug.
+ widgetShowAll plug
+
+ -- Build anything match rule for listen dbus signal.
+ mkAnythingClient client view
+
+ -- Build match rule to catch key press signal.
+ mkRenderMatchRuleUnsafe client (AnythingViewKeyPress, anythingViewHandleKeyPress client view anythingCache)
+
+ -- Send `NewRenderProcessConfirm` signal when create render process.
+ mkDaemonSignal client NewAnythingProcessConfirm (NewAnythingProcessConfirmArgs (GWindowId plugId) processId)
+
+ -- Init search when process startup instead show blank page to user, more friendly. :)
+ anythingViewCompletion client anythingCache view "" 0
+
+ -- Loop
+ mainGUI
+
+-- | Build anything match rule for listen dbus signal.
+mkAnythingClient :: Client -> AnythingView -> IO ()
+mkAnythingClient client view =
+ -- Build match rule.
+ mkRenderMatchRules client
+ [(AnythingViewChangeCandidate, anythingViewHandleChangeCandidate view)
+ ,(AnythingViewChangeInteractiveType, anythingViewHandleChangeInteractiveType view)]
+
+-- | Handle change interactive type.
+anythingViewHandleChangeInteractiveType :: AnythingView -> RenderSignalArgs -> IO ()
+anythingViewHandleChangeInteractiveType view (AnythingViewChangeInteractiveTypeArgs iType) =
+ writeTVarIO (avInteractiveType view) iType
+
+-- | Handle change interactive candidate.
+anythingViewHandleChangeCandidate :: AnythingView -> RenderSignalArgs -> IO ()
+anythingViewHandleChangeCandidate view (AnythingViewChangeCandidateArgs names) = do
+ candidateTab <- anythingCandidateTabNew names
+ writeTVarIO (avCandidateTab view) candidateTab
+
+-- | Handle key press event.
+anythingViewHandleKeyPress :: Client -> AnythingView -> TVar AnythingSearchCache -> RenderSignalArgs -> IO ()
+anythingViewHandleKeyPress client view anythingCache
+ (AnythingViewKeyPressArgs
+ keystoke
+ allText
+ unselectText
+ keyPressId
+ isChanged
+ ) = do
+ -- Handle event.
+ let input = AnythingViewInput allText unselectText
+ env = AnythingViewEnvironment view client anythingCache input keyPressId
+ anythingAction keymap =
+ case M.lookup keystoke keymap of
+ -- Execute anything action when found match keystroke.
+ Just action ->
+ -- Use 'postGUIAsync' protect GTK+ thread won't crash.
+ postGUIAsync $ anythingViewRunAction env action
+ Nothing ->
+ if isChanged
+ -- Completion when input content changed.
+ then anythingViewCompletion client anythingCache view unselectText keyPressId
+ -- Otherwise, return same completion as input.
+ else postGUIAsync $ do
+ boxHeight <- anythingViewGetBoxHeight view
+ mkDaemonSignal client AnythingViewOutput (AnythingViewOutputArgs
+ unselectText
+ (drop (length unselectText) allText)
+ boxHeight
+ keyPressId)
+
+ focusCandidateView <- anythingViewIsFocusCandidateTab view
+ anythingAction $ if focusCandidateView
+ then anythingCandidateViewKeymap
+ else anythingCommandViewKeymap
+
+-- | Run action.
+anythingViewRunAction :: AnythingViewEnvironment -> AnythingViewAction -> IO ()
+anythingViewRunAction env (AnythingViewAction {anythingViewActionFun = fun}) =
+ anythingViewExecute env >>= fun
+
+-- | Keymap for anything candidate view.
+anythingCandidateViewKeymap :: AnythingViewKeymap
+anythingCandidateViewKeymap =
+ M.fromList
+ ["M-j" <=> anythingViewFocusNextCandidate
+ ,"M-k" <=> anythingViewFocusPrevCandidate
+ ,"Down" <=> anythingViewFocusNextCandidate
+ ,"Up" <=> anythingViewFocusPrevCandidate
+ ,"M-J" <=> anythingViewFocusNextCandidateView
+ ,"M-K" <=> anythingViewFocusPrevCandidateView
+ ,"M-m" <=> anythingViewRunFirstCommand
+ ,"Return" <=> anythingViewRunFirstCommand
+ ,"M-/" <=> anythingViewToggleTab
+ ,"M-N" <=> anythingViewExpandSelectedCandidate
+ ]
+
+-- | Keymap for anything command view.
+anythingCommandViewKeymap :: AnythingViewKeymap
+anythingCommandViewKeymap =
+ M.fromList
+ ["M-j" <=> anythingViewFocusNextCommand
+ ,"M-k" <=> anythingViewFocusPrevCommand
+ ,"Down" <=> anythingViewFocusNextCommand
+ ,"Up" <=> anythingViewFocusPrevCommand
+ ,"M-m" <=> anythingViewRunSelectedCommand
+ ,"Return" <=> anythingViewRunSelectedCommand
+ ,"M-/" <=> anythingViewToggleTab
+ ,"M-N" <=> anythingViewExpandSelectedCandidate
+ ]
+
+-- | Sugar to connect Key and Action.
+(<=>) :: forall a . AnythingViewActionArgs a => Text -> (a -> IO ()) -> (Text, AnythingViewAction)
+key <=> command = (key, AnythingViewAction command)
diff --git a/Manatee/Plugin/Anything/TitleWidget.hs b/Manatee/Plugin/Anything/TitleWidget.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/TitleWidget.hs
@@ -0,0 +1,86 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+module Manatee.Plugin.Anything.TitleWidget where
+
+import Graphics.UI.Gtk
+import Manatee.Toolkit.Gtk.Box
+import Manatee.Toolkit.Gtk.Container
+
+data TitleWidget =
+ TitleWidget {titleWidgetBox :: HBox
+ ,titleWidgetLabel :: Label
+ ,titleWidgetSpinner :: Spinner}
+
+-- | Title color.
+titleColor :: Color
+titleColor = Color 61440 30464 17920
+
+-- | Number color.
+numberColor :: Color
+numberColor = Color 25000 25000 25000
+
+-- | Spinner space.
+spinnerSpace :: Int
+spinnerSpace = 6
+
+-- | Create candidate title.
+titleWidgetNew :: Maybe String -> IO TitleWidget
+titleWidgetNew title = do
+ -- Init.
+ box <- hBoxNew False 0
+ label <- labelNew title
+ spinner <- spinnerNew
+
+ -- Show.
+ boxPackStart box label PackRepel 0
+ widgetShowAll box
+
+ return $ TitleWidget box label spinner
+
+-- | Set title.
+titleWidgetSetTitle :: TitleWidget -> String -> Int -> IO ()
+titleWidgetSetTitle widget title number
+ | number == 0 = do
+ labelSetText label title
+ labelSetAttributes label [AttrForeground 0 (length title) titleColor]
+ | otherwise = do
+ labelSetText label (title ++ numberStr)
+ labelSetAttributes label [AttrForeground 0 (length title) titleColor
+ ,AttrWeight 0 (length title) WeightBold
+ ,AttrForeground (length title) (length (title ++ numberStr)) numberColor]
+ where
+ label = titleWidgetLabel widget
+ numberStr = " (" ++ show number ++ ")"
+
+-- | Start spinner animation.
+titleWidgetStart :: TitleWidget -> IO ()
+titleWidgetStart TitleWidget {titleWidgetBox = box
+ ,titleWidgetSpinner = spinner} = do
+ boxTryPack box spinner PackNatural (Just 1) (Just spinnerSpace)
+ spinnerStart spinner
+ widgetShow spinner
+
+-- | Stop spinner animation.
+titleWidgetStop :: TitleWidget -> IO ()
+titleWidgetStop TitleWidget {titleWidgetBox = box
+ ,titleWidgetSpinner = spinner} = do
+ containerTryRemove box spinner
+ spinnerStop spinner
+
+
diff --git a/Manatee/Plugin/Anything/Types.hs b/Manatee/Plugin/Anything/Types.hs
new file mode 100644
--- /dev/null
+++ b/Manatee/Plugin/Anything/Types.hs
@@ -0,0 +1,150 @@
+-- Author: Andy Stewart
+-- Maintainer: Andy Stewart
+--
+-- Copyright (C) 2010 Andy Stewart, all rights reserved.
+--
+-- 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
+-- 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 .
+
+{-# LANGUAGE ExistentialQuantification, TypeSynonymInstances, FlexibleInstances #-}
+module Manatee.Plugin.Anything.Types where
+
+import Control.Applicative hiding (empty)
+import Control.Concurrent
+import Control.Concurrent.STM
+import DBus.Client hiding (Signal)
+import Data.Map (Map)
+import Data.Text.Lazy (Text)
+import Data.Typeable
+import Graphics.UI.Gtk hiding (get)
+import Manatee.Core.Types
+import Manatee.Plugin.Anything.TitleWidget
+
+-- | Anything
+type AnythingName = String
+type AnythingInput = String
+type AnythingCompletion = String
+type AnythingList = Map AnythingName Anything
+type AnythingFilterRule = AnythingInput -> String -> Bool
+type AnythingCompletionRule = AnythingInput -> AnythingCompletion
+type AnythingColumnTitle = String
+type AnythingColumnFun = AnythingCandidateWrap -> String
+type AnythingCommandName = String
+type AnythingAction = Client -> IO ()
+type AnythingCommandFun = AnythingInput
+ -> AnythingCandidateWrap
+ -> AnythingInteractiveType
+ -> IO [(AnythingCommandName, AnythingAction)]
+type AnythingSearchCache =
+ Map String (Either
+ (MVar [AnythingCandidateWrap], ThreadId, ThreadId)
+ HandlerId)
+
+data FocusNode = FocusFirstNode
+ | FocusLastNode
+ deriving (Show, Ord, Eq)
+
+class Typeable a => AnythingCandidate a where
+ candidateCommandName :: a -> String -- name for command execute
+ candidateFilterName :: a -> String -- name for input filter search
+ candidateCompletionName :: a -> AnythingInput -> String -- name for completion search
+ candidateExpandName :: a -> String -> IO String -- name for expand
+
+data AnythingCandidateWrap = forall candidate . AnythingCandidate candidate =>
+ AnythingCandidateWrap {acwCandidate :: candidate}
+
+data AnythingSearch = forall candidate . AnythingCandidate candidate =>
+ AnythingSearch {anythingSearchFun :: AnythingInput -> Client -> IO [candidate]}
+
+data Anything =
+ Anything {anythingColumnTitle :: [AnythingColumnTitle] -- anything candidate column title
+ ,anythingColumnFun :: [AnythingColumnFun] -- anything candidate column function
+ ,anythingSearch :: AnythingSearch -- function for get search list
+ ,anythingFilterRule :: AnythingFilterRule -- rule for filter search list
+ ,anythingCompletionRule :: AnythingCompletionRule -- rule to get *highlight* completion
+ ,anythingInputDepend :: Bool -- search candidate whether depend on user input?
+ ,anythingCommandFun :: AnythingCommandFun -- command list depend on input and search candidates
+ ,anythingCalculateDelay :: Int -- delay millisecond before do really calcuate
+ }
+
+instance AnythingCandidate String where
+ candidateCommandName = id
+ candidateFilterName = id
+ candidateCompletionName a _ = a
+ candidateExpandName a _ = return a
+
+-- | AnythingView
+data AnythingView =
+ AnythingView {avNotebook :: Notebook
+ ,avCandidateBox :: VBox
+ ,avCandidateScrolledWindow :: ScrolledWindow
+ ,avCandidateTab :: TVar AnythingCandidateTab
+ ,avCommandTab :: AnythingCommandTab
+ ,avCurrentCandidateIndex :: TVar Int
+ ,avInteractiveType :: TVar AnythingInteractiveType
+ }
+
+data AnythingCandidateView =
+ AnythingCandidateView {acavTreeView :: TreeView
+ ,acavScrolledWindow :: ScrolledWindow
+ ,acavListStore :: AnythingCandidateStore
+ ,acavTitleWidget :: TitleWidget
+ }
+
+data AnythingCommandView =
+ AnythingCommandView {acovTreeView :: TreeView
+ ,acovListStore :: AnythingCommandStore}
+
+type AnythingCandidateStore = ListStore AnythingCandidateWrap
+type AnythingCommandStore = ListStore String
+type AnythingCandidateTab = (Map Int ((AnythingName, Int), AnythingCandidateView))
+type AnythingCommandTab = AnythingCommandView
+
+-- | AnythingViewAction
+data AnythingViewEnvironment =
+ AnythingViewEnvironment {aeView :: AnythingView
+ ,aeClient :: Client
+ ,aeCache :: TVar AnythingSearchCache
+ ,aeInput :: AnythingViewInput
+ ,aeKeyPressId :: Int}
+
+data AnythingViewInput =
+ AnythingViewInput {aviAllText :: String
+ ,aviUnselectText :: String}
+
+class AnythingViewActionArgs a where
+ anythingViewExecute :: AnythingViewEnvironment -> IO a
+
+data AnythingViewAction = forall a . AnythingViewActionArgs a =>
+ AnythingViewAction {anythingViewActionFun :: a -> IO ()}
+
+type AnythingViewKeymap = Map Text AnythingViewAction
+
+instance (AnythingViewActionArgs a, AnythingViewActionArgs b) => AnythingViewActionArgs (a, b) where
+ anythingViewExecute env = liftA2 (,) (anythingViewExecute env) (anythingViewExecute env)
+
+instance AnythingViewActionArgs AnythingView where
+ anythingViewExecute env = return $ aeView env
+
+instance AnythingViewActionArgs Client where
+ anythingViewExecute env = return $ aeClient env
+
+instance AnythingViewActionArgs (TVar AnythingSearchCache) where
+ anythingViewExecute env = return $ aeCache env
+
+instance AnythingViewActionArgs AnythingViewInput where
+ anythingViewExecute env = return $ aeInput env
+
+instance AnythingViewActionArgs Int where
+ anythingViewExecute env = return $ aeKeyPressId env
+
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,3 @@
+import Distribution.Simple
+
+main = defaultMain
diff --git a/manatee-anything.cabal b/manatee-anything.cabal
new file mode 100644
--- /dev/null
+++ b/manatee-anything.cabal
@@ -0,0 +1,57 @@
+name: manatee-anything
+version: 0.0.1
+Cabal-Version: >= 1.6
+license: GPL-3
+license-file: LICENSE
+copyright: (c) 2009 ~ 2010 Andy Stewart
+synopsis: Multithread interactive input/search framework for Manatee
+description: manatee-anything is interactive plugin for Manatee (Haskell/Gtk+ Integrated Live Environment)
+author: Andy Stewart
+maintainer: Andy Stewart
+stability: provisional
+category: Manatee, Operating System, Desktop Environment, IDE
+
+tested-with: GHC==6.12.3
+build-type: Simple
+
+Source-Repository head
+ type: darcs
+ location: http://patch-tag.com/r/AndyStewart/manatee-anything
+
+Library
+ build-depends: base >= 4 && < 5, gtk >= 0.12.0, containers >= 0.3.0.0, text >= 0.7.1.0,
+ gio >= 0.12.0, filepath >= 1.1.0.3, manatee-core >= 0.0.1, dbus-client >= 0.3 && < 0.4,
+ network >= 2.2.1.5, utf8-string >= 0.3.4, proc >= 0.0.8, mtl >= 1.1.0.2, stm >= 2.1.2.0,
+ unix >= 2.4.0.0, regex-tdfa >= 1.1.2, bytestring, GoogleSuggest >= 0.0.3, dataenc,
+ dbus-core, split
+ exposed-modules:
+ Manatee.Plugin.Anything.Anything
+ Manatee.Plugin.Anything.AnythingApplication
+ Manatee.Plugin.Anything.AnythingBrowser
+ Manatee.Plugin.Anything.AnythingBrowseHistory
+ Manatee.Plugin.Anything.AnythingBuffer
+ Manatee.Plugin.Anything.AnythingBufferHistory
+ Manatee.Plugin.Anything.AnythingExecuteFile
+ Manatee.Plugin.Anything.AnythingGoogleSuggest
+ Manatee.Plugin.Anything.AnythingInteractive
+ Manatee.Plugin.Anything.AnythingInteractiveChar
+ Manatee.Plugin.Anything.AnythingInteractiveDirectory
+ Manatee.Plugin.Anything.AnythingInteractiveFile
+ Manatee.Plugin.Anything.AnythingInteractiveNumber
+ Manatee.Plugin.Anything.AnythingInteractiveString
+ Manatee.Plugin.Anything.AnythingIrc
+ Manatee.Plugin.Anything.AnythingList
+ Manatee.Plugin.Anything.AnythingLocate
+ Manatee.Plugin.Anything.AnythingProcess
+ Manatee.Plugin.Anything.AnythingView
+ Manatee.Plugin.Anything.Main
+ Manatee.Plugin.Anything.TitleWidget
+ Manatee.Plugin.Anything.Types
+ other-modules:
+ extensions:
+ ghc-options: -fwarn-unused-matches -fwarn-unused-binds -fwarn-unused-imports -fwarn-overlapping-patterns -fwarn-duplicate-exports -fwarn-unrecognised-pragmas -fwarn-hi-shadowing
+
+Executable manatee-anything
+ main-is: Main.hs
+
+ ghc-options: -threaded