Added emacs to my daily routine again. More emacs related commits incoming.

clean_emacs
TuDatTr 2020-10-24 06:12:37 +02:00
parent b63c693505
commit c58c662edf
9 changed files with 134 additions and 375 deletions

View File

@ -25,13 +25,13 @@ urxvt*blurRadius: 15
Xft.dpi: 92 Xft.dpi: 92
Xft.antialias: 1 Xft.antialias: 1
! Color ! special
*.foreground: #98abb2 *.foreground: #98abb2
*.background: #181b28 *.background: #181b28
*.cursorColor: #ffffff *.cursorColor: #98abb2
! black ! black
*.color0: #161925 *.color0: #000000
*.color8: #0c0e14 *.color8: #0c0e14
! red ! red
@ -62,4 +62,3 @@ Xft.antialias: 1
*.color7: #98abb2 *.color7: #98abb2
*.color15: #c0bfbc *.color15: #c0bfbc

View File

@ -99,13 +99,13 @@ for_window [title="^Steam Keyboard$"] floating enable
############################################################################### ###############################################################################
# exec --no-startup-id setxkbmap us,de; setxkbmap -option ctrl:nocaps; setxkbmap -option grp:lalt_lshift_toggle # exec --no-startup-id setxkbmap us,de; setxkbmap -option ctrl:nocaps; setxkbmap -option grp:lalt_lshift_toggle
exec --no-startup-id feh --randomize --bg-fill /home/tuan/Pictures/Wallpaper/* exec --no-startup-id feh --randomize --bg-fill $HOME/Pictures/Wallpaper/*
exec --no-startup-id picom -b exec --no-startup-id picom -b
exec --no-startup-id nextcloud --background exec --no-startup-id nextcloud --background
exec --no-startup-id udiskie exec --no-startup-id udiskie
exec --no-startup-id conky -c ~/.conky/syclo-crimson-bottomleft.conkyrc exec --no-startup-id conky -c ~/.conky/syclo-crimson-bottomleft.conkyrc
exec --no-startup-id urxvtd exec --no-startup-id urxvtd
exec --no-startup-id synergyc -f --no-tray --debug INFO --name genesis --enable-crypto 192.168.178.38:24800 # exec --no-startup-id synergyc -f --no-tray --debug INFO --name genesis --enable-crypto 192.168.178.38:24800
exec --no-startup-id dunst exec --no-startup-id dunst
exec --no-startup-id ~/.scripts/startup.sh exec --no-startup-id ~/.scripts/startup.sh
exec --no-startup-id llk exec --no-startup-id llk

View File

View File

@ -9,5 +9,5 @@ t:/home/tuan/Templates
w:/home/tuan/workspace_l/Projects w:/home/tuan/workspace_l/Projects
k:/home/tuan/Documents/CTF/TryHackMe/VulnUniversity k:/home/tuan/Documents/CTF/TryHackMe/VulnUniversity
q:/home/tuan/.nextcloud/Quick Drop q:/home/tuan/.nextcloud/Quick Drop
':/home/tuan/.scripts ':/home/tuan/.dotfiles/emacs/.emacs.d
e:/home/tuan/Documents/CTF/TryHackMe/Ice/2_Recon e:/home/tuan/Documents/CTF/TryHackMe/Ice/2_Recon

View File

@ -123,8 +123,7 @@ Host plex
IdentityFile /mnt/veracrypt1/proxmox IdentityFile /mnt/veracrypt1/proxmox
Host torrent Host torrent
HostName 192.168.178.51 HostName 192.168.178.64
# HostName 192.168.178.55
Port 22 Port 22
User root User root
IdentityFile /mnt/veracrypt1/proxmox IdentityFile /mnt/veracrypt1/proxmox

View File

@ -1,364 +1,127 @@
#+TITLE: Emacs configure #+TITLE: Emacs Configuration from [[https://gitlab.com/TuDatTr/][TuDatTr]]
#+AUTHOR: Tuan-Dat Tran
#+DATE: <2018-01-11 Do>
#+EMAIL: tran.tuan-dat@mailbox.org
#+OPTIONS: ':nil *:t -:t ::t <:t H:3 \n:nil ^:t arch:headline
#+OPTIONS: author:t c:nil creator:comment d:(not "LOGBOOK") date:t
#+OPTIONS: e:t email:nil f:t inline:t num:t p:nil pri:nil stat:t
#+OPTIONS: tags:t tasks:t tex:t timestamp:t toc:t todo:t |:t
#+KEYWORDS:
#+LANGUAGE: en
#+SELECT_TAGS: export
* Packages * Package installation
A list of installed packages and details about them. ** Preperation
** Package Archives Initialize Emacs builtin package system and add the [[https://melpa.org][melpa]]-package repository.
Adding the melpa package repository to Emacs.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(require 'package) (require 'package)
(add-to-list 'package-archives (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
'("melpa" . "http://melpa.org/packages/"))
(package-initialize) (package-initialize)
#+END_SRC #+END_SRC
** Installed packages:
A require for all my installed packages, so that they are automatically installed ** Package installation
in case I want to setup my emacs on another pc he same way as always *** use-package
#+BEGIN_SRC emacs-lisp ~A use-package declaration for simplifying your .emacs ~
The following snippets uses =use-package= to automatically install the specified packages if they aren't installed yet.
#+BEGIN_SRC emacs-lisp
(unless (package-installed-p 'use-package) (unless (package-installed-p 'use-package)
(package-refresh-contents) (package-refresh-contents)
(package-install 'use-package)) (package-install 'use-package))
(require 'use-package) (require 'use-package)
(setq use-package-always-ensure t) (setq use-package-always-ensure t)
#+END_SRC
*** diminish
~Diminished modes are minor modes with no modeline display~
Diminish is used to hide modes from the mode bar in emacs. It's also required to use the diminish function in =use-package=
#+BEGIN_SRC emacs-lisp
(use-package diminish)
#+END_SRC
*** no-littering
~Help keeping ~/.emacs.d clean~
#+BEGIN_SRC emacs-lisp
(use-package no-littering)
#+END_SRC
*** evil/evil-collection
~The extensible vi layer for Emacs.~
~A set of keybindings for evil-mode~
Vim keybindings for emacs to get the best of both worlds.
#+BEGIN_SRC emacs-lisp
(use-package evil
:init
(setq evil-want-keybinding nil)
:config
(evil-mode 1)
(setq evil-search-module 'evil-search))
(use-package evil-collection
:config
(evil-collection-init))
#+END_SRC
*** Ivy/Counsil/Swiper
~Ivy - a generic completion frontend for Emacs, Swiper - isearch with an overview, and more. Oh, man!~
Simply a interface for completion/search in emacs.
#+BEGIN_SRC emacs-lisp
(use-package prescient)
(use-package ivy-prescient
:config
(ivy-prescient-mode 1))
(use-package anaconda-mode)
(use-package auctex
:defer t
:ensure t)
(use-package auto-complete)
(use-package auto-complete-auctex
:defer t
:ensure t)
(use-package counsel)
(use-package flycheck)
(use-package ivy) (use-package ivy)
(use-package ledger-mode)
(use-package paper-theme)
(use-package ox-gfm)
(use-package ox-twbs)
(use-package powerline)
(use-package rainbow-delimiters)
(use-package rainbow-mode)
(use-package smart-compile)
(use-package smartparens)
(use-package swiper)
(use-package visual-regexp)
#+END_SRC
* Appearance
Using the Molokai-Theme.
#+BEGIN_SRC emacs-lisp
(load-theme 'paper t)
#+END_SRC
Changes the Emacs background to the terminals defaults. (Generally) (use-package counsel
#+BEGIN_SRC emacs-lisp :diminish counsel-mode
:config
(counsel-mode 1))
(use-package swiper
:bind (("C-s" . 'swiper)))
#+END_SRC
*** org-bullets
~utf-8 bullets for org-mode~
#+BEGIN_SRC emacs-lisp
(use-package org-bullets)
#+END_SRC
* Appearance
This section is for appearance customization. Either via packages or manually.
** moe-theme
~A customizable colorful eye-candy theme for Emacser. Moe, moe, kyun!~
#+BEGIN_SRC emacs-lisp
(use-package moe-theme
:config
(moe-dark))
#+END_SRC
** Transparent Emacs
Makes the default color of the background of emacs the same as the terminals color.
This is kind of a janky solution, but it works.
It doesn't work when you reload the config manually while emacs is running.
#+BEGIN_SRC emacs-lisp
(add-hook 'window-setup-hook (add-hook 'window-setup-hook
'(lambda () '(lambda ()
(set-face-background 'default "unspecified-bg"))) (set-face-background 'default "unspecified-bg")))
#+END_SRC #+END_SRC
Remove menubar ** Menubar
#+BEGIN_SRC emacs-lisp
Remove the menu-bar at the top of the screen for better immersion.
#+BEGIN_SRC emacs-lisp
(menu-bar-mode -1) (menu-bar-mode -1)
#+END_SRC #+END_SRC
Powerline for Emacs * Org Mode
#+BEGIN_SRC emacs-lisp Always unfold every section in org files.
(powerline-center-theme)
#+END_SRC
* Emacs behavior #+BEGIN_SRC emacs-lisp
Save auto-save files in ~/.emacs-save (add-hook 'org-mode-hook #'org-show-all)
#+BEGIN_SRC emacs-lisp (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
(f-mkdir "~/.emacs-saves") #+END_SRC
(setq backup-directory-alist
'((".*" . "~/.emacs-saves/")))
(setq auto-save-file-name-transforms
'((".*" "~/.emacs-saves/" t)))
(setq custom-file "~/.emacs.d/config.el")
(setq auto-mode-alist (append '(("/tmp/mutt.*" . mail-mode)) auto-mode-alist))
#+END_SRC
Delete trailing spaces before saving
#+BEGIN_SRC emacs-lisp
(add-hook 'before-save-hook 'delete-trailing-whitespace)
#+END_SRC
* Functions
All the functions I use.
** Cut/Copy and Paste by Boruch Baum
A nice way to copy and paste contents comfortably inside and out of emacs.
*** Copy
Copy the marked area to the clipboard.
#+BEGIN_SRC emacs-lisp
(defun copy-to-xclipboard(arg)
(interactive "P")
(cond
((not (use-region-p))
(message "Nothing to yank to X-clipboard"))
((and (not (display-graphic-p))
(/= 0 (shell-command-on-region
(region-beginning) (region-end) "xsel -i -b")))
(error "Is program `xsel' installed?"))
(t
(when (display-graphic-p)
(call-interactively 'clipboard-kill-ring-save))
(message "Yanked region to X-clipboard")
(deactivate-mark))))
#+END_SRC
*** Cut
Cut the marked area to the clipboard.
#+BEGIN_SRC emacs-lisp
(defun cut-to-xclipboard(arg)
(interactive "P")
(cond
((not (use-region-p))
(message "Nothing to yank to X-clipboard"))
((and (not (display-graphic-p))
(/= 0 (shell-command-on-region
(region-beginning) (region-end) "xsel -i -b")))
(error "Is program `xsel' installed?"))
(t
(when (display-graphic-p)
(call-interactively 'clipboard-kill-ring-save))
(message "Yanked region to X-clipboard")
(kill-region (region-beginning) (region-end))
(deactivate-mark))))
#+END_SRC
*** Paste
Paste from the clipboard.
#+BEGIN_SRC emacs-lisp
(defun paste-from-xclipboard()
"Uses shell command `xsel -o' to paste from x-clipboard. With
one prefix arg, pastes from X-PRIMARY, and with two prefix args,
pastes from X-SECONDARY."
(interactive)
(if (display-graphic-p)
(clipboard-yank)
(let*
((opt (prefix-numeric-value current-prefix-arg))
(opt (cond
((= 1 opt) "b")
((= 4 opt) "p")
((= 16 opt) "s"))))
(insert (shell-command-to-string (concat "xsel -o -" opt))))))
#+END_SRC
** Personal functions
Go back to indentation, if you are at the indentation, go to beginning of the line instead.
#+BEGIN_SRC emacs-lisp
(defun back-to-indentation-or-beginning ()
"Go back to indentation, if at indentation go to beginning of line"
(interactive)
(if (= (point) (progn (back-to-indentation) (point)))
(beginning-of-line)))
#+END_SRC
Sets the background of Emacs in terminal-mode to the terminals. Doesn't change it in window
mode though.
Function is not currently used since I still have to figure out how to make it work with emacs in daemon mode
#+BEGIN_SRC emacs-lisp
(defun transparent-terminal ()
(unless (display-graphic-p (selected-frame))
(set-face-background 'default "unspecified-bg" (selected-frame))))
#+END_SRC
Copy word
#+BEGIN_SRC emacs-lisp
(defun copy-word (&optinal arg)
"Copy words at point into kill-ring"
(interactive "P")
(copy-thing 'backward-word 'forward-word arg)
)
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defun insert-current-date () (interactive)
(insert (shell-command-to-string "echo -n $(date +%d.%m.%Y)")))
#+END_SRC
#+BEGIN_SRC emacs-lisp
(defun insert-current-time () (interactive)
(insert (shell-command-to-string "echo -n $(date +%H:%M)")))
#+END_SRC
* Modes
** Window Modes
** Autocomplete
#+BEGIN_SRC emacs-lisp
(ac-config-default)
#+END_SRC
** Python
Using Anaconda-mode as default python development mode
#+BEGIN_SRC emacs-lisp
(add-hook 'python-mode-hook 'anaconda-mode)
(add-hook 'python-mode-hook 'anaconda-eldoc-mode)
#+END_SRC
** Java
#+BEGIN_SRC emacs-lisp
(add-hook
'java-mode-hook
(lambda()
(local-set-key (kbd "C-c C-c") #'smart-compile)
(local-set-key (kbd "C-c /") #'comment-region)))
#+END_SRC
** C++
My exec doesnt quite work yet.
#+BEGIN_SRC emacs-lisp
;;(defun my-exec ()
;; (interactive)
;; (let ((exe (smart-compile-string "%n")))
;; (with-current-buffer "*eshell*"
;; (goto-char (point-max))
;; (insert "./")
;; (insert exe)
;; (eshell-send-input))
;; (switch-to-buffer-other-window "*eshell*")))
(add-hook
'c++-mode-hook
(lambda()
(local-set-key (kbd "C-c C-c") #'smart-compile)
(local-set-key (kbd "C-c /") #'comment-region)))
#+END_SRC
** NASM
#+BEGIN_SRC emacs-lisp
(add-to-list 'auto-mode-alist '("\\.\\(asm\\|s\\)$" . nasm-mode))
#+END_SRC
** LaTeX
Some default settings for LaTeX-Mode.
AucTeX is needed.
#+BEGIN_SRC emacs-lisp
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
#+END_SRC
** Org
Use Evince as default pdf viewer.
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook
'(lambda ()
(delete '("\\.pdf\\'" . default) org-file-apps)
(add-to-list 'org-file-apps '("\\.pdf\\'" . "evince %s"))))
#+END_SRC
Enable syntax highlighting in Org-mode.
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook
'(lambda ()
(setq org-src-fontify-natively t)))
#+END_SRC
Enable
Enable automatic translation of special characters
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook
'(lambda ()
(setq org-pretty-entities t)))
#+END_SRC
Add rainbow-delimiters in org-mode
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook 'rainbow-delimiters-mode)
#+END_SRC
Handy shortcuts
#+BEGIN_SRC emacs-lisp
(define-key global-map "\C-ca" 'org-agenda)
(define-key global-map "\C-cl" 'org-store-link)
(setq org-log-done t)
#+END_SRC
GNU Plot
#+BEGIN_SRC emacs-lisp
(add-hook 'org-mode-hook
'(lambda ()
(local-set-key (kbd "C-c c") #'org-plot/gnuplot)))
#+END_SRC
Enabled languages:
#+BEGIN_SRC emacs-lisp
(org-babel-do-load-languages
'org-babel-load-languages
'( (python . t)
(emacs-lisp . t)
(C . t)
(gnuplot . t)
(latex . t)
(shell . t)
))
#+END_SRC
** Ivy/Counsel/Swiper
#+BEGIN_SRC emacs-lisp
(counsel-mode 1)
(global-set-key "\C-s" 'swiper)
#+END_SRC
** Parenthesis
#+BEGIN_SRC emacs-lisp
;; (require 'paren)
(setq show-paren-style 'parenthesis)
(show-paren-mode 1)
#+END_SRC
** Highlight line
Globaly highlight the current line in a slightly darker shade of grey.
#+BEGIN_SRC emacs-lisp
(global-hl-line-mode 1)
(set-face-background 'hl-line "#141b1e")
(set-face-foreground 'highlight nil)
#+END_SRC
** Yasnippet
#+BEGIN_SRC emacs-lisp
;; (require 'yasnippet)
(setq yas-snippet-dirs
'("~/.emacs.d/snippets/"))
(yas-global-mode 1)
#+END_SRC
** Ledger
#+BEGIN_SRC emacs-lisp
(org-babel-load-file "~/.emacs.d/ledger.org")
#+END_SRC
** Personal Global
#+BEGIN_SRC emacs-lisp
(defvar my-keys-minor-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-a") 'back-to-indentation-or-beginning)
(define-key map (kbd "C-c M-w") 'copy-to-xclipboard)
(define-key map (kbd "C-c C-w") 'cut-to-xclipboard)
(define-key map (kbd "C-c M-y") 'paste-from-xclipboard)
(define-key map (kbd "C-c w") 'copy-word)
(define-key map (kbd "C-c r") 'vr/query-replace)
(define-key map (kbd "M-/") 'comment-region)
(define-key map (kbd "C-c d") 'insert-current-date)
(define-key map (kbd "C-c t") 'insert-current-time)
map)
"my-keys-minor-mode keymap.")
(define-minor-mode my-keys-minor-mode
"A minor mode so that my key settings override annoying major modes."
:init-value t
:lighter " my-keys")
(my-keys-minor-mode 1)
#+END_SRC
** Conf
#+BEGIN_SRC emacs-lisp
(add-hook 'conf-mode 'rainbow-mode)
#+END_SRC

View File

@ -1,3 +1,16 @@
(package-initialize)
(org-babel-load-file "~/.emacs.d/config.org") (org-babel-load-file "~/.emacs.d/config.org")
(put 'upcase-region 'disabled nil) (put 'upcase-region 'disabled nil)
(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.
'(package-selected-packages
'(moe-theme org-bullets ivy-prescient prescient powerline-evil evil use-package)))
(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.
)

View File

@ -1,17 +0,0 @@
#+BEGIN_SRC emacs-lisp
(custom-set-variables
'(ledger-reports
(quote
(("schulden" "%(binary) -f %(ledger-file) bal ^Schulden")
("acclist" "%(binary) -f %(ledger-file) accounts")
("spendable" "%(binary) -f %(ledger-file) reg Girokonto$ Brieftasche$ --real")
("monthly" "%(binary) -f %(ledger-file) -M --period-sort \"amount\" reg ^Ausgaben --real")
("bal" "%(binary) -f %(ledger-file) bal --real")
("reg" "%(binary) -f %(ledger-file) reg --real")
("payee" "%(binary) -f %(ledger-file) reg @%(payee) --real")
("acc" "%(binary) -f %(ledger-file) reg %(account) --real")
)
)
)
)
#+END_SRC

View File

@ -14,6 +14,8 @@ alias ranger='ranger --choosedir=$HOME/.rangerdir; LASTDIR=`cat $HOME/.rangerdir
alias xsel='xsel -ib' alias xsel='xsel -ib'
alias msfconsole="msfconsole -x \"db_connect metasploit@msf\"" alias msfconsole="msfconsole -x \"db_connect metasploit@msf\""
alias nmap="nmap -T5 --min-parallelism 100 -Pn" alias nmap="nmap -T5 --min-parallelism 100 -Pn"
alias edaemon="\emacs --daemon"
alias emacs="emacsclient -t"
# Theme # Theme
ZSH_THEME="agnoster" ZSH_THEME="agnoster"