From d5bf025a4db2f8b06b89429203042aad15dc1a5a Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Tue, 25 Feb 2020 21:44:21 +0100
Subject: Add Emacs scratchpad to XMonad

---
 gui/apps/dev.nix   | 2 ++
 gui/conf/init.el   | 3 +++
 gui/conf/xmonad.hs | 8 ++++++--
 3 files changed, 11 insertions(+), 2 deletions(-)

(limited to 'gui')

diff --git a/gui/apps/dev.nix b/gui/apps/dev.nix
index 44662bb..21cd76d 100644
--- a/gui/apps/dev.nix
+++ b/gui/apps/dev.nix
@@ -15,6 +15,8 @@
       artha
     # calculator
       speedcrunch
+    # ctag to override the emacs provided ones (placeholder)
+      universal-ctags
     ];
   };
 }
diff --git a/gui/conf/init.el b/gui/conf/init.el
index fc16d5d..32453b8 100644
--- a/gui/conf/init.el
+++ b/gui/conf/init.el
@@ -1,3 +1,6 @@
+(setq inhibit-startup-message t)
+(setq initial-scratch-message nil)
+
 (setq backup-directory-alist `(("." . "~/.emacs.d/backup")))
 
 (require 'package)
diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index a7167c0..5038f48 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -117,7 +117,10 @@ scratchpads host =
   , NS "calculator"    "speedcrunch"                                           (className =? "SpeedCrunch")
        (customFloating $ hideScreenBorder host sideBarLeft)
   , NS "messaging"     "telegram-desktop"                                      ((className =? "TelegramDesktop") <&&> (title /=? "Media viewer"))
-       (customFloating $ hideScreenBorder host sideBarRight) ]
+       (customFloating $ hideScreenBorder host sideBarRight)
+  , NS "notes"         "emacs --title=notemacs ~/org/org.org"                  (title =? "notemacs")
+       (customFloating $ hideScreenBorder host dropDownLarge)
+  ]
 
 hudMonitor host = monitor
   { prop = Title "hud"
@@ -198,7 +201,8 @@ commonKeybindings host =
   , ("M-t"           , namedScratchpadAction (scratchpads host) "thesaurus")
   , ("M-z"           , namedScratchpadAction (scratchpads host) "literature")
   , ("M-r"           , namedScratchpadAction (scratchpads host) "calculator")
-  , ("M-m"           , namedScratchpadAction (scratchpads host) "messaging") ] ++
+  , ("M-m"           , namedScratchpadAction (scratchpads host) "messaging")
+  , ("M-n"           , namedScratchpadAction (scratchpads host) "notes") ] ++
 
 -- workspace selection
   [ (p ++ [k]        , windows $ f i) | (i, k) <- zip Main.workspaces ['1' .. '9']
-- 
cgit v1.2.3