Fred | 17 Apr 14:57 2014
Picon

Dataedit : translate buttons Add and Delete

Hello,

in the dataedit.lisp file the function

dataedit-update-operations should be modified
to allow translation.

Bellow what i suggest.

The actual code :

(defmethod dataedit-update-operations (obj &key
                                   (delete-fn #'dataedit-delete-items-flow)
                                   (add-fn #'dataedit-add-items-flow))
  "Should be used to update operations the widget supports.

'delete-fn' - a function to be called when delete action is invoked.
'add-fn' - a function to be called when add action is invoked."
  (setf (dataseq-item-ops obj)
        (remove 'delete (dataseq-item-ops obj)
                :key #'car :test #'string-equal))
  (setf (dataseq-common-ops obj)
        (remove 'add (dataseq-common-ops obj)
                :key #'car :test #'string-equal))
  (when (and (dataedit-allow-delete-p obj)
             (> (dataseq-data-count obj) 0))
    (pushnew (cons 'delete delete-fn)
             (dataseq-item-ops obj)
             :key #'car))
  (when (dataedit-allow-add-p obj)
    (pushnew `(add . ,add-fn)
             (dataseq-common-ops obj)
:key #'car)))

New code :

(defmethod dataedit-update-operations (obj &key
(delete-fn #'dataedit-delete-items-flow)
(add-fn #'dataedit-add-items-flow))
"Should be used to update operations the widget supports.

'delete-fn' - a function to be called when delete action is invoked.
'add-fn' - a function to be called when add action is invoked."
(setf (dataseq-item-ops obj)
(remove 'delete (dataseq-item-ops obj)
:key #'car :test #'string-equal))
(setf (dataseq-common-ops obj)
(remove 'add (dataseq-common-ops obj)
:key #'car :test #'string-equal))
(when (and (dataedit-allow-delete-p obj)
(> (dataseq-data-count obj) 0))
(pushnew (cons (widget-translate obj :delete-items) delete-fn)
(dataseq-item-ops obj)
:key #'car))
(when (dataedit-allow-add-p obj)
(pushnew (cons (widget-translate obj :add-new-item) add-fn)
(dataseq-common-ops obj)
:key #'car)))



(defmethod widget-translation-table append ((obj dataedit-mixin) &rest args)
(list*
(cons :add-new-item "Add")
(cons :delete-items "Delete")
(cons :choose-items-for-deletion-message
(format nil
(translate "Please select ~A to delete.")
(translate
(humanize-name (dataseq-data-class obj))
:plural-p t
:accusative-form-p t)))
(append
(loop for count-keyword in (locale-number-forms (current-locale))
collect
(cons
(concatenate-keywords :items-deleted-message- count-keyword)
(format nil
(translate
"Deleted ~~A ~A."
:preceding-gender (determine-gender (humanize-name (dataseq-data-class obj)))
:preceding-count count-keyword)
(translate
(humanize-name (dataseq-data-class obj))
:items-count count-keyword
:accusative-form-p t))))
(loop for count-keyword in (locale-number-forms (current-locale))
collect
(cons
(concatenate-keywords :items-delete-question-for- count-keyword)
(format nil
(translate "Delete ~~A ~A?")
(translate
(humanize-name (dataseq-data-class obj))
:items-count count-keyword
:accusative-form-p t))))
(loop for (key . val) in (widget-translation-table 'do-confirmation :confirmation-type :yes/no)
collect (cons (concatenate-keywords :do-confirmation- key) val)))))


What's your opinion ?


Thnaks.

Best Regards.


--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/d/optout.
Fred | 4 Apr 14:25 2014
Picon

call-in-webapp execution over 7s

Hello,

my weblocks application use MySQL as data store.

In a widget, i use a gridedit to display some of 1600 entries
stored in a table of the DB.

With the on-query function, i apply a filter in order to only get a subset of these entries.

i have configured the gridedit to disallow pagination.

When the gridedit has to display 150 entries in the same window, it takes over 7s :(

When i profile the execution (slime-profile-package weblocks),
call-in-webapp takes 7s.

Any ideas ?

Best regards.

Thanks.

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/d/optout.
petter | 27 Mar 16:42 2014
Picon

Debugging datagrid?

I'm trying to use a datagrid which is connected to a clsql table. 

But I don't seem to get any HTML generated as the output is empty. If I run a query in the REPL I do get data:

.
REGRESSION> (clsql:with-database (db tables:*database-spec*) (clsql:select 'tull :database db :flatp t))
(#<TULL {100755D733}>)

Any suggestions for functions to trace or data to inspect?


--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/d/optout.
Shawna Sumerlin | 6 Mar 18:07 2014

Salvage and Asset Recovery

Hello,

Are you currently looking to sell any cargo or salvage from claims, or that is considered damaged/abandoned? Salvex has one of the largest networks of salvage buyers and more than 1,800 active salvage sales in over 100 countries. We can help large corporations, wholesalers, claims agents, transportation companies and marine surveyors sell all types of cargo and inventories, no matter what type of item or location. In most cities and ports, we have physical agents who can assist with logistics and local issues to complete that sale.

Salvex is successful due to repeat business and the consistent high recoveries from salvage sales. Please let us know what you have or if you have any questions regarding our services. Have a good day.

Regards,

Shawna Sumerlin
Salvex, Inc.
723 Main St. Ste. 600
Houston, TX 77002
713-229-9000 x114 - Phone
973-556-1328 - Fax
shawna-T1tSJ773ByzQT0dZR+AlfA@public.gmane.org - E-mail
www.salvex.com - Web Site

To unsubscribe from this email click here.

THIS MESSAGE IS INTENDED ONLY FOR THE USE OF THE INDIVIDUAL TO WHOM IT IS ADDRESSED AND CONTAINS INFORMATION THAT IS PRIVILEGED, CONFIDENTIAL AND EXEMPT FROM DISCLOSURE UNDER APPLICABLE LAW. IF YOU ARE NOT THE INTENDED RECIPIENT, OR THE EMPLOYEE OR AGENT RESPONSIBLE FOR DELIVERING THIS MESSAGE TO THE INTENDED RECIPIENT, YOU ARE HEREBY NOTIFIED THAT ANY UNAUTHORIZED DISCLOSURE, DISSEMINATION, DISTRIBUTION OR COPYING OF THIS COMMUNICATION IS STRICTLY PROHIBITED. IF YOU HAVE RECEIVED THIS COMMUNICATION IN ERROR, OR ARE NOT SURE WHETHER IT IS PRIVILEGED, PLEASE IMMEDIATELY NOTIFY US BY REPLY E-MAIL AT cwilson-T1tSJ773ByzQT0dZR+AlfA@public.gmane.org THANK YOU.

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org.
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.

Guillermo Ithier | 24 Feb 10:27 2014
Picon

Weblocks error, Please can someone help.

Hello, and thank-you for your help. I am getting the following error and cannot get around it:

[package optima]
debugger invoked on a SB-KERNEL:SIMPLE-PACKAGE-ERROR in thread
#<THREAD "main thread" RUNNING {1002978C93}>:
  no symbol named "DESTRUCTURING-CASE" in "ALEXANDRIA.0.DEV"

This happens when I try the simple using quicklisp example. Your help will be greatly appreciated.
Thank you
Guillo

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.
petter | 18 Feb 15:26 2014
Picon

Does weblocks still require the hacked CLSQL-FLUID library?

Does the clsql postgresql-socket backend still require the hacked CLSQL-FLUID library?

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.
Jake Penton | 13 Feb 04:39 2014
Picon

weblocks examples seem broken on my system

I am a newcomer to weblocks. Moreover, I have been away from CL for about two years (took a detour to Haskell), and in any case never was very expert at CL. I confess that I am posting this without having done a whole lot of research. But, I am trying to start by running weblocks example apps, so I somehow don't expect to have to put in a whole lot of effort just to see preliminary demos. Somebody may flame me if I am being too lazy, I guess.

I run OS X 10.7.3, ccl, and develop using aquamacs and SLIME. This CL setup is working like a charm for me, as it always has.

I just installed weblocks and weblocks-demo with quicklisp. Doing so apparently also caused other weblocks examples to be installed, such as simple-blog, weblocks-clsql-demo, and weblocks-elephant demo.

Things seem to be pretty broken. I think it is premature to start posting error messages etc. I will certainly do so if that is helpful. But for now, my question is, should I expect the examples to work out of the box? I don't see any posts here that indicate they are broken at the moment.

For instance quicklisp apparently delivers weblocks-clsql-demo without weblocks-clsql, so the web app cannot even be loaded by asdf. Is that a quicklisp problem, or something else? (I just joined the quicklisp group a moment ago, and have lots to learn about quicklisp also).

Next, simple-blog fires up and gives me a web page, but almost anything I try to do results in a cascade of error messages.

So, what should my expectations be? Should I not expect these to run out of the box?

Best,

- Jake -

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.
John Morrison | 19 Dec 21:24 2013

lazy-navigation

Hi All;

Probably PEBKAC (problem exists between keyboard and chari), but I was trying to get protected navigation to work, based upon the ancient advice to use a subclass of lazy-navigation.  In trying to debug it, it turns out I am unable to get lazy navigation to work at all.  Here's the offending code from a standalone webapp.  I tried some obvious things like providing f-underscore function widget generators instead of instantiated string widgets, etc., to no avail.  Would appreciate being pointed in the right direction.  Hopefully the attached file is more readable than the cut-and-paste job below...

Was also unsure why protected navigation necessitates lazy navigation.  Perhaps there is some safety in not generating widgets that should not be shown to the unauthorized user...

Thanks in advance,

-jm

(defun init-user-session (root)
(setf (widget-children root)
(list
(make-navigation
"this works"
'foo (make-widget "foo widget")
'bar (make-widget "bar widget"))
(make-navigation
"works with vanilla navigation. fails 404 if using lazy-navigation"
'baz (make-widget "baz widget")
'quux (make-widget "quux widget")
:navigation-class
#-NIL 'lazy-navigation ; fails with 404
#+NIL 'navigation ; works
)
(lambda (&rest args)
(with-html
(:strong "Happy Hacking!"))))))

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.
Attachment (init-session.lisp): application/octet-stream, 629 bytes
yron_r | 13 Dec 04:18 2013
Picon

[weblocks] Так чтобы осуществить приятное и не лопухнуться Зайди к нам

Затем чтобы совершить наиприятнейшее и не
опростоволоситься приди к нам http://tc.tradetracker.net/?c=9960&m=12&a=163857&u=%2Fhome%2Fhw13_12_NY_horoscope_landing%2F

--

-- 
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe@...
To post to this group, send email to weblocks@...
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.

Fred | 7 Dec 12:02 2013
Picon

Quicklisp and weblocks-clsql-demo

Hello,

i have recently updated weblocks from version weblocks-20121125-git
to version weblocks-20131111.

i tried to load weblocks-clsql-demo from quicklisp but it seems to be broken :

 ; SLIME 2013-11-10
CL-USER> (ql:quickload "weblocks-clsql-demo")

System "weblocks-clsql" not found
   [Condition of type QUICKLISP-CLIENT:SYSTEM-NOT-FOUND]

Moreover, my webapp works fine with weblocks-20121125-git but
don't with the latest version :
When i try to load a gridedit, i get the following error :

Weblocks caught an error

Description UNDEFINED-FUNCTION: The function WEBLOCKS-CLSQL::FIND-SLOT-ESD is undefined.

Is anyone could help ?

Thnaks

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.
Picon

[weblocks] CARTA DE SERVIÇOS | Cód. 58

PREZADO CLIENTE : PERDEU OS DADOS, NÃO SE PREOCUPE, NÓS RECUPERAMOS PARA VOCE. EMPRESA ESPECIALIZADA EM RECUPERAÇÃO PROFISSIONAL E MANUTENÇÃO ASSISTËNCIA TÉCNICA EM DADOS DE.DADOS EM SERVIDORES DE P/M/G PORTE DADOS EM RAIDS 0/1/5/10DADOS EM CDR E DVDSDADOS EM FILMADORASDADOS EM MAQ.DIGITAISDADOS EM PEN DRIVESDADOS EM HDS MAQ.INDUSTRAISE OUTROS:DICA: Não se desespere e não entregue seu hd a pessoas que não tenha capacitada e técnica no resgate dos dados não use técnicas amadoras que só fazem forçar a cabeça e riscar a mídia do hd existem muitos progra- minhas gratuitos de internet que só fazem piorar a situação do hd, quanto a perfeição dos dados.(VALORES A PARTIR DE R$:250,00 - REAIS PARA O SERVIÇONÃO COBRAMOS O DIAGNOSTICO E ORÇAMENTO) Faça Sua Recuperação De Dados e Pague Com, Cartão de Crédito,Bole to Bancário da Caixa Economica Federal,de 0 a 12 vezes com preço fixo com entrada de ?????%-( dependendo do valor do serviço ), ou Déposito Em Conta Corrente. Trabalhamos para Pessoas Físicas,Júridicas,e orgãos públicos Matriz Londrina:(43)9622.4505(43)3323.8292Emails:Contato <at> sosdatarecovery.com.brFilial em Brasilia:(61)8149.8032(61)3556.4499 Email:escritoriobrasilia-9aOz2WWY4mvFUiRvJER3MPX65j1cBlkXWXpfOPSDWKo@public.gmane.org:(81)3453.0675(81)8840.6621(81)9997.6601 Email:gmcbraga-dXALDUftOVrcxdX3paG+oanX9KhGKllL@public.gmane.org <at> uol.com.br

--
You received this message because you are subscribed to the Google Groups "weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email to weblocks+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to weblocks-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/groups/opt_out.

Gmane