diff options
| -rw-r--r-- | view-conf.el | 60 |
1 files changed, 35 insertions, 25 deletions
diff --git a/view-conf.el b/view-conf.el index 215644b..9837079 100644 --- a/view-conf.el +++ b/view-conf.el @@ -78,6 +78,11 @@ If ARG is '(16), view the battery information." (t (user-error "Unsupported ARG: %S" arg)))) +(put 'durand-view-timers-or-temps 'repeat-map + (let ((map (make-sparse-keymap))) + (define-key map (vector ?t) 'repeat) + map)) + (define-obsolete-function-alias 'durand-view-timers 'durand-view-timers-or-temps "2020-09-02" "View the list of timers.") @@ -146,7 +151,7 @@ See the documentation for `durand-open-object' for the formats of targets.") (setq durand-open-targets - (list (list "Safari" "open" "-a" "Safari" + (list (list "safari" "open" "-a" "Safari" (list "https://www.youtube.com" "https://www.gmail.com" "https://www.facebook.com" @@ -155,11 +160,11 @@ targets.") "https://dictionary.christian-steinert.de/#home" ;; "https://wmail1.cc.ntu.edu.tw/index.php?url=https%3A%2F%2Fwmail1.cc.ntu.edu.tw%2F" )) - (list "Terminal" "open" "-a" "Terminal" (list + (list "terminal" "open" "-a" "Terminal" (list "/Users/durand/Desktop/Centre/Vidéos/" "/Users/durand/Desktop/Centre/Musique/" "/Users/durand/Downloads/")) - (list "Messenger" "open" "-a" "Messenger") + (list "messenger" "open" "-a" "Messenger") (list "temp d'écran" "open" "-b" "com.apple.systempreferences" "/System/Library/PreferencePanes/ScreenTime.prefPane"))) @@ -242,28 +247,33 @@ options to choose from." (defun durand-convert-youtube-video-to-url (video-name) "Convert VIDEO-NAME to its original url." (interactive (list (read-string "Video name: "))) - (save-match-data - (cond - ((string-match (rx "[" (group (1+ (not "]"))) "].") - video-name) - (kill-new - (concat - "https://www.youtube.com/watch?v=" - (match-string 1 video-name)))) - ((string-match "\\.[^.]+$" video-name) - ;; with extension - (kill-new - (concat - "https://www.youtube.com/watch?v=" - (substring-no-properties - video-name - (- (match-beginning 0) 11) - (match-beginning 0))))) - (t - ;; no extension - (kill-new - (concat "https://www.youtube.com/watch?v=" - (substring-no-properties video-name -11))))))) + (let (result) + (save-match-data + (cond + ((string-match (rx "[" (group (1+ (not "]"))) "].") + video-name) + (setq result (concat + "https://www.youtube.com/watch?v=" + (match-string 1 video-name))) + (kill-new result)) + ((string-match "\\.[^.]+$" video-name) + ;; with extension + (setq + result + (concat + "https://www.youtube.com/watch?v=" + (substring-no-properties + video-name + (- (match-beginning 0) 11) + (match-beginning 0)))) + (kill-new result)) + (t + ;; no extension + (setq result + (concat "https://www.youtube.com/watch?v=" + (substring-no-properties video-name -11))) + (kill-new result))) + result))) ;;; moving by paragraphs |