activate window-divider-mode

early-init.el

@@ -38,6 +38,7 @@
 ;; (add-to-list 'default-frame-alist '(tool-bar-position . left))
 ;; (add-to-list 'default-frame-alist '(horizontal-scroll-bars . t))   ;; see gui-settings
 (menu-bar-mode -1)  ;; menu displayed inside `tab-bar' and via `tmm-menubar'
+(tool-bar-mode -1)
 
 ;; transparency
 (set-frame-parameter (selected-frame) 'alpha '(95 . 95))              ;; VALUE: '(<active> . <inactive>) / <both>

lisp/my/my-theme.el

@@ -0,0 +1,44 @@
+
+;; load via (load-theme 'my t)
+
+(require 'spacemacs-theme)
+
+(deftheme my "A simple custom theme")
+
+(custom-set-variables
+ '(custom-safe-themes (quote ("my"))))
+
+(let ((class '((class color) (min-colors 89)))
+      (main-bg "#1e1e1e")  ;; "#292b2e"
+      )
+
+  (custom-theme-set-faces
+   'my
+   `(default ((,class :background ,main-bg)))      ;; "#292b2e"
+   `(region ((,class :background "#302e3d")))      ;; "#444155" selecting text
+   `(mode-line ((,class :background "#2e2e2e")))   ;; "#222226"
+   `(fringe ((,class :background ,main-bg)))       ;; "#292b2e"
+   `(org-table ((,class :background "#222a30")))    ;; "#293239"
+   `(org-block ((,class :background "#232126")))    ;; "#2f2b33"
+   `(org-block-begin-line ((,class :background "#232126"
+                                   ;; :background "#211f21"
+                                   ;;:box (:line-width 1 :color "#373040")
+                                   )))  ;; "#2d2835" "#373040"
+   `(org-block-end-line ((,class :background "#232126"
+                                 ;; :background "#211f21"
+                                 ;;:box (:line-width 1 :color "#373040")
+                                 )))    ;; "#373040"
+   `(org-quote ((,class (:inherit org-block :slant italic))))
+   `(org-verse ((,class (:inherit org-block :slant italic))))
+   `(window-divider ((,class :foreground "#5d4d7a")))    ;;  "#5d4d7a"
+   `(window-divider-first-pixel ((,class :foreground "#5d4d7a")))    ;;
+   `(window-divider-last-pixel ((,class :foreground "#5d4d7a")))    ;;
+))
+     
+;;;###autoload
+(when load-file-name
+  (add-to-list 'custom-theme-load-path
+               (file-name-as-directory (file-name-directory load-file-name))))
+
+(provide-theme 'my)
+;; (provide 'my-theme)

lisp/my/my.el

@@ -29,7 +29,9 @@
 (defun my-help ()
   "Display help"
   (interactive)
-  (let ((buffer-name "*Quick Help*"))
+  (let ((buffer-name "*Quick Help*")
+        (org-link-descriptive t)
+        (org-hide-emphasis-markers t))
     (with-current-buffer (get-buffer-create buffer-name)
       (define-derived-mode my-org-help-mode org-mode "Org help mode"
         "Major mode for help buffers using Org mode")
@@ -115,13 +117,15 @@
   *Export LaTeX* [[help:org-latex-remove-logfiles][Logfiles are removed]] (deactivate for debugging)
 
 
-*Python*
+*Programming languages*
 
+  [[help:completion-at-point][Completion]] ............... =C-M-i=    [[help:xref-find-definitions][Definitions]] ................ =M-.=
+  [[help:eldoc][Help]] ................... =C-c e d=    [[help:xref-find-references][References]] ................. =M-?=
+
+  *Python*
   IDE view ........ [[help:my-view-python][my-view-python]]
 
-
-*Elisp*
-
+  *Elisp*
   [[help:eval-expression][Evaluate expression]] ........ =M-:=    [[help:forward-sexp][Jump to next expression]] .. =C-M-f=
   - [[help:eval-last-sexp][last to echo]] ......... =C-x= =C-e=    [[help:backward-sexp][Jump tp prev. expression]] . =C-M-b=
   - [[help:eval-print-last-sexp][last to buffer]]                    [[help:kill-sexp][Cut expression]] ........... =C-M-k=
@@ -278,6 +282,12 @@ Examples:
        (my-interpolate (nth 2 (car rgbsteps)) (nth 2 (cadr rgbsteps)) position (caar rgbsteps) (caadr rgbsteps))
        (my-interpolate (nth 3 (car rgbsteps)) (nth 3 (cadr rgbsteps)) position (caar rgbsteps) (caadr rgbsteps))))))
 
+(defun my-gui-elements-toggle ()
+  "Function to toggle gui elements on/off."
+  (interactive)
+  (menu-bar-mode 'toggle)
+  (tool-bar-mode 'toggle))
+
 (with-eval-after-load 'org
 
   ;;; colored table cells

settings/general-settings.el

@@ -238,6 +238,14 @@ with a drive letter and a colon."))
 
 ;; don't show the startup screen
 (setq inhibit-startup-screen t)
+(use-package startup
+  :defer t
+  :init
+  (setq initial-major-mode 'fundamental-mode)
+  (setq initial-scratch-message "# This buffer is for text that is not saved.
+
+"))
+
 
 ;; each line of text gets one line on the screen (i.e., text will run
 ;; off the right instead of wrapping around onto a new line)
@@ -761,7 +769,8 @@ Version 2016-07-13"
   
   (easy-menu-add-item nil () my-menu              ;; add empty my menu to menu-bar
                       ;; "Edit"                   ;; before Edit
-                      )
+                      )  
+  (easy-menu-add-item nil '("My") '["Help" my-help :help "my-help"])
   (easy-menu-add-item nil '("My") my-major-menu)  ;; add submenu to my menu
   (easy-menu-add-item nil '("My") my-lang-menu)
   (easy-menu-add-item nil '("My") my-minor-menu)

settings/gui-settings.el

@@ -67,9 +67,41 @@ DISPLAY-START: `integer', e.g. 3820"
   (add-to-list 'window-scroll-functions #'my-window-scroll-function)
   )  ;; end of use-package emacs
 
+
+;;          ┌────────────── Frame width ───────────────┐
+;;                  ┌────── Window width ──────┐
+;;   ┌      ┌──────────────────────────────────────────┐
+;;   │      │ ┌──────────────────────────────────────┐ │
+;;   │      │ │              Header line             │ │
+;;   │    ┌ │ ├───┬─┬────────────────────────┬─┬─┬───┤ │
+;; F │  W │ │ │   │●┼─ Left fringe           ┊ │ │   │●┼── Frame border 
+;; r │  i │ │ │ ●─┼─┼─ Left margin           ┊ │ │ ●─┼─┼── Right margin 
+;; a │  n │ │ │   │ │                        ┊ │●┼───┼─┼── Right fringe 
+;; m │  d │ │ │   │ │                        ┊●┼─┼───┼─┼── Display column
+;; e │  o │ │ │   │ │                        ┊ │ │   │ │
+;;   │  w │ │ │   │ │                        ┊ │ │   │ │
+;; h │    │ │ │   │ │         Text area      ┊ │ │   │ │
+;; e │  h │ │ │   │ │                        ┊ │ │   │ │
+;; i │  e │ │ │   │ │                        ┊ │ │   │ │
+;; g │  i │ │ │   │ │                        ┊ │ │   │ │
+;; h │  g │ │ │   │ │                        ┊ │ │   │ │
+;; t │  h │ │ │   │ │                        ┊ │ │   │ │
+;;   │  t │ │ │   │ │                        ┊ │ │   │ │
+;;   │    └ │ ├───┴─┴────────────────────────┴─┴─┴───┤ │
+;;   │      │ │               Mode line              │ │
+;;   │      │ ├───┬─┬──────────────────────────┬─┬───┤ │
+;;   │      │ │   │ │  Minibuffer / Echo area  │ │   │ │ 
+;;   │      │ └───┴─┴──────────────────────────┴─┴───┘ │
+;;   └      └──────────────────────────────────────────┘
+;;            └─┬─┘                            └┬┘   └┬┘
+;;         Margin width   Fringe width (pixels) ┘     │
+;;           (chars)            Border width (pixels) ┘
 (use-package frame
   :config
-  (setq window-divider-default-places t))
+  (setq window-divider-default-right-width 2)
+  ;; (setq window-divider-default-bottom-width 1)  ;; -2 from awesome-tray
+  (setq window-divider-default-places 'right-only)
+  (window-divider-mode 1))
 
 (use-package tab-bar
   :defer 0.5

settings/theme-settings.el

@@ -13,7 +13,12 @@
 (use-package spacemacs-theme
   :after (cl-lib)  ;; spacemacs-common misses to load cl-lib
   :config
-  (load-theme 'spacemacs-dark t))
+  (setq spacemacs-theme-comment-bg nil)
+  (load-theme 'spacemacs-dark t)
+  )
+(use-package my-theme
+  :config
+  (load-theme 'my t))
 
 ;; Test char and monospace:
 ;; 1234567890abcdefghijklmnopqrstuvwxyz [] () :;,. !@#$^&*