summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJSDurand <mmemmew@gmail.com>2021-09-09 14:18:41 +0800
committerJSDurand <mmemmew@gmail.com>2021-09-09 14:18:41 +0800
commit9f60b02c6e022af3852d91054ff107f533d1b011 (patch)
tree1b71000db56568bf1bf2e0b2362e054fa4364fb2
parent8884f430b38c39e97f1b782a832c06adaa730338 (diff)
* view-conf.el (durand-open-targets): setq + defvar
This combination is more convenient if I want to change the value of the variable.
-rw-r--r--view-conf.el28
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.