From: PHO <pho@cielonegro.org>
Date: Tue, 4 Aug 2009 01:43:37 +0000 (+0900)
Subject: Auto commit by The Sugar System.
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=sugar.git;a=commitdiff_plain;h=684156f7eae29ace1183e8ec570169d3ab6dc61e

Auto commit by The Sugar System.
---

diff --git a/GNUmakefile b/GNUmakefile
index 8d1bdb7..1d927bf 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -3,14 +3,17 @@ help:
 	@echo "  .:. Sugar - The Dot-Files Manager .:."
 	@echo
 	@echo "Usage:"
-	@echo "  make lint    - lint The Sugar System"
-	@echo "  make update  - update repository with the current dot files"
-	@echo "  make commit  - commit changes to the repository"
-	@echo "  make install - update the current dot files with the repository"
+	@echo "  make lint    - lint The Sugar System."
+	@echo "  make update  - update repository with the current dot files."
+	@echo "  make commit  - commit changes to the repository."
+	@echo "  make install - update the current dot files with the repository."
 	@echo "  make import FILES=<FILES>"
-	@echo "               - import the dot files into the repository"
+	@echo "               - import the dot files into the repository."
+	@echo "  make import-all"
+	@echo "               - import every uncontrolled dot files, which aren't"
+	@echo "                 ignored, into the repository."
 	@echo "  make diff FILE=<FILE>"
-	@echo "               - show diff of the dot file"
+	@echo "               - show diff of the dot file."
 	@echo
 
 lint:
@@ -41,10 +44,17 @@ import:
 	@exit 1
 else
 import:
-	perl ./tools/import.pl $(FILES)
+	(for i in $(FILES); do echo $i; done) | perl ./tools/import.pl
 	-git status
 endif
 
+import-all:
+	perl ./tools/list-files.pl | \
+		perl ./tools/find-missing.pl | \
+		cut -b 3- | \
+		perl ./tools/import.pl
+	-git status
+
 ifeq ($(FILE),)
 diff:
 	@echo "Specify one file."
diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 352263c..75b0e62 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -88,6 +88,9 @@
 ;; flyspell
 (require-if-present 'flyspell)
 
+;; jaspace
+(require-if-present 'jaspace)
+
 ;; mic-paren
 (require-if-present 'mic-paren)
 (if (featurep 'mic-paren)
@@ -100,6 +103,13 @@
 ;; MPC
 ;(require-if-present 'mpc-autoloads)
 
+;; rst-mode
+(autoload 'rst-mode "rst"
+  "mode for editing reStructuredText documents" t)
+(setq auto-mode-alist
+      (append '(("\\.rst$" . rst-mode)
+                ("\\.rest$" . rst-mode)) auto-mode-alist))
+
 ;; twittering-mode
 (require-if-present 'twittering-mode)
 (setq twittering-username "phonohawk")
@@ -367,6 +377,7 @@
  '(jabber-resource "emacs")
  '(jabber-server "jabber.jp")
  '(jabber-username "phonohawk")
+ '(jaspace-highlight-tabs t)
  '(js2-basic-offset 4)
  '(js2-indent-on-enter-key t)
  '(js2-use-font-lock-faces t)
@@ -412,4 +423,5 @@
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
  '(flyspell-incorrect ((t (:foreground "OrangeRed" :overline t))))
+ '(jaspace-highlight-tab-face ((((class color) (background dark)) (:foreground "gray70" :underline t))))
  '(which-func-face ((t (:background "black" :foreground "dark orange")))))
diff --git a/tools/import.pl b/tools/import.pl
index c1bacae..5a1e0dc 100644
--- a/tools/import.pl
+++ b/tools/import.pl
@@ -8,9 +8,9 @@ use File::Copy;
 use File::Path;
 
 sub main {
-    my @args = @_;
+    while (defined(my $arg = <>)) {
+        chomp $arg;
 
-    foreach my $arg (@args) {
         my $rel   = File::Spec->abs2rel($arg, $ENV{HOME});
         my $abs   = File::Spec->rel2abs($rel, $ENV{HOME});
         my $saved = rel2saved($rel);
@@ -23,4 +23,4 @@ sub main {
     }
 }
 
-main(@ARGV);
+main();