.emacs: Font lock on light screen.

home/.bashrc

@@ -35,7 +35,7 @@ set_color_prompt() {
 		     6..7,9..11,13..15,40..51,75..87,113..123,147..159,171..231,249..254),
 		    (map { "$_\n231\n" }
 		     1..9,12..13,16..45,52..81,88..116,124..151,153,160..180,
-		     182..185,188..189,196..214,232..252,255..254));
+		     182..185,188..189,196..214,232..252,254..255));
 		for(@ARGV) {
                     srand(hex(B::hash($_))+$ENV{PERL_HASH_SEED});
                     print @c[rand()* ($#c+1)];
@@ -231,17 +231,19 @@ IO() {
     # Minimize output from iostat -dkx 1
     # Usage:
     #   IO [substring]
-    string="${1:-sd}"
     iostat -dkx 1 |
-	perl -ne 'BEGIN { $| = 1; $string = shift }
+	perl -e '$| = 1;
+	@ARGV = @ARGV ? @ARGV : "sd";
+	while(<STDIN>) {
    	    s/(........)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)/$1$3$9$21/
 	    ||
 	    s/(........)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)/$1$4$5$16/
             ||
             s/(........)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)(\s+\S+)/$1$6$7$14/;
 	    /Device/ and print and next;
-	    m^$string^ and print;
+	    $a = $_;
-	' $string;
+	    map { $a =~ m^$_^ and print $a; } @ARGV;
+	} ' "$@";
 }
 ORACLE_HOME=/usr/lib/oracle/19.6/client64
 PATH=$PATH:$ORACLE_HOME/bin

home/.emacs

@@ -0,0 +1,58 @@
+
+;; Added by Package.el.  This must come before configurations of
+;; installed packages.  Don't delete this line.  If you don't want it,
+;; just comment it out by adding a semicolon to the start of the line.
+;; You may delete these explanatory comments.
+(package-initialize)
+
+(put 'narrow-to-region 'disabled nil)
+; Outline-minor-mode key map \M-o \M-?
+(define-prefix-command 'cm-map nil "Outline-")
+; HIDE
+(define-key cm-map "\M-q" 'hide-sublevels)    ; Hide everything but the top-level headings
+(define-key cm-map "\M-t" 'hide-body)         ; Hide everything but headings (all body lines)
+(define-key cm-map "\M-o" 'hide-other)        ; Hide other branches
+(define-key cm-map "\M-c" 'hide-entry)        ; Hide this entry's body
+(define-key cm-map "\M-l" 'hide-leaves)       ; Hide body lines in this entry and sub-entries
+(define-key cm-map "\M-d" 'hide-subtree)      ; Hide everything in this entry and sub-entries
+; SHOW
+(define-key cm-map "\M-a" 'show-all)          ; Show (expand) everything
+(define-key cm-map "\M-e" 'show-entry)        ; Show this heading's body
+(define-key cm-map "\M-i" 'show-children)     ; Show this heading's immediate child sub-headings
+(define-key cm-map "\M-k" 'show-branches)     ; Show all sub-headings under this heading
+(define-key cm-map "\M-s" 'show-subtree)      ; Show (expand) everything in this heading & below
+; MOVE
+(define-key cm-map "\M-u" 'outline-up-heading)                ; Up
+(define-key cm-map "\M-n" 'outline-next-visible-heading)      ; Next
+(define-key cm-map "\M-p" 'outline-previous-visible-heading)  ; Previous
+(define-key cm-map "\M-f" 'outline-forward-same-level)        ; Forward - same level
+(define-key cm-map "\M-b" 'outline-backward-same-level)       ; Backward - same level
+(global-set-key "\M-o" cm-map)
+
+; Use 'C-u C-x =' to change faces and colors
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(frame-background-mode (quote light))
+ '(load-home-init-file t t))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(ediff-current-diff-A ((t (:background "brightred"))))
+ '(ediff-current-diff-B ((t (:background "green"))))
+ '(sh-heredoc ((t (:foreground "color-22")))))
+(setq line-number-display-limit 1000000000)
+(setq ediff-diff-options "--text")
+(prefer-coding-system 'utf-8-unix)
+(prefer-coding-system 'utf-8)
+(set-default-coding-systems 'utf-8)
+(set-language-environment 'utf-8)
+(set-selection-coding-system 'utf-8)
+; Set F12 to run defined macro
+(global-set-key (quote [f12]) (quote kmacro-end-and-call-macro))
+
+(setq minibuffer-max-depth nil)