   (process-send-string wl-copy-process text)
   (process-send-eof wl-copy-process))
 
-(defun wl-paste ()
-  (if (and wl-copy-process (process-live-p wl-copy-process))
-      nil
-    (shell-command-to-string "wl-paste -n | tr -d \r")))
-
-(setq interprogram-cut-function 'wl-copy)
-(setq interprogram-paste-function 'wl-paste)
+;; (defun wl-paste ()
+;;   (if (and wl-copy-process (process-live-p wl-copy-process))
+;;       nil
+;;     (shell-command-to-string "wl-paste -n | tr -d \r")))
+
+;; (setq interprogram-cut-function 'wl-copy)
+;; (setq interprogram-paste-function 'wl-paste)
 
 (use-package gist :straight t
   :config


(setq auto-window-vscroll nil)
(global-auto-revert-mode t)
;; (menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)



(use-package polymode :straight t)
(use-package poly-markdown :straight t)
;; (use-package poly-org :straight t)

(add-to-list 'auto-mode-alist '("\\.md" . poly-markdown-mode))
(add-to-list 'auto-mode-alist '("\\.org" . poly-org-mode))
