diff options
| -rw-r--r-- | .emacs.d/org/config.el | 718 |
1 files changed, 0 insertions, 718 deletions
diff --git a/.emacs.d/org/config.el b/.emacs.d/org/config.el deleted file mode 100644 index ecaf1da..0000000 --- a/.emacs.d/org/config.el +++ /dev/null @@ -1,718 +0,0 @@ -(setq x-alt-keysym 'meta) -(set-keyboard-coding-system 'utf-8) - -(menu-bar-mode -1) -(tool-bar-mode -1) -(scroll-bar-mode -1) -(blink-cursor-mode 0) - -(set-frame-font "mononoki Nerd Font:pixelsize=15" nil t) -(add-hook 'prog-mode-hook 'display-line-numbers-mode) -(add-hook 'text-mode-hook 'display-line-numbers-mode) - -(setq scroll-step 5) -(setq scroll-margin 3) -(setq echo-keystrokes 0.1) -(setq initial-scratch-message nil) -(defalias 'yes-or-no-p 'y-or-n-p) - -(setq backup-directory-alist '(("." . "~/.emacs.d/backup")) - backup-by-copying t - version-control t - delete-old-versions t - kept-new-versions 20 - kept-old-versions 5) - -(require 'package) -(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/")) -(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/")) -(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/1")) - -(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e") -(autoload 'mu4e "mu4e" "Launch mu4e and show the main window" t) -(add-to-list 'load-path "/home/jozan/.emacs.d/sunrise-commander/") -(autoload 'sunrise "sunrise.el" "qweqwe" t) -(add-to-list 'load-path "/home/jozan/.emacs.d/font-lock+") -(add-to-list 'load-path "/home/jozan/.emacs.d/all-the-icons/") -(add-to-list 'load-path "/home/jozan/.emacs.d/all-the-icons-dired/") -(add-to-list 'load-path "/home/jozan/.emacs.d/icons-in-terminal.el/") -(add-to-list 'load-path "/home/jozan/.emacs.d/gas-mode/") -(autoload 'gas-mode "gas-mode" "AT&T syntax for assembly code" t) -(add-to-list 'load-path "/home/jozan/.emacs.d/monk-8/") -(autoload 'monk "monk" "Cool CD player" t) - -(setq package-enable-at-startup nil) -(setq package-check-signature nil) -(package-initialize) - -;; set key for agenda -(require 'org) -(global-set-key (kbd "C-c a") 'org-agenda) - -;;file to save todo items -(setq org-agenda-files (quote ("~/.emacs.d/org/todo/todo.org"))) - -;;set priority range from A to C with default A -(setq org-highest-priority ?A) -(setq org-lowest-priority ?C) -(setq org-default-priority ?A) - -;;set colours for priorities -(setq org-priority-faces '((?A . (:foreground "#F0DFAF" :weight bold)) - (?B . (:foreground "LightSteelBlue")) - (?C . (:foreground "OliveDrab")))) - -;;open agenda in current window -(setq org-agenda-window-setup (quote current-window)) - -;;capture todo items using C-c C-t t -(define-key global-map (kbd "C-c C-t") 'org-capture) -(setq org-capture-templates - '(("t" "todo" entry (file+headline "/home/jozan/.emacs.d/org/todo/todo.org" "Tasks") - "* TODO [#A] %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n"))) - -;;open agenda in current window -(setq org-agenda-window-setup (quote current-window)) -;;warn me of any deadlines in next 7 days -(setq org-deadline-warning-days 7) -;;show me tasks scheduled or due in next fortnight -(setq org-agenda-span (quote fortnight)) -;;don't show tasks as scheduled if they are already shown as a deadline -(setq org-agenda-skip-scheduled-if-deadline-is-shown t) -;;don't give awarning colour to tasks with impending deadlines -;;if they are scheduled to be done -(setq org-agenda-skip-deadline-prewarning-if-scheduled (quote pre-scheduled)) -;;don't show tasks that are scheduled or have deadlines in the -;;normal todo list -(setq org-agenda-todo-ignore-deadlines (quote all)) -(setq org-agenda-todo-ignore-scheduled (quote all)) -;;sort tasks in order of when they are due and then by priority -(setq org-agenda-sorting-strategy - (quote - ((agenda deadline-up priority-down) - (todo priority-down category-keep) - (tags priority-down category-keep) - (search category-keep)))) - -(org-babel-do-load-languages - 'org-babel-load-languages '((C . t ))) -(org-babel-do-load-languages - 'org-babel-load-languages '((lisp . t))) - -(setq evil-want-integration t) ;; This is optional since it's already set to t by default. -(setq evil-want-keybinding nil) -(setq evil-want-C-u-scroll t) -(require 'evil) -(require 'evil-org) -(require 'evil-magit) -(require 'evil-mu4e) -(require 'evil-collection) -(evil-mode t) -;; (evil-collection-init) - - -(setq evil-emacs-state-cursor '("#b16286" box)) -(setq evil-normal-state-cursor '("#d79921" box)) -(setq evil-visual-state-cursor '("#b16286" box)) -(setq evil-insert-state-cursor '("#d79921" bar)) -(setq evil-replace-state-cursor '("#cc241d" hbar)) -(setq evil-operator-state-cursor '("#d79921" hbar)) - - -(evil-define-key 'insert global-map (kbd "C-o") 'delete-other-windows) -(evil-define-key 'insert global-map (kbd "C-k") 'windmove-up) -(evil-define-key 'insert global-map (kbd "C-j") 'windmove-down) -(evil-define-key 'insert global-map (kbd "C-h") 'windmove-left) -(evil-define-key 'insert global-map (kbd "C-l") 'windmove-right) -(evil-define-key 'normal global-map (kbd "C-o") 'delete-other-windows) -(evil-define-key 'normal global-map (kbd "C-k") 'windmove-up) -(evil-define-key 'normal global-map (kbd "C-j") 'windmove-down) -(evil-define-key 'normal global-map (kbd "C-h") 'windmove-left) -(evil-define-key 'normal global-map (kbd "C-l") 'windmove-right) - -(global-evil-leader-mode) -(evil-leader/set-leader ",") -(setq evil-leader/in-all-states 1) - -(require 'evil-search-highlight-persist) -(global-evil-search-highlight-persist 1) - -(evil-leader/set-key "SPC" 'evil-search-highlight-persist-remove-all) - -(require 'centaur-tabs) -(centaur-tabs-mode t) -(centaur-tabs-group-by-projectile-project) - -(evil-define-key 'insert global-map (kbd "M-k") 'centaur-tabs-backward) -(evil-define-key 'insert global-map (kbd "M-j") 'centaur-tabs-forward) -(evil-define-key 'normal global-map (kbd "M-k") 'centaur-tabs-backward) -(evil-define-key 'normal global-map (kbd "M-j") 'centaur-tabs-forward) -(global-set-key (kbd "M-k") 'centaur-tabs-backward) -(global-set-key (kbd "M-j") 'centaur-tabs-forward) - -(setq centaur-tabs-set-icons t - centaur-tabs-gray-out-icons 'buffer - centaur-tabs-set-close-button nil - centaur-tabs-set-modified-marker t - centaur-tabs-modified-marker "[+]" - centaur-tabs-height 24 - centaur-tabs-style "bar" - centaur-tabs-set-bar 'left) - -(defun centaur-tabs-hide-tab (x) - (let ((name (format "%s" x))) - (or - (string-prefix-p "*epc" name) - (string-prefix-p "*helm" name) - (string-prefix-p "*Helm" name) - (string-prefix-p "*Compile-Log*" name) - (string-prefix-p "*lsp" name) - (string-prefix-p "*elfeed-log*" name) - (string-prefix-p "*scratch*" name) - (string-prefix-p "*Messages*" name) - (string-prefix-p "todo.org" name) - (and (string-prefix-p "magit" name) - (not (file-name-extension name)))))) - -(add-hook 'dashboard-mode-hook #'centaur-tabs-local-mode) -(add-hook 'neotree-mode-hook #'centaur-tabs-local-mode) -(add-hook 'calendar-mode-hook #'centaur-tabs-local-mode) -(add-hook 'org-agenda-mode-hook #'centaur-tabs-local-mode) -(add-hook 'helpful-mode-hook #'centaur-tabs-local-mode) -(add-hook 'term-mode-hook #'centaur-tabs-local-mode) - -(require 'dashboard) -(dashboard-setup-startup-hook) - -(setq dashboard-banner-logo-title "Welcome back to Emacs, partner!" - dashboard-startup-banner 'official - dashboard-set-init-info nil - dashboard-set-footer nil - dashboard-center-content t - dashboard-show-shortcuts nil - dashboard-set-heading-icons t - dashboard-set-file-icons nil - dashboard-set-navigator t - show-week-agenda-p t) - -(setq dashboard-items '((projects . 10) - (recents . 15) - (agenda . 5))) - -(add-to-list 'evil-emacs-state-modes 'dashboard-mode) - -(require 'golden-ratio) -(golden-ratio-mode 1) -(setq golden-ratio-adjust-factor .9 - golden-ratio-wide-adjust-factor .9) - -(require 'org-mime) -(require 'mu4e) -(require 'cl) - -(setq mu4e-maildir (expand-file-name "/home/jozan/Maildir")) - -(setq mu4e-get-mail-command "/usr/local/bin/mbsync -c /home/jozan/.emacs.d/mu4e/.mbsyncrc -a") -(setq mu4e-update-interval 300) -(setq mu4e-index-update-in-background t) -(setq mu4e-headers-auto-update t) -(setq mu4e-index-update-error-warning t) -(setq mu4e-compose-signature-auto-include nil) -(setq mu4e-compose-format-flowed t) -(setq mu4e-view-prefer-html t) -(add-to-list 'mu4e-view-actions - '("ViewInBrowser" . mu4e-action-view-in-browser) t) - -;; enable inline images -(setq mu4e-view-show-images t) - -;; use imagemagick, if available -(when (fboundp 'imagemagick-register-types) - (imagemagick-register-types)) - -;; every new email composition gets its own frame! -(setq mu4e-compose-in-new-frame t) - -;; don't save message to Sent Messages, IMAP takes care of this -(setq mu4e-sent-messages-behavior 'delete) - -(add-hook 'mu4e-view-mode-hook #'visual-line-mode) - -;; <tab> to navigate to links, <RET> to open them in browser -(add-hook 'mu4e-view-mode-hook - (lambda() - ;; try to emulate some of the eww key-bindings - (local-set-key (kbd "<RET>") 'mu4e~view-browse-url-from-binding) - (local-set-key (kbd "<tab>") 'shr-next-link) - (local-set-key (kbd "<backtab>") 'shr-previous-link))) - -;; from https://www.reddit.com/r/emacs/comments/bfsck6/mu4e_for_dummies/elgoumx -(add-hook 'mu4e-headers-mode-hook - (defun my/mu4e-change-headers () - (interactive) - (setq mu4e-headers-fields - `((:human-date . 25) ;; alternatively, use :date - (:flags . 6) - (:from . 22) - (:thread-subject . ,(- (window-body-width) 70)) ;; alternatively, use :subject - (:size . 7))))) - -;; spell check -(add-hook 'mu4e-compose-mode-hook - (defun my-do-compose-stuff () - "My settings for message composition." - (visual-line-mode) - (org-mu4e-compose-org-mode) - (use-hard-newlines -1) - (flyspell-mode))) - -(require 'smtpmail) - -;;rename files when moving -;;NEEDED FOR MBSYNC -(setq mu4e-change-filenames-when-moving t) - -;;set up queue for offline email -;;use mu mkdir ~/Maildir/acc/queue to set up first -(setq smtpmail-queue-mail nil) ;; start in normal mode - -;;from the info manual -(setq mu4e-attachment-dir "/home/jozan/Downloads") - -(setq message-kill-buffer-on-exit t) -(setq mu4e-compose-dont-reply-to-self t) -(setq mu4e-completing-read-function 'completing-read) - -;; (require 'org-mu4e) - -;; convert org mode to HTML automatically -;; (setq org-mu4e-convert-to-html t) - -;;from vxlabs config -;; show full addresses in view message (instead of just names) -;; toggle per name with M-RET -(setq mu4e-view-show-addresses 't) - -;; don't ask when quitting -(setq mu4e-confirm-quit nil) - -;; mu4e-context -(setq mu4e-context-policy 'pick-first) -(setq mu4e-compose-context-policy 'always-ask) -(setq mu4e-contexts - (list - (make-mu4e-context - :name "work" ;;for acc1-gmail - :enter-func (lambda () (mu4e-message "Entering context work")) - :leave-func (lambda () (mu4e-message "Leaving context work")) - :match-func (lambda (msg) - (when msg - (mu4e-message-contact-field-matches - msg '(:from :to :cc :bcc) "bousset.rudy@gmail.com"))) - :vars '((user-mail-address . "bousset.rudy@gmail.com") - (user-full-name . "Rudy Bousset") - (mu4e-sent-folder . "/acc1-gmail/[acc1].Sent Mail") - (mu4e-drafts-folder . "/acc1-gmail/[acc1].drafts") - (mu4e-trash-folder . "/acc1-gmail/[acc1].Trash") - (mu4e-compose-signature . (concat "Formal Signature\n" " ")) - (mu4e-compose-format-flowed . t) - (smtpmail-queue-dir . "~/Maildir/acc1-gmail/queue/cur") - ;; (message-send-mail-function . smtpmail-send-it) - (smtpmail-smtp-user . "bousset.rudy") - ;; (smtpmail-starttls-credentials . (("smtp.gmail.com" 587 nil nil))) - ;; (smtpmail-auth-credentials . (expand-file-name "~/.authinfo.gpg")) - (smtpmail-default-smtp-server . "smtp.gmail.com") - (smtpmail-smtp-server . "smtp.gmail.com") - (smtpmail-smtp-service . 587) - (smtpmail-debug-info . t) - (smtpmail-debug-verbose . t) - (mu4e-maildir-shortcuts . ( ("/acc1-gmail/INBOX" . ?i) - ("/acc1-gmail/[acc1].Sent Mail" . ?s) - ("/acc1-gmail/[acc1].Trash" . ?t) - ("/acc1-gmail/[acc1].All Mail" . ?a) - ("/acc1-gmail/[acc1].Starred" . ?r) - ("/acc1-gmail/[acc1].drafts" . ?d) - )))))) - -(require 'mu4e-alert) -(mu4e-alert-set-default-style 'libnotify) -(add-hook 'after-init-hook #'mu4e-alert-enable-notifications) -(add-hook 'after-init-hook #'mu4e-alert-enable-mode-line-display) - -(require 'w3m-load) -(setq w3m-home-page "https://start.duckduckgo.com/") -(setq w3m-default-display-inline-images t) - -(require 'origami) -(add-hook 'prog-mode-hook 'origami-mode) - -(require 'neotree) -(setq neo-vc-integration '(face)) -(evil-define-key 'normal neotree-mode-map (kbd "TAB") 'neotree-enter) -(evil-define-key 'normal neotree-mode-map (kbd "SPC") 'neotree-quick-look) -(evil-define-key 'normal neotree-mode-map (kbd "q") 'neotree-hide) -(evil-define-key 'normal neotree-mode-map (kbd "RET") 'neotree-enter) -(evil-define-key 'normal neotree-mode-map (kbd "g") 'neotree-refresh) -(evil-define-key 'normal neotree-mode-map (kbd "n") 'neotree-next-line) -(evil-define-key 'normal neotree-mode-map (kbd "p") 'neotree-previous-line) -(evil-define-key 'normal neotree-mode-map (kbd "A") 'neotree-stretch-toggle) -(evil-define-key 'normal neotree-mode-map (kbd "H") 'neotree-hidden-file-toggle) -(evil-define-key 'normal neotree-mode-map (kbd "|") 'neotree-enter-vertical-split) -(evil-define-key 'normal neotree-mode-map (kbd "S") 'neotree-enter-vertical-split) -(evil-define-key 'normal neotree-mode-map (kbd "/") 'neotree-enter-horizontal-split) -(evil-define-key 'normal neotree-mode-map (kbd "s") 'neotree-enter-horizontal-split) - -(require 'helm-config) -(require 'helm-misc) -(require 'helm-projectile) -(require 'helm-locate) - -(global-set-key (kbd "M-x") 'helm-M-x) -(global-set-key (kbd "C-x C-f") #'helm-find-files) -(global-set-key (kbd "M-p") #'helm-projectile-switch-project) -(global-set-key (kbd "C-x C-b") #'helm-buffers-list) -(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action) -(define-key helm-map (kbd "C-i") 'helm-execute-persistent-action) -(define-key helm-map (kbd "C-z") 'helm-select-action) - -(setq helm-quick-update t - helm-bookmark-show-location t - helm-buffers-fuzzy-matching t - helm-make-executable "/usr/local/bin/gmake" - helm-make-nproc 5 - helm-split-window-in-side-p t) - -(defun helm-my-buffers () - (interactive) - (let ((helm-ff-transformer-show-only-basename nil)) - (helm-other-buffer '(helm-c-source-buffers-list - helm-c-source-elscreen - helm-c-source-projectile-files-list - helm-c-source-ctags - helm-c-source-recentf - helm-c-source-locate) - "*helm-my-buffers*"))) - -(helm-mode 1) -(projectile-mode +1) - -(setq display-time-string-forms - '((propertize (concat " " 24-hours ":" minutes " ")))) - -(require 'doom-modeline) -(doom-modeline-mode 1) -(setq doom-modeline-height 1) -(setq doom-modeline-project-detection 'projectile) -(setq doom-modeline-buffer-file-name-style 'truncate-upto-project) -(setq doom-modeline-icon (display-graphic-p)) -(setq doom-modeline-major-mode-icon t) -(setq doom-modeline-major-mode-color-icon t) -(setq doom-modeline-buffer-state-icon t) -(setq doom-modeline-buffer-modification-icon t) -(setq doom-modeline-unicode-fallback t) -(setq doom-modeline-enable-word-count nil) -(setq doom-modeline-buffer-encoding nil) -(setq doom-modeline-indent-info nil) -(setq doom-modeline-checker-simple-format t) -(setq doom-modeline-number-limit 99) -(setq doom-modeline-vcs-max-length 12) -(setq doom-modeline-persp-name t) -(setq doom-modeline-lsp t) -(setq doom-modeline-github nil) -(setq doom-modeline-github-interval (* 30 60)) -(setq doom-modeline-modal-icon t) -(setq doom-modeline-mu4e t) -(setq doom-modeline-gnus nil) -(setq doom-modeline-irc t) -(setq doom-modeline-irc-stylize 'identity) -(setq doom-modeline-env-version t) -(setq doom-modeline-env-python-executable "python-shell-interpreter") -(setq doom-modeline-env-ruby-executable "ruby") -(setq doom-modeline-env-perl-executable "perl") -(setq doom-modeline-env-go-executable "go") -(setq doom-modeline-env-elixir-executable "iex") -(setq doom-modeline-env-rust-executable "rustc") -(setq doom-modeline-env-load-string "...") -(setq doom-modeline-before-update-env-hook nil) -(setq doom-modeline-after-update-env-hook nil) -;; (display-battery-mode) -(column-number-mode) -(display-time) -(doom-themes-neotree-config) - -(require 'color-identifiers-mode) -(global-color-identifiers-mode) - -(require 'rainbow-delimiters) -(add-hook 'prog-mode-hook 'rainbow-delimiters-mode) - -(require 'auto-complete) - -(require 'auto-complete-config) -(ac-config-default) - -(setq c-default-style "bsd") - -(require 'autopair) -(autopair-global-mode) - -(require 'paredit) -(defadvice paredit-mode (around disable-autopairs-around (arg)) - ad-do-it - (if (null ad-return-value) - (autopair-mode 1) - (autopair-mode -1) -)) -(ad-activate 'paredit-mode) - -(require 'magit) - -(defun my/magit-kill-buffers () - "Restore window configuration and kill all Magit buffers. -Attribution: URL `https://manuel-uberti.github.io/emacs/2018/02/17/magit-bury-buffer/'" - (interactive) - (let ((buffers (magit-mode-get-buffers))) - (magit-restore-window-configuration) - (mapc #'kill-buffer buffers))) - -(bind-key "q" #'my/magit-kill-buffers magit-status-mode-map) -(evil-define-key 'insert magit-status-mode-map (kbd "q") #'my/magit-kill-buffers) -(evil-define-key 'normal magit-status-mode-map (kbd "q") #'my/magit-kill-buffers) - -(require 'ranger) -(ranger-override-dired-mode t) -(add-hook 'dired-mode-hook 'auto-revert-mode) - -(require 'realgud-lldb) - -(defun my/toggle-window-dedicated () - "Control whether or not Emacs is allowed to display another -buffer in current window." - (interactive) - (message - (if (let (window (get-buffer-window (current-buffer))) - (set-window-dedicated-p window (not (window-dedicated-p window)))) - "%s: locked" - "%s is up for grabs") - (current-buffer))) - -(global-set-key (kbd "C-c t") 'my/toggle-window-dedicated) - -(require 'evil-nerd-commenter) -(evilnc-default-hotkeys) - -(require 'cargo) -(add-hook 'rust-mode-hook 'cargo-minor-mode) - -(require 'yasnippet) -(require 'yasnippet-snippets) -(require 'yasnippet-classic-snippets) -(require 'helm-c-yasnippet) -(yas-reload-all) -(add-hook 'prog-mode-hook #'yas-minor-mode) - -(defun minibuffer-keyboard-quit () - "Abort recursive edit. -In Delete Selection mode, if the mark is active, just deactivate it; -then it takes a second \\[keyboard-quit] to abort the minibuffer." - (interactive) - (if (and delete-selection-mode transient-mark-mode mark-active) - (setq deactivate-mark t) - (when (get-buffer "*Completions*") (delete-windows-on "*Completions*")) - (abort-recursive-edit))) -(define-key evil-normal-state-map [escape] 'keyboard-quit) -(define-key evil-visual-state-map [escape] 'keyboard-quit) -(define-key minibuffer-local-map [escape] 'minibuffer-keyboard-quit) -(define-key minibuffer-local-ns-map [escape] 'minibuffer-keyboard-quit) -(define-key minibuffer-local-completion-map [escape] 'minibuffer-keyboard-quit) -(define-key minibuffer-local-must-match-map [escape] 'minibuffer-keyboard-quit) -(define-key minibuffer-local-isearch-map [escape] 'minibuffer-keyboard-quit) -(global-set-key [escape] 'evil-exit-emacs-state) - -(defun my/insert-tab-char () - "Insert a tab char. (ASCII 9, \t)" - (interactive) - (insert "\t")) - -(define-key evil-insert-state-map [tab] 'my/insert-tab-char) -(setq-default indent-tabs-mode t) -(setq tab-always-indent 'complete) -(setq-default tab-width 4) -(setq tab-width 4) -(defvaralias 'c-basic-offset 'tab-width) -(defvaralias 'cperl-indent-level 'tab-width) - -(require 'font-lock) -(require 'font-lock+) -(require 'all-the-icons) -(load "all-the-icons-dired.el") -(add-hook 'dired-mode-hook 'all-the-icons-dired-mode) - -(require 'mingus) -(add-to-list 'evil-emacs-state-modes 'mingus-help-mode) -(add-to-list 'evil-emacs-state-modes 'mingus-playlist-mode) -(add-to-list 'evil-emacs-state-modes 'mingus-browse-mode) - -(require 'url) -(require 'elfeed) -(require 'elfeed-org) -(elfeed-org) -(setq rmh-elfeed-org-files (list "~/.emacs.d/org/elfeed/elfeed.org")) - -(defun my/elfeed-show-all () - (interactive) - (bookmark-maybe-load-default-file) - (bookmark-jump "elfeed-all")) - -(defun my/elfeed-show-news () - (interactive) - (bookmark-maybe-load-default-file) - (bookmark-jump "elfeed-news")) - -(defun my/elfeed-show-youtube () - (interactive) - (bookmark-maybe-load-default-file) - (bookmark-jump "elfeed-youtube")) - -(defun my/elfeed-load-db-and-open () - (interactive) - (elfeed-db-load) - (elfeed) - (elfeed-search-update--force)) - -(defun my/elfeed-save-db-and-bury () - (interactive) - (elfeed-db-save) - (kill-buffer "*elfeed-log*") - (kill-buffer "*elfeed-search*") - (kill-buffer "elfeed.org")) - -(defun my/elfeed-v-mpv (url) - "Watch a video from URL in MPV" - (setq quality (completing-read "Max height resolution (0 for unlimited): " '("0" "360" "480" "720" "1080"))) - (setq fmt (if (= 0 (string-to-number quality)) "" (format "--ytdl-format=bestvideo[height<=?%s]+bestaudio/best" quality))) - (async-shell-command (format "mpv \"%s\" \"%s\"" fmt url))) - - -(defun my/elfeed-view-mpv (&optional use-generic-p) - "Youtube-feed link" - (interactive "P") - (let ((entries (elfeed-search-selected))) - (cl-loop for entry in entries - do (elfeed-untag entry 'unread) - when (elfeed-entry-link entry) - do (my/elfeed-v-mpv it)) - (mapc #'elfeed-search-update-entry entries) - (unless (use-region-p) (forward-line)))) - -(defun my/elfeed-d-download (url) - "Download media links" - (async-shell-command (format "cd ~/Downloads && curl -O \"%s\"" url))) - -(defun my/elfeed-download-link (&optional use-generic-p) - "Download media links" - (interactive "P") - (let ((entries (elfeed-search-selected))) - (cl-loop for entry in entries - do (elfeed-untag entry 'unread) - when (elfeed-entry-link entry) - do (my/elfeed-d-download it)) - (mapc #'elfeed-search-update-entry entries) - (unless (use-region-p) (forward-line)))) - -(define-key elfeed-search-mode-map (kbd "q") 'my/elfeed-save-db-and-bury) -(define-key elfeed-search-mode-map (kbd "A") 'my/elfeed-show-all) -(define-key elfeed-search-mode-map (kbd "N") 'my/elfeed-show-news) -(define-key elfeed-search-mode-map (kbd "Y") 'my/elfeed-show-youtube) -(define-key elfeed-search-mode-map (kbd "v") 'my/elfeed-view-mpv) -(define-key elfeed-search-mode-map (kbd "d") 'my/elfeed-download-link) -(define-key elfeed-search-mode-map (kbd "h") 'backward-char) -(define-key elfeed-search-mode-map (kbd "j") 'forward-line) -(define-key elfeed-search-mode-map (kbd "k") 'previous-line) -(define-key elfeed-search-mode-map (kbd "l") 'forward-char) - -(add-to-list 'evil-emacs-state-modes 'elfeed-search-mode) -(add-to-list 'evil-emacs-state-modes 'elfeed-show-mode) - -(require 'which-key) -(which-key-mode) - -(require 'shell-pop) -(setq my/shell-pop-shell-type - (quote - ("ansi-term" "*ansi-term*" - (lambda nil - (ansi-term shell-pop-term-shell))))) - -(setq shell-pop-term-shell "/usr/local/bin/zsh") - -(require 'org-bullets) -(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))) - -(require 'toc-org) -(add-hook 'org-mode-hook 'toc-org-mode) -;; enable in markdown, too -(add-hook 'markdown-mode-hook 'toc-org-mode) -(define-key markdown-mode-map (kbd "\C-c\C-o") 'toc-org-markdown-follow-thing-at-point) - -(setq compilation-finish-function -(lambda (buf str) - (if (null (string-match ".*exited abnormally.*" str)) - ;;no errors, make the compilation window go away in a few seconds - (progn - (run-at-time - "0.5 sec" nil 'delete-windows-on - (get-buffer-create "*compilation*")) - (message ""))))) - -;; (defvar my/cargo-f5-minor-mode-map -;; (let ((map (make-sparse-keymap))) -;; (define-key map [f5] 'cargo-process-run) -;; map) -;; "my/cargo-f5-minor-mode keymap") - -;; (define-minor-mode my/cargo-f5-minor-mode -;; "A minor mode to execute cargo run with F5 in rust-mode only" -;; :init-value t -;; :lighter " my/cargo") - -;; (my/cargo-f5-minor-mode 0) - -;; (defun my/roff-comp () -;; ;; (interactive) -;; (defvar name) -;; (defvar ext) -;; (defvar exec) -;; (setq name (file-name-sans-extension buffer-file-name)) -;; (setq ext (file-name-extension buffer-file-name)) -;; (if (string-match "ms" ext) -;; (setq exec (format "%s%s%s%s%s%s%s" "nroff -ms " name "." ext " -Tpdf -Kutf8 -Wall > " name ".pdf"))) -;; (if (string-match "ms" ext) -;; (shell-command exec))) - -;; (add-hook 'after-save-hook 'my/roff-comp) - -(defun my/exec-f5 () - (interactive) - (defvar make) - (setq make "gmake -j5 asan") - (save-buffer) - (compile make) - (compilation-finish-function)) - -(defun my/exec-f6 () - (interactive) - (defvar exec) - (setq exec "./a.out; ret=$?; echo \"\e[1;35m~>\"; if [ $ret -ne 0 ]; then echo -n \"\e[1;31m$ret\"; if [ $ret -eq 127 ]; then echo \" - Missing a.out, comipler error! \"; exit; elif [ $ret -eq 134 ]; then echo \" - Abort! \"; elif [ $ret -eq 138 ]; then echo \" - Bus error! \"; elif [ $ret -eq 139 ]; then echo \" - Segmentation fault! \"; fi; fi; echo \"\e[1;35m\n\n.emacs v1.5 Tilde Edition by Joe\"") - (async-shell-command exec)) - -(global-set-key [f1] 'shell-pop) -(global-set-key [f2] 'neotree-toggle) -(global-set-key [f4] 'helm-make-projectile) -(global-set-key [f5] 'my/exec-f5) -(global-set-key [f6] 'my/exec-f6) -(global-set-key (kbd "C-x d") 'ranger) -(global-set-key (kbd "M-1") 'ranger) -;; (add-hook 'rust-mode-hook 'my/cargo-f5-minor-mode) - -(shell-pop--set-shell-type 'my/shell-pop-shell-type my/shell-pop-shell-type) |