tange/config
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

.emacs: Font lock on light screen.

Browse source
This commit is contained in:
Ole Tange 2023-11-27 15:31:34 +01:00
parent afa30b4463
commit 3f8430a9fe
2 changed files with 65 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
home/.bashrc
View file

@ -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;
' $string;
$a = $_;
map { $a =~ m^$_^ and print $a; } @ARGV;
} ' "$@";
}
ORACLE_HOME=/usr/lib/oracle/19.6/client64
PATH=$PATH:$ORACLE_HOME/bin

58
home/.emacs Normal file
View file

@ -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)