diff options
| author | yuzu-eva <stevenhu@web.de> | 2023-10-28 19:50:43 +0200 |
|---|---|---|
| committer | yuzu-eva <stevenhu@web.de> | 2023-10-28 19:50:43 +0200 |
| commit | 02082e0ab611d4b3c4a26a71d93260860254cdbb (patch) | |
| tree | 459d966f802f7e272e2a4cbe4df915f9fa7e01b6 | |
| parent | 214cdd3203e8fd2512d7e0b6b4e8885157d654b3 (diff) | |
revert: removed powerline cuz it was useless to me. reordered stuff
| -rw-r--r-- | config.org | 131 |
1 files changed, 49 insertions, 82 deletions
@@ -193,42 +193,6 @@ ibuffer on "C-x b" (display-buffer-pop-up-window buffer alist))) #+end_src -*** Moving around brackets - -Thanks to [[http://xahlee.info][Xah Lee]] for this code. - -#+begin_src emacs-lisp - (defvar xah-brackets '("“”" "()" "[]" "{}" "<>" "<>" "()" "[]" "{}" "⦅⦆" "〚〛" "⦃⦄" "‹›" "«»" "「」" "〈〉" "《》" "【】" "〔〕" "⦗⦘" "『』" "〖〗" "〘〙" "「」" "⟦⟧" "⟨⟩" "⟪⟫" "⟮⟯" "⟬⟭" "⌈⌉" "⌊⌋" "⦇⦈" "⦉⦊" "❛❜" "❝❞" "❨❩" "❪❫" "❴❵" "❬❭" "❮❯" "❰❱" "❲❳" "〈〉" "⦑⦒" "⧼⧽" "﹙﹚" "﹛﹜" "﹝﹞" "⁽⁾" "₍₎" "⦋⦌" "⦍⦎" "⦏⦐" "⁅⁆" "⸢⸣" "⸤⸥" "⟅⟆" "⦓⦔" "⦕⦖" "⸦⸧" "⸨⸩" "⦅⦆") - "A list of strings, each element is a string of 2 chars, the left bracket and a matching right bracket. - Used by `xah-select-text-in-quote' and others.") - - (defconst xah-left-brackets - (mapcar (lambda (x) (substring x 0 1)) xah-brackets) - "List of left bracket chars. Each element is a string.") - - (defconst xah-right-brackets - (mapcar (lambda (x) (substring x 1 2)) xah-brackets) - "List of right bracket chars. Each element is a string.") - - (defun xah-backward-left-bracket () - "Move cursor to the previous occurrence of left bracket. - The list of brackets to jump to is defined by `xah-left-brackets'. - - URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' - Version: 2015-10-01" - (interactive) - (re-search-backward (regexp-opt xah-left-brackets) nil t)) - - (defun xah-forward-right-bracket () - "Move cursor to the next occurrence of right bracket. - The list of brackets to jump to is defined by `xah-right-brackets'. - - URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' - Version: 2015-10-01" - (interactive) - (re-search-forward (regexp-opt xah-right-brackets) nil t)) -#+end_src - * Org mode My preferred org-mode defaults @@ -382,26 +346,13 @@ Function to toggle transparency (global-set-key (kbd "C-c r") 'config-reload) #+end_src -** Creating new window automatically focuses it - -*** horizontal -#+begin_src emacs-lisp - (defun split-and-follow-horizontally () - (interactive) - (split-window-below) - (balance-windows) - (other-window 1)) - (global-set-key (kbd "C-x 2") 'split-and-follow-horizontally) -#+end_src +** Kill all buffers -*** vertical #+begin_src emacs-lisp - (defun split-and-follow-vertically () + (defun kill-all-buffers () (interactive) - (split-window-right) - (balance-windows) - (other-window 1)) - (global-set-key (kbd "C-x 3") 'split-and-follow-vertically) + (mapc 'kill-buffer (buffer-list))) + (global-set-key (kbd "C-M-s-k") 'kill-all-buffers) #+end_src ** Always kill current buffer @@ -413,15 +364,6 @@ Function to toggle transparency (global-set-key (kbd "C-x C-k") 'kill-curr-buffer) #+end_src -** Kill all buffers - -#+begin_src emacs-lisp - (defun kill-all-buffers () - (interactive) - (mapc 'kill-buffer (buffer-list))) - (global-set-key (kbd "C-M-s-k") 'kill-all-buffers) -#+end_src - ** Find-next-file #+begin_src emacs-lisp @@ -438,9 +380,52 @@ Function to toggle transparency (length files)))) (find-file (nth pos files))))) - (global-set-key (kbd "C-c C-j") 'find-next-file) - (global-set-key (kbd "C-c C-k") (lambda () (interactive) (find-next-file :backward))) + (global-set-key (kbd "C-c C-n") 'find-next-file) + (global-set-key (kbd "C-c C-p") (lambda () (interactive) (find-next-file :backward))) #+end_src + +** Moving around brackets + +Taken from [[http://xahlee.info][Xah Lee]]. + +#+begin_src emacs-lisp + (defvar xah-brackets '("“”" "()" "[]" "{}" "<>" "<>" "()" "[]" "{}" + "⦅⦆" "〚〛" "⦃⦄" "‹›" "«»" "「」" "〈〉" "《》" "【】" + "〔〕" "⦗⦘" "『』" "〖〗" "〘〙" "「」" "⟦⟧" "⟨⟩" "⟪⟫" + "⟮⟯" "⟬⟭" "⌈⌉" "⌊⌋" "⦇⦈" "⦉⦊" "❛❜" "❝❞" "❨❩" "❪❫" + "❴❵" "❬❭" "❮❯" "❰❱" "❲❳" "〈〉" "⦑⦒" "⧼⧽" "﹙﹚" "﹛﹜" + "﹝﹞" "⁽⁾" "₍₎" "⦋⦌" "⦍⦎" "⦏⦐" "⁅⁆" "⸢⸣" "⸤⸥" "⟅⟆" + "⦓⦔" "⦕⦖" "⸦⸧" "⸨⸩" "⦅⦆") + "A list of strings, each element is a string of 2 chars, the left bracket and a matching right bracket. + Used by `xah-select-text-in-quote' and others.") + + (defconst xah-left-brackets + (mapcar (lambda (x) (substring x 0 1)) xah-brackets) + "List of left bracket chars. Each element is a string.") + + (defconst xah-right-brackets + (mapcar (lambda (x) (substring x 1 2)) xah-brackets) + "List of right bracket chars. Each element is a string.") + + (defun xah-backward-left-bracket () + "Move cursor to the previous occurrence of left bracket. + The list of brackets to jump to is defined by `xah-left-brackets'. + + URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' + Version: 2015-10-01" + (interactive) + (re-search-backward (regexp-opt xah-left-brackets) nil t)) + + (defun xah-forward-right-bracket () + "Move cursor to the next occurrence of right bracket. + The list of brackets to jump to is defined by `xah-right-brackets'. + + URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' + Version: 2015-10-01" + (interactive) + (re-search-forward (regexp-opt xah-right-brackets) nil t)) +#+end_src + * Use-Package section ** Initialize =dashboard= @@ -628,24 +613,6 @@ Allow for editing files as sudo ("s-C-e" . sudo-edit)) #+end_src -** Initialize =powerline= - -Better looking modeline. Using powerline with the spaceline theme - -#+begin_src emacs-lisp - (use-package spaceline - :ensure t) - - (use-package powerline - :ensure t - :config - (setq powerline-default-separator 'arrow) - :init - (spaceline-spacemacs-theme) - :hook - ('after-init-hook) . 'powerline-reset) -#+end_src - ** Initialize =page-break-lines= Display ^L page breaks as a horizontal line |
