Convenience-features for Emacs and shell scripts

NixOS:
feat: add cdw, cdr, cdb, bak scripts/aliases
feat: spawn firefox on workspace 1 again
fix: adjust systemd stop timeout to avoid 1m30s wait on shutdown
feat: add fzf-tab

Emacs:
fix: file-switcher directory up was not working consistently
feat: more intuitive minibuffer-local-map (DEL is now 1 char again)
chore: C-z now a prefix key, several new keybinds
fix: make project switching in dashboard work again
fix: add proper projectile backend (was still set to ivy)
fix: allow yubikey unlocking from within emacs
feat: add dotfile directory to magit repository list

Emacs.org

@@ -250,6 +250,13 @@ This function will check if a directory for which a file we want to open exists;
       (evil-mode 1)
       (define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state) ; alternative for exiting insert mode
       (define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join) ; dont show help but instead do normal vim delete backwards
+      (define-key evil-normal-state-map (kbd "C-z") nil)
+      (define-key evil-insert-state-map (kbd "C-z") nil)
+      (define-key evil-visual-state-map (kbd "C-z") nil)
+      (define-key evil-motion-state-map (kbd "C-z") nil)
+      (define-key evil-operator-state-map (kbd "C-z") nil)
+      (define-key evil-replace-state-map (kbd "C-z") nil)
+      (define-key global-map (kbd "C-z") nil)
 
       ;; evil undo system
       (evil-set-undo-system 'undo-tree)
@@ -388,6 +395,26 @@ Base emacs undo logic is very useful, but not easy to understand. I prefer undo-
 
 #+end_src
 
+** Move up one directory for find-file
+
+I find it very annoying that the standard behavior for M-DEL only deletes one word when using find-file. This function makes it so that we always go up by one directory level instead.
+
+#+begin_src emacs-lisp
+
+  (defun up-directory (path)
+    "Move up a directory in PATH without affecting the kill buffer."
+    (interactive "p")
+    (if (string-match-p "/." (minibuffer-contents))
+        (let ((end (point)))
+          (re-search-backward "/.")
+          (forward-char)
+          (delete-region (point) end))))
+
+  (define-key minibuffer-local-filename-completion-map
+              [C-backspace] #'up-directory)
+
+#+end_src
+
 * Custom Keybindings
 #+begin_src emacs-lisp
 
@@ -405,6 +432,7 @@ Base emacs undo logic is very useful, but not easy to understand. I prefer undo-
     (swarsel/leader-keys
       "t"  '(:ignore t :which-key "toggles")
       "ts" '(hydra-text-scale/body :which-key "scale text")
+      "te" '(swarsel/toggle-evil-state :which-key "emacs/evil")
       "tl" '(display-line-numbers-mode :which-key "line numbers")
       "tp" '(evil-cleverparens-mode :wk "cleverparens")
       "to" '(olivetti-mode :wk "olivetti")
@@ -478,6 +506,12 @@ Base emacs undo logic is very useful, but not easy to understand. I prefer undo-
    "C-<f9>" 'my-python-shell-run
    )
 
+(defun swarsel/toggle-evil-state ()
+  (interactive)
+  (if (or (evil-emacs-state-p) (evil-insert-state-p))
+      (evil-normal-state)
+    (evil-emacs-state)))
+
 #+end_src
 
 * UI
@@ -643,8 +677,8 @@ Soon I want to try out this new hot stuff - just at the moment there is too much
         :after vertico
         :bind (:map vertico-map
                     ("RET" . vertico-directory-enter)
-                    ("DEL" . vertico-directory-delete-word)
+                    ("C-DEL" . vertico-directory-delete-word)
-                    ("M-DEL" . vertico-directory-delete-char))
+                    ("DEL" . vertico-directory-delete-char))
         ;; Tidy shadowed file names
         :hook (rfn-eshadow-update-overlay . vertico-directory-tidy))
 
@@ -658,14 +692,17 @@ Soon I want to try out this new hot stuff - just at the moment there is too much
         :config
         (setq consult-fontify-max-size 1024)
         :bind
-        ("C-x b" . consult-buffer)
+        (("C-x b" . consult-buffer)
         ("C-c <C-m>" . consult-global-mark)
         ("C-c C-a" . consult-org-agenda)
-        ("C-x O" . consult-outline)
+        ("C-x O" . consult-org-heading)
         ("M-g M-g" . consult-goto-line)
         ("M-g i" . consult-imenu)
         ("M-s s" . consult-line)
-        ("M-s M-s" . consult-line-multi))
+        ("M-s M-s" . consult-line-multi)
+  :map minibuffer-local-map
+        ("C-j" . next-line)
+        ("C-k" . previous-line)))
 
       (use-package embark
         :bind
@@ -776,14 +813,13 @@ Soon I want to try out this new hot stuff - just at the moment there is too much
   ;;   ([remap describe-key] . helpful-key))
 
   (use-package helpful
-    :custom
-    (help-select-window t)
     :bind
     (("C-h f" . helpful-callable)
      ("C-h v" . helpful-variable)
      ("C-h k" . helpful-key)
-     ("C-h C-." . helpful-at-point)))
+     ("C-h C-." . helpful-at-point))
-
+    :config
+    (setq help-window-select nil))
 #+end_src
 
 ** Text Scaling
@@ -1624,7 +1660,7 @@ In order to update the language grammars, run the next command below.
   (use-package projectile
     :diminish projectile-mode
     :config (projectile-mode)
-    :custom ((projectile-completion-system 'ivy)) ;; integrate ivy into completion system
+    :custom ((projectile-completion-system 'auto)) ;; integrate ivy into completion system
     :bind-keymap
     ("C-c p" . projectile-command-map) ; all projectile commands under this
     :init
@@ -1664,12 +1700,14 @@ In order to update the language grammars, run the next command below.
         :config
         (setq magit-repository-directories `((,swarsel-projects-directory  . 1)
                                              (,swarsel-emacs-directory . 0)
-                                         (,swarsel-obsidian-directory . 0)))
+                                             (,swarsel-obsidian-directory . 0)
+                                             ("~/.dotfiles/" . 0)))
         :custom
         (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)) ; stay in the same window
 
       ;; yubikey support for pushing commits
       ;; commiting is enabled through nixos gpg-agent config
+    (setq epg-pinentry-mode 'loopback)
       (setenv "SSH_AUTH_SOCK" (string-chop-newline (shell-command-to-string "gpgconf --list-dirs agent-ssh-socket")))
 #+end_src
 
@@ -1852,23 +1890,23 @@ Currently unused
       ;; Bind dedicated completion commands
       ;; Alternative prefix keys: C-c p, M-p, M-+, ...
       :bind
-      ("C-c p p" . completion-at-point) ;; capf
+      ("C-z p" . completion-at-point) ;; capf
-      ("C-c p t" . complete-tag)        ;; etags
+      ("C-z t" . complete-tag)        ;; etags
-      ("C-c p d" . cape-dabbrev)        ;; or dabbrev-completion
+      ("C-z d" . cape-dabbrev)        ;; or dabbrev-completion
-      ("C-c p h" . cape-history)
+      ("C-z h" . cape-history)
-      ("C-c p f" . cape-file)
+      ("C-z f" . cape-file)
-      ("C-c p k" . cape-keyword)
+      ("C-z k" . cape-keyword)
-      ("C-c p s" . cape-elisp-symbol)
+      ("C-z s" . cape-elisp-symbol)
-      ("C-c p e" . cape-elisp-block)
+      ("C-z e" . cape-elisp-block)
-      ("C-c p a" . cape-abbrev)
+      ("C-z a" . cape-abbrev)
-      ("C-c p l" . cape-line)
+      ("C-z l" . cape-line)
-      ("C-c p w" . cape-dict)
+      ("C-z w" . cape-dict)
-      ("C-c p :" . cape-emoji)
+      ("C-z :" . cape-emoji)
-      ("C-c p \\" . cape-tex)
+      ("C-z \\" . cape-tex)
-      ("C-c p _" . cape-tex)
+      ("C-z _" . cape-tex)
-      ("C-c p ^" . cape-tex)
+      ("C-z ^" . cape-tex)
-      ("C-c p &" . cape-sgml)
+      ("C-z &" . cape-sgml)
-      ("C-c p r" . cape-rfc1345)
+      ("C-z r" . cape-rfc1345)
       ;; Add to the global default value of `completion-at-point-functions' which is
       ;; used by `completion-at-point'.  The order of the functions matters, the
       ;; first function returning a result wins.  Note that the list of buffer-local
@@ -1887,6 +1925,8 @@ Currently unused
       ;; (add-to-list 'completion-at-point-functions #'cape-line)
     )
 
+
+
 #+end_src
 
 *** rust
@@ -2025,7 +2065,7 @@ Currently unused
                ((prog-mode
                  org-mode) . diff-hl-mode)
                :init
-               (diff-fl-flydiff-mode)
+               (diff-hl-flydiff-mode)
                (diff-hl-margin-mode)
                (diff-hl-show-hunk-mouse-mode))
 
@@ -2152,19 +2192,17 @@ The following block is 100% stolen from Dominik :P
             ("u" . "\\cup")
             ("0" . "\\emptyset")))
 
-
+    ;; (yas-define-snippets
-    (yas-define-snippets
+    ;;  'latex-mode
-     'latex-mode
+    ;;  (mapcar
-     (mapcar
+    ;;   (lambda (elem)
-      (lambda (elem)
+    ;;     (let ((key (car elem))
-        (let ((key (car elem))
+    ;;           (value (cdr elem)))
-              (value (cdr elem)))
+    ;;       (list (concat wtf/latex-math-prefix key) value (concat "Math symbol " value))))
-          (list (concat wtf/latex-math-prefix key) value (concat "Math symbol " value))))
+    ;; swtf/latex-math-symbols))
-      swtf/latex-math-symbols))
  )
 
 
-
 #+end_src
 
 
@@ -2754,6 +2792,7 @@ Yep, none currently.
           dashboard-image-banner-max-height 300
           dashboard-startup-banner "~/.dotfiles/wallpaper/swarsel.png"
           dashboard-projects-backend 'projectile
+          dashboard-projects-switch-function 'magit-status
           dashboard-set-navigator t
           dashboard-startupify-list '(dashboard-insert-banner
                                       dashboard-insert-newline
@@ -2795,7 +2834,6 @@ Yep, none currently.
               (lambda (&rest _) (browse-url "swarsel.win")))
              )
             )))
-    (setq dashboard-projects-switch-function 'project-switch-project)
 
 
 #+end_src

Nix.org

@@ -4490,6 +4490,12 @@ Section for all settings that are not really deserving of their own section.
       driSupport32Bit = true;
     };
 
+    # systemd
+    systemd.extraConfig = ''
+    DefaultTimeoutStartSec=60s
+    DefaultTimeoutStopSec=15s
+  '';
+
     # audio
     sound.enable = true;
     # nixpkgs.config.pulseaudio = true;
@@ -4769,6 +4775,7 @@ Also, I define some useful shell scripts here.
       # utilities
       util-linux
       nmap
+      lsof
 
       # local file sharing
       wormhole-rs
@@ -5020,6 +5027,40 @@ Also, I define some useful shell scripts here.
        '';
       })
 
+      (pkgs.writeShellApplication {
+        name = "cdw";
+        runtimeInputs = [ pkgs.fzf ];
+        text = ''
+      cd "$(git worktree list | fzf | awk '{print $1}')"
+      '';
+      })
+
+      (pkgs.writeShellApplication {
+        name = "cdb";
+        runtimeInputs = [ pkgs.fzf ];
+        text = ''
+      git checkout "$(git branch --list | grep -v "^\*" | fzf | awk '{print $1}')"
+      '';
+      })
+
+      # (pkgs.writeShellApplication {
+      #   name = "cdr";
+      #   runtimeInputs = [ pkgs.fzf ];
+      #   text = ''
+      #   cdr () {
+      # cd "$( (find /home/swarsel/Documents/GitHub -maxdepth 1 && echo /home/swarsel/.dotfiles) | fzf )"
+      # }
+      # cdr
+      # '';
+      # })
+
+      (pkgs.writeShellApplication {
+        name = "bak";
+        text = ''
+        cp "$1"{,.bak}
+      '';
+      })
+
   ];
 
 
@@ -5557,6 +5598,8 @@ zsh is clearly the most convenient shell for me and it happens to be super neat
       passpush = "cd ~/.local/share/password-store; git add .; git commit -m 'pass file changes'; git push; cd -;";
       passpull = "cd ~/.local/share/password-store; git pull; cd -;";
       hotspot = "nmcli connection up local; nmcli device wifi hotspot password 12345678;";
+      cd="z";
+      cdr = "cd \"$( (find /home/swarsel/Documents/GitHub -maxdepth 1 && echo /home/swarsel/.dotfiles) | fzf )\"";
     };
     autosuggestion.enable = true;
     enableCompletion = true;
@@ -5569,6 +5612,7 @@ zsh is clearly the most convenient shell for me and it happens to be super neat
     defaultKeymap = "emacs";
     dirHashes = {
       dl    = "$HOME/Downloads";
+      gh    = "$HOME/Documents/GitHub";
     };
     history = {
       expireDuplicatesFirst = true;
@@ -5577,6 +5621,12 @@ zsh is clearly the most convenient shell for me and it happens to be super neat
       size = 10000;
     };
     historySubstringSearch.enable = true;
+    plugins = [
+      {
+        name = "fzf-tab";
+        src = pkgs.zsh-fzf-tab;
+      }
+    ];
     initExtra = ''
       bindkey "^[[1;5D" backward-word
       bindkey "^[[1;5C" forward-word
@@ -6537,8 +6587,7 @@ I am currently using SwayFX, which adds some nice effects to sway, like rounded
         titlebar = false;
       };
       assigns = {
-        # disabled, this is too annoying to be of use
+        "1:一" = [{ app_id = "firefox"; }];
-        # "1:一" = [{ app_id = "^firefox$"; }];
       };
       colors = {
         focused = {

profiles/common/home.nix

@@ -23,6 +23,7 @@
     # utilities
     util-linux
     nmap
+    lsof
 
     # local file sharing
     wormhole-rs
@@ -274,6 +275,40 @@
      '';
     })
 
+    (pkgs.writeShellApplication {
+      name = "cdw";
+      runtimeInputs = [ pkgs.fzf ];
+      text = ''
+    cd "$(git worktree list | fzf | awk '{print $1}')"
+    '';
+    })
+
+    (pkgs.writeShellApplication {
+      name = "cdb";
+      runtimeInputs = [ pkgs.fzf ];
+      text = ''
+    git checkout "$(git branch --list | grep -v "^\*" | fzf | awk '{print $1}')"
+    '';
+    })
+
+    # (pkgs.writeShellApplication {
+    #   name = "cdr";
+    #   runtimeInputs = [ pkgs.fzf ];
+    #   text = ''
+    #   cdr () {
+    # cd "$( (find /home/swarsel/Documents/GitHub -maxdepth 1 && echo /home/swarsel/.dotfiles) | fzf )"
+    # }
+    # cdr
+    # '';
+    # })
+
+    (pkgs.writeShellApplication {
+      name = "bak";
+      text = ''
+      cp "$1"{,.bak}
+    '';
+    })
+
 ];
 
 
@@ -724,6 +759,8 @@ programs.zsh = {
     passpush = "cd ~/.local/share/password-store; git add .; git commit -m 'pass file changes'; git push; cd -;";
     passpull = "cd ~/.local/share/password-store; git pull; cd -;";
     hotspot = "nmcli connection up local; nmcli device wifi hotspot password 12345678;";
+    cd="z";
+    cdr = "cd \"$( (find /home/swarsel/Documents/GitHub -maxdepth 1 && echo /home/swarsel/.dotfiles) | fzf )\"";
   };
   autosuggestion.enable = true;
   enableCompletion = true;
@@ -736,6 +773,7 @@ programs.zsh = {
   defaultKeymap = "emacs";
   dirHashes = {
     dl    = "$HOME/Downloads";
+    gh    = "$HOME/Documents/GitHub";
   };
   history = {
     expireDuplicatesFirst = true;
@@ -744,6 +782,12 @@ programs.zsh = {
     size = 10000;
   };
   historySubstringSearch.enable = true;
+  plugins = [
+    {
+      name = "fzf-tab";
+      src = pkgs.zsh-fzf-tab;
+    }
+  ];
   initExtra = ''
     bindkey "^[[1;5D" backward-word
     bindkey "^[[1;5C" forward-word
@@ -1647,8 +1691,7 @@ wayland.windowManager.sway = {
       titlebar = false;
     };
     assigns = {
-      # disabled, this is too annoying to be of use
+      "1:一" = [{ app_id = "firefox"; }];
-      # "1:一" = [{ app_id = "^firefox$"; }];
     };
     colors = {
       focused = {

profiles/common/nixos.nix

@@ -63,6 +63,12 @@
     driSupport32Bit = true;
   };
 
+  # systemd
+  systemd.extraConfig = ''
+  DefaultTimeoutStartSec=60s
+  DefaultTimeoutStopSec=15s
+'';
+
   # audio
   sound.enable = true;
   # nixpkgs.config.pulseaudio = true;

programs/emacs/init.el

@@ -163,6 +163,13 @@
     (evil-mode 1)
     (define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state) ; alternative for exiting insert mode
     (define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join) ; dont show help but instead do normal vim delete backwards
+    (define-key evil-normal-state-map (kbd "C-z") nil)
+    (define-key evil-insert-state-map (kbd "C-z") nil)
+    (define-key evil-visual-state-map (kbd "C-z") nil)
+    (define-key evil-motion-state-map (kbd "C-z") nil)
+    (define-key evil-operator-state-map (kbd "C-z") nil)
+    (define-key evil-replace-state-map (kbd "C-z") nil)
+    (define-key global-map (kbd "C-z") nil)
 
     ;; evil undo system
     (evil-set-undo-system 'undo-tree)
@@ -271,6 +278,18 @@
       kept-new-versions 5    ; keep some new versions
       kept-old-versions 2)   ; and some old ones, too
 
+(defun up-directory (path)
+  "Move up a directory in PATH without affecting the kill buffer."
+  (interactive "p")
+  (if (string-match-p "/." (minibuffer-contents))
+      (let ((end (point)))
+        (re-search-backward "/.")
+        (forward-char)
+        (delete-region (point) end))))
+
+(define-key minibuffer-local-filename-completion-map
+            [C-backspace] #'up-directory)
+
 ;; Make ESC quit prompts
   (global-set-key (kbd "<escape>") 'keyboard-escape-quit)
 
@@ -285,6 +304,7 @@
     (swarsel/leader-keys
       "t"  '(:ignore t :which-key "toggles")
       "ts" '(hydra-text-scale/body :which-key "scale text")
+      "te" '(swarsel/toggle-evil-state :which-key "emacs/evil")
       "tl" '(display-line-numbers-mode :which-key "line numbers")
       "tp" '(evil-cleverparens-mode :wk "cleverparens")
       "to" '(olivetti-mode :wk "olivetti")
@@ -358,6 +378,12 @@
    "C-<f9>" 'my-python-shell-run
    )
 
+(defun swarsel/toggle-evil-state ()
+  (interactive)
+  (if (or (evil-emacs-state-p) (evil-insert-state-p))
+      (evil-normal-state)
+    (evil-emacs-state)))
+
 (setq inhibit-startup-message t)
 
 ;; (set-fringe-mode nil) ; Give some breathing room
@@ -467,8 +493,8 @@
       :after vertico
       :bind (:map vertico-map
                   ("RET" . vertico-directory-enter)
-                  ("DEL" . vertico-directory-delete-word)
+                  ("C-DEL" . vertico-directory-delete-word)
-                  ("M-DEL" . vertico-directory-delete-char))
+                  ("DEL" . vertico-directory-delete-char))
       ;; Tidy shadowed file names
       :hook (rfn-eshadow-update-overlay . vertico-directory-tidy))
 
@@ -482,14 +508,17 @@
       :config
       (setq consult-fontify-max-size 1024)
       :bind
-      ("C-x b" . consult-buffer)
+      (("C-x b" . consult-buffer)
       ("C-c <C-m>" . consult-global-mark)
       ("C-c C-a" . consult-org-agenda)
-      ("C-x O" . consult-outline)
+      ("C-x O" . consult-org-heading)
       ("M-g M-g" . consult-goto-line)
       ("M-g i" . consult-imenu)
       ("M-s s" . consult-line)
-      ("M-s M-s" . consult-line-multi))
+      ("M-s M-s" . consult-line-multi)
+:map minibuffer-local-map
+      ("C-j" . next-line)
+      ("C-k" . previous-line)))
 
     (use-package embark
       :bind
@@ -587,13 +616,13 @@
 ;;   ([remap describe-key] . helpful-key))
 
 (use-package helpful
-  :custom
-  (help-select-window t)
   :bind
   (("C-h f" . helpful-callable)
    ("C-h v" . helpful-variable)
    ("C-h k" . helpful-key)
-   ("C-h C-." . helpful-at-point)))
+   ("C-h C-." . helpful-at-point))
+  :config
+  (setq help-window-select nil))
 
 (use-package hydra)
 
@@ -1223,7 +1252,7 @@
 (use-package projectile
   :diminish projectile-mode
   :config (projectile-mode)
-  :custom ((projectile-completion-system 'ivy)) ;; integrate ivy into completion system
+  :custom ((projectile-completion-system 'auto)) ;; integrate ivy into completion system
   :bind-keymap
   ("C-c p" . projectile-command-map) ; all projectile commands under this
   :init
@@ -1248,12 +1277,14 @@
     :config
     (setq magit-repository-directories `((,swarsel-projects-directory  . 1)
                                          (,swarsel-emacs-directory . 0)
-                                       (,swarsel-obsidian-directory . 0)))
+                                         (,swarsel-obsidian-directory . 0)
+                                         ("~/.dotfiles/" . 0)))
     :custom
     (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)) ; stay in the same window
 
   ;; yubikey support for pushing commits
   ;; commiting is enabled through nixos gpg-agent config
+(setq epg-pinentry-mode 'loopback)
   (setenv "SSH_AUTH_SOCK" (string-chop-newline (shell-command-to-string "gpgconf --list-dirs agent-ssh-socket")))
 
 (use-package forge
@@ -1382,23 +1413,23 @@
   ;; Bind dedicated completion commands
   ;; Alternative prefix keys: C-c p, M-p, M-+, ...
   :bind
-  ("C-c p p" . completion-at-point) ;; capf
+  ("C-z p" . completion-at-point) ;; capf
-  ("C-c p t" . complete-tag)        ;; etags
+  ("C-z t" . complete-tag)        ;; etags
-  ("C-c p d" . cape-dabbrev)        ;; or dabbrev-completion
+  ("C-z d" . cape-dabbrev)        ;; or dabbrev-completion
-  ("C-c p h" . cape-history)
+  ("C-z h" . cape-history)
-  ("C-c p f" . cape-file)
+  ("C-z f" . cape-file)
-  ("C-c p k" . cape-keyword)
+  ("C-z k" . cape-keyword)
-  ("C-c p s" . cape-elisp-symbol)
+  ("C-z s" . cape-elisp-symbol)
-  ("C-c p e" . cape-elisp-block)
+  ("C-z e" . cape-elisp-block)
-  ("C-c p a" . cape-abbrev)
+  ("C-z a" . cape-abbrev)
-  ("C-c p l" . cape-line)
+  ("C-z l" . cape-line)
-  ("C-c p w" . cape-dict)
+  ("C-z w" . cape-dict)
-  ("C-c p :" . cape-emoji)
+  ("C-z :" . cape-emoji)
-  ("C-c p \\" . cape-tex)
+  ("C-z \\" . cape-tex)
-  ("C-c p _" . cape-tex)
+  ("C-z _" . cape-tex)
-  ("C-c p ^" . cape-tex)
+  ("C-z ^" . cape-tex)
-  ("C-c p &" . cape-sgml)
+  ("C-z &" . cape-sgml)
-  ("C-c p r" . cape-rfc1345)
+  ("C-z r" . cape-rfc1345)
   ;; Add to the global default value of `completion-at-point-functions' which is
   ;; used by `completion-at-point'.  The order of the functions matters, the
   ;; first function returning a result wins.  Note that the list of buffer-local
@@ -1521,7 +1552,7 @@
   ((prog-mode
     org-mode) . diff-hl-mode)
   :init
-  (diff-fl-flydiff-mode)
+  (diff-hl-flydiff-mode)
   (diff-hl-margin-mode)
   (diff-hl-show-hunk-mouse-mode))
 
@@ -1630,15 +1661,14 @@
            ("u" . "\\cup")
            ("0" . "\\emptyset")))
 
-
+   ;; (yas-define-snippets
-  (yas-define-snippets
+   ;;  'latex-mode
-   'latex-mode
+   ;;  (mapcar
-   (mapcar
+   ;;   (lambda (elem)
-    (lambda (elem)
+   ;;     (let ((key (car elem))
-      (let ((key (car elem))
+   ;;           (value (cdr elem)))
-            (value (cdr elem)))
+   ;;       (list (concat wtf/latex-math-prefix key) value (concat "Math symbol " value))))
-        (list (concat wtf/latex-math-prefix key) value (concat "Math symbol " value))))
+   ;; swtf/latex-math-symbols))
-    swtf/latex-math-symbols))
 )
 
 (defun duplicate-line (arg)
@@ -2106,6 +2136,7 @@
         dashboard-image-banner-max-height 300
         dashboard-startup-banner "~/.dotfiles/wallpaper/swarsel.png"
         dashboard-projects-backend 'projectile
+        dashboard-projects-switch-function 'magit-status
         dashboard-set-navigator t
         dashboard-startupify-list '(dashboard-insert-banner
                                     dashboard-insert-newline
@@ -2147,7 +2178,6 @@
             (lambda (&rest _) (browse-url "swarsel.win")))
            )
           )))
-  (setq dashboard-projects-switch-function 'project-switch-project)
 
 (setq gc-cons-threshold (* 800 1000 ))
 (fset 'epg-wait-for-status 'ignore)

scripts/editor.sh

@@ -7,7 +7,7 @@ if [ "$STR" == "" ]; then
 else
     VAR="0"
 fi
-emacsclient -c -a "" "$@"
+emacsclient -c -a "" "$@" # open emacs in a new frame, start new daemon if it is dead and open arg
 if [ "$VAR" == "1" ]
 then
     swaymsg '[title="kittyterm"]' scratchpad show