EmacsWorkTimeCounter / RazmjenaVjestina

Mobile - Settings - Register - Help

Home

Quick jump: What's new - Weblogs

Print
Tools

V

5

Tags

{"maxCount":475,"tags":[{"page_count":475,"count":null,"name":"TamTam"},{"page_count":330,"count":null,"name":"RazmjenjivaciVjestina"},{"page_count":83,"count":null,"name":"DrGspot"},{"page_count":59,"count":null,"name":"NaslovnicaArhiva"},{"page_count":59,"count":null,"name":"BuD"},{"page_count":44,"count":null,"name":"Nudi"},{"page_count":41,"count":null,"name":"G33koSkop"},{"page_count":38,"count":null,"name":"SvakodnevneDovitljivosti"},{"page_count":31,"count":null,"name":"ProsliSusretiTkoSto"},{"page_count":30,"count":null,"name":"Trazi"},{"page_count":26,"count":null,"name":"MarcellMars"},{"page_count":22,"count":null,"name":"Naslovnica"},{"page_count":22,"count":null,"name":"RijekA"},{"page_count":18,"count":null,"name":"MojSajt"},{"page_count":14,"count":null,"name":"RijeckiRazmjenjivaci"},{"page_count":8,"count":null,"name":"VrtlarCvijece"},{"page_count":8,"count":null,"name":"CroPuppian"},{"page_count":7,"count":null,"name":"DocumentS"},{"page_count":7,"count":null,"name":"TraCkica"},{"page_count":7,"count":null,"name":"AkA"},{"page_count":6,"count":null,"name":"FoG"},{"page_count":6,"count":null,"name":"PuppyLinux"},{"page_count":6,"count":null,"name":"TamTamSetup"},{"page_count":5,"count":null,"name":"GentooStuff"},{"page_count":5,"count":null,"name":"YaXwe"},{"page_count":5,"count":null,"name":"IvanIno"},{"page_count":5,"count":null,"name":"TamUsers"},{"page_count":4,"count":null,"name":"SliKe"},{"page_count":4,"count":null,"name":"SynaN"},{"page_count":4,"count":null,"name":"KlaudioStefancic"},{"page_count":4,"count":null,"name":"LeTakBilTen"},{"page_count":4,"count":null,"name":"HorZa"},{"page_count":4,"count":null,"name":"nsnd"},{"page_count":4,"count":null,"name":"Announcements"},{"page_count":3,"count":null,"name":"LjuBo"},{"page_count":3,"count":null,"name":"2008"},{"page_count":3,"count":null,"name":"TihaNa"},{"page_count":3,"count":null,"name":"KruNo"},{"page_count":3,"count":null,"name":"LangGang"},{"page_count":3,"count":null,"name":"KaDa"},{"page_count":3,"count":null,"name":"ReZk"},{"page_count":3,"count":null,"name":"LesH"},{"page_count":3,"count":null,"name":"HrLinuxMag"},{"page_count":3,"count":null,"name":"RazmjenaPoGradovima"},{"page_count":2,"count":null,"name":"ManS"},{"page_count":2,"count":null,"name":"B4D"},{"page_count":2,"count":null,"name":"2008_02"},{"page_count":2,"count":null,"name":"IvanInoIma"},{"page_count":2,"count":null,"name":"BudTrazi"},{"page_count":2,"count":null,"name":"DanyZamir"},{"page_count":2,"count":null,"name":"HrvojeZeba"},{"page_count":2,"count":null,"name":"SpliT"},{"page_count":2,"count":null,"name":"HcRazmjena"},{"page_count":2,"count":null,"name":"FrAjEr"},{"page_count":2,"count":null,"name":"MorphOS"},{"page_count":2,"count":null,"name":"V-V"},{"page_count":2,"count":null,"name":"NuclearDebat"},{"page_count":2,"count":null,"name":"LinpP"},{"page_count":2,"count":null,"name":"Lisp"},{"page_count":2,"count":null,"name":"Iva"},{"page_count":2,"count":null,"name":"MaliM"},{"page_count":2,"count":null,"name":"NeLa"},{"page_count":2,"count":null,"name":"TraCkicaSlike"},{"page_count":2,"count":null,"name":"PaE"},{"page_count":2,"count":null,"name":"RankoRile"},{"page_count":2,"count":null,"name":"StandardiSuDobri"},{"page_count":2,"count":null,"name":"PaluNko"},{"page_count":2,"count":null,"name":"SusRet161004"},{"page_count":2,"count":null,"name":"KleMo"},{"page_count":2,"count":null,"name":"AnTe"},{"page_count":2,"count":null,"name":"DebianStuff"},{"page_count":1,"count":null,"name":"nistasenecedogoditi"},{"page_count":1,"count":null,"name":"TomislavMedak"},{"page_count":1,"count":null,"name":"ORazmjeniVjestina"},{"page_count":1,"count":null,"name":"TraCkicaNudi"},{"page_count":1,"count":null,"name":"SocialText"},{"page_count":1,"count":null,"name":"screencast"},{"page_count":1,"count":null,"name":"VooDoo"},{"page_count":1,"count":null,"name":"CroPup Weblog"},{"page_count":1,"count":null,"name":"PegasosPPC"},{"page_count":1,"count":null,"name":"2008-01"},{"page_count":1,"count":null,"name":"perl"},{"page_count":1,"count":null,"name":"HrvoJe"},{"page_count":1,"count":null,"name":"\u010clancI"},{"page_count":1,"count":null,"name":"MojiInteresi"},{"page_count":1,"count":null,"name":"irc-logger"},{"page_count":1,"count":null,"name":"irc"},{"page_count":1,"count":null,"name":"VlaDek"},{"page_count":1,"count":null,"name":"ThkArhiva"},{"page_count":1,"count":null,"name":"TommyArtist"},{"page_count":1,"count":null,"name":"NitRo"},{"page_count":1,"count":null,"name":"ZdraVko"},{"page_count":1,"count":null,"name":"Linux"},{"page_count":1,"count":null,"name":"KaDaNudi"},{"page_count":1,"count":null,"name":"ItCh"},{"page_count":1,"count":null,"name":"wifi"},{"page_count":1,"count":null,"name":"bljak"},{"page_count":1,"count":null,"name":"DrSolar"},{"page_count":1,"count":null,"name":"LesHNudi"},{"page_count":1,"count":null,"name":"ProbaTest"},{"page_count":1,"count":null,"name":"BorisKreac"},{"page_count":1,"count":null,"name":"NaTa"},{"page_count":1,"count":null,"name":"vnc"},{"page_count":1,"count":null,"name":"bridge"},{"page_count":1,"count":null,"name":"CroPuppianNudi"},{"page_count":1,"count":null,"name":"ZeljkoWriter"},{"page_count":1,"count":null,"name":"LjuboNudi"},{"page_count":1,"count":null,"name":"KlaudioS"},{"page_count":1,"count":null,"name":"Kontakt"},{"page_count":1,"count":null,"name":"Zombie"},{"page_count":1,"count":null,"name":"DeA"},{"page_count":1,"count":null,"name":"O razmjeni"},{"page_count":1,"count":null,"name":"RijekaNaslovnica"},{"page_count":1,"count":null,"name":"08"},{"page_count":1,"count":null,"name":"MarcellMarsPifIntervju"},{"page_count":1,"count":null,"name":"LinKovi"},{"page_count":1,"count":null,"name":"Predavanja"},{"page_count":1,"count":null,"name":"skladisteblog"},{"page_count":1,"count":null,"name":"nsnd split 08"},{"page_count":1,"count":null,"name":"GileHery"},{"page_count":1,"count":null,"name":"TomislavDomes"},{"page_count":1,"count":null,"name":"Vijesti"},{"page_count":1,"count":null,"name":"DeNis"},{"page_count":1,"count":null,"name":"RadioAmaterizam"},{"page_count":1,"count":null,"name":"MarioMaric"},{"page_count":1,"count":null,"name":"Razmjenjiva\u010di Vje\u0161tina"},{"page_count":1,"count":null,"name":"teme"},{"page_count":1,"count":null,"name":"IvekHGC"},{"page_count":1,"count":null,"name":"RazmjenaDistribucija"},{"page_count":1,"count":null,"name":"IrssaCvajtak"},{"page_count":0,"count":null,"name":"DpavLin"},{"page_count":0,"count":null,"name":"{category: <AkA> tagname}"},{"page_count":0,"count":null,"name":"IRC Logovi"},{"page_count":0,"count":null,"name":"HorZaTrazi"},{"page_count":0,"count":null,"name":"index.cgi"},{"page_count":0,"count":null,"name":"AiC"},{"page_count":0,"count":null,"name":"NoviMediji"},{"page_count":0,"count":null,"name":"Klaudio"},{"page_count":0,"count":null,"name":"test"},{"page_count":0,"count":null,"name":"Hobbesov radni prostor"},{"page_count":0,"count":null,"name":"IRC Kanal"}]}

Incoming Links

Attachments

RazmjenaVjestina

EmacsWorkTimeCounter

(setq *work-time-start* 8)
(setq *work-time-end* 16)

;(setq *work-day-dow-table* [nil (9 . (17 30)) (9 . (17 30)) (9 . (17 30)) (9 . (17 30)) (9 . (14 30)) nil])

(defun wt-dow-update-start-end nil
  (let ((beg-end (aref *work-day-dow-table* (nth 6 (decode-time (current-time))))))
    (if beg-end (setq *work-time-start* (car beg-end) *work-time-end* (cdr beg-end))
      (setq *work-time-start* 0 *work-time-end* 0))))

(setq *work-time-statuslen* 16)

(defmacro def-extract-if-list (name fun &optional ret)
  `(defun ,name (val)
     (if (listp val) (,fun val)
       ,(if ret ret 'val))))

(def-extract-if-list wt-hour first)
(def-extract-if-list wt-minutes second 0)

(defun work-time-update nil
  (when *work-day-dow-table* (wt-dow-update-start-end))
  (let* ((now (current-time))
	 (today (let ((dcd-now (decode-time now)))
		  `(,(nth 3 dcd-now) ,(nth 4 dcd-now) ,(nth 5 dcd-now))))
	 (start-time (apply #'encode-time (append (list 0 (wt-minutes *work-time-start*) (wt-hour *work-time-start*)) today)))
	 (end-time (apply #'encode-time (append (list 0 (wt-minutes *work-time-end*) (wt-hour *work-time-end*)) today))))
    (labels ((status-string-format (perc)
				   (cond ((< perc 0) ":(")
					 ((> perc 1) ":))")
					 (t (let* ((filled (round (* perc *work-time-statuslen*)))
						   (empty (- *work-time-statuslen* filled)))
					      (concat "[ (make-string filled ?#) (make-string empty ?\ ) ]")))))
	     (elapsed-percentage (from to now) (/ (float (- now from))(- to from)))
	     (total-sec (time) (+ (* 65536 (car time)) (cadr time))))
      (setq wt-status-string
	    (status-string-format
	     (elapsed-percentage (total-sec start-time) (total-sec end-time) (total-sec now)))))))

(push #'work-time-update display-time-hook)

;

(defun wt-status-displayed nil
  (member 'wt-status-string global-mode-string))

(defun wt-add-status nil
  (setq global-mode-string (append global-mode-string '(wt-status-string))))

(defun wt-remove-status nil
  (setq global-mode-string (remove 'wt-status-string global-mode-string)))

(defun work-time-status-toggle nil
  (interactive)
  (funcall (if (wt-status-displayed) #'wt-remove-status #'wt-add-status)))

;

(setq wt-status-string (work-time-update))

original Aug 30 4:20am

Upload Files

Click "Browse" to find the file you want to upload. When you click "Upload file" your file will be uploaded and added to the list of attachments for this page.

Maximum file size: 50MB

Add a link to the attachment at the top of the page? Images will appear in the page.

Expand zip archive and attach individual files to the page

Done

	File Name	Author	Date Uploaded	Size

Close

Delete Selected Files

Upload Files

Click "Browse" to find the file you want to upload. When you click "Add file" this file will be added to the list of attachments for this page, and uploaded when you save the page.

Add a link to the attachment at the top of the page? Images will appear in the page when the page is saved.

Expand zip archive and attach individual files to the page

Done

Add file

Add Tags

Enter a tag and click "Add tag". The tag will be saved when you save the page.

Tag:

Suggestions:

Done

Add tag

.pre
(setq *work-time-start* 8)
(setq *work-time-end* 16)

;(setq *work-day-dow-table* [nil (9 . (17 30)) (9 . (17 30)) (9 . (17 30)) (9 . (17 30)) (9 . (14 30)) nil])

(defun wt-dow-update-start-end nil
  (let ((beg-end (aref *work-day-dow-table* (nth 6 (decode-time (current-time))))))
    (if beg-end (setq *work-time-start* (car beg-end) *work-time-end* (cdr beg-end))
      (setq *work-time-start* 0 *work-time-end* 0))))

(setq *work-time-statuslen* 16)

(defmacro def-extract-if-list (name fun &optional ret)
  `(defun ,name (val)
     (if (listp val) (,fun val)
       ,(if ret ret 'val))))

(def-extract-if-list wt-hour first)
(def-extract-if-list wt-minutes second 0)

(defun work-time-update nil
  (when *work-day-dow-table* (wt-dow-update-start-end))
  (let* ((now (current-time))
	 (today (let ((dcd-now (decode-time now)))
		  `(,(nth 3 dcd-now) ,(nth 4 dcd-now) ,(nth 5 dcd-now))))
	 (start-time (apply #'encode-time (append (list 0 (wt-minutes *work-time-start*) (wt-hour *work-time-start*)) today)))
	 (end-time (apply #'encode-time (append (list 0 (wt-minutes *work-time-end*) (wt-hour *work-time-end*)) today))))
    (labels ((status-string-format (perc)
				   (cond ((< perc 0) ":(")
					 ((> perc 1) ":))")
					 (t (let* ((filled (round (* perc *work-time-statuslen*)))
						   (empty (- *work-time-statuslen* filled)))
					      (concat "[ (make-string filled ?#) (make-string empty ?\ ) ]")))))
	     (elapsed-percentage (from to now) (/ (float (- now from))(- to from)))
	     (total-sec (time) (+ (* 65536 (car time)) (cadr time))))
      (setq wt-status-string
	    (status-string-format
	     (elapsed-percentage (total-sec start-time) (total-sec end-time) (total-sec now)))))))

(push #'work-time-update display-time-hook)

;

(defun wt-status-displayed nil
  (member 'wt-status-string global-mode-string))

(defun wt-add-status nil
  (setq global-mode-string (append global-mode-string '(wt-status-string))))

(defun wt-remove-status nil
  (setq global-mode-string (remove 'wt-status-string global-mode-string)))

(defun work-time-status-toggle nil
  (interactive)
  (funcall (if (wt-status-displayed) #'wt-remove-status #'wt-add-status)))

;

(setq wt-status-string (work-time-update))
.pre

----

"original"<http://www.razmjenavjestina.org/RazmjenjivaciVjestina/AkA/EmacsWorkTimeCounter> {date: 2007-08-30 11:20:42 +0200}