how to do it a command automatically

how to do it a command automatically

[kamo]

Hi,

Everyday I print the equivalent date in other calendar and particularly 
the current date in chinese calendar using emacs

I do in my bash shell
$emacs
then
M-x calendar
and
M-x calendar-print-chinese-date

I would to put this in my .bashr_profile
so I tried like putting in my .emacs ,  calendar-print-chinese-date


My aim is to automate this 3 commands I tape everyday. One logged in my 
account, I could print the date in gregorian calendar and chinese calendar

thank for your help


Kamo

Re: how to do it a command automatically

[collger]

define this new command, and then ......

(defun print-chinese-date-sh ()
  "A silly way to print current chinese date.\nYou Can add other
outputs after the 'set-buffer call"
  (interactive) ;become a command
  (save-excursion)
  (calendar)
  (set-buffer (get-buffer "*Calendar*"))
  (calendar-print-chinese-date)
  (kill-buffer-and-window) ;close the calendar, remove it if you want
  )

Re: how to do it a command automatically

[Kevin Rodgers]

collger wrote:
> define this new command, and then ......
> 
> (defun print-chinese-date-sh ()
>   "A silly way to print current chinese date.\nYou Can add other
> outputs after the 'set-buffer call"
>   (interactive) ;become a command
>   (save-excursion)
>   (calendar)
>   (set-buffer (get-buffer "*Calendar*"))
>   (calendar-print-chinese-date)
>   (kill-buffer-and-window) ;close the calendar, remove it if you want
>   )

I think you meant

(save-excursion
   (save-window-excursion
     (calendar)
     ...
     ))

But since OP wants something to run from the shell:

emacs --batch --funcall calendar other-buffer --funcall 
calendar-print-chinese-date


-- 
Kevin Rodgers
Denver, Colorado, USA

Re: how to do it a command automatically

[collger]

On Feb 5, 3:52 am, Kevin Rodgers <kevin.d.rodg...@gmail.com> wrote:
> collger wrote:
> > define this new command, and then ......
>
> > (defun print-chinese-date-sh ()
> >   "A silly way to print current chinese date.\nYou Can add other
> > outputs after the 'set-buffer call"
> >   (interactive) ;become a command
> >   (save-excursion)
> >   (calendar)
> >   (set-buffer (get-buffer "*Calendar*"))
> >   (calendar-print-chinese-date)
> >   (kill-buffer-and-window) ;close the calendar, remove it if you want
> >   )
>
> I think you meant
>
> (save-excursion
>    (save-window-excursion
>      (calendar)
>      ...
>      ))
>
> But since OP wants something to run from the shell:
>
> emacs --batch --funcall calendar other-buffer --funcall
> calendar-print-chinese-date
>
> --
> Kevin Rodgers
> Denver, Colorado, USA

I'm green on emacs too. Thanks, it works.

Re: how to do it a command automatically

[kamo]

Kevin Rodgers a écrit :
> collger wrote:
>> define this new command, and then ......
>>
>> (defun print-chinese-date-sh ()
>>   "A silly way to print current chinese date.\nYou Can add other
>> outputs after the 'set-buffer call"
>>   (interactive) ;become a command
>>   (save-excursion)
>>   (calendar)
>>   (set-buffer (get-buffer "*Calendar*"))
>>   (calendar-print-chinese-date)
>>   (kill-buffer-and-window) ;close the calendar, remove it if you want
>>   )
> 
> I think you meant
> 
> (save-excursion
>   (save-window-excursion
>     (calendar)
>     ...
>     ))
> 
> But since OP wants something to run from the shell:
> 
> emacs --batch --funcall calendar other-buffer --funcall 
> calendar-print-chinese-date
> 
> 
Hi !
this command doesn't work

#bash $ emacs --batch --funcall calendar other-buffer --funcall 
calendar-print-chinese-date
Loading 00debian-vars...
Loading 50autoconf (source)...
Loading 50dictionaries-common (source)...
Loading /var/cache/dictionaries-common/emacsen-ispell-dicts.el (source)...
Computing Chinese date...
Symbol's value as variable is void: displayed-month

but if I strip "other-buffer", it works perfect
Today  for instance

#bash $ emacs --batch --funcall calendar --funcall 
calendar-print-chinese-date
Loading 00debian-vars...
Loading 50autoconf (source)...
Loading 50dictionaries-common (source)...
Loading /var/cache/dictionaries-common/emacsen-ispell-dicts.el (source)...
Computing Chinese date...
Chinese date: Cycle 78, year 23 (Bing-Xu), month 12 (Xin-Chou), day 21 
(Gui-You)


Thank you a lot Kevin!

Kamo