From 4fa5e9786ff78910b542c44a4d2ccbb407a99d2d Mon Sep 17 00:00:00 2001 From: depsterr Date: Tue, 28 Feb 2023 15:41:35 +0100 Subject: [PATCH] wa --- binds.el | 2 ++ exwm.el | 6 ++---- init.el | 6 ++++++ style.el | 5 ++++- 4 files changed, 14 insertions(+), 5 deletions(-) diff --git a/binds.el b/binds.el index 2722f85..e6e43ac 100644 --- a/binds.el +++ b/binds.el @@ -8,6 +8,8 @@ ;;;;;;;;;;;;;;;; ;; Evil + +(setq evil-respect-visual-line-mode t) (require 'evil) (require 'evil-surround) (require 'evil-commentary) diff --git a/exwm.el b/exwm.el index 52aa22a..2a7f6f3 100644 --- a/exwm.el +++ b/exwm.el @@ -7,8 +7,6 @@ (display-battery-mode 1) (display-time-mode 1) -(defvar newbuf "*dashboard*") - (defun discord () (interactive) (call-process "discord" nil 0 nil)) @@ -51,13 +49,13 @@ (window-swap-states (selected-window) (previous-window)))) (,(kbd "s-L") . (lambda () (interactive) (select-window (split-window-right)) - (switch-to-buffer ,newbuf))) + (switch-to-buffer ,dashboard-buffer-name))) (,(kbd "s-H") . (lambda () (interactive) (let ((cwin (selected-window)) (nwin (split-window-right))) (window-swapstated cwin nwin) (select-window nwin) - (switch-to-buffer ,newbuf)))) + (switch-to-buffer ,dashboard-buffer-name)))) (,(kbd "s-r") . exwm-reset) (,(kbd "s-f") . exwm-layout-set-fullscreen) diff --git a/init.el b/init.el index 81b208d..960a03d 100644 --- a/init.el +++ b/init.el @@ -198,6 +198,9 @@ '(display-time-mode t) '(evil-undo-system 'undo-tree) '(haskell-emacs-build-tool 'stack) + '(haskell-interactive-popup-errors nil) + '(haskell-process-args-ghci '("-ignore-dot-ghci" "-ferror-spans")) + '(haskell-process-show-debug-tips nil) '(image-converter 'imagemagick) '(image-file-name-extensions '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg" "ora")) @@ -205,6 +208,8 @@ '(imagemagick-enabled-types '(3FR ARW AVS BMP BMP2 BMP3 CAL CALS CMYK CMYKA CR2 CRW CUR CUT DCM DCR DCX DDS DJVU DNG DPX EXR FAX FITS GBR GIF GIF87 GRB HRZ ICB ICO ICON J2C JNG JP2 JPC JPEG JPG JPX K25 KDC MIFF MNG MRW MSL MSVG MTV NEF ORF OTB PBM PCD PCDS PCL PCT PCX PDB PEF PGM PICT PIX PJPEG PNG PNG24 PNG32 PNG8 PNM PPM PSD PTIF PWP RAF RAS RBG RGB RGBA RGBO RLA RLE SCR SCT SFW SGI SR2 SRF SUN SVG SVGZ TGA TIFF TIFF64 TILE TIM TTF UYVY VDA VICAR VID VIFF VST WBMP WPG X3F XBM XC XCF XPM XV XWD YCbCr YCbCrA YUV ORA)) '(org-agenda-files '("/home/deppy/doc/org/todo.org")) + '(org-preview-latex-default-process 'imagemagick) + '(org-startup-with-latex-preview t) '(package-selected-packages '(pdf-tools dune tuareg idris-mode auctex haskell-emacs-base multi-vterm dmenu markdown-preview-mode markdown-mode exwm org-superstar org-fragtog org-pretty-tags visual-fill writeroom-mode haskell-emacs treemacs-evil treemacs solarized-theme doom-modeline all-the-icons-dired page-break-lines all-the-icons dashboard org-evil zotero vterm magit undo-fu latex-math-preview use-package haskell-mode evil-surround undo-tree evil-org evil)) '(shell-file-name "/bin/bash") @@ -219,6 +224,7 @@ '(warning-suppress-types '((comp))) '(writeroom-global-effects '(writeroom-set-alpha writeroom-set-menu-bar-lines writeroom-set-tool-bar-lines writeroom-set-vertical-scroll-bars writeroom-set-bottom-divider-width)) + '(writeroom-maximize-window nil) '(writeroom-mode-line t) '(writeroom-width 100) '(zotero-recognize-pdfdata diff --git a/style.el b/style.el index 77f1900..c2c00e7 100644 --- a/style.el +++ b/style.el @@ -80,7 +80,6 @@ (setq org-format-latex-options '(:scale 1.5)) (setq org-agenda-start-on-weekday 1) - (add-hook 'markdown-mode-hook (lambda () (visual-line-mode) (writeroom-mode))) @@ -90,3 +89,7 @@ (prettify-symbols-mode) (visual-line-mode) (writeroom-mode))) + +;; Transparent +(set-frame-parameter (selected-frame) 'alpha '(100 . 100)) +(add-to-list 'default-frame-alist '(alpha . (100 . 100)))