|
|
|
@ -44,30 +44,18 @@
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
|
(defun dwsecurity ()
|
|
|
|
|
"Set security level for DW post"
|
|
|
|
|
(setq security (completing-read-multiple "Security (public, access, private): " '("public" "access" "private")))
|
|
|
|
|
(if (not security)
|
|
|
|
|
(setq security "skip"))
|
|
|
|
|
(if (equal security "skip")
|
|
|
|
|
(setq security (completing-read "Security (public, access, private): " '("public" "access" "private")))
|
|
|
|
|
(if (equal security "")
|
|
|
|
|
(sleep-for 0)
|
|
|
|
|
(insert (concat "post-security: "
|
|
|
|
|
(let* ((securityjunk
|
|
|
|
|
(format "%S" security))
|
|
|
|
|
(end (- (length securityjunk) 2)))
|
|
|
|
|
(substring securityjunk 2 end))"\n")))))
|
|
|
|
|
(insert (concat "post-security: " security "\n")))))
|
|
|
|
|
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
|
(defun dwmood ()
|
|
|
|
|
"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")))
|
|
|
|
|
(if (not mood)
|
|
|
|
|
(setq mood "skip"))
|
|
|
|
|
(if (equal mood "skip")
|
|
|
|
|
(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 (equal mood "")
|
|
|
|
|
(sleep-for 0)
|
|
|
|
|
(insert (concat "post-mood: "
|
|
|
|
|
(let* ((moodjunk
|
|
|
|
|
(format "%S" mood))
|
|
|
|
|
(end (- (length moodjunk) 2)))
|
|
|
|
|
(substring moodjunk 2 end))"\n")))))
|
|
|
|
|
(insert (concat "post-mood: " mood "\n")))))
|
|
|
|
|
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
|
(defun dwmusic ()
|
|
|
|
|