bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename file, and make it go to 10.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-09-02 19:17:02 -04:00
parent 41f86f9379
commit e6a901057f
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
org-mode-appt-check.plx
View file

@ -36,14 +36,14 @@ if ($? != 0) {
exit 0; exit 0;
} }
my $now = ParseDate("now"); my $now = ParseDate("now");
open(THREE_DAYS, "-|", "/usr/bin/emacs -batch -l ~/.emacs -eval '(org-batch-agenda \"a\" org-agenda-files (mapcar (lambda (arg) (replace-regexp-in-string \"~/Crypt/Orgs/\" \"~/Crypt/.org-backup/\" arg)) org-agenda-files) org-agenda-span (quote 9) org-agenda-overriding-header \"\" org-agenda-repeating-timestamp-show-all t org-agenda-time-grid nil org-agenda-repeating-timestamp-show-all t org-agenda-entry-types (quote (:sexp :scheduled)) org-agenda-skip-function (quote bkuhn/skip-unless-appt-or-diary))' 2>/dev/null") or open(ORG_MODE_AGENDA, "-|", "/usr/bin/emacs -batch -l ~/.emacs -eval '(org-batch-agenda \"a\" org-agenda-files (mapcar (lambda (arg) (replace-regexp-in-string \"~/Crypt/Orgs/\" \"~/Crypt/.org-backup/\" arg)) org-agenda-files) org-agenda-span (quote 10) org-agenda-overriding-header \"\" org-agenda-repeating-timestamp-show-all t org-agenda-time-grid nil org-agenda-repeating-timestamp-show-all t org-agenda-entry-types (quote (:sexp :scheduled))))' 2>/dev/null") or
die "Unable to run emacs: $!"; die "Unable to run emacs: $!";
my $firstDay; my $firstDay;
my $dayLine = ""; my $dayLine = "";
my $prettyDayLine; my $prettyDayLine;
while (my $line = <THREE_DAYS>) { while (my $line = <ORG_MODE_AGENDA>) {
my $thisLinePrintable; my $thisLinePrintable;
chomp $line; chomp $line;
if ($line =~ /^\S+/) { if ($line =~ /^\S+/) {
@ -95,6 +95,9 @@ while (my $line = <THREE_DAYS>) {
print $thisLinePrintable, "\n"; print $thisLinePrintable, "\n";
} }
} }
close ORG_MODE_AGENDA;
die "Error($?) reading org mode output: $!" unless $? == 0;
exit 0;
############################################################################### ###############################################################################
# #
# Local variables: # Local variables: