|
|
@ -44,30 +44,18 @@
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
(defun dwsecurity ()
|
|
|
|
(defun dwsecurity ()
|
|
|
|
"Set security level for DW post"
|
|
|
|
"Set security level for DW post"
|
|
|
|
(setq security (completing-read-multiple "Security (public, access, private): " '("public" "access" "private")))
|
|
|
|
(setq security (completing-read "Security (public, access, private): " '("public" "access" "private")))
|
|
|
|
(if (not security)
|
|
|
|
(if (equal security "")
|
|
|
|
(setq security "skip"))
|
|
|
|
|
|
|
|
(if (equal security "skip")
|
|
|
|
|
|
|
|
(sleep-for 0)
|
|
|
|
(sleep-for 0)
|
|
|
|
(insert (concat "post-security: "
|
|
|
|
(insert (concat "post-security: " security "\n")))))
|
|
|
|
(let* ((securityjunk
|
|
|
|
|
|
|
|
(format "%S" security))
|
|
|
|
|
|
|
|
(end (- (length securityjunk) 2)))
|
|
|
|
|
|
|
|
(substring securityjunk 2 end))"\n")))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
(defun dwmood ()
|
|
|
|
(defun dwmood ()
|
|
|
|
"Set mood for DW post"
|
|
|
|
"Set mood for DW post"
|
|
|
|
(setq mood (completing-read-multiple "Mood: " '("accomplished" "aggravated" "amused" "angry" "annoyed" "anxious" "apathetic" "artistic" "awake" "bitchy" "blah" "blank" "bored" "bouncy" "busy" "calm" "cheerful" "chipper" "cold" "complacent" "confused" "contemplative" "content" "cranky" "crappy" "crazy" "creative" "crushed" "curious" "cynical" "depressed" "determined" "devious" "dirty" "disappointed" "discontent" "distressed" "ditzy" "dorky" "drained" "drunk" "ecstatic" "embarrassed" "energetic" "enraged" "enthralled" "envious" "exanimate" "excited" "exhausted" "flirty" "frustrated" "full" "geeky" "giddy" "giggly" "gloomy" "good" "grateful" "groggy" "grumpy" "guilty" "happy" "high" "hopeful" "horny" "hot" "hungry" "hyper" "impressed" "indescribable" "indifferent" "infuriated" "intimidated" "irate" "irritated" "jealous" "jubilant" "lazy" "lethargic" "listless" "lonely" "loved" "melancholy" "mellow" "mischievous" "moody" "morose" "naughty" "nauseated" "nerdy" "nervous" "nostalgic" "numb" "okay" "optimistic" "peaceful" "pensive" "pessimistic" "pissed off" "pleased" "predatory" "productive" "quixotic" "recumbent" "refreshed" "rejected" "rejuvenated" "relaxed" "relieved" "restless" "rushed" "sad" "satisfied" "scared" "shocked" "sick" "silly" "sleepy" "sore" "stressed" "surprised" "sympathetic" "thankful" "thirsty" "thoughtful" "tired" "touched" "uncomfortable" "weird" "working" "worried")))
|
|
|
|
(setq mood (completing-read "Mood: " '("accomplished" "aggravated" "amused" "angry" "annoyed" "anxious" "apathetic" "artistic" "awake" "bitchy" "blah" "blank" "bored" "bouncy" "busy" "calm" "cheerful" "chipper" "cold" "complacent" "confused" "contemplative" "content" "cranky" "crappy" "crazy" "creative" "crushed" "curious" "cynical" "depressed" "determined" "devious" "dirty" "disappointed" "discontent" "distressed" "ditzy" "dorky" "drained" "drunk" "ecstatic" "embarrassed" "energetic" "enraged" "enthralled" "envious" "exanimate" "excited" "exhausted" "flirty" "frustrated" "full" "geeky" "giddy" "giggly" "gloomy" "good" "grateful" "groggy" "grumpy" "guilty" "happy" "high" "hopeful" "horny" "hot" "hungry" "hyper" "impressed" "indescribable" "indifferent" "infuriated" "intimidated" "irate" "irritated" "jealous" "jubilant" "lazy" "lethargic" "listless" "lonely" "loved" "melancholy" "mellow" "mischievous" "moody" "morose" "naughty" "nauseated" "nerdy" "nervous" "nostalgic" "numb" "okay" "optimistic" "peaceful" "pensive" "pessimistic" "pissed off" "pleased" "predatory" "productive" "quixotic" "recumbent" "refreshed" "rejected" "rejuvenated" "relaxed" "relieved" "restless" "rushed" "sad" "satisfied" "scared" "shocked" "sick" "silly" "sleepy" "sore" "stressed" "surprised" "sympathetic" "thankful" "thirsty" "thoughtful" "tired" "touched" "uncomfortable" "weird" "working" "worried")))
|
|
|
|
(if (not mood)
|
|
|
|
(if (equal mood "")
|
|
|
|
(setq mood "skip"))
|
|
|
|
|
|
|
|
(if (equal mood "skip")
|
|
|
|
|
|
|
|
(sleep-for 0)
|
|
|
|
(sleep-for 0)
|
|
|
|
(insert (concat "post-mood: "
|
|
|
|
(insert (concat "post-mood: " mood "\n")))))
|
|
|
|
(let* ((moodjunk
|
|
|
|
|
|
|
|
(format "%S" mood))
|
|
|
|
|
|
|
|
(end (- (length moodjunk) 2)))
|
|
|
|
|
|
|
|
(substring moodjunk 2 end))"\n")))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
(defun dwmusic ()
|
|
|
|
(defun dwmusic ()
|
|
|
|