common/generic_functions.el

@@ -41,27 +41,6 @@
   )
 )
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; open text-mode scratch in right side window
-(defun kmn/scratch-text-on-right (&optional dir_path)
-  (defvar parameters
-    '(window-parameters . ((no-other-window . t)
-                           (no-delete-other-windows . t))))
-
-  (setq fit-window-to-buffer-horizontally t)
-  (setq window-resize-pixelwise t)
-
-  "Display `default-directory' in side window on left, hiding details."
-  (interactive)
-  (let ((buffer (scratch 'text-mode)))
-    (display-buffer-in-side-window
-     buffer `((side . right) (slot . -1)
-              (window-width . fit-window-to-buffer)
-              , parameters)
-    )
-  )
-)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; quick reference notes as a pop up window
 (defun kmn/popwin-quick-ref ()

common/workspaces.el

@@ -138,6 +138,6 @@
   (let ((frame (make-frame)))
     (select-frame-set-input-focus frame)
     (delete-other-windows)
-    (scratch 'text-mode)
+    (scratch)
   )
 )

org/config-org-capture.el

@@ -168,7 +168,7 @@
     )
 ))
 )
-(when kmn/is-dayjob
+(when (not kmn/is-dayjob)
 (setq org-capture-templates '(
     ("d" "TODO (Main)" entry
         (file "~/org/_todo.org")
@@ -184,12 +184,5 @@
         :immediate-finish "f"
         :jump-to-captured "t"
     )
-    ("p" "Deployment" entry
-        (file "~/org/_todo.org")
-        (file "~/org/template_deploy.org")
-        :prepend t
-        :immediate-finish "f"
-        :jump-to-captured "t"
-    )
 ))
 )