mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 16:24:18 +00:00
Debian specific emacs 26.1 incompatible changes
This commit is contained in:
parent
e50fa3e7e0
commit
d86094cc3d
3 changed files with 17 additions and 11 deletions
|
|
@ -639,16 +639,17 @@
|
|||
#+end_src
|
||||
** Youtube-dl
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-to-list 'load-path "~/.emacs.d/submodule/youtube-dl-emacs/")
|
||||
(require 'youtube-dl)
|
||||
(when (executable-find "youtube-dl")
|
||||
(add-to-list 'load-path "~/.emacs.d/submodule/youtube-dl-emacs/")
|
||||
(require 'youtube-dl)
|
||||
|
||||
(defun youtube-dl-song (url)
|
||||
(interactive
|
||||
(list (read-from-minibuffer
|
||||
"URL: " (or (thing-at-point 'url)
|
||||
(when interprogram-paste-function
|
||||
(funcall interprogram-paste-function))))))
|
||||
(async-shell-command (format "youtube-dl -x -f \"bestaudio[ext=m4a]\" \"%s\"; tageditor -s album=\"youtube-dl\" -f *.m4a" url)))
|
||||
(defun youtube-dl-song (url)
|
||||
(interactive
|
||||
(list (read-from-minibuffer
|
||||
"URL: " (or (thing-at-point 'url)
|
||||
(when interprogram-paste-function
|
||||
(funcall interprogram-paste-function))))))
|
||||
(async-shell-command (format "youtube-dl -x -f \"bestaudio[ext=m4a]\" \"%s\"; tageditor -s album=\"youtube-dl\" -f *.m4a" url))))
|
||||
#+END_SRC
|
||||
** set-default-directory
|
||||
#+begin_src emacs-lisp
|
||||
|
|
|
|||
|
|
@ -756,11 +756,12 @@
|
|||
#+begin_src emacs-lisp
|
||||
(require 'light-default-theme)
|
||||
(require 'dark-default-theme)
|
||||
(use-package modus-operandi-theme)
|
||||
|
||||
(defvar current-theme 'dark)
|
||||
|
||||
(defvar light-theme 'modus-operandi)
|
||||
(when (>= emacs-major-version 27)
|
||||
(use-package modus-operandi-theme)
|
||||
(defvar light-theme 'modus-operandi))
|
||||
(defvar dark-theme 'calm-forest)
|
||||
|
||||
(defun switch-themes ()
|
||||
|
|
|
|||
4
init.el
4
init.el
|
|
@ -13,6 +13,10 @@
|
|||
;; activate all the packages (in particular autoloads)
|
||||
(package-initialize)
|
||||
|
||||
(when (<= emacs-major-version 26)
|
||||
(setq gnutls-algorithm-priority
|
||||
"NORMAL:-VERS-TLS1.3"))
|
||||
|
||||
(when (not package-archive-contents)
|
||||
(package-refresh-contents))
|
||||
;; fetch the list of packages available
|
||||
|
|
|
|||
Loading…
Reference in a new issue