diff options
| author | JSDurand <mmemmew@gmail.com> | 2021-09-09 14:18:41 +0800 |
|---|---|---|
| committer | JSDurand <mmemmew@gmail.com> | 2021-09-09 14:18:41 +0800 |
| commit | 9f60b02c6e022af3852d91054ff107f533d1b011 (patch) | |
| tree | 1b71000db56568bf1bf2e0b2362e054fa4364fb2 /view-conf.el | |
| parent | 8884f430b38c39e97f1b782a832c06adaa730338 (diff) | |
* view-conf.el (durand-open-targets): setq + defvar
This combination is more convenient if I want to change the value of
the variable.
Diffstat (limited to 'view-conf.el')
| -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. |