--- /dev/null
+Initz is mainly written by OHASHI Akira <bg66@koka-in.org>.
--- /dev/null
+ GNU GENERAL PUBLIC LICENSE
+ Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users. This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it. (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.) 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
+this service 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 make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+ For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have. 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.
+
+ We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+ Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software. If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+ Finally, any free program is threatened constantly by software
+patents. We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary. To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+ The precise terms and conditions for copying, distribution and
+modification follow.
+\f
+ GNU GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License. The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language. (Hereinafter, translation is included without limitation in
+the term "modification".) Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+ 1. You may copy and distribute 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 and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+ 2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) You must cause the modified files to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ b) You must cause any work that you distribute or publish, that in
+ whole or in part contains or is derived from the Program or any
+ part thereof, to be licensed as a whole at no charge to all third
+ parties under the terms of this License.
+
+ c) If the modified program normally reads commands interactively
+ when run, you must cause it, when started running for such
+ interactive use in the most ordinary way, to print or display an
+ announcement including an appropriate copyright notice and a
+ notice that there is no warranty (or else, saying that you provide
+ a warranty) and that users may redistribute the program under
+ these conditions, and telling the user how to view a copy of this
+ License. (Exception: if the Program itself is interactive but
+ does not normally print such an announcement, your work based on
+ the Program is not required to print an announcement.)
+\f
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+ a) Accompany it with the complete corresponding machine-readable
+ source code, which must be distributed under the terms of Sections
+ 1 and 2 above on a medium customarily used for software interchange; or,
+
+ b) Accompany it with a written offer, valid for at least three
+ years, to give any third party, for a charge no more than your
+ cost of physically performing source distribution, a complete
+ machine-readable copy of the corresponding source code, to be
+ distributed under the terms of Sections 1 and 2 above on a medium
+ customarily used for software interchange; or,
+
+ c) Accompany it with the information you received as to the offer
+ to distribute corresponding source code. (This alternative is
+ allowed only for noncommercial distribution and only if you
+ received the program in object code or executable form with such
+ an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it. For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable. However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+\f
+ 4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License. Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+ 5. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Program or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+ 6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+ 7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+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
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all. For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+\f
+ 8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded. In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+ 9. The Free Software Foundation may publish revised and/or new versions
+of the 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 a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation. If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+ 10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission. For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this. Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+ NO WARRANTY
+
+ 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, 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.
+
+ 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE 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.
+
+ END OF TERMS AND CONDITIONS
+\f
+ 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
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the program's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 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, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+ Gnomovision version 69, Copyright (C) year name of author
+ Gnomovision 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, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+ `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+ <signature of Ty Coon>, 1 April 1989
+ Ty Coon, President of Vice
+
+This 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 Library General
+Public License instead of this License.
--- /dev/null
+2002-04-27 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-util.el (initz-features): Make dummy filename having
+ extension from `feature'.
+
+ * lisp/initz-config.el: Abolish.
+ * lisp/initz-make.el: Ditto.
+ * lisp/initz-modules.el: Ditto.
+ * lisp/INITZ-CFG: New file.
+ * lisp/INITZ-ELS: Ditto.
+ * lisp/INITZ-MK: Ditto.
+ * lisp/Makefile: Follow change above.
+
+2002-04-26 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-util.el (toplevel): Require `cl'.
+
+ * lisp/initz-vars.el (initz-list-unloaded-module-face): New face.
+ * lisp/initz-list.el (initz-list-node-expand): Use it.
+
+ * lisp/initz-vars.el (initz-list-loaded-mark): New custom variable.
+ * lisp/initz-list.el (initz-list-node-expand): If module is loaded,
+ print it at the rear.
+
+ * lisp/initz.el (initz-trim-separator): New function.
+ (initz-init-alist): Use it.
+ * lisp/initz-list.el (initz-list-input-module): Ditto.
+ (initz-list-node-insert): Ditto.
+ (initz-list-new-file): Ditto.
+
+2002-04-25 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.10.
+
+ * lisp/initz-vars.el (initz-list-default-node-status): Rename from
+ `initz-list-node-default-status'.
+ * lisp/initz-list.el (initz-list): Follow change above.
+
+ * lisp/initz-list.el (initz-list-new-file): Trim
+ `initz-separator-string'.
+ (initz-list-new-file): Fix illegal check.
+
+ * lisp/initz.el (initz-get-files): Fix for bugs.
+
+ * lisp/initz.el (initz-features): Abolish; Move to `initz-util.el'.
+ (initz-get-base-name): Ditto.
+ (initz-get-module-name): Ditto.
+
+ * lisp/initz.el (initz-compile-file): Try byte-compile first.
+
+ * lisp/initz.el (initz-init-alist): Change value.
+ (initz-get-init-value): Follow change above.
+
+2002-04-24 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (initz-list-node-insert): When `prefix' equals
+ `initz-null-string', don't print `prefix'.
+ (initz-list-get-dir): Follow change above.
+ (initz-list-insert-file): Ditto.
+ (initz-list-node-collapse): Ditto.
+ (initz-list-node-expand): Ditto.
+
+ * lisp/initz.el (initz-init-alist): Add `argument' and improve order.
+
+2002-04-23 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-add-to-load-path): Abolish; Move to
+ `initz-util.el'.
+
+ * lisp/initz-util.el: New file.
+ * lisp/initz-modules.el (initz-modules-to-compile): Add it.
+
+ * lisp/initz-globals.el (initz-load-list-internal): New variable.
+ (initz-ignore-list-internal): Ditto.
+ * lisp/initz.el (initz-load): Use them.
+ (initz-load-file): Ditto.
+
+ * lisp/initz-list.el (initz-list-quit): Add remove hook.
+
+2002-04-22 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-globals.el (initz-compile-error-files): Rename from
+ `initz-error-compile-files'.
+ (initz-load-error-files): Rename from `initz-error-load-files'.
+ * lisp/initz.el (initz-compile-file): Follow change above.
+ (initz-compile): Ditto.
+ (initz-load-file): Ditto.
+ (initz-load): Ditto.
+ * lisp/initz-list.el (initz-list-byte-compile-file): Ditto.
+ (initz-list-delete-file): Ditto.
+ (initz-list-load-file): Ditto.
+ * lisp/initz-error.el (initz-error-node-expand): Ditto.
+ (initz-error-byte-compile-file): Ditto.
+ (initz-error-delete-file): Ditto.
+ (initz-error-load-file): Ditto.
+ (initz-error): Ditto.
+
+2002-04-21 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-message-no-log): New macro.
+ * lisp/initz-list.el (initz-list-print-file): Use it instead of
+ `message'.
+
+2002-02-08 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (sort-build-lists): New advice.
+
+2002-02-01 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.9.
+
+ * lisp/initz.el (initz-startup-directory): New function.
+ (initz-flavor-directory): Ditto.
+ (initz-compile-files): Use them.
+ * lisp/initz-list.el (initz-list-new-file): Ditto.
+
+ * lisp/initz.el (initz-get-kind): Rename from `initz-get-kind-symbol'.
+ (initz-get-dir): Rename from `initz-get-dir-symbol'.
+ (initz-get-correspondence-file): Follow change above.
+
+2002-01-29 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (initz-list-node-enter): Simplify.
+ * lisp/initz-error.el (initz-error-node-enter): Ditto.
+
+ * lisp/initz-list.el (initz-list-input-dir-message-format):
+ Change value.
+ (initz-list-input-module-message-format): Ditto.
+ (initz-list-input-dir): Follow chage above.
+
+ * lisp/initz.el (initz-features): Use `delq' instead of `delete'.
+ (initz-load-file): Use `memq' instead of `member'.
+ * lisp/initz-list.el (initz-list-new-file): Ditto.
+
+2002-01-27 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-get-init-value): Use `cond' instead of `if'.
+ (initz-get-module-name): Ditto.
+ (initz-message): Use `when' instead of `if'.
+ * lisp/initz-list.el (initz-list-get-dir): Ditto.
+ (initz-list-next-line): Ditto.
+
+2002-01-25 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (initz-list-print-file): New function.
+ (initz-list-mode): Use it.
+ * lisp/initz-error.el (initz-error-mode): Use it.
+
+2002-01-24 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (initz-list-new-file-provide-message-format):
+ Change value.
+ (initz-list-new-file-comment-message-format): Ditto.
+ (initz-list-new-file): Follow change above.
+
+ * lisp/initz-vars.el (initz-verbose): Fix for XEmacs21; Use `const'
+ instead of `other'.
+ (initz-list-input-module-completing): New custom variable.
+
+ * lisp/initz-list.el (initz-list-input-module): Use it.
+ (initz-list-node-insert): Print `prefix'.
+ (initz-list-get-dir): Follow change above.
+ (initz-list-insert-file): Ditto.
+ (initz-list-node-collapse): Ditto.
+ (initz-list-node-expand): Ditto.
+
+2002-01-23 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.8.
+
+ * lisp/initz-var.el (initz-face): New group.
+ (initz-list-node-face): New face.
+ (initz-list-module-face): Ditto.
+ * lisp/initz-list.el (initz-list-insert-file): Use them.
+ (initz-list-node-insert): Ditto.
+ (initz-list-node-expand): Ditto.
+ * lisp/initz-error.el (initz-error-node-insert): Ditto.
+ (initz-error-node-expand): Ditto.
+
+ * lisp/initz-list.el (initz-list-insert-file): Add text property
+ `help-echo'.
+ (initz-list-node-expand): Ditto.
+ * lisp/initz-error.el (initz-error-node-expand): Ditto.
+
+ * lisp/initz-make.el (install-just-print-p): Salvage.
+
+ * lisp/initz-list.el (initz-list-insert-file): Add text property
+ `start-open' and `rear-nonsticky'.
+ (initz-list-node-insert): Ditto.
+ (initz-list-node-expand): Ditto.
+ * lisp/initz-error.el (initz-error-node-insert): Ditto.
+ (initz-error-node-expand): Ditto.
+
+ * lisp/initz-list.el (initz-list-byte-compile-file): Fix for install.
+ * lisp/initz-error.el (initz-error-byte-compile-file): Ditto.
+
+ * lisp/initz-list.el (initz-list-insert-file): Sort lines.
+ (initz-list-node-expand): Ditto.
+ * lisp/initz-error.el (initz-error-node-expand): Ditto.
+
+ * lisp/initz-list.el (initz-list-delete-file): Fix point;
+ Run previous-line and next-line.
+ * lisp/initz-error.el (initz-error-delete-file): Ditto.
+
+2002-01-22 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (initz-list-node-map): New keymap.
+ (initz-list-node-insert): New function.
+ (initz-list-node-collapse): Ditto.
+ (initz-list-node-expand): Ditto.
+ (initz-list-node-enter): Ditto.
+ (initz-list-node-click): Ditto.
+ (initz-list): Use it.
+ (initz-list-get-dir): Follow change above.
+ (initz-list-insert-file): Ditto.
+ (initz-list-next-line): New function.
+ (initz-list-previous-line): Ditto.
+ (initz-list-mode-map): Use them.
+ * lisp/initz-error.el (initz-error-mode-map): Ditto.
+
+ * lisp/initz-vars.el(initz-list-node-default-status):
+ New custom variable.
+ * lisp/initz-list.el(initz-list): Use it.
+ (initz-list-get-dir): Run `end-of-line'.
+
+ * lisp/initz-error.el (initz-error-node-map): New keymap.
+ (initz-error-node-insert): New funciton.
+ (initz-error-node-collapse): Ditto.
+ (initz-error-node-expand): Ditto.
+ (initz-error-node-enter): Ditto.
+ (initz-error-node-click): Ditto.
+ (initz-error): Use it.
+ (initz-error-compile-message-header): Change value.
+ (initz-error-load-message-header): Ditto.
+
+2002-01-21 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-compile-file): Fix for error handling.
+ (initz-get-dir-symbol): Remove the slash only when it exists.
+
+2002-01-20 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-list.el (initz-list-input-dir-message-format):
+ Change value.
+ (initz-list-input-module-message-format): Ditto.
+
+2002-01-18 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (toplevel): Autoload `initz-list-new-file'.
+
+ * lisp/initz-list.el (initz-list-find-file-mouse): Remove
+ `beginning-of-line' and check the end of line.
+ (initz-list-insert-file): Fix for the end of line and use
+ `add-text-properties' instead of `set-text-properties'.
+ (initz-list): Ditto.
+ * lisp/initz-error.el (initz-error): Ditto.
+
+2002-01-17 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-features): New function.
+ (initz-get-files): Simplify.
+
+2002-01-16 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.7.
+
+ * lisp/initz-error.el (initz-error-delete-file): Use module name
+ instead of file name for the prompt of confirm.
+ * lisp/initz-list.el (initz-list-delete-file): Ditto.
+
+ * lisp/initz.el (initz-make-directory): Create parent
+ directories if they don't exist.
+
+ * lisp/initz-list.el (initz-list-new-file): Fix for module name.
+ (initz-list-new-file-provided-message): New constant.
+ (initz-list-new-file): Use it.
+
+ * lisp/initz-error.el (initz-error-click-message-format):
+ Change value.
+ (initz-error-enter-message-format): Ditto.
+ * lisp/initz-list.el (initz-list-click-message-format):
+ Ditto.
+ (initz-list-enter-message-format): Ditto.
+
+2002-01-15 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.6.
+
+ * lisp/initz-globals.el (initz-load-module-ask-message-format):
+ Change value.
+ (initz-load-module-message-format): Ditto.
+ (initz-unload-module-message-format): Ditto.
+
+ * lisp/initz.el: Check docstring.
+ (initz-init-alist): Change value.
+ (initz-get-module-name): Rename argument from `file' to `init-file'.
+ (initz-message): New function.
+ (initz-load-file): Use it.
+ (initz-done): Ditto.
+
+ * lisp/initz-list.el (initz-list-input-dir-message-format):
+ New constant.
+ (initz-list-input-module-message-format): Ditto.
+ (initz-list-new-file-exists-message): Ditto.
+ (initz-list-new-file-illegal-message): Ditto.
+ (initz-list-new-file-comment-message-format): Ditto.
+ (initz-list-new-file-provide-message-format): Ditto.
+ (initz-list-get-dir): New function.
+ (initz-list-input-dir): Ditto.
+ (initz-list-input-module): Ditto.
+ (initz-list-new-file): Use them.
+
+ * lisp/initz.el (initz-get-base-name): New function.
+ (initz-get-module-name): Use it.
+ (initz-load-file): Ditto.
+ * lisp/initz-list.el (initz-list-new-file): Ditto.
+
+ * lisp/initz-error.el (initz-error-mode-map): Change value.
+ (initz-error-mode): Follow change above.
+
+ * lisp/initz-list.el (initz-list-mode-map): Change value.
+ (initz-list-mode): Follow change above.
+
+ * lisp/initz-error.el (toplevel): Require `initz-list'.
+ (initz-error-delete-whole-line): Abolish.
+ (initz-error-find-file): Ditto.
+ (initz-error-find-file-mouse): Ditto.
+ (initz-error-quit): Ditto.
+ (toplevel): Set aliases from abolished `initz-error-*' to
+ 'initz-list-*'.
+
+ * lisp/initz-modules.el (initz-modules-to-compile): Change value.
+
+ * lisp/initz.el (toplevel): Fix for autoload.
+
+2002-01-14 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.5.
+
+ * lisp/initz-list.el: New file.
+ * lisp/initz-modules.el (initz-modules-to-compile): Add it.
+
+2002-01-13 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/init.el (initz-directory): New function.
+ (initz-startup-directory): Abolish.
+ (initz-flavor-directory): Ditto.
+ (initz-delete-file): Follow change above.
+ (initz-delete-files): Ditto.
+ (initz-compile-files): Ditto.
+ (initz-load-files): Ditto.
+ (initz-load): Ditto.
+ * lisp/initz-error.el (initz-error): Ditto.
+
+ * lisp/initz.el (initz-init-alist): Change value.
+ (initz-get-init-value): New function.
+ (initz-get-files): Ditto.
+ (initz-get-kind-symbol): Ditto.
+ (initz-get-dir-symbol): Ditto.
+ (initz-get-correspoidence-file): Ditto.
+ (initz-make-directory): Ditto.
+ (initz-make-directories): Ditto.
+ (initz-get-module-name): Follow change above.
+ (initz-delete-file): Ditto.
+ (initz-delete-files): Ditto.
+ (initz-delete): Ditto.
+ (initz-compile-file): Ditto.
+ (initz-compile-files): Ditto.
+ (initz-compile): Ditto.
+ (initz-load-file): Ditto.
+ (initz-load-files): Ditto.
+ (initz-load): Ditto.
+
+ * lisp/initz-globals.el (initz-module-regexp): Fix.
+ (initz-get-module-name): Follow change above.
+
+ * lisp/init.el (initz-done-message-format): Change value.
+ * lisp/initz-globals.el (initz-load-module-ask-message-format):
+ Ditto.
+ (initz-load-module-message-format): Ditto.
+ (initz-unload-module-message-format): Ditto.
+
+ * lisp/initz-globals.el (initz-error-load-modules): Rename to
+ `initz-error-load-files'.
+ * lisp/initz.el (initz-load-file): Follow change above.
+ (initz-load): Ditto.
+ * lisp/initz-error.el (initz-error-byte-compile-file): Ditto.
+ (initz-error-delete-file): Ditto.
+ (initz-error-load-file): Ditto.
+ (initz-error): Ditto.
+ (initz-error-byte-compile-file-ask-message-format): Abolish.
+ (initz-error-byte-compile-file): Follow change above.
+ (initz-error-load-file): Run `initz-error-byte-compile-file'.
+
+2002-01-11 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.4.
+
+ * lisp/initz-error.el (initz-error-mode-name): New constant.
+ (initz-error-byte-compile-file-ask-message-format): Ditto.
+ (initz-error-delete-file-ask-message-format): Ditto.
+ (initz-error-click-message-format): Ditto.
+ (initz-error-enter-message-format): Ditto.
+ (initz-error-compile-message-header): Ditto.
+ (initz-error-load-message-header): Ditto.
+ (initz-error-byte-compile): Use them.
+ (initz-error-delete-file): Ditto.
+ (initz-error-mode): Ditto.
+ (initz-error): Ditto.
+ (initz-error-delete-whole-line): New function.
+ (initz-error-byte-compile-file): Use it.
+ (initz-error-delete-file): Ditto.
+ (initz-error-load-file): Ditto.
+
+ * lisp/initz.el (initz-add-to-load-path): Rewrite; Don't use
+ `paths-find-recursive-load-path' and
+ `normal-top-level-add-subdirs-to-load-path'.
+ (initz-compile-files): Simplify; Don't make directory.
+
+2002-01-10 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-compile-file): Simplify.
+
+ * lisp/initz-globals.el (initz-ask-message-format): Rename to
+ `initz-load-module-ask-message-format'.
+ * lisp/initz.el (initz-load-file): Follow change above.
+ * lisp/initz-error.el (initz-error-load-file): Ditto.
+
+2002-01-09 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-error.el (initz-error-show): Rename to `initz-error'.
+ * lisp/initz.el (toplevel): Follow change above.
+ (initz-compile): Ditto.
+ (initz-load): Ditto.
+
+ * lisp/initz-error.el (toplevel): Require `emu'.
+ (initz-error-mode-map): Fix key map of mouse.
+ (initz-error): Run `other-window'.
+ (initz-error-byte-compile-file): Run `save-window-excursion'
+ with `byte-compile-file'.
+ (initz-error-load-file): Fix feature and use `base-name'.
+
+2002-01-08 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-make.el (install-just-print-p): Abolish.
+
+ * lisp/initz-error.el (initz-error-byte-compile-file): Abolish
+ the variable which is not referred to.
+ * lisp/initz.el (initz-compile-file): Ditto.
+ (initz-load-file): Ditto.
+
+ * lisp/initz.el (initz-load-file): Add argument `name' and
+ change `initz-error-load-modules'.
+ (initz-load-files): Follow change above.
+ * lisp/initz-error.el (initz-error-show): Ditto.
+ (initz-error-byte-compile-file): Ditto.
+ (initz-error-delete-file): Ditto.
+ (initz-error-load-file): New function.
+ (initz-error-mode-map): Use it.
+
+2002-01-05 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.3.
+
+ * lisp/initz-globals.el: New file.
+ * lisp/initz-modules.el (initz-modules-to-compile): Add it.
+
+2002-01-04 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-compile-file): Use condition-case.
+ (initz-delete): New function.
+ (initz-delete-files): Ditto.
+ (initz-delete-file): Ditto.
+ (initz-startup): Do nothing when `noninteractive' is non-nil.
+
+2001-12-28 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-vars.el (initz-verbose): New custom variable.
+ * lisp/initz.el (initz-compile): Use it.
+ (initz-load-file): Ditto.
+ (initz-load): Ditto.
+ (initz-done): Ditto.
+
+2001-12-27 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz-error.el: New file.
+ * lisp/initz-modules.el (initz-modules-to-compile): Add it.
+
+ * lisp/initz.el (initz-compile-file): When error occurred,
+ add file name to `initz-error-compile-files'.
+ (initz-load-file): When error occurred, add module name to
+ `initz-error-load-modules'.
+ (initz-compile): Use them.
+ (initz-load): Ditto.
+
+2001-12-10 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-init-alist): Use `system-type' instead of
+ `system-configuration'.
+
+2001-11-08 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-load-file): Use condition-case.
+
+2001-11-07 OHASHI Akira <bg66@koka-in.org>
+
+ * Version number is increased to 0.0.2.
+
+ * lisp/Makefile, lisp/initz-config.el, lisp/initz-make.el,
+ lisp/initz-modules.el, lisp/initz-vars.el: New file.
+
+2001-11-06 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-load-list): New custom variable.
+ (initz-interactively): Ditto.
+ (initz-ask-message-format): New const variable.
+ (initz-load-file): Use them.
+
+2001-09-10 OHASHI Akira <bg66@koka-in.org>
+
+ * lisp/initz.el (initz-load-file): Force `unload-feature'.
+
+2001-08-20 OHASHI Akira <bg66@koka-in.org>
+
+ * AUTHORS, COPYING, NEWS, README, TODO, sample/README,
+ sample/dot.emacs, sample/startup/init-skk.el,
+ sample/startup/init-test.el, sample/startup/flavor/init-emacs20.el,
+ sample/startup/flavor/init-xemacs21.el,
+ sample/startup/host/init-host1-skk.el,
+ sample/startup/host/init-host2-skk.el: New file.
+
+2001-08-06 OHASHI Akira <bg66@koka-in.org>
+
+ * ChangeLog, lisp/initz.el: New file.
--- /dev/null
+This is Initz version 0.0.11
+============================
+
+What's the Initz?
+-----------------
+
+ Initz handles the switching of various startup initialization files
+ of emacsen provided for various environment. According to the
+ environment (maybe emacs version, OS type or OS versions) Initz
+ reads appropriate init files provided by the user in several
+ directories, one for one environment.
+
+Features
+--------
+
+ * Init files for each emacs environment are separately stored in one
+ directory for each. You also can provide a common directory whose
+ init files are read in every environment.
+
+ * When there are init files which are updated, they are automatically
+ compiled.
+
+ * You can load init files interactively.
+
+ * A major mode `initz-list' is included which supports browsing and
+ editing init files.
+
+ * When an error occurred during compiling or loading init files,
+ you can browse and/or edit the files immediately.
+
+ * By using the functions in `init-util.el', you can customize the
+ handlings of init files dynamically.
+
+Working Environments
+--------------------
+
+ The latest version of Initz are verified to work properly under
+ following emacsen.
+
+ XEmacs 21.5 (beta5)
+ Emacs 20.7.2
+ Emacs 21.1.1
+ Meadow 1.15pre1
+
+Requirements
+------------
+
+ You need following package:
+
+ * APEL (9.0 or later) - ftp://ftp.m17n.org/pub/mule/apel/
+
+Directory tree
+--------------
+
+ This package contains following directories:
+
+ lisp/ - elisp files.
+
+ sample/ - sample init files.
+
+Installation
+------------
+
+ (Install APEL, then)
+ % cd lisp
+ % make
+ % su
+ # make install
+
+ Add following lines in your .emacs.
+
+ (require 'initz)
+ (add-hook 'after-init-hook 'initz-startup)
+
+How to use
+----------
+
+ Provide init files for each environment in appropriate directories
+ according to next section. Sample init files are provided in the
+ directory `sample'.
+ Supposing you need, you may be able to use the functions in
+ `initz-util.el' conveniently.
+
+Working directory tree
+----------------------
+
+ ~/.initz -+- startup --+- miscellaneous init files
+ | +- argument - argument dependant init files
+ | +- flavor - flavor dependant init files
+ | +- host - host dependant init files
+ | +- system - system dependant init files
+ |
+ +- (flavor) -+- compiled miscellaneous init files
+ +- argument - compiled argument dependant init files
+ +- flavor - compiled flavor dependant init files
+ +- host - compiled host dependant init files
+ +- system - compiled system dependant init files
+
+ Compiled init files are created automatically.
+
+Copying
+-------
+
+ Initz is copyrighted free software by OHASHI Akira <bg66@koka-in.org>.
+ You can redistribute it and/or modify it under either the terms of
+ the GPL (see the file `COPYING').
+
+Information
+-----------
+
+ For more information, see the Initz web page at
+
+ http://www.koka-in.org/~bg66/index.cgi?cmd=view;name=Initz
+
+Bug reports
+-----------
+
+ If you have bug reports and/or suggestions for improvement, please send
+ them to bg66@koka-in.org.
+
+References
+----------
+
+ * http://deisui.bug.org/cgi-bin/viewcvs.cgi/dot-xemacs/README?rev=HEAD
+
+ * http://triaez.kaisei.org/~kaoru/emacsen/startup/INSTALL.ja
+
+ * http://www.unixuser.org/~ysjj/emacs/
+
+ * http://www.sodan.org/~knagano/emacs/dotemacs.html
--- /dev/null
+TODO
+====
+
+ * Merge `initz-list.el' and `initz-error.el'?
+
+ * Fix the `FIXME'.
+
+ * Reconsider the naming rule of init files and modules.
+
+ * Check documents and docstrings.
+
+ * Refactoring.
+
+ * Provide sample files.
--- /dev/null
+;;; -*-Emacs-Lisp-*-
+
+;; INITZ-CFG: installation setting about Initz.
+
+;;; Code:
+
+(add-to-list 'load-path (expand-file-name "."))
+
+(condition-case nil
+ (require 'install)
+ (error (error "Please install APEL.")))
+
+
+;;; @ Please specify prefix of install directory.
+;;;
+
+;; Please specify install path prefix.
+;; If it is omitted, shared directory (maybe /usr/local is used).
+(defvar PREFIX install-prefix)
+;;(setq PREFIX "~/")
+
+;; Please specify Initz prefix [optional]
+(setq INITZ_PREFIX "initz")
+
+
+\f
+
+;;; @ optional settings
+;;;
+
+;; It is generated by automatically. Please set variable `PREFIX'.
+;; If you don't like default directory tree, please set it.
+(defvar LISPDIR (install-detect-elisp-directory PREFIX))
+;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
+
+(setq INITZ_DIR (expand-file-name INITZ_PREFIX LISPDIR))
+
+(defvar PACKAGEDIR
+ (if (boundp 'early-packages)
+ (let ((dirs (append (if early-package-load-path
+ early-packages)
+ (if late-package-load-path
+ late-packages)
+ (if last-package-load-path
+ last-packages)))
+ dir)
+ (while (not (file-exists-p
+ (setq dir (car dirs))))
+ (setq dirs (cdr dirs)))
+ dir)))
+
+;;; INITZ-CFG ends here
--- /dev/null
+;;; -*-Emacs-Lisp-*-
+
+;; INITZ-ELS: list of Initz modules to install
+
+;;; Code:
+
+(setq initz-modules-to-compile
+ '(initz-vars initz-globals initz-util initz initz-list initz-error))
+
+(setq initz-modules-not-to-compile nil)
+
+(setq initz-modules (append initz-modules-to-compile
+ initz-modules-not-to-compile))
+
+;;; INITZ-ELS ends here
--- /dev/null
+;;; -*-Emacs-Lisp-*-
+
+;; INITZ-MK: installer for Initz.
+
+;;; Code:
+
+(defun config-initz ()
+ (let (prefix lisp-dir)
+ (and (setq prefix (car command-line-args-left))
+ (or (string-equal "NONE" prefix)
+ (defvar PREFIX prefix)))
+ (setq command-line-args-left (cdr command-line-args-left))
+ (and (setq lisp-dir (car command-line-args-left))
+ (or (string-equal "NONE" lisp-dir)
+ (defvar LISPDIR lisp-dir)))
+ (setq command-line-args-left (cdr command-line-args-left))
+ (load-file "INITZ-CFG")
+ (load-file "INITZ-ELS")
+
+ (princ (format "PREFIX=%s
+LISPDIR=%s\n" PREFIX LISPDIR))))
+
+(defun compile-initz ()
+ (config-initz)
+ (compile-elisp-modules initz-modules "."))
+
+(defun install-initz ()
+ (config-initz)
+ (install-elisp-modules initz-modules "./" INITZ_DIR))
+
+(defun config-initz-package ()
+ (let (package-dir)
+ (and (setq package-dir (car command-line-args-left))
+ (or (string= "NONE" package-dir)
+ (defvar PACKAGEDIR package-dir)))
+ (setq command-line-args-left (cdr command-line-args-left))
+ (load-file "INITZ-CFG")
+ (load-file "INITZ-ELS")
+
+ (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))))
+
+(defun compile-initz-package ()
+ (config-initz-package)
+
+ (setq autoload-package-name "initz")
+ (add-to-list 'command-line-args-left ".")
+ (batch-update-directory)
+
+ (add-to-list 'command-line-args-left ".")
+ (Custom-make-dependencies)
+
+ (compile-elisp-modules (append initz-modules-to-compile
+ '(auto-autoloads custom-load))
+ "."))
+
+(defun install-initz-package ()
+ (config-initz-package)
+ (install-elisp-modules (append initz-modules
+ '(auto-autoloads custom-load))
+ "./"
+ (expand-file-name INITZ_PREFIX
+ (expand-file-name "lisp"
+ PACKAGEDIR)))
+ (if (file-exists-p "./auto-autoloads.el")
+ (delete-file "./auto-autoloads.el"))
+ (if (file-exists-p "./custom-load.el")
+ (delete-file "./custom-load.el")))
+
+;;; INITZ-MK ends here
--- /dev/null
+#
+# Makefile for Initz.
+#
+
+PACKAGE = initz
+
+RM = /bin/rm -f
+
+EMACS = emacs
+XEMACS = xemacs
+FLAGS = -batch -q -no-site-file -l INITZ-MK
+
+PREFIX = NONE
+LISPDIR = NONE
+PACKAGEDIR = NONE
+VERSION_SPECIFIC_LISPDIR = NONE
+
+GOMI = *.elc *~
+
+elc:
+ $(EMACS) $(FLAGS) -f compile-initz $(PREFIX) $(LISPDIR)
+
+install: elc
+ $(EMACS) $(FLAGS) -f install-initz $(PREFIX) $(LISPDIR)
+
+package:
+ $(XEMACS) $(FLAGS) -f compile-initz-package $(PACKAGEDIR)
+
+install-package: package
+ $(XEMACS) $(FLAGS) -f install-initz-package $(PACKAGEDIR)
+clean:
+ -$(RM) $(GOMI)
--- /dev/null
+;;; initz-error.el --- Error list mode.
+
+;; Copyright (C) 2001-2002 OHASHI Akira <bg66@koka-in.org>
+
+;; Author: OHASHI Akira <bg66@koka-in.org>
+;; Keywords: startup, init
+
+;; This file is part of Initz.
+
+;; 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 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 'emu)
+(require 'initz-globals)
+(require 'initz)
+(require 'initz-list)
+
+(defvar initz-error-mode-map nil
+ "Local map for initz error buffers.")
+(unless initz-error-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map mouse-button-2 'initz-error-find-file-mouse)
+ (define-key map "n" 'initz-error-next-line)
+ (define-key map "p" 'initz-error-previous-line)
+ (define-key map "h" 'backward-char)
+ (define-key map "j" 'initz-error-next-line)
+ (define-key map "k" 'initz-error-previous-line)
+ (define-key map "l" 'forward-char)
+ (define-key map " " 'initz-error-find-file)
+ (define-key map "\C-m" 'initz-error-find-file)
+ (define-key map "B" 'initz-error-byte-compile-file)
+ (define-key map "D" 'initz-error-delete-file)
+ (define-key map "L" 'initz-error-load-file)
+ (define-key map "S" 'initz-startup)
+ (define-key map "q" 'initz-error-quit)
+ (setq initz-error-mode-map map)))
+
+(defvar initz-error-node-map nil)
+(unless initz-error-node-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map initz-error-mode-map)
+ (define-key map mouse-button-2 'initz-error-node-click)
+ (define-key map " " 'initz-error-node-enter)
+ (define-key map "\C-m" 'initz-error-node-enter)
+ (setq initz-error-node-map map)))
+
+(defvar initz-error-mode-hook nil
+ "Normal hook run when entering initz-error-mode.")
+
+(defconst initz-error-mode-name "Initz Error")
+
+(defconst initz-error-buffer-name "*Initz Error*")
+
+(defconst initz-error-delete-file-ask-message-format
+ "Delete %s? ")
+
+(defconst initz-error-click-message-format
+ "Click %s on the module name to select it.\n")
+
+(defconst initz-error-enter-message-format
+ "In this buffer, type %s to select the module name under point.\n")
+
+(defconst initz-error-compile-message-header
+ "Compile error:")
+
+(defconst initz-error-load-message-header
+ "Load error:")
+
+;; Initz error mode is suitable only for specially formatted data.
+(put 'initz-error-mode 'mode-class 'special)
+
+(defalias 'initz-error-delete-whole-line 'initz-list-delete-whole-line)
+(defalias 'initz-error-next-line 'initz-list-next-line)
+(defalias 'initz-error-previous-line 'initz-list-previous-line)
+(defalias 'initz-error-print-file 'initz-list-print-file)
+(defalias 'initz-error-find-file 'initz-list-find-file)
+(defalias 'initz-error-find-file-mouse 'initz-list-find-file-mouse)
+(defalias 'initz-error-quit 'initz-list-quit)
+
+(defun initz-error-node-insert (node status)
+ (let ((start (point)))
+ (insert "[" (if (eq status 'expand) "-" "+") "] "
+ (eval (intern (concat "initz-error-"
+ node "-message-header"))) "\n")
+ (add-text-properties start (+ start 3)
+ `(face initz-list-node-face
+ mouse-face highlight
+ local-map ,initz-error-node-map
+ keymap ,initz-error-node-map
+ start-open t rear-nonsticky t
+ :node ,node
+ :status ,status))))
+
+(defun initz-error-node-collapse (node)
+ (save-excursion
+ (setq buffer-read-only nil)
+ (goto-char (point-min))
+ (if (re-search-forward
+ (concat "^\\[-\\] "
+ (eval (intern (concat "initz-error-"
+ node "-message-header")))
+ "$") nil t)
+ (let ((start (progn (beginning-of-line) (point)))
+ end)
+ (forward-line 1)
+ (if (re-search-forward "^\\[[-+]\\] .+:$" nil t)
+ (progn
+ (beginning-of-line)
+ (setq end (point)))
+ (setq end (point-max)))
+ (delete-region start end))
+ (goto-char (point-max)))
+ (initz-error-node-insert node 'collapse)
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)))
+
+(defun initz-error-node-expand (node)
+ (save-excursion
+ (setq buffer-read-only nil)
+ (goto-char (point-min))
+ (if (re-search-forward
+ (concat "^\\[\\+\\] "
+ (eval (intern (concat "initz-error-"
+ node "-message-header")))
+ "$") nil t)
+ (delete-region (progn (beginning-of-line) (point))
+ (progn (forward-line 1) (point)))
+ (goto-char (point-max)))
+ (initz-error-node-insert node 'expand)
+ (let ((sort-start (point)))
+ (mapc
+ (function (lambda (file)
+ (let (start)
+ (insert-char ?\ 4)
+ (setq start (point))
+ (insert (initz-get-module-name file) "\n")
+ (add-text-properties
+ start (1- (point))
+ `(face initz-list-module-face
+ mouse-face highlight
+ start-open t rear-nonsticky t
+ help-echo ,file))
+ (put-text-property start (point) :file file))))
+ (eval (intern (concat "initz-" node "-error-files"))))
+ (sort-lines nil sort-start (point)))
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)))
+
+(defun initz-error-node-enter ()
+ (interactive)
+ (let ((node (get-text-property (point) :node))
+ (status (get-text-property (point) :status)))
+ (when (and node status)
+ (if (eq status 'expand)
+ (initz-error-node-collapse node)
+ (initz-error-node-expand node))
+ (forward-char 1))))
+
+(defun initz-error-node-click (e)
+ (interactive "e")
+ (mouse-set-point e)
+ (initz-error-node-enter))
+
+(defun initz-error-byte-compile-file ()
+ "Byte-compile the file under point."
+ (interactive)
+ (let ((file (get-text-property (point) :file)))
+ (when file
+ (condition-case nil
+ (when (save-window-excursion
+ (byte-compile-file file))
+ (let* ((compile-file (initz-get-correspondence-file file))
+ (startup-directory (file-name-directory file))
+ (flavor-directory (file-name-directory compile-file)))
+ (install-file (file-name-nondirectory compile-file)
+ startup-directory flavor-directory t t))
+ (when (member file initz-compile-error-files)
+ (setq initz-compile-error-files
+ (delete file initz-compile-error-files))
+ (initz-error-delete-whole-line)))
+ (error)))))
+
+(defun initz-error-delete-file ()
+ "Delete the file under point."
+ (interactive)
+ (let ((file (get-text-property (point) :file)))
+ (when (and file
+ (y-or-n-p
+ (format initz-error-delete-file-ask-message-format
+ (initz-get-module-name file))))
+ (delete-file file)
+ (setq initz-compile-error-files
+ (delete file initz-compile-error-files))
+ (setq initz-load-error-files
+ (delete file initz-load-error-files))
+ (initz-error-delete-whole-line)
+ (initz-error-previous-line)
+ (initz-error-next-line))))
+
+(defun initz-error-load-file ()
+ "Load the file under point."
+ (interactive)
+ (let* ((file (get-text-property (point) :file)))
+ (initz-error-byte-compile-file)
+ (when (initz-load-file (initz-get-correspondence-file file))
+ (setq initz-load-error-files
+ (delete file initz-load-error-files))
+ (initz-error-delete-whole-line))))
+
+(defun initz-error-mode ()
+ "\\<initz-error-mode-map>
+ Major mode for browsing initz error buffer.
+
+\\[initz-error-next-line] Next line.
+\\[initz-error-previous-line] Previous line.
+\\[forward-char] Forward char.
+\\[backward-char] Backward char.
+
+\\[initz-error-find-file] View the file under point.
+\\[initz-error-byte-compile-file] Byte-compile the file under point.
+\\[initz-error-delete-file] Delete the file under point.
+\\[initz-error-load-file] Load the file under point.
+\\[initz-startup] Initz startup.
+\\[initz-error-quit] Quit the initz error mode."
+ (interactive)
+ (kill-all-local-variables)
+ (use-local-map initz-error-mode-map)
+ (setq mode-name initz-error-mode-name)
+ (setq major-mode 'initz-error-mode)
+ (when (or (featurep 'xemacs) (< emacs-major-version 21))
+ (make-local-hook 'post-command-hook))
+ (add-hook 'post-command-hook 'initz-error-print-file)
+ (run-hooks 'initz-error-mode-hook))
+
+(defun initz-error ()
+ "Show initz error messages."
+ (interactive)
+ (when (or initz-compile-error-files
+ initz-load-error-files)
+ ;; FIXME: ad-hoc
+ (let ((buf (get-buffer initz-error-buffer-name)))
+ (when buf
+ (unless (one-window-p)
+ (delete-window))
+ (kill-buffer buf)))
+ (switch-to-buffer-other-window initz-error-buffer-name)
+ (initz-error-mode)
+ (goto-char (point-min))
+ (insert
+ (format initz-error-click-message-format
+ (substitute-command-keys "\\[initz-error-find-file-mouse]")))
+ (insert
+ (format initz-error-enter-message-format
+ (substitute-command-keys "\\[initz-error-find-file]")))
+ (insert "\n")
+ (mapc
+ (function (lambda (node)
+ (initz-error-node-expand node)))
+ '("compile" "load"))
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)
+ (goto-char (point-min))
+ (search-forward "\n\n")
+ (forward-char 1)
+ ;; FIXME: ad-hoc
+ (other-window 1)))
+
+(provide 'initz-error)
+
+;;; initz-error.el ends here
--- /dev/null
+1;;; initz-globals.el --- Global variables and constants.
+
+;; Copyright (C) 2002 OHASHI Akira <bg66@koka-in.org>
+
+;; Author: OHASHI Akira <bg66@koka-in.org>
+;; Keywords: startup, init
+
+;; This file is part of Initz.
+
+;; 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 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(defconst initz-null-string "")
+
+(defconst initz-separator-string "-")
+
+(defconst initz-module-regexp "[-.a-zA-Z0-9]+")
+
+(defconst initz-flavor
+ (if (featurep 'xemacs)
+ (concat "xemacs" (number-to-string emacs-major-version))
+ (if (featurep 'meadow)
+ (concat "meadow"
+ (let ((mver (Meadow-version)))
+ (if (string-match "Meadow-\\([0-9]+\\.[0-9]+\\)"
+ mver)
+ (match-string 1 mver))))
+ (concat "emacs" (number-to-string emacs-major-version)))))
+
+(defconst initz-load-module-ask-message-format
+ "Load init file for %s? ")
+
+(defconst initz-load-module-message-format
+ "Loading init file for %s...")
+
+(defconst initz-unload-module-message-format
+ "Unloading init file for %s...")
+
+(defvar initz-compile-error-files nil)
+
+(defvar initz-load-error-files nil)
+
+(defvar initz-load-list-internal nil)
+
+(defvar initz-ignore-list-internal nil)
+
+(provide 'initz-globals)
+
+;;; initz-globals.el ends here
--- /dev/null
+;;; initz-list.el --- File list mode.
+
+;; Copyright (C) 2002 OHASHI Akira <bg66@koka-in.org>
+
+;; Author: OHASHI Akira <bg66@koka-in.org>
+;; Keywords: startup, init
+
+;; This file is part of Initz.
+
+;; 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 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 'emu)
+(require 'initz-globals)
+(require 'initz)
+
+(defvar initz-list-mode-map nil
+ "Local map for initz list buffers.")
+(unless initz-list-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map mouse-button-2 'initz-list-find-file-mouse)
+ (define-key map "n" 'initz-list-next-line)
+ (define-key map "p" 'initz-list-previous-line)
+ (define-key map "h" 'backward-char)
+ (define-key map "j" 'initz-list-next-line)
+ (define-key map "k" 'initz-list-previous-line)
+ (define-key map "l" 'forward-char)
+ (define-key map " " 'initz-list-find-file)
+ (define-key map "\C-m" 'initz-list-find-file)
+ (define-key map "B" 'initz-list-byte-compile-file)
+ (define-key map "D" 'initz-list-delete-file)
+ (define-key map "L" 'initz-list-load-file)
+ (define-key map "N" 'initz-list-new-file)
+ (define-key map "S" 'initz-startup)
+ (define-key map "q" 'initz-list-quit)
+ (setq initz-list-mode-map map)))
+
+(defvar initz-list-node-map nil)
+(unless initz-list-node-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map initz-list-mode-map)
+ (define-key map mouse-button-2 'initz-list-node-click)
+ (define-key map " " 'initz-list-node-enter)
+ (define-key map "\C-m" 'initz-list-node-enter)
+ (setq initz-list-node-map map)))
+
+(defvar initz-list-mode-hook nil
+ "Normal hook run when entering initz-list-mode.")
+
+(defconst initz-list-mode-name "Initz List")
+
+(defconst initz-list-buffer-name "*Initz List*")
+
+(defconst initz-list-delete-file-ask-message-format
+ "Delete %s? ")
+
+(defconst initz-list-input-dir-message-format
+ "Dir[%s] (%s): ")
+
+(defconst initz-list-input-module-message-format
+ "Module[%s]: ")
+
+(defconst initz-list-new-file-illegal-message
+ "Module name is illegal.")
+
+(defconst initz-list-new-file-exists-message
+ "File already exists.")
+
+(defconst initz-list-new-file-provided-message
+ "Module is already provided.")
+
+(defconst initz-list-new-file-comment-message-format
+ ";;; %s --- init file for %s.\n\n\n\n")
+
+(defconst initz-list-new-file-provide-message-format
+ "(provide '%s)\n")
+
+(defconst initz-list-click-message-format
+ "Click %s on the module name to select it.\n")
+
+(defconst initz-list-enter-message-format
+ "In this buffer, type %s to select the module name under point.\n")
+
+;; Initz list mode is suitable only for specially formatted data.
+(put 'initz-list-mode 'mode-class 'special)
+
+(defadvice sort-build-lists (after sort-including-newline activate)
+ (when (or (eq major-mode 'initz-list-mode)
+ (eq major-mode 'initz-error-mode))
+ (setq ad-return-value
+ (mapcar
+ (function (lambda (list)
+ (cons (cons (caar list) (1+ (cdar list)))
+ (cons (cadr list) (1+ (cddr list))))))
+ ad-return-value))))
+
+(defun initz-list-delete-whole-line ()
+ "Delete whole line at point."
+ (setq buffer-read-only nil)
+ (delete-region (progn (beginning-of-line) (point))
+ (progn (forward-line 1) (point)))
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t))
+
+(defun initz-list-get-dir ()
+ "Return the dir at point."
+ (save-excursion
+ (end-of-line)
+ (when (re-search-backward "^\\[[-+]\\] \\([^ :]+\\)" nil t)
+ (match-string 1))))
+
+(defun initz-list-input-dir (&optional default)
+ "Input the dir."
+ (let* ((completing-list (mapcar
+ (function (lambda (list)
+ (symbol-name (car list))))
+ initz-init-alist))
+ (default (if (stringp default) default "misc")))
+ (completing-read
+ (format initz-list-input-dir-message-format
+ initz-directory default)
+ (mapcar
+ (function (lambda (name)
+ (cons name name)))
+ completing-list)
+ nil t nil nil default)))
+
+(defun initz-list-input-module (dir)
+ "Input the module."
+ (let ((init (initz-get-init-value (intern dir) 'prefix)))
+ (setq init (initz-trim-separator init))
+ (unless (string= init initz-null-string)
+ (setq init (concat init initz-separator-string)))
+ (if initz-list-input-module-completing
+ (completing-read
+ (format initz-list-input-module-message-format dir)
+ (mapcar
+ (function (lambda (feature)
+ (let ((name (symbol-name feature)))
+ (cons name name))))
+ features)
+ nil nil init)
+ (read-string
+ (format initz-list-input-module-message-format dir)
+ init))))
+
+(defun initz-list-insert-file (dir startup-file)
+ "Insert the STARTUP-FILE at DIR section."
+ ;; FIXME: Delete `save-excursion' and fix the next `FIXME'.
+ (save-excursion
+ (goto-char (point-min))
+ (when (re-search-forward (concat "^\\[[-+]\\] " dir "[ :]") nil t)
+ (beginning-of-line)
+ (let ((status (get-text-property (point) :status)))
+ (when (eq status 'expand)
+ (let (sort-start)
+ (forward-line 1)
+ (setq sort-start (point))
+ (if (re-search-forward "^\\[[-+]\\] " nil t)
+ (beginning-of-line)
+ (re-search-forward "\\'" nil t))
+ (setq buffer-read-only nil)
+ (insert-char ?\ 4)
+ (let ((start (point)))
+ (insert (initz-get-module-name startup-file) "\n")
+ (add-text-properties start (1- (point))
+ `(face initz-list-module-face
+ mouse-face highlight
+ start-open t rear-nonsticky t
+ help-echo ,startup-file))
+ (put-text-property start (point) :file startup-file))
+ (sort-lines nil sort-start (point)))
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)
+ ;; FIXME: Move to the line inserted now
+ )))))
+
+(defun initz-list-node-insert (node status)
+ (let ((prefix (initz-get-init-value node 'prefix))
+ (start (point)))
+ (setq prefix (initz-trim-separator prefix))
+ ;; `prefix' will be broken.
+ (if (string= prefix initz-null-string)
+ (setq prefix initz-null-string)
+ (setq prefix (concat " (" prefix ")")))
+ (insert "[" (if (eq status 'expand) "-" "+") "] "
+ (symbol-name node) prefix ":\n")
+ (add-text-properties start (+ start 3)
+ `(face initz-list-node-face
+ mouse-face highlight
+ local-map ,initz-list-node-map
+ keymap ,initz-list-node-map
+ start-open t rear-nonsticky t
+ :node ,node
+ :status ,status))))
+
+(defun initz-list-node-collapse (node)
+ (save-excursion
+ (setq buffer-read-only nil)
+ (goto-char (point-min))
+ (if (re-search-forward (concat "^\\[-\\] "
+ (symbol-name node) "[ :]") nil t)
+ (let ((start (progn (beginning-of-line) (point)))
+ end)
+ (forward-line 1)
+ (if (re-search-forward "^\\[[-+]\\] " nil t)
+ (progn
+ (beginning-of-line)
+ (setq end (point)))
+ (setq end (point-max)))
+ (delete-region start end))
+ (goto-char (point-max)))
+ (initz-list-node-insert node 'collapse)
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)))
+
+(defun initz-list-node-expand (node)
+ (save-excursion
+ (setq buffer-read-only nil)
+ (goto-char (point-min))
+ (if (re-search-forward (concat "^\\[\\+\\] "
+ (symbol-name node) "[ :]") nil t)
+ (delete-region (progn (beginning-of-line) (point))
+ (progn (forward-line 1) (point)))
+ (goto-char (point-max)))
+ (initz-list-node-insert node 'expand)
+ (let ((sort-start (point))
+ (initz-features (initz-features)))
+ (mapc
+ (function (lambda (file)
+ (let* ((module (initz-get-module-name file))
+ (loaded (memq (intern module) initz-features))
+ start)
+ (insert-char ?\ 4)
+ (setq start (point))
+ (insert module)
+ (when loaded (insert initz-list-loaded-mark))
+ (insert "\n")
+ (add-text-properties
+ start (1- (point))
+ `(face ,(if loaded
+ 'initz-list-module-face
+ 'initz-list-unloaded-module-face)
+ mouse-face highlight
+ start-open t rear-nonsticky t
+ help-echo ,file))
+ (put-text-property start (point) :file file))))
+ (initz-get-files 'startup node))
+ (sort-lines nil sort-start (point)))
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)))
+
+(defun initz-list-node-enter ()
+ (interactive)
+ (let ((node (get-text-property (point) :node))
+ (status (get-text-property (point) :status)))
+ (when (and node status)
+ (if (eq status 'expand)
+ (initz-list-node-collapse node)
+ (initz-list-node-expand node))
+ (forward-char 1))))
+
+(defun initz-list-node-click (e)
+ (interactive "e")
+ (mouse-set-point e)
+ (initz-list-node-enter))
+
+(defun initz-list-next-line (&optional arg)
+ (interactive)
+ (if (integerp arg)
+ (next-line arg)
+ (next-line 1))
+ (beginning-of-line)
+ (let ((start (re-search-forward "^\\( \\|\\[\\|\\)" nil t)))
+ (when (integer-or-marker-p start)
+ (goto-char start))))
+
+(defun initz-list-previous-line ()
+ (interactive)
+ (initz-list-next-line -1))
+
+(defun initz-list-print-file ()
+ "Print the file name under point."
+ (interactive)
+ (let ((file (get-text-property (point) :file)))
+ (and file
+ (initz-message-no-log file))))
+
+(defun initz-list-find-file ()
+ "View the file under point."
+ (interactive)
+ (let ((file (get-text-property (point) :file)))
+ (and file
+ (find-file-other-window file))))
+
+(defun initz-list-find-file-mouse (e)
+ "View the file under clicked point."
+ (interactive "e")
+ (mouse-set-point e)
+ (unless (eolp)
+ (initz-list-find-file)))
+
+(defun initz-list-byte-compile-file ()
+ "Byte-compile the file under point."
+ (interactive)
+ (let ((file (get-text-property (point) :file)))
+ (when file
+ (condition-case nil
+ (when (save-window-excursion
+ (byte-compile-file file))
+ (let* ((compile-file (initz-get-correspondence-file file))
+ (startup-directory (file-name-directory file))
+ (flavor-directory (file-name-directory compile-file)))
+ (install-file (file-name-nondirectory compile-file)
+ startup-directory flavor-directory t t))
+ (setq initz-compile-error-files
+ (delete file initz-compile-error-files)))
+ (error)))))
+
+(defun initz-list-delete-file ()
+ "Delete the file under point."
+ (interactive)
+ (let ((file (get-text-property (point) :file)))
+ (when (and file
+ (y-or-n-p
+ (format initz-list-delete-file-ask-message-format
+ (initz-get-module-name file))))
+ (delete-file file)
+ (setq initz-compile-error-files
+ (delete file initz-compile-error-files))
+ (setq initz-load-error-files
+ (delete file initz-load-error-files))
+ (initz-list-delete-whole-line)
+ (initz-list-previous-line)
+ (initz-list-next-line))))
+
+(defun initz-list-load-file ()
+ "Load the file under point."
+ (interactive)
+ (let* ((file (get-text-property (point) :file)))
+ (initz-list-byte-compile-file)
+ (when (initz-load-file (initz-get-correspondence-file file))
+ (setq initz-load-error-files
+ (delete file initz-load-error-files)))))
+
+;;;###autoload
+(defun initz-list-new-file ()
+ "Make new init file."
+ (interactive)
+ (let* ((default (initz-list-get-dir))
+ (dir (initz-list-input-dir default))
+ (module (initz-list-input-module dir)))
+ (if (not (or (and (string= dir "misc") (string= module initz-null-string))
+ (string-match (concat "^" initz-module-regexp "$") module)))
+ (message initz-list-new-file-illegal-message)
+ (setq module (initz-trim-separator module))
+ (let* ((startup-file (expand-file-name
+ (concat initz-prefix
+ (if (string= module initz-null-string)
+ initz-null-string
+ initz-separator-string)
+ module ".el")
+ (initz-startup-directory (intern dir)))))
+ (if (file-exists-p startup-file)
+ (message initz-list-new-file-exists-message)
+ (let ((base-name (initz-get-base-name startup-file)))
+ (if (memq (intern base-name) features)
+ (message initz-list-new-file-provided-message)
+ (initz-list-insert-file dir startup-file)
+ (find-file-other-window startup-file)
+ (insert (format initz-list-new-file-comment-message-format
+ (file-name-nondirectory startup-file)
+ (if (string= module initz-null-string)
+ initz-prefix
+ module)))
+ (insert (format initz-list-new-file-provide-message-format
+ base-name))
+ (save-buffer)
+ (goto-char (point-min))
+ (search-forward "\n\n"))))))))
+
+(defun initz-list-quit ()
+ "Quit the initz list mode."
+ (interactive)
+ (when (or (eq major-mode 'initz-list-mode)
+ (eq major-mode 'initz-error-mode))
+ (remove-hook 'post-command-hook
+ (intern (concat
+ (substring (symbol-name major-mode) 0
+ (string-match "mode"
+ (symbol-name major-mode)))
+ "print-file")))
+ (let ((buf (current-buffer)))
+ (unless (one-window-p)
+ (delete-window))
+ (kill-buffer buf))))
+
+(defun initz-list-mode ()
+ "\\<initz-list-mode-map>
+ Major mode for browsing initz list buffer.
+
+\\[initz-list-next-line] Next line.
+\\[initz-list-previous-line] Previous line.
+\\[forward-char] Forward char.
+\\[backward-char] Backward char.
+
+\\[initz-list-find-file] View the file under point.
+\\[initz-list-byte-compile-file] Byte-compile the file under point.
+\\[initz-list-delete-file] Delete the file under point.
+\\[initz-list-load-file] Load the file under point.
+\\[initz-list-new-file] Make new init file.
+\\[initz-startup] Initz startup.
+\\[initz-list-quit] Quit the initz list mode."
+ (interactive)
+ (kill-all-local-variables)
+ (use-local-map initz-list-mode-map)
+ (setq mode-name initz-list-mode-name)
+ (setq major-mode 'initz-list-mode)
+ (when (or (featurep 'xemacs) (< emacs-major-version 21))
+ (make-local-hook 'post-command-hook))
+ (add-hook 'post-command-hook 'initz-list-print-file)
+ (run-hooks 'initz-list-mode-hook))
+
+;;;###autoload
+(defun initz-list ()
+ "Show initz list buffer."
+ (interactive)
+ ;; FIXME: ad-hoc
+ (let ((buf (get-buffer initz-list-buffer-name)))
+ (when buf
+ (unless (one-window-p)
+ (delete-window))
+ (kill-buffer buf)))
+ (switch-to-buffer-other-window initz-list-buffer-name)
+ (initz-list-mode)
+ (goto-char (point-min))
+ (insert
+ (format initz-list-click-message-format
+ (substitute-command-keys "\\[initz-list-find-file-mouse]")))
+ (insert
+ (format initz-list-enter-message-format
+ (substitute-command-keys "\\[initz-list-find-file]")))
+ (insert "\n")
+ (mapc
+ (function (lambda (alist)
+ (let ((sym (car alist)))
+ (funcall
+ (intern (concat "initz-list-node-"
+ (symbol-name
+ initz-list-default-node-status)))
+ sym))))
+ initz-init-alist)
+ (set-buffer-modified-p nil)
+ (setq buffer-read-only t)
+ (goto-char (point-min))
+ (search-forward "\n\n")
+ (forward-char 1))
+
+(provide 'initz-list)
+
+;;; initz-list.el ends here
--- /dev/null
+;;; initz-util.el --- Utilities.
+
+;; Copyright (C) 2002 OHASHI Akira <bg66@koka-in.org>
+
+;; Author: OHASHI Akira <bg66@koka-in.org>
+;; Keywords: startup, init
+
+;; This file is part of Initz.
+
+;; 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 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 'initz-vars)
+(require 'initz-globals)
+(eval-when-compile (require 'cl))
+
+(defun initz-add-to-load-list (modules)
+ "Add MODULES to `initz-load-list-internal'."
+ (let ((modules (if (listp modules) modules (list modules))))
+ (mapc
+ (function (lambda (module)
+ (add-to-list 'initz-load-list-internal module)))
+ modules)))
+
+(defun initz-add-to-ignore-list (modules)
+ "Add MODULES to `initz-ignore-list-internal'."
+ (let ((modules (if (listp modules) modules (list modules))))
+ (mapc
+ (function (lambda (module)
+ (add-to-list 'initz-ignore-list-internal module)))
+ modules)))
+
+(defun initz-remove-from-load-list (modules)
+ "Remove MODULES from `initz-load-list-internal'."
+ (let ((modules (if (listp modules) modules (list modules))))
+ (mapc
+ (function (lambda (module)
+ (setq initz-load-list-internal
+ (delete module initz-load-list-internal))))
+ modules)))
+
+(defun initz-remove-from-ignore-list (modules)
+ "Remove MODULES from `initz-ignore-list-internal'."
+ (let ((modules (if (listp modules) modules (list modules))))
+ (mapc
+ (function (lambda (module)
+ (setq initz-ignore-list-internal
+ (delete module initz-ignore-list-internal))))
+ modules)))
+
+(defun initz-set-load-list (modules)
+ "Set MODULES to `initz-load-list-internal'."
+ (let ((modules (if (listp modules) modules (list modules))))
+ (setq initz-load-list-internal modules)))
+
+(defun initz-set-ignore-list (modules)
+ "Set MODULES to `initz-ignore-list-internal'."
+ (let ((modules (if (listp modules) modules (list modules))))
+ (setq initz-ignore-list-internal modules)))
+
+(defun initz-add-to-load-path (paths)
+ "Add PATHS to `load-path' recursively."
+ (let ((paths (if (listp paths) paths (list paths))))
+ (mapc
+ (function (lambda (path)
+ (when (file-directory-p path)
+ (add-to-list 'load-path path)
+ (initz-add-to-load-path
+ ;; Without `.' and `..'.
+ (directory-files
+ path t "^\\([^.].+\\|\\.[^.].+\\|\\.\\..+\\)$")))))
+ paths)))
+
+(defun initz-features ()
+ "Return the Initz features."
+ (delq nil
+ (mapcar
+ (function (lambda (feature)
+ (let ((initz-feature (initz-get-module-name
+ (concat (symbol-name feature)
+ ".el"))))
+ (unless (string= initz-feature initz-null-string)
+ (intern initz-feature)))))
+ features)))
+
+;;; Internal functions.
+(defun initz-get-base-name (init-file)
+ "Return base name of the INIT-FILE."
+ (file-name-sans-extension
+ (file-name-nondirectory init-file)))
+
+(defun initz-get-module-name (init-file)
+ "Return module name of the INIT-FILE."
+ (let ((base-name (initz-get-base-name init-file)))
+ (cond
+ ((string= base-name initz-prefix) initz-prefix)
+ ((string-match (concat
+ (regexp-quote (concat initz-prefix
+ initz-separator-string))
+ "\\(" initz-module-regexp "\\)")
+ base-name)
+ (match-string 1 base-name))
+ (t initz-null-string))))
+
+(provide 'initz-util)
+
+;;; initz-util.el ends here
--- /dev/null
+;;; initz-vars.el --- Customization.
+
+;; Copyright (C) 2001-2002 OHASHI Akira <bg66@koka-in.org>
+
+;; Author: OHASHI Akira <bg66@koka-in.org>
+;; Keywords: startup, init
+
+;; This file is part of Initz.
+
+;; 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 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(defgroup initz nil
+ "Initz specific customize group")
+
+(defgroup initz-face nil
+ "Faces for Initz."
+ :group 'initz
+ :prefix "initz-")
+
+;; User modifiable variables.
+(defcustom initz-directory "~/.initz"
+ "*Initz files path."
+ :type 'directory
+ :group 'initz)
+
+(defcustom initz-prefix "init"
+ "*Initz files prefix."
+ :type 'string
+ :group 'initz)
+
+(defcustom initz-interactively nil
+ "*If non-nil, initz loads files interactively."
+ :type 'boolean
+ :group 'initz)
+
+(defcustom initz-verbose 'errors
+ "*If non-nil, initz runs verbose."
+ :type '(choice
+ (const :tag "Show messages and errors." errors)
+ (const :tag "Show only messages." messages)
+ (const :tag "Quietly." nil))
+ :group 'initz)
+
+(defcustom initz-load-list '()
+ "*If non-nil, initz loads only the module contained in this list."
+ :type '(repeat string)
+ :group 'initz)
+
+(defcustom initz-ignore-list '()
+ "*If non-nil, initz ignores the module contained in this list."
+ :type '(repeat string)
+ :group 'initz)
+
+(defcustom initz-list-default-node-status 'expand
+ "*Default node status of `initz-list'."
+ :type '(choice
+ (const :tag "Expand" expand)
+ (const :tag "Collapse" collapse))
+ :group 'initz)
+
+(defcustom initz-list-input-module-completing t
+ "*If non-nil, initz completes the module with `features'."
+ :type 'boolean
+ :group 'initz)
+
+(defcustom initz-list-loaded-mark "@"
+ "*If module was loaded, print this at the rear."
+ :type 'string
+ :group 'initz)
+
+;; Faces.
+(defface initz-list-node-face
+ '((((class color) (background light)) (:foreground "blue"))
+ (((class color) (background dark)) (:foreground "cyan"))
+ (t (:bold t)))
+ "Face used to initz list node."
+ :group 'initz-face)
+
+(defface initz-list-module-face
+ '((((class color) (background light)) (:foreground "ForestGreen"))
+ (((class color) (background dark)) (:foreground "green"))
+ (t (:bold t)))
+ "Face used to initz list module."
+ :group 'initz-face)
+
+(defface initz-list-unloaded-module-face
+ '((((class color)) (:foreground "gray"))
+ (t (:italic t)))
+ "Face used to initz list unloaded module."
+ :group 'initz-face)
+
+(provide 'initz-vars)
+
+;;; initz-vars.el ends here
--- /dev/null
+;;; initz.el --- Handles the switching of various startup initialization files
+
+;; Copyright (C) 2001-2002 OHASHI Akira <bg66@koka-in.org>
+
+;; Author: OHASHI Akira <bg66@koka-in.org>
+;; Keywords: startup, init
+
+;; This file is part of Initz.
+
+;; 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 2, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 'install)
+(require 'product)
+(require 'initz-vars)
+(require 'initz-globals)
+(require 'initz-util)
+(eval-when-compile (require 'cl))
+(eval-and-compile
+ (autoload 'initz-error "initz-error" nil t)
+ (autoload 'initz-list "initz-list" nil t)
+ (autoload 'initz-list-new-file "initz-list" nil t))
+
+(product-provide 'initz
+ (product-define "Initz" nil '(0 0 11)))
+
+(defun initz-version (&optional arg)
+ "Return Initz version.
+If it is called interactively, version string is appeared on minibuffer.
+If ARG is specified, don't display code name."
+ (interactive "P")
+ (let ((product-info (product-string-1 'initz (not arg))))
+ (if (interactive-p)
+ (message "%s" product-info)
+ product-info)))
+
+(defconst initz-done-message-format
+ "Loading %s init files for %s...done")
+
+(defun initz-message (mesg)
+ "If `initz-verbose' is non-nil, print MESG."
+ (when initz-verbose (message mesg)))
+
+(defmacro initz-message-no-log (string &rest args)
+ "Like `message', except that message logging is disabled."
+ (if (featurep 'xemacs)
+ (if args
+ `(display-message 'no-log (format ,string ,@args))
+ `(display-message 'no-log ,string))
+ `(let (message-log-max)
+ (message ,string ,@args))))
+
+(defun initz-trim-separator (string)
+ "Trim `initz-separator-string' from STRING."
+ (let ((temp string))
+ (when (string-match (concat "^" initz-separator-string "+") temp)
+ (setq temp (substring temp (match-end 0))))
+ (when (string-match (concat initz-separator-string "+$") temp)
+ (setq temp (substring temp 0 (match-beginning 0))))
+ temp))
+
+(defconst initz-init-alist
+ `((argument . ("argument"
+ ,(let ((args initz-null-string))
+ (mapc
+ (function (lambda (arg)
+ (unless (string= args initz-null-string)
+ (setq args (concat args
+ initz-separator-string)))
+ (setq arg (initz-trim-separator arg))
+ (setq args (concat args arg))))
+ (cdr command-line-args))
+ args)))
+ (flavor . ("flavor" ,initz-flavor))
+ (host . ("host" ,(system-name)))
+ (system . ("system" ,(symbol-name system-type)))
+ (misc . (,initz-null-string ,initz-null-string))))
+
+(defun initz-get-init-value (sym type)
+ "Return the TYPE's value of SYM from `initz-init-alist'."
+ (let ((list (cdr (assq sym initz-init-alist)))
+ (count 0))
+ (unless (null list)
+ (catch 'found
+ (mapc
+ (function (lambda (temp)
+ (if (eq type temp)
+ (let ((elem (nth count list)))
+ (when (and (eq type 'prefix)
+ (not (string= elem initz-null-string)))
+ (setq elem (concat initz-separator-string
+ elem)))
+ (throw 'found elem))
+ (setq count (incf count)))))
+ '(dir prefix))
+ nil))))
+
+(defun initz-directory (kind)
+ "Return the directory of KIND."
+ (let ((dir (cond
+ ((eq kind 'startup) "startup")
+ ((eq kind 'flavor) initz-flavor)
+ (t initz-null-string))))
+ (expand-file-name dir initz-directory)))
+
+(defun initz-startup-directory (sym)
+ "Return the startup directory of SYM."
+ (expand-file-name
+ (initz-get-init-value sym 'dir)
+ (initz-directory 'startup)))
+
+(defun initz-flavor-directory (sym)
+ "Return the flavor directory of SYM."
+ (expand-file-name
+ (initz-get-init-value sym 'dir)
+ (initz-directory 'flavor)))
+
+(defun initz-get-kind (file)
+ "Return the kind of FILE."
+ (catch 'found
+ (mapc
+ (function (lambda (kind)
+ (when (string-match (initz-directory kind) file)
+ (throw 'found kind))))
+ '(startup flavor))
+ nil))
+
+(defun initz-get-dir (file)
+ "Return dir of the FILE."
+ (let ((file (file-name-directory file))
+ (directory (initz-directory (initz-get-kind file))))
+ (when (string-match "/$" file)
+ (setq file (substring file 0 (1- (length file)))))
+ (catch 'found
+ (if (string= file directory)
+ (throw 'found 'misc)
+ (when (string-match (concat directory "\\(.+\\)") file)
+ (let ((dir (substring (match-string 1 file) 1)))
+ (mapc
+ (function (lambda (alist)
+ (when (string= (nth 0 (cdr alist)) dir)
+ (throw 'found (car alist)))))
+ initz-init-alist))))
+ nil)))
+
+(defun initz-get-correspondence-file (init-file)
+ "Return correspondence file of the INIT-FILE."
+ (let* ((file (file-name-nondirectory init-file))
+ (kind (if (eq (initz-get-kind init-file) 'startup)
+ 'flavor
+ 'startup))
+ (directory (expand-file-name
+ (initz-get-init-value (initz-get-dir init-file) 'dir)
+ (initz-directory kind))))
+ (expand-file-name (if (eq kind 'startup)
+ (substring file 0 (1- (length file)))
+ (concat file "c"))
+ directory)))
+
+(defun initz-get-files (kind dir)
+ "Return files of the directory made by KIND and DIR."
+ (let ((directory (expand-file-name
+ (initz-get-init-value dir 'dir)
+ (initz-directory kind)))
+ (prefix (regexp-quote
+ (concat initz-prefix
+ (initz-get-init-value dir 'prefix))))
+ (ext (if (eq kind 'startup) "\\.el$" "\\.elc$")))
+ (unless (and (not (eq dir 'misc))
+ (string= prefix initz-prefix))
+ (directory-files
+ directory t (concat "^\\(" prefix "\\|"
+ prefix initz-separator-string
+ initz-module-regexp "\\)" ext)))))
+
+(defun initz-make-directory (sym)
+ "Make SYM's directory."
+ (mapc
+ (function (lambda (kind)
+ (let ((directory (expand-file-name
+ (initz-get-init-value sym 'dir)
+ (initz-directory kind))))
+ (unless (file-directory-p directory)
+ (make-directory directory t)))))
+ '(startup flavor)))
+
+(defun initz-make-directories ()
+ "Make initz directories."
+ (interactive)
+ (mapc
+ (function (lambda (alist)
+ (let ((sym (car alist)))
+ (initz-make-directory sym))))
+ initz-init-alist))
+
+(defun initz-delete-file (flavor-file)
+ "Delete the FLAVOR-FILE when startup-file was deleted."
+ (let ((startup-file (initz-get-correspondence-file flavor-file)))
+ (unless (file-exists-p startup-file)
+ (delete-file flavor-file))))
+
+(defun initz-delete-files (sym)
+ "Delete files in the SYM's directory when startup-file was deleted."
+ (let ((flavor-files (initz-get-files 'flavor sym)))
+ (mapc
+ (function (lambda (flavor-file)
+ (initz-delete-file flavor-file)))
+ flavor-files)))
+
+(defun initz-delete ()
+ "Delete the initz startup files."
+ (interactive)
+ (initz-make-directories)
+ (mapc
+ (function (lambda (alist)
+ (let ((sym (car alist)))
+ (initz-delete-files sym))))
+ initz-init-alist))
+
+(defun initz-compile-file (startup-file)
+ "Compile the STARTUP-FILE."
+ (let ((flavor-file (initz-get-correspondence-file startup-file)))
+ (when (file-newer-than-file-p startup-file flavor-file)
+ (condition-case nil
+ (unless (save-window-excursion
+ (byte-compile-file startup-file))
+ (error nil))
+ (error
+ ;; Use `initz-ignore-list' instead of `initz-ignore-list-internal'
+ ;; purposely.
+ (unless (member (initz-get-module-name startup-file)
+ initz-ignore-list)
+ (add-to-list 'initz-compile-error-files startup-file))
+ nil)))))
+
+(defun initz-compile-files (sym)
+ "Compile files in the SYM's directory."
+ (let ((startup-files (initz-get-files 'startup sym))
+ compiled-files)
+ (mapc
+ (function (lambda (startup-file)
+ (initz-compile-file startup-file)))
+ startup-files)
+ (setq compiled-files (directory-files
+ (initz-startup-directory sym) nil "\\.elc$"))
+ (install-files compiled-files (initz-startup-directory sym)
+ (initz-flavor-directory sym) t t)))
+
+(defun initz-compile ()
+ "Compile the initz startup files."
+ (interactive)
+ (initz-delete)
+ (setq initz-compile-error-files nil)
+ (mapc
+ (function (lambda (alist)
+ (let ((sym (car alist)))
+ (initz-compile-files sym))))
+ initz-init-alist)
+ (and initz-compile-error-files (eq initz-verbose 'errors)
+ (initz-error)))
+
+(defun initz-load-file (flavor-file &optional unload)
+ "Load the FLAVOR-FILE."
+ (let* ((module (initz-get-module-name flavor-file))
+ (mesg (format (if unload
+ initz-unload-module-message-format
+ initz-load-module-message-format)
+ module)))
+ (if (or (member module initz-ignore-list-internal)
+ (and initz-load-list-internal
+ (not (member module initz-load-list-internal))))
+ (initz-message (concat mesg "ignored"))
+ (unless (and initz-interactively
+ (not (y-or-n-p
+ (format initz-load-module-ask-message-format
+ module))))
+ (initz-message mesg)
+ (condition-case nil
+ (let*((base-name (initz-get-base-name flavor-file))
+ (feature (intern base-name)))
+ (if unload
+ (unload-feature feature t)
+ (when (memq feature features)
+ (unload-feature feature t))
+ (require feature))
+ (initz-message (concat mesg "done")))
+ (error (add-to-list 'initz-load-error-files
+ (initz-get-correspondence-file flavor-file))
+ (initz-message (concat mesg "failed"))
+ nil))))))
+
+(defun initz-load-files (sym)
+ "Load files in the SYM's directory."
+ (let ((flavor-files (initz-get-files 'flavor sym)))
+ (mapc
+ (function (lambda (flavor-file)
+ (initz-load-file flavor-file)))
+ flavor-files)))
+
+(defun initz-load ()
+ "Load the initz startup files."
+ (interactive)
+ (initz-compile)
+ (setq initz-load-error-files nil)
+ (initz-add-to-load-path (initz-directory 'flavor))
+ ;; tricky
+ (setq initz-load-list-internal initz-load-list)
+ (setq initz-ignore-list-internal initz-ignore-list)
+ (mapc
+ (function (lambda (alist)
+ (let ((sym (car alist)))
+ (initz-load-files sym))))
+ initz-init-alist)
+ (and initz-load-error-files (eq initz-verbose 'errors)
+ (initz-error)))
+
+(defun initz-done ()
+ "Initz done."
+ (initz-message (format initz-done-message-format
+ (initz-version) initz-flavor)))
+
+;;;###autoload
+(defun initz-startup ()
+ "Initz startup."
+ (interactive)
+ (unless noninteractive
+ (initz-load)
+ (initz-done)))
+
+(provide 'initz)
+
+;;; initz.el ends here
--- /dev/null
+;;; .emacs
+
+(require 'initz)
+(add-hook 'after-init-hook 'initz-startup)
+
+;(setq initz-interactively t)
+;(setq initz-verbose 'messages)
+;(setq initz-list-default-node-status 'expand)
+
+;(setq initz-load-list '())
+;(setq initz-ignore-list '("test"))
+
+;;; load path
+;(initz-add-to-load-path `("~/share/emacs/site-lisp"
+; ,(concat "~/share/" initz-flavor "/site-lisp")))
--- /dev/null
+;;; init-emacs20.el --- init file for emacs20.
+
+(menu-bar-mode -1)
+
+(provide 'init-emacs20)
--- /dev/null
+;;; init-xemacs21.el --- init file for xemacs21.
+
+(setq progress-feedback-use-echo-area t)
+(set-specifier default-toolbar-visible-p nil)
+(set-specifier menubar-visible-p nil)
+(if (featurep 'gutter)
+ (set-specifier default-gutter-visible-p nil))
+
+(provide 'init-xemacs21)
--- /dev/null
+;;; init-host1-skk.el --- init file for host1-skk.
+
+(when (locate-library "skk")
+ (setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L"))
+
+(provide 'init-host1-skk)
--- /dev/null
+;;; init-host2-skk.el --- init file for host2-skk.
+
+(when (locate-library "skk")
+ (setq skk-large-jisyo "/usr/local/share/skk/SKK-JISYO.L"))
+
+(provide 'init-host2-skk)
--- /dev/null
+;;; initz-skk.el --- init file for skk.
+
+(when (locate-library "skk")
+ (setq skk-auto-okuri-process t)
+ (setq skk-japanese-message-and-error t)
+ (setq skk-keep-record nil)
+ (global-set-key "\C-x\C-j" 'skk-mode)
+ (autoload 'skk-mode "skk" nil t))
+
+(provide 'init-skk)
--- /dev/null
+;;; initz-test.el --- init file for test.
+
+(setq test "test")
+
+(provide 'init-test)
projects / elisp / initz.git / commitdiff