email+cal fixes

aerc/aerc.conf

@@ -37,6 +37,7 @@ sort=unread
 [compose]
 address-book-cmd=khard email --parsable --remove-first-line %s
 header-layout=To|From,Cc|Bcc,Subject
+reply-to-self=false
 
 [multipart-converters]
 text/html=pandoc -f markdown -t html
@@ -71,4 +72,7 @@ audio/*=mpv --no-video
 text/*=vim
 
 [hooks]
+aerc-startup=aerc :terminal khal interactive \
+  && aerc :pin-tab \
+  && aerc :change-tab hjarl
 mail-received=notify-send "[$AERC_ACCOUNT/$AERC_FOLDER] New mail from $AERC_FROM_NAME" "$AERC_SUBJECT"

aerc/binds.conf

@@ -1,5 +1,5 @@
-<C-o> = :next-tab<Enter>
-<C-i> = :prev-tab<Enter>
+<C-i> = :next-tab<Enter>
+<C-o> = :prev-tab<Enter>
 <C-t> = :term<Enter>
 ? = :help keys<Enter>
 \[t = :prev-tab<Enter>
@@ -25,6 +25,7 @@ c = :cf<space>
 C = :compose<Enter>
 D  = :delete-message<Enter>
 dd = :mv Trash<Enter>
+f = :forward<Enter>
 G = :select -1<Enter>
 gg = :select 0<Enter>
 gi = :cf INBOX<Enter>
@@ -39,10 +40,8 @@ m  = :move<space>
 n = :next-result<Enter>
 N = :prev-result<Enter>
 q = :quit<Enter>
-rq = :reply -aq<Enter>
-Rq = :reply -q<Enter>
-rr = :reply -a<Enter>
-Rr = :reply<Enter>
+r = :reply -aq<Enter>
+R = :reply -q<Enter>
 s = :split<Enter>
 S = :vsplit<Enter>
 T = :toggle-threads<Enter>
@@ -81,10 +80,8 @@ m  = :move<space>
 O  = :open<Enter>
 o  = :open<Enter>
 q  = :close<Enter>
-rq = :reply -aq<Enter>
-Rq = :reply -q<Enter>
-rr = :reply -a<Enter>
-Rr = :reply<Enter>
+r = :reply -aq<Enter>
+R = :reply -q<Enter>
 S  = :save<space>
 
 [view:folder=Trash]
@@ -109,9 +106,9 @@ $noinherit = true
 <A-p> = :switch-account -p<Enter>
 <backtab> = :prev-field<Enter>
 <C-n> = :next-field<Enter>
-<C-o> = :next-tab<Enter>
+<C-i> = :next-tab<Enter>
 <C-p> = :prev-field<Enter>
-<C-i> = :prev-tab<Enter>
+<C-o> = :prev-tab<Enter>
 <tab> = :next-field<Enter>
 
 [compose::editor]
@@ -119,16 +116,18 @@ $noinherit = true
 $noinherit = true
 $ex = <C-x>
 <C-n> = :next-field<Enter>
-<C-o> = :next-tab<Enter>
+<C-i> = :next-tab<Enter>
 <C-p> = :prev-field<Enter>
-<C-i> = :prev-tab<Enter>
+<C-o> = :prev-tab<Enter>
 
 [compose::review]
 y = :send<Enter> # Send
 n = :abort<Enter> # Abort (discard message, no confirmation)
 v = :preview<Enter> # Preview message
 p = :postpone<Enter> # Postpone
+H = :multipart text/html<Enter> # Add html from markdown
 q = :choose -o d discard abort -o p postpone postpone<Enter> # Abort or postpone
+Q = :abort<Enter> # Abort
 e = :edit<Enter> # Edit (body and headers)
 a = :attach<space> # Add attachment
 d = :detach<space> # Remove attachment
@@ -139,5 +138,5 @@ x = :encrypt<Enter> # Toggle encryption to all recipients
 $noinherit = true
 $ex = <C-x>
 
-<C-o> = :next-tab<Enter>
-<C-i> = :prev-tab<Enter>
+<C-i> = :next-tab<Enter>
+<C-o> = :prev-tab<Enter>

aerc/templates/forward_as_body

@@ -0,0 +1,8 @@
+X-Mailer: aerc {{version}}
+
+Forwarded message from {{.OriginalFrom | names | join ", "}} on {{dateFormat .OriginalDate "Mon Jan 2, 2006 at 3:04 PM"}}:
+{{.OriginalText}}
+{{- with .Signature }}
+
+{{.}}
+{{- end }}

aerc/templates/new_message

@@ -0,0 +1,5 @@
+X-Mailer: aerc {{version}}
+{{- with .Signature }}
+
+{{.}}
+{{- end -}}

aerc/templates/quoted_reply

@@ -0,0 +1,23 @@
+X-Mailer: aerc {{version}}
+
+On {{dateFormat (.OriginalDate | toLocal) "Mon Jan 2, 2006 at 3:04 PM MST"}}, {{.OriginalFrom | names | join ", "}} wrote:
+
+{{ if or
+	(eq .OriginalMIMEType "text/html")
+	(contains (toLower .OriginalText) "<html")
+}}
+	{{- $text := exec `/usr/lib/aerc/filters/html` .OriginalText | replace `\r` `` -}}
+	{{- range split "\n" $text -}}
+		{{- if or
+			(eq (len .) 0)
+			(match `^\[.+\]\s*$` .)
+		}}{{continue}}{{end}}
+		{{- printf "%s\n" . | replace `^[\s]+` "" | quote}}
+	{{- end -}}
+{{- else }}
+	{{- trimSignature .OriginalText | quote -}}
+{{- end -}}
+{{- with .Signature }}
+
+{{.}}
+{{- end }}