update

.gitignore

@@ -0,0 +1 @@
+**/.moc/

roles/dots/files/home/.emacs.d/config.org

@@ -58,7 +58,9 @@
 - [[#exwm][EXWM]]
   - [[#setup-windows-hotkey][setup windows hotkey]]
   - [[#setup-wm][setup wm]]
-- [[#text-processor][Text Processor]]
+- [[#apps][Apps]]
+  - [[#text-processor][Text Processor]]
+  - [[#image-processor][Image Processor]]
 - [[#scripts][scripts]]
   - [[#add-projectile-project][add projectile project]]
   - [[#rest][REST]]
@@ -501,9 +503,9 @@ https://github.com/emacs-evil/evil
                     "atril" '(file))
               ;; (list (openwith-make-extension-regexp '("flac" "mp3" "wav"))
               ;;       "vlc" '(file))
-              (list (openwith-make-extension-regexp '("bmp" "jpeg" "jpg" "png" "webp"))
-                    "sxiv -t ." '(file))
-              (list (openwith-make-extension-regexp '("mpv" "mkv" "mp4"))
+              ;; (list (openwith-make-extension-regexp '("bmp" "jpeg" "jpg" "png" "webp"))
+              ;;       "nsxiv -t " '(file))
+              (list (openwith-make-extension-regexp '("mpv" "mkv" "mp4" "mov"))
                     "mpv" '(file))
               (list (openwith-make-extension-regexp '("doc" "docx" "odt"))
                     "libreoffice" '("--writer" file))
@@ -1083,6 +1085,7 @@ hot keys
 
 ; Firacode Nerd Font
 ; JetBrainsMonoNL Nerd Font
+; CaskaydiaCove Nerd Font
 
 (defun set-small-font-wayland ()
   (interactive)
@@ -1101,8 +1104,8 @@ hot keys
 (defun set-big-font ()
   (interactive)
   (set-face-attribute 'default nil
-                      :font "Firacode Nerd Font"
-                      :height 140
+                      :font "JetBrainsMonoNL Nerd Font"
+                      :height 130
                       :weight 'medium))
 
 (defun set-large-font ()
@@ -1479,10 +1482,6 @@ left=2cm, right=2cm, top=2.5cm, bottom=2.5cm — отступы от левой,
   (setq aw-swap-other-window t))
 #+end_src
 
-#+RESULTS:
-: ace-swap-window
-
-
 
 ** setup wm
 #+begin_src emacs-lisp
@@ -1492,7 +1491,15 @@ left=2cm, right=2cm, top=2.5cm, bottom=2.5cm — отступы от левой,
 ;;      user-emacs-directory))
 #+end_src
 
-* Text Processor
+* Apps
+#+begin_src emacs-lisp
+(org-babel-load-file
+    (expand-file-name
+     "lib/app.el"
+     user-emacs-directory))
+#+end_src
+
+** Text Processor
 #+begin_src emacs-lisp
 (org-babel-load-file
     (expand-file-name
@@ -1500,6 +1507,14 @@ left=2cm, right=2cm, top=2.5cm, bottom=2.5cm — отступы от левой,
      user-emacs-directory))
 #+end_src
 
+** Image Processor
+#+begin_src emacs-lisp
+(org-babel-load-file
+    (expand-file-name
+     "lib/image.el"
+     user-emacs-directory))
+#+end_src
+
 * scripts
 ** add projectile project
 #+begin_src emacs-lisp

roles/dots/files/home/.emacs.d/lib/app.el

@@ -0,0 +1,9 @@
+(defun a/nsxiv ()
+  (interactive)
+  (let ((current (dired-current-directory)))
+    (async-shell-command (concat "nsxiv " current) "*Messages*")))
+
+(defun a/pcmanfm ()
+  (interactive)
+  (let ((current (dired-current-directory)))
+    (async-shell-command (concat "pcmanfm " current) "*Messages*")))

roles/dots/files/home/.emacs.d/lib/image.el

@@ -0,0 +1,29 @@
+(defun i/move-to-new-directory ()
+  (interactive)
+  (let ((new-directory (dired-current-directory)))
+   (with-temp-buffer
+    (insert-file-contents "/tmp/curr")
+    (goto-char (point-min))
+    (while (not (eobp))
+      (let ((line (thing-at-point 'line t)))
+        (async-shell-command (concat "mv " (replace-regexp-in-string "\n" "" line) " " new-directory)))
+      (forward-line 1))
+    (message "Finish"))))
+
+
+(defun i/copy-to-new-directory ()
+  (interactive)
+  (let ((new-directory (dired-current-directory)))
+   (with-temp-buffer
+    (insert-file-contents "/tmp/curr")
+    (goto-char (point-min))
+    (while (not (eobp))
+      (let ((line (thing-at-point 'line t)))
+        (async-shell-command (concat "copy " (replace-regexp-in-string "\n" "" line) " " new-directory)))
+      (forward-line 1))
+    (message "Finish"))))
+
+
+(defun i/clear-marks ()
+  (interactive)
+  (shell-command "rm /tmp/curr"))

roles/dots/files/home/st.sh

@@ -0,0 +1,12 @@
+#!/bin/bash
+# sh bin/main_monitor.sh
+sh bin/multi_monitors -r
+sh bin/turbo_boost.sh disable
+# nitrogen --restore
+emacs --bg-daemon=main
+emacs --bg-daemon=documents
+emacs --bg-daemon=terminal
+emacs --bg-daemon=music
+emacs --bg-daemon=other
+emacs --bg-daemon=http
+emacs --bg-daemon=fm

roles/dots/files/home/sw.sh

@@ -0,0 +1,8 @@
+./bin/turbo_boost.sh disable
+# emacs --bg-daemon=main
+# emacs --bg-daemon=documents
+# emacs --bg-daemon=terminal
+# emacs --bg-daemon=music
+# emacs --bg-daemon=other
+# emacs --bg-daemon=http
+sway --unsupported-gpu