merged
authorOleksandr Gavenko <gavenkoa@gmail.com>
Tue, 27 Oct 2015 19:50:40 +0200
changeset 1300 361aa3be7455
parent 1299 b3c9f1e790eb (diff)
parent 1294 03ff957a2614 (current diff)
child 1301 4ef2dccbddbd
merged
.emacs-my
--- a/.emacs-my	Wed Oct 07 13:34:30 2015 +0300
+++ b/.emacs-my	Tue Oct 27 19:50:40 2015 +0200
@@ -678,7 +678,7 @@
 ;; (setq find-ls-option '("-ls" . ""))
 ;; So I use next expression, which work with GNU find, I replace %s with '0'
 ;; to avoid unnecessary sys calls and this make output aligned by column:
-(setq find-ls-option '("-printf ' -rw-rw-rw- 0 %AY-%Am-%Ad %AH:%AM %p\n'" . ""))
+(setq find-ls-option '("-printf ' -rw-rw-rw- %9s %AY-%Am-%Ad %AH:%AM %p\n'" . ""))
 
 ;; Do not set t because some grep do not has --color options.
 (setq grep-highlight-matches nil)
@@ -1638,7 +1638,7 @@
    `(
      ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t)
      ;; 64 times, for highlight C-u C-u C-u <key>
-     ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
+     ;; ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
      ))
   )
 
@@ -1824,8 +1824,10 @@
 (setq mm-discouraged-alternatives '("text/html" "text/richtext"))
 (setq mm-text-html-renderer 'w3m)
 
-(eval-when-compile
-  (require 'w3m-util nil :no-error))
+(cl-eval-when 'compile
+  (condition-case err
+      (require 'w3m-util)
+    (error (byte-compile-warn "FAIL: %S" err))))
 
 (defun my-w3m-view-url ()
   (interactive)
--- a/Makefile	Wed Oct 07 13:34:30 2015 +0300
+++ b/Makefile	Tue Oct 27 19:50:40 2015 +0200
@@ -136,15 +136,18 @@
 	for file in .emacs-pre .emacs-post; do \
 		[ -f $(emacsdir)/$$file ] || cp $$file $(emacsdir)/$$file; \
 	done
-	cp .emacs $(emacsdir)/init.el
-	cp .emacs-defs .emacs-my $(emacsdir)
-	mkdir -p $(emacsdir)/server $(HOME)/.gnus/scores
-	cp all.SCORE $(HOME)/.gnus/scores
-	cp -f $(EL_FILES) $(mylispdir); \
-	./.emacs-autogen.sh $(emacsdir)/.emacs-autogen; \
-	$(EMACS) -Q --batch --eval='(let ((generated-autoload-file "$(mylispdir)/loaddefs.el")) (update-directory-autoloads "$(mylispdir)"))'
+	\
+cp .emacs $(emacsdir)/init.el; \
+cp .emacs-defs .emacs-my $(emacsdir)
 	\
-$(EMACS) -Q --batch --eval='(load "$(curdir)/.emacs-defs")' --eval='(my-load.add-my-loadpaths)' --eval='(load "$(emacsdir)/.emacs-pre")' \
+mkdir -p $(emacsdir)/server $(HOME)/.gnus/scores; \
+cp all.SCORE $(HOME)/.gnus/scores
+	\
+cp -f $(EL_FILES) $(mylispdir); \
+./.emacs-autogen.sh $(emacsdir)/.emacs-autogen; \
+$(EMACS) --batch -Q --eval='(let ((generated-autoload-file "$(mylispdir)/loaddefs.el")) (update-directory-autoloads "$(mylispdir)"))'
+	\
+$(EMACS) --batch --load "$(curdir)/.emacs-defs" -f 'my-load.add-my-loadpaths' --load "$(emacsdir)/.emacs-pre" \
   --eval='(byte-compile-file "$(emacsdir)/.emacs-my")' --eval='(byte-force-recompile "$(mylispdir)")'
 	cp -r srecode/ $(HOME)/.emacs.d/
 
--- a/all.SCORE	Wed Oct 07 13:34:30 2015 +0300
+++ b/all.SCORE	Tue Oct 27 19:50:40 2015 +0200
@@ -5,7 +5,9 @@
   ("gavenkoa" 200 nil s)
   ("Юрий Гавенко" 200 nil s)
   ("singalen" 100 nil s)
-  ("Victor Sergienko" 200 nil s))
+  ("Victor Sergienko" 200 nil s)
+  ;; Spammers, haters.
+  ("sthu.deus@openmailbox.org" -1000 nil s))
  ("message-id"
   ("@gavenkoa.example.com" 200 nil s))
  ("references"