Re: [XWEM]: Re: Bug in strokes

[Zajcev Evgeny]

Steve Youngs <address@hidden> writes:

>
> Not good for shift workers (people who start work at night and finish
> work in the morning).  Maybe day-end shouldn't be a time (ie hour of
> day), but an amount of elapsed time since day-start.  For example...
>
>   day-start == 9 (9am)
>   day-end   == 32400 (seconds since day-start == 18:00 or 6pm)
>
> I think having the user work out how many seconds their work day is
> would be a bit much.  So have the user give the number of hours their
> work day is instead of the hour it finishes.
>
> So if your work day started at 09:00 and finished at 18:00 you
> would... 
>
>   (setq xwem-worklog-day-start 9
>         xwem-worklog-day-length 9)
>
> `xwem-worklog-day-length' would replace `xwem-worklog-day-ends'.
>
> Someone who works night shift (23:00 to 07:00)...
>
>   (setq xwem-worklog-day-start 23
>         xwem-worklog-day-length 8)
>

Great idea, yes that is how it should be.  But not now, maybe in rc3.

Ok, here is rc2:

   xlib - http://lgarc.narod.ru/xwem/xlib-2.0rc2.tgz
   xwem - http://lgarc.narod.ru/xwem/xwem-2.0rc2.tgz

Here is my config file (xwemrc.el):

    ;; Workaround buggy calc
    (setq calc-settings-file user-init-file)
    
    (setq special-display-frame-plist
          (plist-put special-display-frame-plist 'height 50))
    
    (setq debug-on-quit nil)
    (setq debug-on-error t)
    (setq comint-password-prompt-regexp
          "\\(\\(\\([Oo]ld \\|[Nn]ew \\|^\\)[Pp]assword\\|pass 
?phrase\\)\\|\\([pP]assword\\)\\):\\s *\\'")
    
    (setq X-use-eval-event-kludge nil)
    
    ;;; Customize XWEM variables
    (setq xwem-debug t
          xwem-minibuffer-width 90
          xwem-minibuffer-emacs-frames-has-minibuffer t
          xwem-minibuffer-active-border-color "cyan2"
    ;      xwem-default-focus-mode 'follow-mouse
          xwem-edmacro-can-edit-nonmacro t
          xwem-popup-menu-function 'old-popup-menu
          xwem-keyboard-echo-keystrokes 0.1 ; immediately show pressed keys
          xwem-frame-on-delim-resize-mode 'opaque
          )
    
    ;; Make an abbrev table for xwem-launcher-query
    (define-abbrev-table 'xwem-launcher-abbrev-table
      '(("gterm" "xterm -fg green -hc green4" nil 0) ; green
        ("gfterm" "xterm -fg green -hc green4 -fn fixed" nil 0) ; green fixed
        ("aqterm" "xterm -fg aquamarine -hc aquamarine4" nil 0) ; aqua
        ("aqfterm" "xterm -fg aquamarine -hc aquamarine4 -fn fixed" nil 0) ; 
aqua fixed
        ("gsterm" "xterm -fg darkseagreen1 -hc darkseagreen4" nil 0) ; gsea
        ("gsfterm" "xterm -fg darkseagreen1 -hc darkseagreen4 -fn fixed" nil 0) 
; gsea fixed
        ("oterm" "xterm -fg OliveDrab1 -hc OliveDrab4" nil 0) ; olive
        ("ofterm" "xterm -fg OliveDrab1 -hc OliveDrab4 -fn fixed" nil 0) ; 
olive fixed
        ("orterm" "xterm -fg orange -hc orange4" nil 0) ; orange
        ("orfterm" "xterm -fg orange -hc orange4 -fn fixed" nil 0) ; orange 
fixed
        ))
    
    ;; Add sounds, beeping type
    (xwem-sound-load-default t)
    
    ;; Fast frame switcher
    (defun my-xwem-switch-frame (key)
      "To be used by H-C-<digit> bindings."
      (interactive (list (event-key xwem-last-event)))
      (xwem-frame-switch-nth (- (char-to-int key) 48)))
    
    (define-key xwem-global-map (xwem-kbd "H-C-0") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-1") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-2") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-3") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-4") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-5") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-6") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-7") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-8") 'my-xwem-switch-frame)
    (define-key xwem-global-map (xwem-kbd "H-C-9") 'my-xwem-switch-frame)
    
    ;; Worklog
    (setq xwem-worklog-silent t)            ; shutup worklog
    (setq xwem-worklog-auto-worklog-file nil)
    (setq xwem-worklog-pwin-border-width 10)
    
    ;; Weather tracker
    (require 'xwem-weather)
    (setq xwem-weather-station-id "uuww")
    (customize-set-variable 'xwem-weather-update-frequency 1800)
    (set-face-foreground 'xwem-weather-osd-face "blue4")
    
    ;; Desktop save on exit, restore on startup
    (add-hook 'xwem-exit-hook 'xwem-desktop-save)
    (xwem-desktop-load)
    
    ;; Start my Dockapps
    (add-hook 'xwem-after-init-hook 'xwem-worklog-start-dockapp)
    (add-hook 'xwem-after-init-hook 'xwem-time)
    (add-hook 'xwem-after-init-hook 'xwem-battery)
    
    ;;; Some usefull stuff
    (defvar my-xwem-vline-win nil)
    (defun my-xwem-set-vline (&optional column color)
      "Setup one-pixel width vertical line at COLUMN.
    COLOR is vline color (default \"gray70\").
    Default COLUMN is value of `fill-column'."
      (interactive (list (or (and current-prefix-arg (prefix-numeric-value 
current-prefix-arg))
                             fill-column)))
      (unless color
        (setq color "gray70"))
    
      (let (cxwin)
        (setq cxwin (X-Win-find-or-make (xwem-dpy) (float (string-to-int 
(frame-property (selected-frame) 'window-id)))))
        (when (X-Win-p my-xwem-vline-win)
          (XDestroyWindow (xwem-dpy) my-xwem-vline-win)
          (setq my-xwem-vline-win nil))
        (when (> column 0)
          (setq my-xwem-vline-win
                (XCreateWindow (xwem-dpy) cxwin
                               (+ (frame-property (selected-frame) 
'internal-border-width)
                                  (* (font-width (face-font 'default)) column))
                               0 1
                               (* (frame-height (selected-frame)) (font-height 
(face-font 'default)))
                               0 nil nil nil
                               (make-X-Attr :background-pixel (XAllocNamedColor 
(xwem-dpy) (XDefaultColormap (xwem-dpy)) color))))
          (XMapWindow (xwem-dpy) my-xwem-vline-win))))
    
    (define-key global-map (kbd "C-c m V") 'my-xwem-set-vline)
    
    ;;; Debugging
    (defun xwem-turn-on-debug ()
      (interactive)
      (setf (X-Dpy-log-buffer (xwem-dpy)) "*xwem-debug*")
      (X-Dpy-set-log-routines (xwem-dpy) xwem-debug-routines))


Here is some places to play with:

  - M-x xwem-theme-set RET

  - H-: (require 'xwem-rooticon) RET, H-x 7 z

  - Others

More opened description of stuff will be provided a little later.

Thanks!

-- 
lg