1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

; lunatech-journal.el --- major mode to make blogging easier --
; This code has been put under public domain by the original author.
; Please hack it further and enjoy
;
; Original author - Raj Shekhar <spamme at rajshekhar dot net>


(require 'muse)

(define-derived-mode lunatech-journal-mode muse-mode
  "Lunatech Journal"
  "Major mode for editing my blog muse file"
  
  (setq mode-name "lunatech-journal")
  (setq major-mode 'lunatech-journal)

  (defun lunatech-journal-skeleton  ()
    "Load a skeleton for the blog entry"
    (interactive)
    (erase-buffer)
    (end-of-buffer)
    (insert "# Title: 

** Highlights of the day

** Weather

** Mood

** Gym and health

** Insights

# Category: geek stuff, humour, India, link, linux, microsoft, My take on life, programming, today, work
")
    )

  
  (defun lunatech-journal-show-hints ()
    "Show hints about what to blog.  This shows questions that will help in debriefing about the day"
    (interactive)
    (select-window (split-window (selected-window) (- (window-height) 25)))
    (switch-to-buffer (get-buffer-create "*Debriefing questions"))
    (erase-buffer)
    (muse-mode)
    (insert "* Six Phases of Debriefing
*People don't learn from experience; they learn from reflecting on their experience.*

** Phase 1: How Do You Feel?

** Phase 2: What Happened?

** Phase 3: What Did You Learn?

** Phase 4: How Does This Relate To The Real World?

** Phase 5: What If?

In this phase, encourage the participants to apply their insights to new contexts. Use alternative scenarios to speculate on how people's behaviors would change.

** Phase 6: What Next?

In this phase, ask the participants to undertake action planning. Ask them to apply their insights from the experiential activity to the real world.
" 
    ))




  (defun lunatech-journal-make-html ()
    "Make the html from the journal"
    (interactive)
    (let ((mystyle (list "mystyle" :base "html")))
      (muse-project-publish-this-file (list nil) mystyle)))

  (defun lunatech-journal-preview ()
    "preview the journal in browser"
    (interactive)
    (browse-url-firefox "file:///home/rshekhar/blog/journal.html")
    )
  
  (defvar lunatech-journal-mode-map nil "Keymap for the journal major mode")
  
  (unless nil
    (setq lunatech-journal-mode-map (make-sparse-keymap))
    (define-key lunatech-journal-mode-map (kbd "C-c p") 'lunatech-journal-preview)
    )
  
  
)
(provide 'lunatech-journal)