From 9f60b02c6e022af3852d91054ff107f533d1b011 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Thu, 9 Sep 2021 14:18:41 +0800 Subject: * view-conf.el (durand-open-targets): setq + defvar This combination is more convenient if I want to change the value of the variable. --- view-conf.el | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) diff --git a/view-conf.el b/view-conf.el index d17bd6c..1761f90 100644 --- a/view-conf.el +++ b/view-conf.el @@ -131,18 +131,7 @@ If ARG is '(16), view the battery information." ;;; Open things ;;;###autoload -(defvar durand-open-targets - (list (list "Safari" "open" "-a" "Safari" - (list "https://www.youtube.com" - "https://www.gmail.com" - "https://www.facebook.com" - "https://protesilaos.com" - "https://wmail1.cc.ntu.edu.tw/index.php?url=https%3A%2F%2Fwmail1.cc.ntu.edu.tw%2F")) - (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")) +(defvar durand-open-targets nil "Targets to open by `durand-open-object'. This is an association list whose elements have `car' equal to @@ -152,6 +141,21 @@ be passed to `make-process'. See the documentation for `durand-open-object' for the formats of targets.") +(setq durand-open-targets + (list (list "Safari" "open" "-a" "Safari" + (list "https://www.youtube.com" + "https://www.gmail.com" + "https://www.facebook.com" + "https://protesilaos.com" + "https://wmail1.cc.ntu.edu.tw/rc/?_task=mail&_mbox=INBOX" + ;; "https://wmail1.cc.ntu.edu.tw/index.php?url=https%3A%2F%2Fwmail1.cc.ntu.edu.tw%2F" + )) + (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"))) + ;;;###autoload (defun durand-target-extra-arg (target) "Determine if TARGET has room for extra arguments. -- cgit v1.2.3-18-g5258