fix theme when running as daemon

ご主人様
not manx 5 years ago
parent 3d03663547
commit c2b3a17c27
Signed by: C-xC-c
GPG Key ID: F52ED472284EF2F4

@ -157,7 +157,9 @@
(add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) (add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
(setq org-src-tab-acts-natively t (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") (setq org-html-doctype "html5")
@ -200,12 +202,13 @@
(switch-to-buffer (get-buffer-create "*scratch*")) (switch-to-buffer (get-buffer-create "*scratch*"))
(lisp-interaction-mode)) (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-c s b") 'manx/scratch-buffer)
(global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-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) (defmacro manx/split-and-follow (direction)
`(progn `(progn
@ -218,6 +221,11 @@
(global-set-key (kbd "C-x 2") (global-set-key (kbd "C-x 2")
(lambdainteractive () (manx/split-and-follow (split-window-horizontally)))) (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 () (defun unix-line-ends ()
(when (string-match (when (string-match
"-\\(?:dos\\|mac\\)$" "-\\(?:dos\\|mac\\)$"
@ -272,7 +280,8 @@
(global-prettify-symbols-mode t) (global-prettify-symbols-mode t)
(defmacro manx/prettify (lst) (defmacro manx/prettify (lst)
`(add-hook (quote ,(car lst)) `(add-hook
(quote ,(car lst))
(lambda () (lambda ()
(dolist (pair (quote ,(cdr lst))) (dolist (pair (quote ,(cdr lst)))
(push pair prettify-symbols-alist))))) (push pair prettify-symbols-alist)))))

@ -223,7 +223,9 @@ 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")) (add-to-list 'org-structure-template-alist '("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
(setq org-src-tab-acts-natively t (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 #+END_SRC
** html export ** html export
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -277,12 +279,13 @@ Also saves config if open. manx/emacs-org is defined in [[./init.el][init.el]]
(switch-to-buffer (get-buffer-create "*scratch*")) (switch-to-buffer (get-buffer-create "*scratch*"))
(lisp-interaction-mode)) (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-c s b") 'manx/scratch-buffer)
(global-set-key (kbd "C-x k") (lambdainteractive () (kill-buffer (current-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 #+END_SRC
** frames ** frames
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -297,6 +300,13 @@ Also saves config if open. manx/emacs-org is defined in [[./init.el][init.el]]
(global-set-key (kbd "C-x 2") (global-set-key (kbd "C-x 2")
(lambdainteractive () (manx/split-and-follow (split-window-horizontally)))) (lambdainteractive () (manx/split-and-follow (split-window-horizontally))))
#+END_SRC #+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 * misc
** unix line endings ** unix line endings
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp

@ -4,34 +4,9 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; 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 '(custom-safe-themes
(quote (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
;; custom-set-faces was added by Custom. ;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.

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

Loading…
Cancel
Save