diff options
| -rw-r--r-- | view-conf.el | 28 |
1 files 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. |