Improved loading time of i3/.scripts/i3lock.py, by using scrot tweaked/cleanup emacs' config.org to enable literal programming

emacs/.emacs.d/config.el

@@ -1,164 +0,0 @@
-
-(require 'package)
-(add-to-list 'package-archives 
-    '("melpa" . "http://melpa.org/packages/"))
-(package-initialize)
-
-(unless (package-installed-p 'use-package)
-  (package-refresh-contents)
-  (package-install 'use-package))
-
-(require 'use-package)
-(setq use-package-always-ensure t)
-
-(use-package aggressive-indent)
-(use-package anaconda-mode)
-(use-package auto-complete)
-(use-package auto-complete-auctex
-:defer t
-:ensure t)
-(use-package auctex
-:defer t
-:ensure t)
-(use-package counsel)
-(use-package eclim)
-(use-package flycheck)
-(use-package google-this)
-(use-package ivy)
-(use-package material-theme)
-(use-package ox-twbs)
-(use-package rainbow-delimiters)
-(use-package rainbow-mode)
-(use-package smartparens)
-(use-package swiper)
-(use-package yasnippet)
-
-(load-theme 'material t)
-
-(add-hook 'window-setup-hook 
-      '(lambda () 
-         (set-face-background 'default "unspecified-bg")))
-
-(f-mkdir "~/.emacs-saves")
-(setq auto-save-file-name-transforms
-  '((".*" "~/.emacs-saves/" t)))
-
-(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))))
-
-(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))))
-
-(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))))))
-
-(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)))
-
-(defun transparent-terminal ()
-  (unless (display-graphic-p (selected-frame))
-    (set-face-background 'default "unspecified-bg" (selected-frame))))
-
-(menu-bar-mode -1)
-
-(ac-config-default)
-
-(add-hook 'python-mode-hook 'anaconda-mode)
-(add-hook 'python-mode-hook 'anaconda-eldoc-mode)
-
-(require 'tex)
-(require 'auto-complete-auctex)
-(setq TeX-auto-save t)
-(setq TeX-parse-self t)
-(setq-default TeX-master nil)
-
-(require 'ox-twbs)
-
-(add-hook 'org-mode-hook
-      '(lambda ()
-         (delete '("\\.pdf\\'" . default) org-file-apps)
-         (add-to-list 'org-file-apps '("\\.pdf\\'" . "evince %s"))))
-
-(add-hook 'org-mode-hook 
-      '(lambda () 
-         (setq org-src-fontify-natively t)))
-
-(add-hook 'org-mode-hook 
-      '(lambda ()
-         (setq org-pretty-entities t)))
-
-(add-hook 'org-mode-hook 'rainbow-delimiters-mode)
-
-(counsel-mode 1)
-(global-set-key "\C-s" 'swiper)
-
-(require 'paren)
-(setq show-paren-style 'parenthesis)
-(show-paren-mode 1)
-
-(global-hl-line-mode 1)
-(set-face-background 'hl-line "#141b1e")
-(set-face-foreground 'highlight nil)
-
-(require 'yasnippet)
-(setq yas-snippet-dirs
-  '("~/.emacs.d/snippets/"))
-(yas-global-mode 1)
-
-(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)
-    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)
-
-(add-hook 'conf-mode 'rainbow-mode)

emacs/.emacs.d/config.org

@@ -173,8 +173,6 @@ Using Anaconda-mode as default python development mode
 Some default settings for LaTeX-Mode.
 AucTeX is needed.
 #+BEGIN_SRC emacs-lisp
-(require 'tex)
-(require 'auto-complete-auctex)
 (setq TeX-auto-save t)
 (setq TeX-parse-self t)
 (setq-default TeX-master nil)
@@ -182,7 +180,7 @@ AucTeX is needed.
 ** Org
 Enable a Twitter Bootstrap mode as an export mode for Org-mode.
 #+BEGIN_SRC emacs-lisp
-(require 'ox-twbs)
+;; (require 'ox-twbs)
 #+END_SRC
 
 Use Evince as default pdf viewer.
@@ -212,6 +210,24 @@ Add rainbow-delimiters in org-mode
 (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
+
+Enabled languages:
+#+BEGIN_SRC emacs-lisp
+(org-babel-do-load-languages
+'org-babel-load-languages
+'( (python . t)
+   (sh . t)
+   (emacs-lisp . t)
+   (C . t)
+ ))
+#+END_SRC
+
 ** Ivy/Counsel/Swiper
 #+BEGIN_SRC emacs-lisp
 (counsel-mode 1)
@@ -219,7 +235,7 @@ Add rainbow-delimiters in org-mode
 #+END_SRC
 ** Parenthesis
 #+BEGIN_SRC emacs-lisp
-(require 'paren)
+;; (require 'paren)
 (setq show-paren-style 'parenthesis)
 (show-paren-mode 1)
 #+END_SRC
@@ -232,7 +248,7 @@ Globaly highlight the current line in a slightly darker shade of grey.
 #+END_SRC
 ** Yasnippet
 #+BEGIN_SRC emacs-lisp
-(require 'yasnippet)
+;; (require 'yasnippet)
 (setq yas-snippet-dirs
   '("~/.emacs.d/snippets/"))
 (yas-global-mode 1)

emacs/.emacs.d/init.el

@@ -1,17 +1,2 @@
 (package-initialize)
 (org-babel-load-file "~/.emacs.d/config.org")
-(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.
- '(org-agenda-files (quote ("~/Nextcloud/orgs/man.org")))
- '(package-selected-packages
-   (quote
-    (auto-complete-auctex auto-complete counsel swiper material-theme anaconda-mode rainbow-mode ox-twbs google-this auctex smartparens eclim flycheck rainbow-delimiters forest-blue-theme))))
-(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.
- )