emacs - elscreen key bindings

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 247fd54..a7152e1 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1128,12 +1128,8 @@ Also correct the face of  =org-meta-line= in =org-table=
 
 ** Org Blog
 Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html][org-publish-html-tutorial]], and [[https://ogbe.net/blog/blogging_with_org.html][blogging_with_org]]
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (require 'ox-publish)
-  (setq my-blog-extra-head
-        (concat 
-         "<link rel='stylesheet' href='./css/worg.css' />"))
 
   (setq org-publish-project-alist
         `(
@@ -1150,9 +1146,11 @@ Refer to [[http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html]
            :sitemap-filename "sitemap.org" ;... call it sitemap.org (it's the default )...
            :sitemap-title "Sitemap"
 
+           :table-of-contents nil
+           :html-postamble nil            ;dont export creator auto validation info in html postamble div
            :html-link-home "/"
-           :html-head nil                 ;
-           :html-head-extra ,my-blog-extra-head
+           :html-head "<link rel='stylesheet' href='./css/worg_old.css' />"
+           ;; :html-head-extra ,my-blog-extra-head
            :html-head-include-default-style nil
            :html-head-include-scripts nil)
           ("org-static"
@@ -1634,6 +1632,23 @@ as a http download client tool
                                   (car (last (split-string url "/" t))))))))))
 #+END_SRC
 
+** Elscreen
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package elscreen
+    :ensure t
+    :init
+    (setq elscreen-tab-display-control nil)
+    :config
+    (elscreen-start)
+    (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow")
+    (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil)
+    ;; (global-unset-key (kbd)); M-TAB switch screen
+    (global-set-key (kbd "s-`") (lambda () (interactive) (elscreen-goto 0)))
+    (dotimes (i 8)
+      (global-set-key (kbd (concat "s-" (number-to-string (+ i 1))))
+                      `(lambda () (interactive) (elscreen-goto ,(+ i 1))))))
+#+END_SRC
+
 * Dired
 ** Dired bindings
 =C-o= is defined as a global key for window operation, here unset it in dired mode
@@ -3421,3 +3436,4 @@ search music on some music web site
 
 
 
+** Need separate the Key-bindings and package-initialization