diff options
Diffstat (limited to '.config/emacs/init.el')
-rw-r--r-- | .config/emacs/init.el | 107 |
1 files changed, 70 insertions, 37 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 493f554..2186262 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -141,9 +141,7 @@ (defun dired-set-wallpaper () "Set NAME as wallpaper using feh." (interactive) - (let ((command (if is-zeus "swaybg -o DP-2 -i" "feh --bg-scale"))) - (call-process-shell-command - (format "%s %s" command (dired-get-filename)) nil 0))) + (thanos/wallpaper-set (dired-get-filename))) (defun dired-delete-files-except () "Delete all files inside directory except match." @@ -157,12 +155,12 @@ (string-match except-match file)) (dired-delete-file file t))))) - (defun dired-delete-file-match () + (defun dired-delete-files-match (&optional directory match) "Delete all files inside directory except match." (interactive) - (let* ((directory (read-directory-name "Select directory: ")) + (let* ((directory (or directory (read-directory-name "Select directory: "))) (files (directory-files directory t)) - (match (read-string "Delete files that match: "))) + (match (or match (read-string "Delete files that match: ")))) (dolist (file files) (when (string-match-p match file) (dired-delete-file file t))))) @@ -214,8 +212,7 @@ ;; Transparency (add-to-list 'default-frame-alist '(alpha-background . 85)) -;; theming -;; (global-hl-line-mode) +;; Theming (global-visual-line-mode) (defun thanos/terminal-theming () @@ -234,16 +231,13 @@ (tooltip-mode -1) (menu-bar-mode -1) -;; (when is-zeus -;; (guix-emacs-autoload-packages)) - (use-package org :ensure t :config (setf org-directory "~/org/" org-agenda-files '("~/org/seminars.org" "~/org/lectures.org") org-default-notes-file (expand-file-name "notes.org" org-directory) - org-ellipsis " ▼ " + org-ellipsis " " org-log-done 'time org-hide-emphasis-markers nil ;;change to t to hide emphasis markers org-table-convert-region-max-lines 20000 @@ -256,12 +250,45 @@ ("l" . "src lisp") ("b" . "src bash") ("q" . "QUOTE"))) + + ;; Export + (add-to-list 'org-latex-classes + '("article" + "\\documentclass[11pt,a4paper]{article} +\\usepackage[utf8]{inputenc} +\\usepackage[T1]{fontenc} +\\usepackage{fixltx2e} +\\usepackage{graphicx} +\\usepackage{longtable} +\\usepackage{float} +\\usepackage{wrapfig} +\\usepackage{rotating} +\\usepackage[normalem]{ulem} +\\usepackage{amsmath} +\\usepackage{textcomp} +\\usepackage{marvosym} +\\usepackage{wasysym} +\\usepackage{amssymb} +\\usepackage{hyperref} +\\usepackage{mathpazo} +\\usepackage{color} +\\usepackage{enumerate} +\\definecolor{bg}{rgb}{0.95,0.95,0.95} +\\tolerance=1000 + [NO-DEFAULT-PACKAGES] + [PACKAGES] + [EXTRA] +\\linespread{1.1} +\\hypersetup{pdfborder=0 0 0}" + ("\\section{%s}" . "\\section*{%s}") + ("\\subsection{%s}" . "\\subsection*{%s}") + ("\\subsubsection{%s}" . "\\subsubsection*{%s}") + ("\\paragraph{%s}" . "\\paragraph*{%s}"))) :hook ((org-mode . org-auto-tangle-mode) (org-mode . (lambda () (display-line-numbers-mode -1) (flyspell-mode)))) - :bind (:map org-mode-map - (("C-c l" . org-store-link) - ("C-c M-t" . org-todo)))) + :bind (:map org-mode-map (("C-c l" . org-store-link) + ("C-c M-t" . org-todo)))) (defun org-insert-book () "Insert org-link from ~/Library for book." @@ -354,9 +381,6 @@ (use-package org-roam-ui :defer t) -;; (use-package jabber -;; :defer t) - (use-package modus-themes :straight t :config @@ -372,8 +396,7 @@ modus-themes-org-blocks 'tinted-background) ;; Palette overrides (setf modus-themes-common-palette-overrides - '(;; (fg-line-number-inactive "gray40") - (fg-line-number-active cyan-intense) + '((fg-line-number-active cyan-intense) ;; (bg-main "#1d2021") ;;grubox-hard ;; (bg-main "#191919") ;; 1337 ;; (bg-main "#1d1f21") ;; tomorrow night @@ -452,17 +475,6 @@ :config (which-key-mode 1)) -(defun elfeed-mpv (&optional use-generic-p) - "Play video link with mpv." - (interactive "P") - (let ((entries (elfeed-search-selected))) - (cl-loop for entry in entries - do (elfeed-untag entry 'unread) - when (elfeed-entry-link entry) - do (start-process-shell-command "elfeed-video" nil (format "mpv \"%s\"" it))) - (mapc #'elfeed-search-update-entry entries) - (unless (use-region-p) (forward-line)))) - (use-package elfeed :defer t :config @@ -486,16 +498,30 @@ ("http://rss-bridge.thanosapollo.org/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fmedfac.mu-sofia.com%2Fen%2Fnews%2F&url_selector=div.news-card&url_pattern=%2F*&content_selector=article.richtext-area&content_cleanup=&title_cleanup=&limit=&format=Atom" musofia med) ("http://rss-bridge.thanosapollo.org/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fedition.cnn.com%2Fworld%2Feurope&url_selector=a.container__link--type-article&url_pattern=&content_selector=div.article__content&content_cleanup=&&title_cleanup=-+breaking+news%2C+video%2C+headlines+and+opinion&limit=&format=Atom" news cnn europe) ("http://rss-bridge.thanosapollo.org/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fedition.cnn.com%2Fworld%2Famericas&url_selector=a.container__link--type-article&url_pattern=&content_selector=div.article__content&content_cleanup=div.data-uri&title_cleanup=-+breaking+news%2C+video%2C+headlines+and+opinion&limit=&format=Atom" news cnn americas) - ("https://annas-blog.org/rss.xml" - anna piracy) ("https://rss-bridge.thanosapollo.org/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.theguardian.com%2Feurope&url_selector=a.dcr-lv2v9o&url_pattern=&content_selector=div.article-body-commercial-selector&content_cleanup=figure.dcr-173mewl%2C+div.dcr-ut4tvs&title_cleanup=News%2C+sport+and+opinion+from+the+Guardian%27s+Europe+edition+%7C&limit=&format=Atom" news guardian europe) + ("https://rss-bridge.thanosapollo.org/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.tovima.gr%2Flatest-news%2F&url_selector=a.columns&url_pattern=&content_selector=div.main-content&content_cleanup=div.wrap-facebook%2Cdiv.googlenews&title_cleanup=&limit=&format=Atom" tovima greek news) + ("https://rss-bridge.thanosapollo.org/?action=display&bridge=CssSelectorBridge&home_page=https%3A%2F%2Fwww.tovima.gr%2Fcategory%2Fscience%2F&url_selector=a.columns&url_pattern=&content_selector=div.main-content&content_cleanup=div.wrap-facebook%2Cdiv.googlenews&title_cleanup=&limit=&format=Atom" tovima greek science) + ("https://annas-blog.org/rss.xml" anna piracy) ("https://planet.emacslife.com/atom.xml" emacs emacslife) ("https://localmonero.co/static/rss/the-monero-standard/feed.xml" monero) ("https://devonzuegel.com/feed" devon) ("https://www.addtoany.com/add_to/feed?linkurl=http%3A%2F%2Fwww.thelancet.com%2Frssfeed%2Flancet_online.xml&type=feed&linkname=The%20Lancet%20Online%20First&linknote=" lancet med) ("http://tools.cdc.gov/podcasts/feed.asp?feedid=183" cdc med) ("http://planet.lisp.org/rss20.xml" lisp planetlisp) - ("https://guix.gnu.org/feeds/blog.atom" guix))) + ("https://guix.gnu.org/feeds/blog.atom" guix) + ("https://protesilaos.com/master.xml" prot))) + + (defun elfeed-mpv (&optional use-generic-p) + "Play video link with mpv." + (interactive "P") + (let ((entries (elfeed-search-selected))) + (cl-loop for entry in entries + do (elfeed-untag entry 'unread) + when (elfeed-entry-link entry) + do (start-process-shell-command "elfeed-video" nil (format "mpv \"%s\"" it))) + (mapc #'elfeed-search-update-entry entries) + (unless (use-region-p) (forward-line)))) + :bind (("C-x f" . elfeed) :map elfeed-search-mode-map ("v" . 'elfeed-mpv) @@ -1133,6 +1159,13 @@ Create a temporary frame to execute BODY, which will then be deleted." ("crun checkpatch script" . my-mu4e-action-run-check-patch) ("MCheck if merged" . my-mu4e-action-check-if-merged))))) + (define-minor-mode mu4e-mode + "Fix for mu4e mode guix (undefined)." + :global t + :group 'mu4e + :lighter nil + (message "mu4e mode")) + :bind (("C-x m" . 'mu4e)) :hook ;; Sign messages @@ -1209,20 +1242,20 @@ Create a temporary frame to execute BODY, which will then be deleted." (call-process-shell-command "kill -15 $(pgrep swaybg | tail -n 1)") ;; Set wallpaper (call-process-shell-command - (format "%s %s%s -m stretch" command wallpapers-dir image) + (format "%s %s -m stretch" command image) nil 0))) (defun thanos/wallpaper-random () "Set random wallpaper." (interactive) (let ((wallpapers (directory-files "~/wallpapers" nil "^[^.].*"))) - (thanos/wallpaper-set (nth (random (length wallpapers)) wallpapers)))) + (thanos/wallpaper-set (format "%s%s" wallpapers-dir (nth (random (length wallpapers)) wallpapers))))) (defun thanos/wallpaper-select () "Set wallpaper." (interactive) (let ((wallpaper (completing-read "Choose wallpaper: " (directory-files wallpapers-dir nil "^[^.].*")))) - (thanos/wallpaper-set wallpaper))) + (thanos/wallpaper-set (format "%s%s" wallpapers-dir wallpaper)))) (defvar-keymap thanos/applications-map :doc "Thanos commonly used programs" |