fix theme when running as daemon

config.el

@@ -23,7 +23,7 @@
 (use-package company
   :diminish 'company-mode
   :bind (:map company-mode-map
-  ("C-c /" . 'yas-expand))
+              ("C-c /" . 'yas-expand))
   :custom
   (company-idle-delay 0)
   (company-minimum-prefix-length 3)
@@ -125,8 +125,8 @@
   :config (global-hungry-delete-mode 1))
 
 (use-package which-key
-   :diminish 'which-key-mode
+  :diminish 'which-key-mode
-   :config (which-key-mode))
+  :config (which-key-mode))
 
 (use-package avy
   :bind ("M-s" . avy-goto-char))
@@ -157,7 +157,9 @@
 (add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
 
 (setq org-src-tab-acts-natively t
-      org-edit-src-content-indentation 0)
+      org-edit-src-content-indentation 0
+      org-src-preserve-indentation nil
+      org-agenda-files '("~/todo.org"))
 
 (setq org-html-doctype "html5")
 
@@ -200,24 +202,30 @@
   (switch-to-buffer (get-buffer-create "*scratch*"))
   (lisp-interaction-mode))
 
+(definteractive manx/kill-all ()
+  (mapc 'kill-buffer (buffer-list))
+  (manx/scratch-buffer))
+
 (global-set-key (kbd "C-c s b") 'manx/scratch-buffer)
 (global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer))))
-(global-set-key (kbd "C-M-s-k")
+(global-set-key (kbd "C-M-s-k") 'manx/kill-all)
-                (lambdainteractive ()
-                   (mapc 'kill-buffer (buffer-list))
-                   (manx/scratch-buffer)))
 
 (defmacro manx/split-and-follow (direction)
 	`(progn
-		       ,direction
+		 ,direction
-		(balance-windows)
+		 (balance-windows)
-		(other-window 1)))
+		 (other-window 1)))
 
 (global-set-key (kbd "C-x 3")
 								(lambdainteractive () (manx/split-and-follow (split-window-below))))
 (global-set-key (kbd "C-x 2")
 								(lambdainteractive () (manx/split-and-follow (split-window-horizontally))))
 
+(definteractive manx/theme ()
+  "Themes don't load properly when using emacsclient"
+  (load-theme 'spacemacs-dark)
+  (spaceline-compile))
+
 (defun unix-line-ends ()
   (when (string-match
          "-\\(?:dos\\|mac\\)$"
@@ -272,10 +280,11 @@
 (global-prettify-symbols-mode t)
 
 (defmacro manx/prettify (lst)
-  `(add-hook (quote ,(car lst))
+  `(add-hook
-             (lambda ()
+    (quote ,(car lst))
-               (dolist (pair (quote ,(cdr lst)))
+    (lambda ()
-                 (push pair prettify-symbols-alist)))))
+      (dolist (pair (quote ,(cdr lst)))
+        (push pair prettify-symbols-alist)))))
 
 (manx/prettify
  (emacs-lisp-mode-hook

config.org

@@ -6,20 +6,20 @@ Wrappers around functions and lambdas so I don't have to type
 
 I have ~prettify-symbols-mode~ set ~lambdainteractive~ to Λ (capital lambda) because it's cute.
 #+BEGIN_SRC emacs-lisp
-  (defmacro definteractive (name &rest body)
+(defmacro definteractive (name &rest body)
-    `(defun ,name ,(car body)
+  `(defun ,name ,(car body)
-       (interactive)
+     (interactive)
-       ,@(cdr body)))
+     ,@(cdr body)))
 
-  (defmacro lambdainteractive (&rest body)
+(defmacro lambdainteractive (&rest body)
-    `(lambda ,(car body) (interactive) ,@(cdr body)))
+  `(lambda ,(car body) (interactive) ,@(cdr body)))
 #+END_SRC
 ** local-keybind
 Hide unecessary lambda when calling (local-set-key) for org-mode
 functions
 #+BEGIN_SRC emacs-lisp
-  (defmacro local-keybind (key value)
+(defmacro local-keybind (key value)
-    `(lambda () (local-set-key (kbd ,key) (quote ,value))))
+  `(lambda () (local-set-key (kbd ,key) (quote ,value))))
 #+END_SRC
 * use-package
 ** use-package config
@@ -30,9 +30,9 @@ Always ensure packages are installed. Log to ~*Messages*~.
 #+END_SRC
 ** keychain-environment
 #+BEGIN_SRC emacs-lisp
-  (use-package keychain-environment
+(use-package keychain-environment
-    :bind ("C-c r e" . 'keychain-refresh-environment)
+  :bind ("C-c r e" . 'keychain-refresh-environment)
-    :init (keychain-refresh-environment))
+  :init (keychain-refresh-environment))
 #+END_SRC
 ** auto-minor-mode
 #+BEGIN_SRC emacs-lisp
@@ -40,36 +40,36 @@ Always ensure packages are installed. Log to ~*Messages*~.
 #+END_SRC
 ** diminish
 #+BEGIN_SRC emacs-lisp
-  (use-package diminish)
+(use-package diminish)
 #+END_SRC
 ** company
 #+BEGIN_SRC emacs-lisp
-  (use-package company
+(use-package company
-    :diminish 'company-mode
+  :diminish 'company-mode
-    :bind (:map company-mode-map
+  :bind (:map company-mode-map
-    ("C-c /" . 'yas-expand))
+              ("C-c /" . 'yas-expand))
-    :custom
+  :custom
-    (company-idle-delay 0)
+  (company-idle-delay 0)
-    (company-minimum-prefix-length 3)
+  (company-minimum-prefix-length 3)
-    :init (add-hook 'after-init-hook 'global-company-mode))
+  :init (add-hook 'after-init-hook 'global-company-mode))
 #+END_SRC
 ** prog
 *** c#
 #+BEGIN_SRC emacs-lisp
-  (use-package csharp-mode
+(use-package csharp-mode
+  :defer t
+  :config
+  (use-package omnisharp
     :defer t
     :config
-    (use-package omnisharp
+    (add-hook 'csharp-mode-hook 'omnisharp-mode)
-      :defer t
+    (add-to-list 'company-backends 'company-omnisharp)))
-      :config
-      (add-hook 'csharp-mode-hook 'omnisharp-mode)
-      (add-to-list 'company-backends 'company-omnisharp)))
 #+END_SRC
 *** elixir
 #+BEGIN_SRC emacs-lisp
-  (use-package elixir-mode
+(use-package elixir-mode
-    :defer t
+  :defer t
-    :config (use-package alchemist))
+  :config (use-package alchemist))
 #+END_SRC
 *** nginx
 #+BEGIN_SRC emacs-lisp
@@ -82,49 +82,49 @@ Always ensure packages are installed. Log to ~*Messages*~.
 *** slime
 sbcl is in a werid place on Gentoo.
 #+BEGIN_SRC emacs-lisp
-  (use-package slime
+(use-package slime
-    :defer t
+  :defer t
-    :custom
+  :custom
-    (slime-lisp-implementations
+  (slime-lisp-implementations
-     '((sbcl ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
+   '((sbcl ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
-             :env ("SBCL_HOME=/usr/lib64/sbcl/"))))
+           :env ("SBCL_HOME=/usr/lib64/sbcl/"))))
-    :diminish 'slime-mode
+  :diminish 'slime-mode
-    :init
+  :init
-    (use-package slime-company)
+  (use-package slime-company)
-    (add-hook 'lisp-mode-hook 'slime-mode)
+  (add-hook 'lisp-mode-hook 'slime-mode)
-    (slime-setup '(slime-fancy slime-company)))
+  (slime-setup '(slime-fancy slime-company)))
 #+END_SRC
 *** htmlize
 #+BEGIN_SRC emacs-lisp
-  (use-package htmlize)
+(use-package htmlize)
 #+END_SRC
 ** yasnippet
  #+BEGIN_SRC emacs-lisp
-   (use-package yasnippet
+ (use-package yasnippet
-     :diminish 'yas-minor-mode
+   :diminish 'yas-minor-mode
-     :hook ((html-mode
+   :hook ((html-mode
-             LaTeX-mode
+           LaTeX-mode
-             emacs-lisp-mode
+           emacs-lisp-mode
-             lisp-mode)
+           lisp-mode)
-            . yas-minor-mode)
+          . yas-minor-mode)
-     :init ;; These are computationally expensive, so init.
+   :init ;; These are computationally expensive, so init.
-     (use-package yasnippet-snippets)
+   (use-package yasnippet-snippets)
-     (yas-reload-all))
+   (yas-reload-all))
  #+END_SRC
 ** dashboard
 #+BEGIN_SRC emacs-lisp
-  (use-package dashboard
+(use-package dashboard
-    :diminish (dashboard-mode page-break-lines-mode)
+  :diminish (dashboard-mode page-break-lines-mode)
-    :custom
+  :custom
-    (dashboard-center-content t)
+  (dashboard-center-content t)
-    (dashboard-banner-logo-title "Komacs")
+  (dashboard-banner-logo-title "Komacs")
-    (dashboard-set-init-info t)
+  (dashboard-set-init-info t)
-    (dashboard-startup-banner "~/.emacs.d/Komacs.png")
+  (dashboard-startup-banner "~/.emacs.d/Komacs.png")
-    (dashboard-show-shortcuts nil)
+  (dashboard-show-shortcuts nil)
-    (dashboard-items '((recents . 5)))
+  (dashboard-items '((recents . 5)))
-    :config (dashboard-setup-startup-hook))
+  :config (dashboard-setup-startup-hook))
-
+
-  (setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
+(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
 #+END_SRC
 ** windows and frames
 *** transpose-frame
@@ -137,25 +137,25 @@ sbcl is in a werid place on Gentoo.
 #+END_SRC
 *** switch window
 #+BEGIN_SRC emacs-lisp
-  (use-package switch-window
+(use-package switch-window
-    :custom
+  :custom
-    (switch-window-input-style 'minibuffer)
+  (switch-window-input-style 'minibuffer)
-    (switch-window-increase 4)
+  (switch-window-increase 4)
-    (switch-window-threshold 2)
+  (switch-window-threshold 2)
-    :bind ([remap other-window] . switch-window))
+  :bind ([remap other-window] . switch-window))
 #+END_SRC
 *** ido
 #+BEGIN_SRC emacs-lisp
-  (setq ido-enable-flex-matching t
+(setq ido-enable-flex-matching t
-        ido-create-new-buffer 'always
+      ido-create-new-buffer 'always
-        ido-everywhere 1)
+      ido-everywhere 1)
 
-  (use-package ido-vertical-mode
+(use-package ido-vertical-mode
-    :bind ("C-l" . 'ido-reread-directory)
+  :bind ("C-l" . 'ido-reread-directory)
-    :custom (ido-vertical-define-keys 'C-n-and-C-p-only)
+  :custom (ido-vertical-define-keys 'C-n-and-C-p-only)
-    :config
+  :config
-    (ido-vertical-mode 1)
+  (ido-vertical-mode 1)
-    (ido-mode 1))
+  (ido-mode 1))
 #+END_SRC
 *** spaceline
 #+BEGIN_SRC emacs-lisp
@@ -172,31 +172,31 @@ sbcl is in a werid place on Gentoo.
 ** minor modes
 *** hungry-delete
  #+BEGIN_SRC emacs-lisp
-   (use-package hungry-delete
+ (use-package hungry-delete
-     :diminish 'hungry-delete-mode
+   :diminish 'hungry-delete-mode
-     :config (global-hungry-delete-mode 1))
+   :config (global-hungry-delete-mode 1))
  #+END_SRC
 *** which-key
  #+BEGIN_SRC emacs-lisp
-   (use-package which-key
+ (use-package which-key
-      :diminish 'which-key-mode
+   :diminish 'which-key-mode
-      :config (which-key-mode))
+   :config (which-key-mode))
  #+END_SRC
 *** avy
  #+BEGIN_SRC emacs-lisp
-  (use-package avy
+ (use-package avy
-    :bind ("M-s" . avy-goto-char))
+   :bind ("M-s" . avy-goto-char))
  #+END_SRC
 *** beacon
  #+BEGIN_SRC emacs-lisp
-  (use-package beacon
+ (use-package beacon
-    :diminish 'beacon-mode
+   :diminish 'beacon-mode
-    :config (beacon-mode 1))
+   :config (beacon-mode 1))
  #+END_SRC
 *** popup-kill-ring
  #+BEGIN_SRC emacs-lisp
-  (use-package popup-kill-ring
+ (use-package popup-kill-ring
-    :bind ("M-y" . popup-kill-ring))
+   :bind ("M-y" . popup-kill-ring))
  #+END_SRC
 * org
 ** edit/reload config 
@@ -223,19 +223,21 @@ Also saves config if open. manx/emacs-org is defined in [[./init.el][init.el]]
 (add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
 
 (setq org-src-tab-acts-natively t
-      org-edit-src-content-indentation 0)
+      org-edit-src-content-indentation 0
+      org-src-preserve-indentation nil
+      org-agenda-files '("~/todo.org"))
 #+END_SRC
 ** html export
 #+BEGIN_SRC emacs-lisp
-  (setq org-html-doctype "html5")
+(setq org-html-doctype "html5")
 
-  (definteractive manx/save-org-to-html()
+(definteractive manx/save-org-to-html()
-    (when (equal major-mode 'org-mode)
+  (when (equal major-mode 'org-mode)
-      (save-buffer)
+    (save-buffer)
-      (org-html-export-to-html)))
+    (org-html-export-to-html)))
 
-  (add-hook 'org-mode-hook
+(add-hook 'org-mode-hook
-            (local-keybind "C-c s h" manx/save-org-to-html))
+          (local-keybind "C-c s h" manx/save-org-to-html))
 #+END_SRC 
 ** Links
 #+BEGIN_SRC emacs-lisp
@@ -247,13 +249,13 @@ Also saves config if open. manx/emacs-org is defined in [[./init.el][init.el]]
 #+END_SRC
 *** Inline Images
  #+BEGIN_SRC emacs-lisp
-   (setq org-image-actual-width 150)
+ (setq org-image-actual-width 150)
 
-   (definteractive manx/org-insert-link ()
+ (definteractive manx/org-insert-link ()
-     (org-insert-link)
+   (org-insert-link)
-     (org-redisplay-inline-images))
+   (org-redisplay-inline-images))
 
-   (add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link))
+ (add-hook 'org-mode-hook (local-keybind "C-c C-l" manx/org-insert-link))
  #+END_SRC
 * functions
 ** text
@@ -277,45 +279,53 @@ Also saves config if open. manx/emacs-org is defined in [[./init.el][init.el]]
   (switch-to-buffer (get-buffer-create "*scratch*"))
   (lisp-interaction-mode))
 
+(definteractive manx/kill-all ()
+  (mapc 'kill-buffer (buffer-list))
+  (manx/scratch-buffer))
+
 (global-set-key (kbd "C-c s b") 'manx/scratch-buffer)
 (global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-buffer))))
-(global-set-key (kbd "C-M-s-k")
+(global-set-key (kbd "C-M-s-k") 'manx/kill-all)
-                (lambdainteractive ()
-                   (mapc 'kill-buffer (buffer-list))
-                   (manx/scratch-buffer)))
 #+END_SRC
 ** frames
  #+BEGIN_SRC emacs-lisp
  (defmacro manx/split-and-follow (direction)
 	 `(progn
 			,direction
-		 (balance-windows)
+			(balance-windows)
-		 (other-window 1)))
+			(other-window 1)))
 
  (global-set-key (kbd "C-x 3")
 								 (lambdainteractive () (manx/split-and-follow (split-window-below))))
  (global-set-key (kbd "C-x 2")
 								 (lambdainteractive () (manx/split-and-follow (split-window-horizontally))))
  #+END_SRC
+** windows
+#+BEGIN_SRC emacs-lisp
+(definteractive manx/theme ()
+  "Themes don't load properly when using emacsclient"
+  (load-theme 'spacemacs-dark)
+  (spaceline-compile))
+#+END_SRC
 * misc
 ** unix line endings
 #+BEGIN_SRC emacs-lisp
-  (defun unix-line-ends ()
+(defun unix-line-ends ()
-    (when (string-match
+  (when (string-match
-           "-\\(?:dos\\|mac\\)$"
+         "-\\(?:dos\\|mac\\)$"
-           (symbol-name buffer-file-coding-system))
+         (symbol-name buffer-file-coding-system))
-      (set-buffer-file-coding-system 'unix)))
+    (set-buffer-file-coding-system 'unix)))
 
-  (add-hook 'find-file-hooks 'unix-line-ends)
+(add-hook 'find-file-hooks 'unix-line-ends)
 #+END_SRC
 ** UTF8
 #+BEGIN_SRC emacs-lisp
-  (setq locale-coding-system 'utf-8)
+(setq locale-coding-system 'utf-8)
-  (set-terminal-coding-system 'utf-8)
+(set-terminal-coding-system 'utf-8)
-  (set-keyboard-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
-  (set-selection-coding-system 'utf-8)
+(set-selection-coding-system 'utf-8)
-  (prefer-coding-system 'utf-8)
+(prefer-coding-system 'utf-8)
-  (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
+(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
 #+END_SRC
 ** minor things
 Things for GUI and basic config, like electric pairs and highlighting
@@ -390,29 +400,29 @@ tabs > spaces. Except in Lisp.
 #+END_SRC
 * sensitive-minor-mode
 #+BEGIN_SRC emacs-lisp
-  (define-minor-mode sensitive-minor-mode
+(define-minor-mode sensitive-minor-mode
-    "For sensitive files like password lists.
+  "For sensitive files like password lists.
-  It disables backup creation and auto saving.
+It disables backup creation and auto saving.
-
+
-  With no argument, this command toggles the mode.
+With no argument, this command toggles the mode.
-  Non-null prefix argument turns on the mode.
+Non-null prefix argument turns on the mode.
-  Null prefix argument turns off the mode."
+Null prefix argument turns off the mode."
-    :init-value nil
+  :init-value nil
-    :lighter " Sensitive"
+  :lighter " Sensitive"
-    :keymap nil 
+  :keymap nil 
-    (if (symbol-value sensitive-minor-mode)
+  (if (symbol-value sensitive-minor-mode)
-        (progn
+      (progn
-          (setq make-backup-files nil)
+        (setq make-backup-files nil)
-          (auto-save-mode -1))
+        (auto-save-mode -1))
-      (setq-local make-backup-files t)
+    (setq-local make-backup-files t)
-      (auto-save-mode 1)))
+    (auto-save-mode 1)))
-
+
-
+
-  ;; Regexps of sensitive files.
+;; Regexps of sensitive files.
-  (setq auto-minor-mode-alist
+(setq auto-minor-mode-alist
-        (append
+      (append
-         '(("stream/manifest/.*\\.json$" . sensitive-minor-mode)
+       '(("stream/manifest/.*\\.json$" . sensitive-minor-mode)
-           (".emacs.d/snippets/\\*$" . sensitive-minor-mode)
+         (".emacs.d/snippets/\\*$" . sensitive-minor-mode)
-           ("/etc/nginx/*" . sensitive-minor-mode))
+         ("/etc/nginx/*" . sensitive-minor-mode))
-         auto-minor-mode-alist))
+       auto-minor-mode-alist))
 #+END_SRC

custom.el

@@ -4,34 +4,9 @@
  ;; 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.
- '(TeX-engine (quote xetex))
- '(company-idle-delay 0)
- '(company-minimum-prefix-length 3)
- '(custom-enabled-themes (quote (spacemacs-dark)))
  '(custom-safe-themes
    (quote
-    ("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" default)))
+    ("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" default))))
- '(dashboard-banner-logo-title "Komacs")
- '(dashboard-center-content t)
- '(dashboard-items (quote ((recents . 5))))
- '(dashboard-set-init-info t)
- '(dashboard-show-shortcuts nil)
- '(dashboard-startup-banner "~/.emacs.d/Komacs.png")
- '(ido-vertical-define-keys (quote C-n-and-C-p-only))
- '(nginx-indent-level 2)
- '(nginx-indent-tabs-mode t)
- '(package-selected-packages
-   (quote
-    (transpose-frame auto-minor-mode htmlize alchemist elixir-mode nginx-mode yasnippet-snippets which-key use-package switch-window spacemacs-theme spaceline slime-company popup-kill-ring omnisharp keychain-environment ido-vertical-mode hungry-delete diminish dashboard company-auctex beacon avy)))
- '(slime-lisp-implementations
-   (quote
-    ((sbcl
-      ("sbcl" "--core" "/usr/lib64/sbcl/sbcl.core")
-      :env
-      ("SBCL_HOME=/usr/lib64/sbcl/")))) t)
- '(switch-window-increase 4 t)
- '(switch-window-input-style (quote minibuffer))
- '(switch-window-threshold 2))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.

init.el

@@ -6,13 +6,12 @@
 
 (package-initialize)
 
-(unless (package-installed-p 'use-package)
+(defun check-installed (package)
-  (package-refresh-contents)
+  (unless (package-installed-p package)
-  (package-install 'use-package))
+    (package-refresh-contents)
+    (package-install package)))
 
-(unless (package-installed-p 'spacemacs-theme)
+(mapc 'check-installed '(use-package spacemacs-theme))
-  (package-refresh-contents)
-  (package-install 'spacemacs-theme))
 
 (defun in-emacs-home (file)
   "Checks if a file exists in your emacs home"
@@ -33,4 +32,5 @@
       (org-babel-load-file manx/emacs-org)
     (load manx/emacs-el 'noerror))
   (load custom-file 'noerrror)
-  (load manx/emacs-email 'noerror))
+  (load manx/emacs-email 'noerror)) ;; and this are needed when using emacsclient
+